Re: [VB6 ] 有關INPUTBOX

[walume (哇!阿魯米)]

: 因為我不知道你的輸入方式
: 如果是依照行開始填 ,然後填到某行某列
: 我覺得這樣應該可以:
: 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
推 fumizuki:據我所知，不要用inputbox，自訂一個輸入的表單
→ fumizuki:不然就沒辦法了╮(︶︵︶)╭
推 fumizuki:可是你可以設定你陣列的型態呀
推 fumizuki:存的是空字串就停止迴圈，數字就繼續
→ walume:空字串..?  ""沒辦法偵測? 要怎麼改呢?@@"
推 walume:我知道了..我原本的程式碼是val(stat(a,0))..
→ walume:把val拿掉就行了