請問VB的Input程式問題？

Question

'********** f5_P_9 **********
Private Sub cmdInput_Click()
Cls
Dim name As String
name = InputBox("請輸入您的姓名.", "請問芳名")
msg = name + "是你的姓名嗎？"
code = 36
Title = "確認姓名"
return_value = MsgBox(msg, code, Title)
If return_value = 6 Then
FontSize = 12
Print name + "您好！"
End If
End Sub

Private Sub cmdEnd_Click()
End
End Sub

請問Input輸入姓名後，要加哪些程式才能按"確定"繼續Msgbox迴圈，按"取消"則重新輸入姓名。謝謝！

vb裡設計2個command按鈕：按輸入姓名鈕、結束鈕
目前我設計程式如上圖，程式要求為，按"輸入姓名"鈕，出現"請問芳名"對話方塊，在文字方塊內輸入姓名，再按"確定"鈕，出現"確認姓名"對話方塊，再按"是"鈕，將輸入姓名處理後顯示在表單。
"請問芳名”對話方塊要怎設計按”取消”鈕後，不再繼續”確認姓名”對話方塊。而不是”確認姓名”對話方塊按”否”鈕後，回到"請問芳名"方塊。

Answer 1

Private Sub cmdInput_Click()
Cls
Dim name As String
andy:
name = InputBox("請輸入您的姓名.", "請問芳名")
If name = "" Then '加了一個判斷式~若無輸入或按取消則跳回andy
GoTo andy
Else '有輸入就執行你所想的要求
msg = name & "是你的姓名嗎？"
Title = "確認姓名"
return_value = MsgBox(msg, vbYesNo + vbQuestion, Title) '
If return_value = vbYes Then '判斷若按 是 則產生結果
FontSize = 12 '這是你的要求
Print name & "您好！" '這是你的要求
Else '若按 否 則結束
end
End If
End If
End Sub

字串相聯vb習慣上是用& 別用 +

2005-06-29 06:52:12 補充：
我改了~看能不能

2005-06-29 12:54:59 補充：
若是要按 否 然後結束程式

就將

Else
GoTo andy '若按 否 則跳到andy去，從andy處執行
End If

改成

Else '若按 否 則結束程式
end
End If

同理~若是你要在"請問芳名"
那裡按取消~就結束
就將ELSE下面的GOTO ANDY
改成END結束程式就好了

Answer 2

vb 註解應該是 '
而不是 // <= 是 java or c 的註解吧.. @@

Answer 3

上官的程式沒法執行。

2005-06-28 11:17:21 補充：
上官的程式：
編譯錯誤、語法錯誤。
Private Sub cmdInput_Click()有問題？？

2005-06-28 11:21:50 補充：
Andy晉的程式：
按取消後仍繼續執行Msgbox程式，
為___是你的姓名嗎？

2005-06-29 09:04:46 補充：
上官的程式：
今天測式後可以用，
但"請問芳名"對話方塊按”取消”鈕後，仍繼續”確認姓名”對話方塊。”確認姓名”對話方塊按”否”鈕後，則回到"請問芳名"方塊，無法結束。

2005-06-29 09:10:20 補充：
Andy晉的程式：
基本上是可以執行，
但能否教我"確認姓名"對話方塊按"否"鈕後，直接結束，不再回到"請問芳名"對話方塊。
因為我是vb初學者，目前所學的vb，書上寫的字串相聯程式用+，現在知道字串相聯vb習慣上是用&，謝謝您的指教^^。

2005-06-29 09:18:13 補充：
ps.Andy的程式不小心把
Private Sub cmdEnd_Click()
End
End Sub
刪掉。

Answer 4

Private Sub cmdInput_Click()
Cls
Dim name As String
Do While (1)
name = InputBox("請輸入您的姓名.", "請問芳名")
msg = name + "是你的姓名嗎？"
code = 36
Title = "確認姓名"
return_value = MsgBox(msg, code, Title)
If return_value = 6 Then
FontSize = 12
Print name + "您好！"
Exit Do
End If
Loop
End Sub

Private Sub cmdEnd_Click()
End
End Sub

2005-06-27 19:28:26 補充：
那個…應該可以執行吧
不過//和//後面的中文字要刪掉喔
那只是讓你看而已…
我有上機測試過了…
如果真的不行，我就寄檔案給你，或是你寄錯誤訊息給我…行嗎??

2005-06-27 21:42:37 補充：
嗯…我只是想要解釋要加哪幾行而已，沒有去考慮註解的規定…sorry，下次改進。

2005-06-28 13:02:17 補充：
你有把//和//之後的文字刪掉嗎??
你再把我的程式copy上去，而且要把一個command的name改成cmdInput
這樣不可能有錯的呀…