Question

第九题，是vb 基础的题目，求大神解答

Answer 1

Dim a(4, 4) As Integer

Private Sub Command1_Click() '产生并显示4*4数组,不然计算错误也不知道啊?
For i = 1 To 4
For j = 1 To 4
a(i, j) = Int(Rnd * 100)
Print a(i, j);
Next j
Print
Next i
End Sub

Private Sub Command2_Click() '计算
For i = 1 To 4
If a(i, i) Mod 3 = 0 Then s = s + 1
If a(i, 5 - i) Mod 3 = 0 Then s = s + 1
s1 = s1 + a(i, i)
Next i
Label1.Caption = s
Label2.Caption = s1
End Sub

Answer 2

能等到十点左右给你发吗？ 我身边没有电脑！

Answer 3

考个循环而已，没什么难度吧。

追问

😊刚学，不太懂

追答

:)

追问

😊题目四，

Answer 4

每题啊 ，哎，拿出来看看才知道啊、