'建立一个Label控件Dim pass As String '用于存放密码Private Sub Form_Load()Label1.Caption = "欢迎使用本程序"pass = Trim(InputBox("请输入密码")) '密码输入返回于pass里End Sub
题目在哪？课程设计的话就不要了。
