姹熻嫃璁＄畻鏈轰簩绾�VB 濉�绌洪�?- 鐧惧害鏂囧簱

棣栭〉

搴撳簱AI

骞垮満

鍘嗗彶

鏀惰棌

浜戠洏

鐭ヨ瘑搴?/div>

濉�绌洪�?/p>

1 

1.

 

鎵ц�屼笅闈㈢▼搴忥紝鍗曞嚮鍛戒护鎸夐�?/p>

Command1

锛屽垯绐椾綋涓婃樉绀虹殑绗�涓�琛屾槸

 

 

 

 

(1) 

 

 

 

锛屾渶

鍚庝竴琛屾槸

 

(2) 

 

 

 

銆?/p>

 

Option Explicit 

Option Base 1 

Private Sub Command1_Click() 

 

 

 

 

Dim n As Long, k As Integer, a() As Integer 

 

 

 

 

n = 123456789 

 

 

 

 

Do 

 

 

 

 

 

 

 

 

k = k + 1 

 

 

 

 

 

 

 

 

ReDim Preserve a(k) 

 

 

 

 

 

 

 

 

a(k) = n Mod 100 

n = n \ 100 

 

 

 

 

Loop Until n = 0 

For k = 1 To UBound(a) 

 

 

 

 

 

 

 

 

Print fun(a(k)) 

 

 

 

 

Next k 

End Sub 

Private Function fun(n As Integer) As Integer 

Dim k As Integer 

 

 

 

 

k = n Mod 10 

fun = k * 10 + (n \ 10) 

End Function

 

 

2.

 

鎵ц�屼笅闈㈢▼搴忥紝鍗曞嚮鍛戒护鎸夐�?/p>

Command1

锛屽垯鏁扮粍鍏冪礌

a(2, 1)

鐨勫�兼槸

 

 

 

 

(3) 

 

 

 

锛?/p>

a(1, 

2)

鐨勫�兼槸

 

(4) 

 

 

 

銆?/p>

 

Option Explicit 

Option Base 1 

Private Sub Command1_Click() 

 

 

 

 

Dim a(3, 3) As Integer, i As Integer, k As Integer 

Dim n As Integer 

 

 

 

 

n = 9 

For k = 1 To 3 

 

 

 

 

 

 

 

 

For i = 1 To 3 

a(i, k) = n 

 

 

 

 

 

 

 

 

 

 

 

 

n = n - 1 

 

 

 

 

 

 

 

 

Next i 

Next k 

 

 

 

 

For i = 1 To 3 

 

 

 

 

 

 

 

 

For k = 1 To 3 

 

 

 

 

 

 

 

 

 

 

 

 

Print a(i, k); 

 

 

 

 

 

 

 

 

Next k