2023年9月计算机二级考试VB备考题及答案.docx

《2023年9月计算机二级考试VB备考题及答案.docx》由会员分享，可在线阅读，更多相关《2023年9月计算机二级考试VB备考题及答案.docx（25页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、2023年9月计算机二级考试VB备考题及答案2023年9月计算机二级考试VB备考题及答案2023年计算机二级考试立刻就要开头了，你报考了哪个科目呢? 下面是我为大家带来的计算机二级考试VB备考题，欢迎阅读。备考题一：1.在窗体上画一个名称为Textl的文本框，一个名称为Command 1 的命令按钮，然后编写如下大事过程和通用过程：Private Sub Command1_Click()n = Vai(Textl. Text)If n2 = n/2 Thenf = f 1 (n)Elsef = f2 (n)End IfPrint f; nPrivate Sub Command1_Click()

2、Textl. FontName = lif (Optionl. Value,宋体，黑体)Textl. FontSize = lif(0ption3. Value, 8, 12)End Sub当程序运行时，先单击单选按钮。ption3,然后单击命令按钮 commandl,则文本框textl的变化效果是(C)(单)A.字体设置为宋体B.字体设置为黑体C.字体大小设置为8号D.字体大小设置为12号3 .在窗体上建立一个名称为Commandl的命令按钮，一个名称为 Textl的文本框，以及四个单选按钮：第一个名称为。ptionl用来设 置文本框的字体为宋体，其次个名称为option2用来设置文本框的字

3、体为黑体，第三个名 称为options用来设置文本框的字体大小为8号，第四个名称为 option4用来设置文本框的字体大小为12号。程序如下：(程序运行刚开头时，四个单选按钮都没有选中)Private Sub Command1_Click()Textl. FontName = lif (Optionl. Value,宋体，黑体)Textl. FontSize = lif(0ption3. Value, 8, 12)End Sub当程序运行时，先单击单选按钮。ptionl,然后单击命令按钮 commandl,则文本框textl的变化效果是(A)(单)A.字体设置为宋体B.字体设置为黑体C.字体大

4、小设置为8号D.字体大小设置为12号4 .在窗体上建立一个名称为Commandl的命令按钮，一个名称为 Textl的文本框，以及四个单选按钮：第一个名称为optionl用来设 置文本框的字体为宋体，其次个名称为option2用来设置文本框的字体为黑体，第三个名 称为options用来设置文本框的字体大小为8号，第四个名称为 option4用来设置文本框的字体大小为12号。程序如下：(程序运行刚开头时，四个单选按钮都没有选中)Private Sub Command1_Click()Textl. FontName = lif （Optionl. Value,宋体，黑体）Textl. FontSiz

5、e = lif(0ption3. Value, 8, 12)End Sub当程序运行时，先单击单选按钮。ption4,然后单击命令按钮 command 1,则文本框textl的变化效果是(D)(单)A.字体设置为宋体B.字体设置为黑体C.字体大小设置为8号D.字体大小设置为12号5 .在窗体中建立了一个名称为IstBooks的列表框，一个名称为 txtltem 的文本框，四个名称分别为 cmdAddcmdDeletecmdModify cmdModify_Ok的命令按钮。如下程序：Sub Form_Load()IstBooks. Addltem计算机文化基础IstBooks. Additem

6、VB程序设计教程IstBooks. Addltem 操作系统End SubSub cmdAdd Click()IstBooks. Additem txtltemtxtltem =End Sub对该程序说法不正确的是(D)(单)A.窗体启动时，在列表框中有三个列表项目，依次为：计算机文 化基础、VB程序设计教程、操作系统B.单击cmdAdd命令按钮后，把文本框中的信息添加到列表框中C.在列表框中添加列表项目的方法为additem方法D.以上说法都不正确6 .在窗体中建立了一个名称为LSTB00KS的列表框，一个名称为 txtltem 的文本框，四个名称分别为 cmdAddcmdDeletecmd

7、Modify cmdModify_Ok的命令按钮。如下程序的功能是将修改后的项目送回 列表框，替换原项目，实现修改：Sub cmdModify_Ok_Click()LSTBOOKS. List = txtltemEnd Sub7 .对以下程序说法不正确的是(C)(单)Private Sub Combol_LostFocus()flag = FalseFor i = 0 To Combol. ListCount - 1If Combol. List(i) = Combol. Text Thenflag = TrueExit ForEnd IfNext iIf Not flag ThenCombo

8、l. Additem Combol. TextEnd IfEnd SubA.当焦点离开组合框时组合框的LostFocus大事被触发8 .添加到组合框的新项目不能永久保存，下次运行该程序中看不到上次保存的项目，利用该大事过程能够将输入的新内容添加到组合 框中，下次运行该程序中能够看到上次保存的项目C.规律变量flag二true时，表示组合框的项目中有该输入新项目D.规律变量flag二false时，表示组合框的项目中有该输入新项 目8.窗体中有两个检查框名称分别为checkl和check2, 一个命令 按钮名称为command 1, 一个列表框名称为listl,两个单选按钮名称 分别为option

