神马品牌网无线显示接收器 淘宝:vb问题（最后运行没有任何显示）
来源：百度文库 编辑：神马品牌网 时间：2024/05/09 16:51:24
Option Explicit
Private msg1 As String
Private msg2 As String
Private msg3 As String
Private msgtitle As String
Private studname As String
Private studage As String
Private studsex As String
Private studhome As String
Private Sub Form_Load()
msg1$ = "请输入姓名"
msgtitle$ = "学生情况登记"
msg2$ = "请输入年龄"
msg3$ = "请输入籍贯"
studname$ = InputBox(msg1$, msgtitle$)
studage$ = InputBox(msg2$, msgtitle$)
studsex$ = InputBox(msg3$, msgtitle$)
Cls
Print studname$; ","; studsex$; "现年";
Print studage$; ","; studhome$; "人"
End Sub
Private msg1 As String
Private msg2 As String
Private msg3 As String
Private msgtitle As String
Private studname As String
Private studage As String
Private studsex As String
Private studhome As String
Private Sub Form_Load()
msg1$ = "请输入姓名"
msgtitle$ = "学生情况登记"
msg2$ = "请输入年龄"
msg3$ = "请输入籍贯"
studname$ = InputBox(msg1$, msgtitle$)
studage$ = InputBox(msg2$, msgtitle$)
studsex$ = InputBox(msg3$, msgtitle$)
Cls
Print studname$; ","; studsex$; "现年";
Print studage$; ","; studhome$; "人"
End Sub
窗体在form_load（）完成时才显示,所以通常form_load内的print不会显示.如果要显示,在print语句前加me.show ,先让窗体显示。
输入Option Explicit后回车,输入 show
就可以在屏幕上显示结果