计算机二级考试100套第二部分答案详细解答.docx

1、计算机二级考试100套第二部分答案详细解答在名称为Form1的窗体上绘制一个名称为Cmd1的命令按钮，其标题为“移动”，位于窗体的左上部。编写适当的事件过程，使程序运行后，每单击一次窗体，都使得命令按钮同时向右、向下移动100。程序的运行情况如图50-2所示。解答：Private Sub Cmd1_Click()Cmd1.Left = Cmd1.Left + 100Cmd1.Top = Cmd1.Top + 100End Sub在名称为Form1的窗体中绘制一个名称为Lab1的标签，其标题为“0”，BorderStyle属性为1；再添加一个名称为Tmr1 的计时器。请设置适当的控件属性，并编写

2、适当的事件过程，使得在运行时，每隔1 秒钟标签中的数字加1。解答：Private Sub Tmr1_Timer()Lab1.Caption = Lab1.Caption + 1End Sub在考生文件夹中有一个工程文件vbsj4.vbp及窗体文件vbsj4.frm。在名称为Form1的窗体上有一个名称为Cmd1 的命令按钮，其标题为“下一个”。要求在窗体上建立一个单选按钮数组Opt1，含4 个单选按钮，标题分别为“A”、“B”、“C”和“D”，初始状态下，“A”为选中状态。程序运行效果如图50-4 所示。解答：Private Sub Cmd1_Click() For k = 0 To 3 If

3、 Opt1(k).Value Then n = k End If Next k Opt1(n).Value = False n = n + 1 If n = 4 Then n = 0 End If Opt1(n).Value = True End Sub 在名为Form1 的窗体上建立一个名为Hsb1 的水平滚动条，其最大值为300，最小值为0。要求程序运行后，每次移动滚动框时，都执行语句Form1.Print Hsb1.Value，运行效果如图51-1 所示。解答：Private Sub HSb1_Change()Form1.Print HSb1.ValueEnd Sub考生文件夹中有工程文

4、件vbsj3.vbp 及其窗体文件vbsj3.frm。在名为Form1的窗体上有 3 个名称分别为Txt1、Txt2和Txt3 的文本框；1 个名称为Cmd1的命令按钮，其标题为“计算”。要求程序运行后，在Txt1 和Txt2 中分别输入两个整数，单击“计算”按钮后，可把两个整数之间的所有整数（含两个整数）累加起来并在Txt3 中显示出来，如图51-3所示。解答：Private Sub Cmd1_Click()a = Val(Txt1)b = Val(Txt2)If a b Thenc = aa = bb = cEnd IfFor i = a To bSum = Sum + iNext iTx

5、t3.Text = Sum在考生文件夹中有一个工程文件vbsj4.vbp，相应的窗体文件为vbsj4.frm。在名为Form1 的窗体上有两个名称分别为Cmd1 和Cmd2 的命令按钮；一个名称为Lab1 的标签控件；一个名称为Tmr1计时器控件。程序运行后，在命令按钮 Cmd1 中显示为“开始”；在命令按钮Cmd2 中显示为“停止”；标签中字号大小为18 号、字体为粗体、显示为“欢迎光临”（标签的AutoSize属性为True）；计时器的Interval属性设置为100，Enabled属性设置为False。此时如果单击“开始”命令按钮，则该按钮变为禁用，标题变为“继续”，同时标签自左至右移动

6、（每个时间间隔移动50），如图51-4 所示。当标签移动出窗体右边界后，自动从左边界开始向右移动；如果单击“停止”命令按钮，则该按钮变为禁用，“继续”命令按钮变为有效，同时标签停止移动；再次单击“继续”命令按钮后，标签继续移动。本程序不完整，请补充完整，并能正确运行。解答：Private Sub Cmd1_Click()Cmd1.Caption = 继续Cmd1.Enabled = FalseCmd2.Enabled = TrueTmr1.Enabled = TrueEnd SubPrivate Sub Cmd2_Click()Cmd2.Enabled = FalseCmd1.Enabled

