VB操作题答案.docVIP

第一次作业 Private Sub Command1_Click() Text1.Text = 欢迎你学习VB程序设计 Text1.ForeColor = vbGreen Text1.Font = 宋体 Text1.FontSize = 25 Text1.FontItalic = True Text1.FontBold = True End Sub Private Sub Command2_Click() End End Sub Private Sub Form_Click() Text1.ForeColor = vbRed Text1.Font = 隶书 Text1.Text = 佛山大学理学院 End Sub 第二次作业(服务员密码) 1、请建立一个工程（ zy02.vbp),含有1个窗体（zy02.frm),该窗体有两个标签，两个命令按钮（设置成不同的背景色），一个文本框。要求如下：1）当程序启动运行时，命令按钮不可用（变灰色），当在文本框中输入正确密码时，显示出来的是星号，（2）… 3）点击结帐按钮后，窗体所有控件消失，仅显示出标签“谢谢你，再见！”这样的服务用语。 Private Sub Command1_Click() Text1.Visible = False Label2.Visible = True Label2.Caption = 你好，你需要什么 Command2.Enabled = True End Sub Private Sub Command2_Click() Command1.Visible = False Command2.Visible = False Label1.Visible = False Label2.Caption = 谢谢你，再见！ End Sub Private Sub Form_Load() Label2.Visible = False Command1.Enabled = False Command2.Enabled = False End Sub Private Sub Text1_Change() If Text1.Text = 12345 Then Command1.Enabled = True Text1.PasswordChar = * End Sub 第三次 建立一个工程(zy03.vbp),含有一个窗体（zy03.frm）。请在该窗体上设计两个文本框，三个命令按钮，标题分别是减运算和除运算，退出，如图。请编写适当的程序，根据两个文本框中输入的数据（整型数据）分别进行减运算和除运算，并将运算结果（注意：除运算结果采用浮点数）用标签控件显示出来。特别要求：总是用两个文本框中输入的大数据做被减数或被除数。工程文件和窗体文件上传到你的操作题子目录下。 Private Sub Cd1_Click() Dim X%, Y%, Z% Dim P$ X = Int(Tt1.Text) Y = Int(Tt2.Text) If X Y Then Z = X - Y Else Z = Y - X P = Str(Z) Ll2.Caption = P End Sub Private Sub Cd2_Click() Dim X%, Y%, Z# Dim P$ X = Int(Tt1.Text) Y = Int(Tt2.Text) If X Y Then Z = X / Y Else Z = Y / X P = Str(Z) Ll2.Caption = P End Sub Private Sub Cd3_Click() Visible = False End Sub 第四次 1、建立一个工程(zy041.vbp),含有一个窗体（zy041.frm）。请在该窗体上设计三个文本框，两个命令按钮，标题分别是计算和与清除，如图。请编写两个命令按钮适当的程序，点击命令按钮计算，利用inputbox函数输入任意两个正整数，将这两个数显示在前两个文本框中，然后根据两个数的和进行判断，如果是奇数，将其放在第3个文本框中，如果是偶数，将其打印在窗体上，点击清除按钮后，清除文本框中的数和窗体上的数据。 Private Sub C1_Click() Dim x As Integer, y As Integer, z As Integer, m As Integer x = InputBox(请输入第一个正整数：, 数据输入) y = InputBox(请输入第二个正整数：, 数据输入) If x 0 And y 0 Then T1.Text = x T2.Text = y z = x + y m = z Mod 2 If m = 0 The