作者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