如何修改ｖｂ中的程式問題？

Question

Private Sub Command10_Click()
L1:
　　N = Val(InputBox("請輸入正整數"))
　　If A< 0 Then MsgBox "輸入錯誤！請重新輸入正整數！" : Goto L1
　　If A < 200then
　　　 If A < 30 Then
　　　　 Print A;
　　　 Else
　　　　Print A;
　　 End If
　　Else
　　　Print A;
　　End If
End Sub




這是我課本上的程式！
但我所製作的報告不一樣！
我想要將
　　If A < 0 Then MsgBox "請輸入正整數！" : Goto L1
的Goto L1:改成回到Form1的畫面，而不要回到L1那裡！
我有嘗試直接將L1改成Form1結果一直出現提示方框（MsgBox），而卡在那！只能強製關閉ｖｂ！

如果要多加If！在哪要在多加End If？

是否可順便提供直接顯示日期的程式！（我有時間的程式了！）

　　

Answer 1

　　If A < 200then
　　　 If A < 30 Then
　　　　 Print A; ...(1)
　　　 Else
　　　　Print A; ... (2)
　　 End If
　　Else
　　　Print A; ... (3)
　　End If
光是拿掉 "L1:" 和 "Goto L1" 程式仍然會印出 A (第三個 Print A;)
所以 應該是 拿掉 "L1:"
"Goto L1" 換成 "Exit Sub"
題外話:
不知道你主要想做什麼
但是在顯示了 "輸入錯誤！請重新輸入正整數！" 的訊息之後就跳回 Form1, 感覺上怪怪的.
Now 會顯示日期和時間
Date 祇會顯示日期
如果有問題, 請來函討論. 不然, 我可能會錯失你再補充的疑點.

2007-01-18 01:18:11 補充：
抱歉
原文 '光是拿掉 "L1:" 和 "Goto L1" 程式仍然會印出 A (第三個 Print A;)
' 有錯誤
應該是 (第一個 Print A;)

回 就是這樣神奇 :
不是 Data 是 Date

Answer 2

Module Module1

Sub Main()
Dim a
If a >= 0 Then
If a < 200 Then
If a < 30 Then
Print(a)
Else
Print(a)
End If
Else
Print(a)
End If
Else
MsgBox("輸入錯誤！請重新輸入正整數！")
End If
End Sub
End Module

Answer 3

拿掉 L1: 跟
If A< 0 Then MsgBox "輸入錯誤！請重新輸入正整數！" : Goto L1

再加上一個 If 來判斷A是否大於等於零，是的話進入下一個 If (If A < 200 Then...)，不是的話則跳出這Sub 回到Form:

N = Val(InputBox("請輸入正整數"))

If A >= 0 Then
　If A < 200 Then
　　If A < 30 Then
　　　Print A
　　Else
　　　Print A
　　End If
　Else
　　Print A
　End If
End If

2007-01-20 16:16:12 補充：
Sorry.. 忘了這行..
MsgBox "輸入錯誤！請重新輸入正整數！"

更正的程式碼:
If A >= 0 Then
　If A < 200 Then
　　If A < 30 Then
　　　Print A
　　Else
　　　Print A
　　End If
　Else
　　Print A
　End If
Else
　MsgBox "輸入錯誤！請重新輸入正整數！"
End If

Answer 4

你的意思是說 你想要回到表單對吧!!
那就把 L1: 跟 : Goto L1 刪除掉
這樣Command10_Click()區塊就結束了
就回到表單了

有疑問在提出吧!!

2007-01-12 00:56:07 補充：
日期顯示方式
Text1 = Format(Now, "yyyy/mm/dd hh:mm:ss")

有問題再提出吧!!!

2007-01-12 14:41:54 補充：
請問"JJ" 為什麼我用 Data 卻什麼都看不到
Now 跟 Time 都看的到
為何只有Data看不到這是什麼原因??

2007-01-19 16:25:54 補充：
原來是這樣，原來我看錯了，而且錯的很離譜。
呵呵!!!
感謝你的指點!!

Answer 5

你這個程式目的是什麼？？
我看不出來你這個程式要求什麼ㄟ~~
你可不可以把這個程式的目的說出來呢？
這樣我才好幫你解答！！