作者albb0920 (albb)
看板Visual_Basic
标题Re: [VB6 ] 关於二维阵列的问题
时间Thu Nov 29 23:11:04 2007
※ 引述《a886759 (我的世界很美丽)》之铭言：
: ※ 引述《a886759 (我的世界很美丽)》之铭言：
: : 宣告一个二维阵列後，例如；x(2,3)
: : 用for next做回圈
: Private Sub Command1_Click()
: Dim x(2, 3)
: For i = 0 To 2
: 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
===================================
改成
===================================
If j > 0 then
b = x(i, j) / x(i,j - 1)
Print "第" & (i + 1) & "=" & b
End IF
==================================
: 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: 59.112.37.69
1F：推 a886759:感谢 我会了^^ 12/01 00:51