很简单的VB程序设计问题 帮我优化一下程序

Private Sub Form_load()
Dim no As Long, name As String
no = InputBox("请输入您的学号;", "输入学号", 2009)
name = InputBox("请输入您的名字;", "输入名字")
MsgBox "我的学号是:" & nub & Chr(13) + "我的名字是:" & name, vbOKOnly + vbInformation, "感谢合作"
End Sub

问题： 《输入学号》窗体的“取消”按钮不可用 帮我优化下 谢谢

判断是否为空就行了：

Private Sub Form_load()
Dim no As String, name As String
no = InputBox("请输入您的学号;", "输入学号", 2009)
If no = vbNullString Then Exit Sub

name = InputBox("请输入您的名字;", "输入名字")
If name = vbNullString Then Exit Sub

MsgBox "我的学号是:" & nub & Chr(13) + "我的名字是:" & name, vbOKOnly + vbInformation, "感谢合作"
End Sub

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息