7、= TrueTmr1.Enabled = FalseEnd SubPrivate Sub Tmr1_Timer()If Lab1.Left Width ThenLab1.Left = Lab1.Left + 50ElseLab1.Left = 0End IfEnd Sub在考生文件夹中有一个工程文件vbsj3.vbp及窗体文件vbsj3.frm。在名为Form1的窗体中有两个图片框，名称分别为Pic1和Pic2，其中的图片分别是火箭和云层；有一个计时器，名为Tmr1，有一个命令按钮，名为Cmd1，标题为“发射”。并给出了两个事件过程，但并不完整，请补充完整。要求：设置计时器的属性，使其在初始状

8、态下不计时。设置计时器的属性，使其每隔0.1秒调用Timer事件过程一次。去掉程序中的注释符“”，把程序中的问号“？”改为正确的内容，使得在运行时单击“发射”按钮，则火箭每隔0.1秒向上移动一次，当到达云层的下方时停止移动，如图52-3所示。解答：Private Sub Cmd1_Click()Tmr1.Enabled = TrueEnd SubPrivate Sub Tmr1_Timer() Pic2.Top = Pic2.Top - 50 If Pic2.Top = Pic1.Top + Pic1.Height Then Tmr1.Enabled = False Cmd1.Enabled

9、= False Pic2.Top = Pic2.Top End If Tmr1.Interval = Tmr1.Interval - 30 If Tmr1.Interval VSb1.Max Thenx = MsgBox(输入的数值太大, vbOKOnly, vbsj3)ElseIf a VSb1.Min Thenx = MsgBox(输入的数值太小, vbOKOnly, vbsj3)ElseVSb1.Value = aEnd IfEnd IfEnd Sub在窗体上绘制一个名为Txt1 的文本框，其Text属性为空白；再绘制一个名为Lst1 的列表框，通过属性窗口向列表框中添加4 个项目，分别

10、为“项目1”、“项目2”、“项目3”和“项目4”。编写适当的事件过程，使程序运行后，在文本框中输入一个字符串，若双击列表框中的任何一项，则把文本框的中的字符串添加到列表框中。程序的运行效果如图54-1 所示。解答：Private Sub List1_DblClick()List1.AddItem Txt1.TextEnd Sub文件夹中有一个工程文件vbsj3.vbp及其窗体文件vbsj3.frm，含有Form1和Form2 两个窗体，Form1 为启动窗体。两个窗体上的控件如图. . 程序运行后，在Form1 窗体的文本框中输入有关信息（“密码”框中显示“*”字符），然后单击“提交”按钮则弹

11、出“确认”对话框（即Form2 窗体），并在对话框中显示输入的信息。单击“确认”按钮则程序结束；单击“返回”按钮，则对话框消失，回到Form1.解答：Private Sub Cmd1_Click()msg1$ = 用户名msg2$ = 密码msg3$ = 姓名msg4$ = 性别msg5$ = Txt1.Textmsg6$ = Txt2.Textmsg7$ = Txt3.TextIf Opt1.Value = True Thenmsg8$ = Opt1.CaptionElsemsg8$ = Opt2.CaptionEnd Ifmsg$ = msg1$ + msg5$ + msg2$ + msg

12、6$ + msg3$ + msg7$ + msg4$ + msg8$x = MsgBox(msg$, vbOKCancel, 确认)End Sub在名为Form1的窗体上绘制一个名为Hsb1的水平滚动条，其最小值为0，最大值为100；再绘制3个名称分别为Cmd1、Cmd2和Cmd3的命令按钮，它们的标题分别为“左端”、“居中”和“右端”。编写适当的事件过程，使程序运行后，若单击“左端”命令按钮，则滚动框位于滚动条最左端处；如果单击“居中”命令按钮，则滚动框位于滚动条中间；如果单击“右端”命令按钮，则滚动框位于滚动条最右端处。解答：Private Sub Cmd1_Click()HSb1.Val

