这题VB编程题怎么做？

2024-11-19 22:46:31

推荐回答（1个）

回答1：

第一题：
假设有数组仔裂：Arr(9)
For I=0 to8
Temp=Arr(I):Arr(I)=Arr(8-I):Arr(8-I)=Temp
Next
第运察二念悄闭题：
Private Sub Command1_Click(Index As Integer)'控件数组，即4个CommandButton一个名字
With Text1
.FontSize=20
.FontName=Command1(Index).Caption
.Text="试试看"
End With
End Sub
第三题：
Private Sub Command1_Click()
Dim Arr(1, 2) As Integer
Dim Rec As Integer
Rec = 0
Randomize
For I = 0 To 1
For J = 0 To 2
Arr(I, J) = Int(Rnd * 10)
Print Arr(I, J),
Rec = Rec + 1
If Rec Mod 2 = 0 Then Print
Next
Next
End Sub