UC知道菜鸟问 VB代码不清楚
来源：百度知道 编辑：UC知道 时间：2024/06/05 15:26:07
private sub command1_click()
dim a(1 to 10,1 to 10)as integer
di b,c as integer
b=val(text1.text)
c=val(text2.text)
for j= 1 to 10
for i= 1 to 10
a(i,j)=j
next
next
msgbox""&a(b,c)
end sub
窗体上就 三个“TEXT1”“TEXT2”“command1”
看 代码里面 a b 似乎跟i j没关系 可是 得到结果却是b
b=j为什么 给我说说
dim a(1 to 10,1 to 10)as integer
di b,c as integer
b=val(text1.text)
c=val(text2.text)
for j= 1 to 10
for i= 1 to 10
a(i,j)=j
next
next
msgbox""&a(b,c)
end sub
窗体上就 三个“TEXT1”“TEXT2”“command1”
看 代码里面 a b 似乎跟i j没关系 可是 得到结果却是b
b=j为什么 给我说说
没看大懂，也不清楚text1,text2的值，所以随便算了一下：
Private Sub command1_click()
Dim a(1 To 10, 1 To 10) As Integer
Dim b, c As Integer
b = Val(Text1.Text)
c = Val(Text2.Text)
For j = 1 To 10
For i = 1 To 10
a(i, j) = j
'a(1,1)=1 , a(2,1)=1 .. a(10,1)=1
'a(1,2)=2 , a(2,2)=2 .. a(10,2)=2
'...
'a(1,10)=10,a(2,10)=10 ... a(10,10)=10
Next
Next
MsgBox "" & a(b, c) '跟b没关系,c=多少结果就是多少
End Sub