成人《VB程序设计》标准化大作业(答案)1

Private Sub Command1_Click() Form1.WindowState = 2 End Sub

Private Sub Command2_Click() Form1.WindowState = 1 End Sub

第（ 7 ）题

1.建立如图所示界面 2.建立如下事件过程：

（1）事件：单击“显示”按钮和“停止”按钮。 （2）响应：单击“显示”按钮文本框显示当前时间，且时间每秒钟变化一次，单击“停止”按钮时间显示停止。

Private Sub Command1_Click() Timer1.Enabled = True End Sub

Private Sub Command2_Click() Timer1.Enabled = False End Sub

Private Sub Timer1_Timer() Text1.TEXT = Time End Sub

第（ 8 ）题

1.建立如图所示界面 2.建立如下事件过程：

（1）事件：单击“确定”按钮和“取消”按钮。 （2）响应：单击“确定”按钮，如果输入的是1234则显示左下图的对话框，如果输入的不是1234，则显示右下图的对话框。

Private Sub Command1_Click() If Text1.Text = \ MsgBox (\密码正确\ Else

MsgBox (\密码错误\ End If End Sub

- 4 -

Private Sub Command2_Click() If Text1.Text = \ Text1.Text = \ Else

Text1.Text = \ End If End Sub

第（ 9 ）题

1.建立如图所示界面，设计一个计算器模型 2.完成5+11，7+9的运算。各控件功能：按钮“5”、“7”、“9”、“11”用于输入参与运算的数据，按钮“+”决定算法，按钮“=”完成运算，文本框用于显示参与运算的数据和运算结果。

Dim a, b As Integer

Private Sub Command1_Click() Text1.Text = 5 a = 5 End Sub

Private Sub Command2_Click() Text1.Text = 7 a = 7 End Sub

Private Sub Command3_Click() Text1.Text = 9 a = 9 End Sub

Private Sub Command4_Click() Text1.Text = 11 a = 11 End Sub

Private Sub Command5_Click() b = a End Sub

Private Sub Command6_Click() Text1.Text = a + b a = a + b End Sub

第（ 10 ）题

1.建立如图所示界面：

2.输入姓名、选定性别后，单击Command1按钮，姓名及性别在列表框中显示。

Private Sub Command1_Click()

- 5 -

If Option1.Value = True Then s = \男\

List1.AddItem Text1.Text & \ \ Else

s = \女\

List1.AddItem Text1.Text & \ \ End If End Sub

第（ 11 ）题

1.建立如图所示界面： 2.建立如下事件过程：

（1）鼠标单击Option1控件时，Label1中的文字居中对齐；

（2）单击Option2控件，Label1中的文字左对齐；单击Option3控件，Label1中的文字右对齐。 Private Sub Option1_Click() Label1.Alignment = 2 End Sub

Private Sub Option2_Click() Label1.Alignment = 0 End Sub

Private Sub Option3_Click() Label1.Alignment = 1 End Sub

第（ 12 ）题

1. 建立如图所示界面： 2. 并编写事件过程： （1）事件：按钮的单击事件。

（2）响应：单击“显示/隐藏”按钮显示/隐藏标签控件，单击“退出程序”按钮退出应用程序。 Private Sub Command1_Click() Static a As Integer a = a + 1

If a Mod 2 = 0 Then

Label1.Visible = True Else

Label1.Visible = False End If

- 6 -

End Sub

Private Sub Command2_Click() End End Sub

第（ 13 ）题

1.建立如图所示的应用程序用户界面 2.建立如下事件过程输入圆的半径，利用选项按钮选择计算类型，计算圆的直径、周长或面积并利用标签输出。

Private Sub Command1_Click() r = Text1.Text

If Option1.Value = True Then

Label1.Caption = \圆的直径是 \ ElseIf Option2.Value = True Then

Label1.Caption = \圆的周长是 \ Else

Label1.Caption = \圆的面积是 \ End If End Sub

Private Sub Command2_Click() End End Sub

第（ 14 ）题

1.建立如图所示的应用程序用户界面 2.建立如下事件过程：

（1）事件：按下相应按钮，

（2）响应：标签中的文字将按选项按钮选中的字体样式显示。

Private Sub Command1_Click() Label1.FontBold = True End Sub

Private Sub Command2_Click() Label1.FontItalic = True End Sub

Private Sub Command3_Click() Label1.FontUnderline = True

- 7 -