Re: [VB6 ] 有關INPUTBOX
: 因為我不知道你的輸入方式
: 如果是依照行開始填 ,然後填到某行某列
: 我覺得這樣應該可以:
: 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
推
210.58.156.43 06/12, , 1F
210.58.156.43 06/12, 1F
→
210.58.156.43 06/12, , 2F
210.58.156.43 06/12, 2F
推
210.58.156.43 06/12, , 3F
210.58.156.43 06/12, 3F
推
210.58.156.43 06/12, , 4F
210.58.156.43 06/12, 4F
→
210.209.162.97 06/12, , 5F
210.209.162.97 06/12, 5F
推
210.209.162.97 06/12, , 6F
210.209.162.97 06/12, 6F
→
210.209.162.97 06/12, , 7F
210.209.162.97 06/12, 7F
討論串 (同標題文章)
本文引述了以下文章的的內容：
完整討論串 (本文為第 3 之 3 篇)：
Visual_Basic 近期熱門文章
PTT數位生活區 即時熱門文章
