VB作业 要求2.docVIP

一、设计窗体1 1、添加控件：三个标签控件、两个文本框控件、一个框架控件、两个按钮控件，通过“格式”菜单布局。 2、修改所添加控件的Caption属性，相应值如下图显示；标签3（Label3）设置它的属性为。 请正确填入登录信息 用户： 密码： 登录 清空 二、设计窗体2 1、添加控件：一个图片框控件、四个按钮控件，通过“格式”菜单布局。 2、修改所添加控件的Caption属性，相应值如下图显示 三、代码设计 1、窗体1的代码设计 Private Sub Command1_Click If Text1.Text 1 And Text2.Text 1 Then 判断输入的用户名和密码是否正确，这里设置用户名为1，密码为1 Dim msg As Integer Dim i As String 声明字符串变量i i InputBox 请输入你最喜欢的人：, 输入, , 1000, 500 利用InputBox函数弹出对话框，输入信息，将信息赋值给变量i Label3.Caption i 将变量i的值赋值给标签3 msg MsgBox 真的吗？, vbQuestion + vbYesNo, 询问 If msg 6 Then Form2.Show 显示窗体2 Unload Form1 卸载窗体1 MsgBox 笨，叫你写你就写,傻啊, vbExclamation + vbOKOnly, 提示 Else MsgBox 请重新登录, vbExclamation + vbOKOnly, 提示 Text1.Text Text2.Text Text1.SetFocus End If Else 用户名与密码输入错误时，通过MsgBox语句弹出信息提示，然后清空文本框，将焦点定在文本框1 MsgBox 信息错误，重新填写, vbExclamation + vbOKOnly, 警告 Text1.Text Text2.Text Text1.SetFocus End If End Sub Private Sub Command2_Click Text1.Text 清空文本框1的内容 Text2.Text 清空文本框2的内容 Text1.SetFocus 将焦点定在文本框1 End Sub 2、窗体2的代码设计 Private Sub Command1_Click print函数与Tab函数配合使用的相关代码 Picture1.Cls Picture1.Print abc; Tab 10 ; def Picture1.Print 1座机电话号码; Tab 8 ; abcd Picture1.Print 10; Tab; 20; Tab; 30 End Sub Private Sub Command2_Click print函数与Spc\Space函数配合使用的相关代码 Picture1.Cls Picture1.Print 123; Spc 3 ; 1 Picture1.Print 123 + Space 3 + 1 End Sub Private Sub Command3_Click print函数与Format函数配合使用的相关代码 Picture1.Cls Picture1.Print Format CHINA, Picture1.Print Format Date, YYYY/M/D End Sub Private Sub Command4_Click 卸载当前窗体，显示登录窗体 Unload Form2 Form1.Show End Sub Private Sub Form_Load 设置当前窗体的标题 Me.Caption 欢迎 Form1.Label3.Caption 光临，请做相应操作 End Sub