9、l和option2o如下程序：Private Sub Command1_Click()If Checkl. Value = 1 ThenListl. Additem 品牌：松下Listl. Additem 数量:3 台End IfIf Check2. Value = 1 ThenIf Optionl. Value = True ThenListl. Additem 操作系统：Windows 2000ElseEnd IfEnd IfEnd Sub当窗体启动后，先选中检查框checkl,然后单击命令按钮 commandl,运行效果为(A)(单)A.列表框Listl中的列表项目分别为：品牌：松下数量

10、：3台B.列表框Listl中的列表项目分别为：操作系统：Windows 2000 操作系统：Windows 98C.没有任何显示D.以上都不正确*9.窗体中有两个检查框名称分别为checkl和check2, 一个命 令按钮名称为commandl, 一个列表框名称为listl,两个单选按钮名 称分别为optionl和option2o如下程序：Private Sub Commandl_Click()If Checkl. Value = 1 ThenListl. Additem 品牌：松下Listl. Additem 数量：3 台End IfIf Check2. Value = 1 ThenIf O

11、ptionl. Value = True ThenListl. Additem 操作系统：Windows 2000ElseListl. Additem 操作系统：Windows 98End IfEnd IfEnd Sub当窗体启动后，先选中检查框check2 （其中单选按钮optionl被 选中），然后单击命令按钮commandl,运行效果为（B）（单）A.列表框Listl中的列表项目分别为：品牌：松下数量：3台B.列表框Listl中的列表项目分别为:操作系统：Windows 2000 操作系统：Windows 98C.列表框Listl中的列表项目为：操作系统：Windows 2000D.以上

12、都不正确 53430.窗体中有两个检查框名称分别为checkl和check2, 一个 命令按钮名称为commandl, 一个列表框名称为listl,两个单选按钮 名称分别为optionl和option2o如下程序：Private Sub Command1_C1ick()If Checkl. Value = 1 ThenListl. Additem 品牌：松下Listl. Additem 数量:3 台End IfIf Check2. Value = 1 ThenIf Optionl. Value = True ThenListl. Additem 操作系统：Windows 2000ElseLis

13、tl. Additem 操作系统：Windows 98End IfEnd IfEnd Sub当窗体启动后，先选中检查框check2(其中单选按钮option2被 选中)，然后单击命令按钮commandl,运行效果为(B)(单)A.列表框Listl中的列表项目分别为：品牌：松下数量：3台B.列表框Listl中的列表项目为：操作系统：Windows 98C.列表框Listl中的列表项目为：操作系统：Windows 200011 .传值：形参得到的是实参的值，形参值的转变不会影响实参 的值。在定义形参前加关键字Byval。V12 .以下利用SUB关键字定义的子过程Rate,其调用格式不正确 的是(B

14、)(单)A. call Rate(12, 56)B. Rate (12, 56)C. Rate 12, 56D.以上A和C正确13.如下程序运行后显示结果为(B)(单)Public Temp As integerSub Form_Load()Dim Temp As IntegerTemp=10Public Function fl (ByRef x) x=x*x fl=x+xEnd FunctionPublic Function f2 (ByVai x) x = x*x f2=x+x+xEnd Function程序运行后，在文本框中输入3,然后单击命令按钮，窗体上显 示的是(D)(单)A. 72

15、 36B. 108 36C. 72 6D. 27 32.在窗体上画一个名称为Commandl的命令按钮，然后编写如下 大事过程：Private Sub Command1_Click()Forml. Temp=20Print Forml. Temp;和；TempEnd SubA. 10 和 20B. 20 和 10C. 10 和 10D. 20 和 2014.以下对静态变量说法不正确的是(D)(单)A.定义格式为：Static变量名AS类型B.在子过程名/函数名前加Static,表示该过程/函数体内局部 变量全部都是静态变量C.静态变量必需在过程体内定义D.静态变量可以在窗体的通用声明部定义15

