VB第一次上机作业.docVIP

2、创建一个窗体，在窗体界面上放置二个按钮（Command1和Command2）和一个标签（Label1）控件，单击按钮Command1则在标签Label1上显示“你好！”，单击Command2则在标签Label1在窗体左上角显示“再见！”，并且标签Label1的背景和文字的颜色分别变成黄色和蓝色，字体改为“粗体”和“小二”。运行界面如图所示。 程序为： Private Sub Command1_Click() Label1.Caption = 你好！ Label1.FontBold = True Label1.FontSize = 20 End Sub Private Sub Command2_Click() Label1.Caption = 再见！ Label1.BackColor = vbYellow Label1.ForeColor = vbBlue Label1.FontBold = True Label1.FontSize = 20 Label1.Top = 0 Label1.Left = 0 End Sub 运行界面如下： 4、利用InputBox函数编写程序，可以输入二个字符串，对它们进行合并连接并显示连接结果。设计参考界面如图所示。 程序代码： Private Sub Command1_Click() Dim str1, str2 As String str1 = InputBox(输入第一个字符串, 字符串) str2 = InputBox(输入第二个字符串, 字符串) Text1.Text = str1 + str2 End Sub 运行界面如下： 5、设计一个窗体，使用二个文本框来接受用户输入的二个数，使用四个按钮【加】、【减】、【乘】、【除】来执行这二个数的加、减、乘、除运算，利用标签显示结果。设计界面如图所示： 程序代码是： Private Sub Command1_Click() Dim s1, s2 As String s1 = Text1.Text s2 = Text2.Text Label3 = s1 + s2 = Val(s1) + Val(s2) End Sub Private Sub Command2_Click() Dim s1, s2 As String s1 = Text1.Text s2 = Text2.Text Label3 = s1 - s2 = Val(s1) - Val(s2) End Sub Private Sub Command3_Click() Dim s1, s2 As String s1 = Text1.Text s2 = Text2.Text Label3 = s1 * s2 = Val(s1) * Val(s2) End Sub Private Sub Command4_Click() Dim s1, s2 As String s1 = Text1.Text s2 = Text2.Text Label3 = s1 / s2 = Val(s1) / Val(s2) End Sub 6、有这样一个窗体，仅放置一个按钮用来改变窗体的背景颜色。窗体第一次打开的默认背景颜色为白色，按钮的文字为“背景色改为红色”，当单击按钮后，窗体背景颜色改为红色，同时按钮文字变为“背景色改为白色”，如此可以反复改变背景颜色。编写程序完成上述功能。 程序代码是： Private Sub Form_Load() Form1.BackColor = vbWhite End Sub Private Sub Command1_Click() Dim str As String str = Command1.Caption If str = 背景色改为红色 Then Form1.BackColor = vbRed Command1.Caption = 背景色改为白色 ElseIf str = 背景色改为白色 Then Form1.BackColor = vbWhite Command1.Caption = 背景色改为红色 End If End Sub 设计界面如图：