13、ue = HSb1.MinEnd SubPrivate Sub Cmd2_Click()HSb1.Value = (HSb1.Min + HSb1.Max) / 2End SubPrivate Sub Cmd3_Click()HSb1.Value = HSb1.MaxEnd Sub考生文件夹中有一个工程文件vbsj3.vbp及窗体文件vbsj3.frm。在名为Form1的窗体上有两个框架，其中一个框架有两个单选按钮，另一个框架中有两个复选框，窗体上还有一个标题为“确定”的命令按钮和一个初始内容为空的文本框。程序的功能是：在运行时，如果选中一个单选按钮和一个或两个复选框，则对文本框中的文字做相应

14、的设置。解答：Private Sub Cmd1_Click()If Opt1.Value = True ThenTxt1.Font = 宋体ElseTxt1.Font = 隶书End IfIf Check1.Value ThenTxt1.FontUnderline = TrueElseTxt1.FontUnderline = FalseEnd IfIf Check2.Value ThenTxt1.FontItalic = TrueElseTxt1.FontItalic = FalseEnd IfEnd Sub在考生文件夹中有一个工程文件vbsj4.vbp及其窗体文件vbsj4.frm。请在名为

15、Form1的窗体上绘制两个名称分别为Txt1和Txt2的文本框，文本框的内容分别设置为“计算机考试”、“Visual Basic”；然后绘制一个名称为Labl的标签，其高度为300，宽度为2500；再绘制两个名称分别为Opt1 和Opt2 的单选按钮，它们的标题分别为“交换”和“连接”；最后再绘制一个名称为Cmd1的命令按钮，其标题为“确定”。编写适当的事件程序。使得程序运行后，如果选中“交换”单选按钮并单击“确定”按钮，则Txt1 文本框中内容与Txt2 文本框中内容进行交换，并在标签处显示“交换完成”；如果选中“连接”单选按钮并单击“确定”按钮后，则把交换后的Txt1 和Txt2 的内容连

16、接起来，并在标签处显示连接的内容。解答：Private Sub Cmd1_Click()If Opt1.Value = True Thenc = Txt1.TextTxt1.Text = Txt2.TextTxt2.Text = cLab1.Caption = 交换成功ElseLab1.Caption = Txt1.Text + Txt2.TextEnd IfEnd Sub在名为Form1的窗体上绘制一个名为Lab1的标签，其标题为空白，BorderStyle属性为1，Visible属性为False；一个名为Txt1的文本框，其Text属性为空白；一个名为Cmd1的命令按钮，其标题为“显示”。

17、编写命令按钮Click事件过程，使得程序运行后，在文本框中输入“计算机VB等级考试”，然后单击命令按钮，则文本框消失，并在标签内显示文本框中的内容。运行后的窗体如图57-1所示。解答：Private Sub Cmd1_Click()Txt1.Visible = FalseLab1.Visible = TrueLab1.Caption = Txt1.TextEnd Sub窗体中有一个名为Txt1的文本框；请在窗体上绘制两个名称分别为Fra1和Fra2的框架，其标题分别为“性别”和“身份”；在Fra1中绘制两个名称分别为Opt1 和Opt2 的单选按钮，其标题分别为“男”和“女”；在Fra2中绘制

18、两个名称分别为Opt3 和Opt4 的单选按钮，其标题分别为“学生”和“老师”；再绘制一个名为Cmd1的命令按钮，其标题为“确定”。请编写适当的事件过程，使得在运行时，在Fra1、Fra2中选一个单选按钮，然后单击“确定”按钮，就可以按照下表把结果显示在文本框中。解答：Private Sub Cmd1_Click()If Opt1.Value = True ThenIf Opt3.Value = True ThenTxt1.Text = Opt1.Caption + Opt3.CaptionElseTxt1.Text = Opt1.Caption + Opt4.CaptionEnd IfEls

