作者walume (哇!阿鲁米)
看板Visual_Basic
标题Re: [VB6 ] 有关INPUTBOX
时间Sat Jun 11 23:48:58 2005
: 因为我不知道你的输入方式
: 如果是依照行开始填 ,然後填到某行某列
: 我觉得这样应该可以:
: X(M,N)
: I=0
: DO
: X(I,J)=A
: If A = "" Then Exit Do
: I=I+1
: If I = M Then Exit Do
: Loop
: J=0
: Do
: X(I-1,J)
: If A = "" Then Exit Do
: J=J+1
: If J = N Then Exit Do
: Loop
: Print I ; J ; X(I,J)
: 或者
: For I = 1 To M
: For J = 1 To N
: If X(I,J) = "" Then Print I ; J-1 : X(I,J-1)
: Next J
: Next I
Dim stat(999999, 0)
Private Sub Command1_Click()
n = Val(Text1.Text)
For a = 1 To n
stat(a, 0) = Val(InputBox("请输入数值,不输入则预设为0", "简易统计计算",
""))
Next
End Sub
这是我原本的程式码
利用text输入个数後
在用输入的数值用for去跑回圈来输入二维阵列的数值
可是我现在想改成直接设定一个很大的回圈
输入阵列的数值时 如果不输入就停止回圈
并把那个回圈的a令为n
我试过用
if stat(a, 0) = "" then
n = a
exit for
end if
不过好像没用...Orz
有没有其他办法呢??
或是有没有当按下inputbox的取消
就停止回圈的办法???
其实我这个作业应该是可以了
只是我想改好一点..囧"
--
生活娱乐馆 生活, 娱乐, 心情 [claus]
TaiwanPlaza
台湾 Σ台湾游园地 →
台湾各地讨论/旅游
PingTung
屏东 ◎屏东板 东港鲔鱼季开始罗!!! fasty/EmilCha
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 210.209.162.97
1F：推 fumizuki:据我所知，不要用inputbox，自订一个输入的表单 210.58.156.43 06/12
2F：→ fumizuki:不然就没办法了╮(︶︵︶)╭ 210.58.156.43 06/12
3F：推 fumizuki:可是你可以设定你阵列的型态呀 210.58.156.43 06/12
4F：推 fumizuki:存的是空字串就停止回圈，数字就继续 210.58.156.43 06/12
5F：→ walume:空字串..? ""没办法侦测? 要怎麽改呢?@@" 210.209.162.97 06/12
6F：推 walume:我知道了..我原本的程式码是val(stat(a,0)).. 210.209.162.97 06/12
7F：→ walume:把val拿掉就行了 210.209.162.97 06/12