16、 .过程在自身定义的内部调用自己本身的结构称为递归。V16 .如下程序功能是求n的阶层：Function fac(n As Integer) As IntegerIf n = 1 Then fac = 1Elsefac = n * fac(n - 1)End IfEnd FunctionSub Commandl_Click()n=val (inputbox (请输入数值)Print fac(n)=;fac(n)End Sub以下说法不正确的是(D)(单)A.若fac函数中If n=1 Then fac = 1没有，仅有语句：fac = n * fac(n - 1),程序运行将会出错B.若输入的

17、0 ,程序运行将会出错C.若n=4,则输出结果为：fac (n)=24D.以上说法都不正确17 .利用递归求最大公约数的程序为：Public Function gcd(m As Integer, n As Integer) As IntegerIf (m Mod n) = 0 Thengcd =Elsegcd = gcd(n, m Mod n)End IfEnd FunctionPrivate Sub FormClick()Print gcd(10, 4)End Sub18 .以下程序的作用是单击Checkl检查框将使得Textl文本框 的字体在加粗和常规之间进行切换。VPrivate Sub

18、 Checkl_Click()Textl. FontBold = Not Textl. FontBoldEnd Sub*19 .以下程序的作用是单击Checkl检查框将使得Textl文本框 的字体在加粗和常规之间进行切换。VPrivate Sub Checkl_Click()Textl. Fontltalic = Not Textl. FontltalicEnd Sub*20 .以下程序的作用是单击Checkl检查框将使得Textl文本框 的字体在加粗和常规之间进行切换。VPrivate Sub Checkl_Click()Textl. FontUnderline = Not Textl. F

19、ontUnderlineEnd Sub文档内容到此结束，欢迎大家下载、修改、丰富并分享给更多有 需要的人。c = 1234For i = 1 To 4cl = Trim(Str()Print clNext iEnd Sub程序运行后，单击命令按钮，要求在窗体上显示如下内容121231234则在下划线处应填入的内容为(B)(单)A. Right (cl, i)B. Left (cl, i)C.Mid(cl, i, 1)D. Mid(cl, i, i)3.在窗体上画一个名称为Command 1的命令按钮和一个名称为 Textl的文本框，然后编写如下大事过程：Private Sub Command1

20、_Click()n = Vai(Textl. Text)For i = 2 To nFor j = 2 To sqr (i)If i Mod j = 0 Then Exit ForNext jIf j Sqr (i) Then Print iNext iEnd Sub该大事过程的功能是(C)(单)A.输出n以内的奇数B.输出n以内的偶数C.输出n以内的素数D.输出n以内能被j整除的数4.在窗体上画一个名称为Command 1的命令按钮，然后编写如下 通用过程和命令按钮的大事过程：Private Function f(m As Integer) If m Mod 2=0 Then f = m E

21、lse f 二 1 End If End FunctionPrivate Sub Commandl_Click()Dim i As Integer s 二 0 For i = 1 To 5 s = s + f (i)Print sEnd Sub程序运行后，单击命令按钮，在窗体上显示的是(C)(单)A. 11B. 10C. 9D. 8E. 在窗体上画一个名称为Textl的文本框和一个名称为 Command 1的命令按钮，然后编写如下大事过程：Private Sub Command1_Click()Dim arrayl(10, 10) As IntegerDim i As Integer, j A

22、s IntegerFor i = 1 To 3For j = 2 To 4arrayl (i, j) = i + jNext iTextl. Text = arrayl (2, 3) + arrayl (3, 4)End Sub程序运行后，单击命令按钮，在文本框中显示的值是(D)(单)A. 15B. 14C. 13D. 126 . Visual Basic应用程序中标准模块文件的扩展名是(留意不要 写点)。7 .在菜单编辑器中建立一个菜单,其主菜单项的名称为mnuEdit, Visible属性为False,程序运行后，假如用鼠标右键单击窗体，则 弹出与mnuEdit相应的菜单。Private

23、Sub Form_ (Button As Integer, Shift As Integer, X As Single, Y As Single)If Button=2 Thenpopupmenu mnuEditEnd Sub8 .在菜单编辑器中建立一个菜单,其主菜单项的名称为mnuEdit, Visible属性为False,程序运行后，假如用鼠标右键单击窗体，则 弹出与mnuEdit相应的.菜单。以下是实现上述功能的程序，请填空。Private Sub Form mousedown (Button As Integer, Shift As Integer, X As Single, Y As

24、 Single)If Button=2 ThenmnuEditEnd If9 .为了使计时器控件Timerl每隔0. 5秒触发一次Timer大事， 应将Timerl控件的属性设置为500。10 .为了使计时器控件Timerl每隔0. 5秒触发一次Timer大事, 应将Timerl控件的Interval属性设置为。备考题二：1 .在窗体上建立一个名称为Commandl的命令按钮，一个名称为 Textl的文本框，以及四个单选按钮：第一个名称为optionl用来设 置文本框的字体为宋体，其次个名称为option2用来设置文本框的字体为黑体，第三个名 称为options用来设置文本框的字体大小为8号，

25、第四个名称为 option4用来设置文本框的字体大小为12号。程序如下：（程序运行刚开头时，四个单选按钮都没有选中）Private Sub Command1_C1ick（）Textl. FontName = lif （Optionl. Value,宋体，黑体）Textl. FontSize = lif（0ption3. Value, 8, 12）End Sub当程序运行时，先单击单选按钮。ption2,然后单击命令按钮 commandl,则文本框textl的变化效果是（B）（单）A.字体设置为宋体B.字体设置为黑体C.字体大小设置为8号D.字体大小设置为12号2 .在窗体上建立一个名称为Commandl的命令按钮，一个名称为 Textl的文本框，以及四个单选按钮：第一个名称为optionl用来设 置文本框的字体为宋体，其次个名称为option2用来设置文本框的字体为黑体，第三个名 称为options用来设置文本框的字体大小为8号，第四个名称为 option4用来设置文本框的字体大小为12号。程序如下：（程序运行刚开头时，四个单选按钮都没有选中）