19、eIf Opt3.Value = True ThenTxt1.Text = Opt2.Caption + Opt3.CaptionElseTxt1.Text = Opt2.Caption + Opt4.CaptionEnd IfEnd IfEnd Sub在名为Form1的窗体上建立一个名为Txt1的文本框；建立一个名为Cmd1的命令按钮，其标题为“计算”。要求程序运行后，如果单击“计算”按钮，则求出130之间所有可以被7整除的数的乘积并在文本框中显示出来解答：Private Sub Cmd1_Click()m = 1For i = 1 To 30If i Mod 7 = 0 Thenm = m

20、 * iEnd IfNext iTxt1.Text = Str$(m)End Sub在名为Form1 的窗体上建立一个名为Cmd1的命令按钮，其标题为“显示”。请编写适当的事件过程，使程序运行后，若单击“显示”命令按钮，则在窗体上显示“VisualBasic考试”。解答：Private Sub Cmd1_Click()Form1.Print VISUAL BASIC 考试 End Sub在名为Form1 的窗体上绘制一个命令按钮，其名称为Cmd1，然后通过属性窗口设置窗体和命令按钮的属性，实现如下功能：窗体标题为“设置按钮属性”。命令按钮的标题为“计算机VB 考试”。程序运行后，命令按钮不显示

21、。命令按钮的标题用小三号楷体显示。Private Sub Cmd1_Click()Cmd1.Visible = FalseEnd Sub在名为Form1 的窗体上绘制两个名称分别为Txt1 和Txt2 的文本框，它们都显示垂直滚动条和水平滚动条，都可以显示多行文本；再绘制一个名为Cmd1的命令按钮，其标题为“复制”。请编写适当的事件过程，使得程序在运行时，在Txt1 中输入多行文本后，单击“复制”按钮，就把Txt1 中的文本全部复制到Txt2 中Private Sub Cmd1_Click()Txt2.Text = Txt1.TextEnd Sub在窗体上绘制两个名称分别为Lab1 和Lab2

22、 的标签，它们的标题分别为“请输入一个正整数N”和“1+2+3+N=”；绘制两个名称分别为Txt1 和Txt2 的文本框，它们的内容都设为空白；绘制一个名为Cmd1的命令按钮，其标题为“计算”。编写适当的程序，使程序运行时，在Txt1 中输入一个正整数N，单击“计算”按钮，计算出1+2+3+N 的和显示在Txt2 中。解答：Private Sub Cmd1_Click()a = Val(Txt1)For i = 1 To aSum = Sum + iNext iTxt2.Text = Str$(Sum)End Sub在考生文件夹中有工程文件vbsj3.vbp及其窗体文件vbsj3.frm。在窗

23、体上有3 个名称分别为Opt1、Opt2 和Opt3 的单选按钮，标题分别为“楷体”、“隶书”和“黑体”；一个名称为Txt1 的文本框，字体为“宋体”，字号为三号字；还有一个名称为Cmd1的命令按钮，标题为“更改字体”。要求程序运行后，在文本框中显示“计算机VB 考试”。选择一个单选按钮，在单击“更改字体”按钮后，会根据所选的单选按钮来切换文本框中所显示的汉字字体，如图63-3 所示。解答：Private Sub Cmd1_Click()If Opt1.Value ThenTxt1.Font = 宋体ElseIf Opt2.Value = True ThenTxt1.Font = 隶书Else

24、Txt1.Font = 楷体End IfEnd IfEnd Sub在名为Form1的窗体上绘制一个名称为Txt1的文本框，Text属性为“人民”，Font属性为“楷体”；一个名称为Hsb1的水平滚动条，其Min属性设置为10，Max属性设置为50，LargeChange属性设置为5，SmallChange属性设置为2。编写适当的事件过程，使程序运行后，若移动滚动条上的滚动框，则可扩大或缩小文本框中的“人民”二字。解答：Private Sub HSb1_Change()Txt1.FontSize = HSb1.ValueEnd Sub在名为Form1 的窗体上绘制一个名称为Lab1的标签，其标题

