2012年3vb实验考试练习题.docVIP

2012年VB程序设计实验考试练习题（共40题） 第一部分 简单应用题（20个） 1．本题描述如下： 解答：添加控件，并按要求修改三个命令按钮的名称和Caption属性，垂直滚动条的名称。 Private Sub C1_Click() VS1.Value = VS1.Min End Sub Private Sub C2_Click() VS1.Value = (VS1.Max + VS1.Min) / 2 End Sub Private Sub C3_Click() VS1.Value = VS1.Max End Sub Private Sub Form_Load() VS1.Max = 100 VS1.Min = 0 End Sub 2．本题描述如下： Private Sub Command1_Click() End End Sub Private Sub Form_Load() Text1.Text = Command1.Caption = 退出 End Sub Private Sub Text1_Change() If IsNumeric(Text1.Text) = False Then MsgBox 不可输入非数字字符 Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text) End If End Sub 3．本题描述如下： 解答：首先将计时器的Timer1的Interval属性设置为1000 Private Sub Form_Load() Text1.Text = 0 Timer1.Enabled = False Command1.Caption = 开始计数 Command2.Caption = 停止计数 End Sub Private Sub Command1_Click() Timer1.Enabled = True End Sub Private Sub Command2_Click() Timer1.Enabled = False End Sub Private Sub Timer1_Timer() Text1.Text = Text1 + 1 End Sub 注意： 以上方法不是唯一的，对属性的设置（如两个命令按钮的Caption属性设置）也可以在属性窗口中设置。 4．本题描述如下： 解答：首先修改列表框的名称属性为L1，命令按钮的名称属性为C1 Private Sub C1_Click() L1.AddItem (Text1.Text) End Sub Private Sub L1_Click() L1.RemoveItem (L1.ListIndex) End Sub 5．本题描述如下： 建立如图所示界面，设置适当属性、编写适当程序，程序根据如下公式，由输入的身高计算标准体重。 男：标准体重（kg）= 身高（cm）- 100 女：标准体重（kg）= 身高（cm）- 105 解答：添加两个标签、两个单选钮和一个命令按钮，设置有关的Caption属性，添加两个文本框，将文本框的text属性清空。 Private Sub Command1_Click() If Option1.Value = True Then Text2 = Text1 - 100 Else Text2 = Text1 - 105 End If End Sub 6．本题描述如下： 解答：添加一个标签，添加一个命令按钮，修改其名称为C1，Caption属性修改为“选课”，再添加三个复选框，将名称分别修改为Ch1、Ch2和Ch3，并设置Caption属性分别为“程序设计”、“数据库原理”、“计算机网络”。 Private Sub C1_Click() s = 我选的课程是 If Ch1.Value Then s = s Ch1.Caption If Ch2.Value Then s = s Ch2.Caption If Ch3.Value Then s = s Ch3.Caption Label1.Caption = s End Sub 7．本题描述如下： 添加一个标签和三个复选框，并按要求修改有关的名称和Caption属性，并将F复选框Chk3的Enabled属性设置为False. Private Sub Form_Load() Label1.FontSize = 14 End Sub 8．本题描述如下： 解答：首先将文本框的Passwordchar属性设置为“*” Private Sub Command1_Click() If LCase(Text1.Text) = abc Then