作者a886759 (我的世界很美丽)
看板Visual_Basic
标题Re: [VB6 ] 关於二维阵列的问题
时间Thu Nov 29 21:55:01 2007
※ 引述《a886759 (我的世界很美丽)》之铭言：
: 宣告一个二维阵列後，例如；x(2,3)
: 用for next做回圈
Private Sub Command1_Click()
Dim x(2, 3)
For i = 0 To 2
Sum = 0
For j = 0 To 3
a = "请依序输入第" & i + 1 &" 项第" & j + 1 & "个的数值"
x(i, j) = Val(InputBox(a))
b = x(i, j) / x(i, " j" - 1)
Print "第"; i + 1; "="; b
Next
Next i
End Sub
以上在i=0时 j=1、2、3时要求依序输入3个数值，设为400、200、50
即x(0,0)=400 x(0,1)=200 x(0,2)=50
我希望可以计算200/400、50/200
然後print出来
:i=1 i=2时
以此类推
: 可是会失败
: 拜托各位了> <
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 61.229.112.168