25、为“输入”；一个名称为Txt1 的文本框，其Text属性为空白；一个名称为Cmd1的命令按钮，其标题为“显示”。请编写命令按钮的Click 事件过程，使程序运行后，在文本框中输入Visual Basic，然后单击命令按钮，则标签和文本框消失，并在窗体上显示文本框中的内容。解答：Private Sub Cmd1_Click()Lab1.Visible = FalseForm1.Print Txt1.TextTxt1.Visible = FalseEnd Sub在考生文件夹中有工程文件vbsj3.vbp及其窗体文件vbsj3.frm。在名为Form1的窗体上有一个名称为Txt1的文件框；还有两个名

26、称分别为Chk1和Chk2的复选框，它们的标题分别为“电子商务”和“物流管理”；一个名称为Cmd1的命令按钮，其标题为“确定”。编写适当的事件过程，使程序运行后，如果只选中“电子商务”，然后单击“确定”命令按钮，则在文本框中显示“学习电子商务”；如果同时选中“电子商务”和“物流管理”，然后单击“确定”命令按钮，则在文本框中显示“学习电子商务和物流管理”，如图65-3所示；如果“电子商务”和“物流管理”都不选，然后单击“确定”命令按钮，则文本框中什么都不显示。本程序不完整，请补充完整，并能正确运行。解答：Private Sub Cmd1_Click()If Chk1.Value & Chk2.V

27、alue Thenmsg1$ = 学习Elsemsg1$ = End IfIf Chk1.Value Thenmsg2$ = 电子商务Elsemsg2$ = End IfIf Chk2.Value Thenmsg3$ = 物流管理Elsemsg3$ = End IfTxt1.Text = msg1$ + msg2$ + msg3$End Sub在考生文件夹中有工程文件vbsj3.vbp 及其窗体文件vbsj3.frm。在名为Form1的窗体上有一个名为Txt1 的文本框；一个名称为Cmd1 的命令按钮，其标题为“密码验证”。其中文本框用来输入密码，要求在文本框中输入的内容都必须以“*”显示（通

28、过属性窗口设置）。程序运行后，输入密码，单击命令按钮后，对密码进行校验。如果输入的内容是“123456”这6 个数字，则用MsgBox信息框输出“输入密码正确”，否则输出“输入密码错误”，如图70-4 所示。解答：Private Sub Cmd1_Click()If Txt1.Text = 123456 ThenMsgBox 输入密码正确ElseMsgBox 输入密码错误End IfEnd Sub文件夹中有一个工程文件vbsj4.vbp，相应的窗体文件名为vbsj4.frm。该程序用来对在文本框中输入的英文字母串（称为“明文”）加密，加密结果（称为“密文”）显示在下面的文本框中，如图70-5所

29、示。加密的方法是：选中一个单选按钮，单击“加密”按钮后，程序根据选中的单选按钮后面的数字n，把明文中的每个字母改为它后面的第n个字母（“z”后面的字母认为是“a”，“Z”后面的字母认为是“A”。解答：Private Sub Cmd1_Click()If Opt1.Value = True ThenFor i = 1 To Len(Txt1)If Mid(Txt1.Text, i, 1) = z ThenTxt2.Text = Txt2.Text + aElseIf Mid(Txt1.Text, i, 1) = z ThenTxt2.Text = Txt2.Text + AElseTxt2.Text = Txt2.Text + Chr(Asc(Mid(Txt1.Text, i, 1) + 1)End IfEnd IfNext iEnd If在窗体绘制一个名为Lst1 的列表框，通过属性窗口向列表框中添加4 个项目，分别为Item1、I