[计算机类试卷]国家二级VB机试(选择题)模拟试卷3及答案与解析.doc
《[计算机类试卷]国家二级VB机试(选择题)模拟试卷3及答案与解析.doc》由会员分享,可在线阅读,更多相关《[计算机类试卷]国家二级VB机试(选择题)模拟试卷3及答案与解析.doc(21页珍藏版)》请在麦多课文档分享上搜索。
1、国家二级 VB机试(选择题)模拟试卷 3及答案与解析 一、选择题 1 窗体上有名称为 Commandl的命令按钮,其事件过程如下: Option Base 1 Private Sub Command l_Click() Dim a Dim b(10)As Integer a=Array(2, 4, 7, 3, 9, 6) For i=LBound(a)To UBound(a) b(i)=a(i)+i Sum=Sum+b(i) Next i Print Sum End Sub 运行程序,单击命令按钮时,窗体上显示的是 ( A) 44 ( B) 46 ( C) 50 ( D) 52 2 窗体上有一
2、个名称为 Commandl的命令按钮,有程序如下: Option Base 1 Private Sub Commandl_Click() Dim a(10)As Integer第 1个 For For i=1 To 10 a(i)=Int(Rnd*100+100) Print a(i); Next x=a(i): y=x第 2个 For For i=1 To 10 Ifx a(i)Then x=a(i) Ify a(i)Then y=a(i) s=s+a(i) Next Print x, y, s End Sub 关于上述程序的叙述中,正确的是 ( A)程序运行出错,第 1个 For循环之后的
3、 x=a(i)赋值语句错 ( B)程序正常运行, x是 1 0个随机数中的最大值 ( C)程序正常运行, s是 10个随机数的和 ( D)程序正常运行, 10个随机数的范尉是 100-200 3 在窗体卜画一个文本框,其名称为 Textl,然后编写如下程序: Option Base l Private Sub Form_Click()Dim Arr(1 0)As Integer For i=6 To 10 Arr(i)=i-3 Next i Text 1 Text=Str(Arr(6)+Arr(Arr(6)+Arr(1 0) End Sub 程序运行后,单击窗体,在文本框中显示的内容是 ( A
4、) 7 ( B) 8 ( C) 9 ( D) 10 4 假定有如下程序: Private Sub Form Click() Dim a(4)As Integer, b(4)As Integer For k=0 To 2 a(k+1)=Val(InputBox(”请输入一个整数: ”) b(3-k)=a(k+1) Next k Print b(k) End Sub 运行程序,单击窗体,依次输入 3、 6、 9,输出结果为 ( A) 3 ( B) 6 ( C) 9 ( D) 1 5 阅读程序: Option Base 1 Private Sub Form_Click() Dim a(3, 3)As
5、 Integer For i=1 To 3 For j=l To 3 a(1, j)=_ Print a(i, j); Next j Print Next i End Sub 运行上面的程序,单击窗体,输出结果如下: 则在横线处应填入的内容为 ( A) i+j ( B) i*j ( C) (i-1)*3+j ( D) i+(j-1)*3 6 阅读程序: Option Base 1 Sub P(b()As Integer) For i=1 To 4 b(i)=2*i Next i End Sub Private Sub Form_Click() Dim a(4)As Integer For i=
6、1 To 4 a(i)=i+4 Next i Pa For i=1 To 4 Print a(i) Next i End Sub 运行上面的程序,单击窗体,输出结果为 ( A) 2 4 6 8 ( B) 5 6 7 8 ( C) l0 12 14 16 ( D) 4 8 12 1 6 7 在窗体上画一个命令按钮,然后编写如下程序: Option Base 1 Private Sub Command l_Click() Dim Art(1 0)As Integer For i=1 To 10 Arr(i)=11-i Next i x=InputBox(”输入一个整数 (3 10)”) Print
7、Arr(2+Art(x) End Sub 程序运行后,单击命令按钮 ,在输入对话框中输入 7,则输出结果为 ( A) 3 ( B) 4 ( C) 5 ( D) 6 8 设有下面程序代码: Private Sub Command l_Click() Dim a As Variant a=Array(22, 43, 23, 56, 87, 45, 67, 12, 98, 98, 56, 34, 23, 75, 64) m=a(0)n=m For k=1 To UBound(a) Ifa(k) m Then n=m: m=a(k) Elselfa(k) n And a(k) m Then n=a(k
8、) End If Next k Print n End Sub 程序运行时的输出是 ( A)数组中最大的数 (即 98) ( B)数组中最小的数 (即 12) ( C)数组中 第 2大的数 (即 87) ( D)数组中第 1个数 (即 22) 9 设有下面程序代码: Option Base 1 Private Sub Command l_Click() Dim x(6) a=Array(4, 2, 5, 1, 6, 3) b=Array(64, 24, 98, 27, 58, 41) For k=1 To 6 x(a(k)=b(k) Next k For k=1 To 6 Print x(k)
9、; Next k End Sub 程序运行时的输出是 ( A) 27 24 41 64 98 58 ( B) 64 24 98 27 58 41 ( C) 24 27 41 58 64 98 ( D) 98 64 58 41 27 24 10 以下关于控件数组的叙述中,正确的是 ( A)数组中各个控件具有相同的名称 ( B)数组中可包含不同类型的控件 ( C)数组中各个控件具有相同 的 Index属性值 ( D)数组元素不同,可以响应的事件也不同 11 以下关于控件数组的叙述中,错误的是 ( A)各数组元素共用相同的事件过程 ( B)各数组元素通过下标进行区别 ( C)数组可以由不同类型的控件
10、构成 ( D)各数组元素具有相同的名称 12 假定通过复制、粘贴操作建立了一个命令按钮数组 Commandl,以下说法中错误的是 ( A)数组中每个命令按钮的名称 (Name属性 )均为 Commandl ( B)若未做修改,数组中每个命令按钮的大小都一样 ( C)数组中各个命令按钮 使用同一个 Click事件过程 ( D)数组中每个命令按钮的 Index属性值都相同 13 窗体上已有的 3个单选按钮组成了 1个名为 ChkOptl的控件数组。 用于区分控件数组 ChkOptl中每个元素的属性是 ( A) Caption ( B) ListCount ( C) Listlndex ( D) I
11、ndex 14 窗体上有一个名称为 Optionl的单选按钮数组,程序运行时,当单击某个单选按钮时,会调用下面的事件过程 Private Sub Option l_Click(Index As Integer) End Sub 下面关于此过程的参数 Index的叙述中正确的是 ( A) Index为 1表示单选按钮被选中,为 0表示未选中 ( B) Index的值可正可负 ( C) Index的值用来区分哪个单选按钮被选中 ( D) Index表示数组中单选按钮的数量 15 设在窗体上有一个名称为 Checkl的复选框数组,并有以下事件过程: PriVate Sub Checkl_Click(
12、Index As Integer) End Sub 则下面叙述 中错误的是 ( A)单击数组中任何复选框都会调用此事件过程 ( B)参数 Index的值等于单击数组中某个复选框的 Index属性的值 ( C)上面的过程是数组中第 1个复选框的事件过程 ( D)从过程的首部 (即第 1行 )无法确定数组中复选框的个数 16 下面关于控件数组的叙述中正确的是 ( A)控件数组中所有控件的名称相同,但其 Index属性值各不相同 ( B)控件数组中所有控件的名称相同,但其 Value属性值各不相同 ( C)控件数组中每个元素都是独立的控件,因此都有各自的事件过程 ( D)上述都是错误的 17 下列关
13、于控件数组的叙述中,正确的是 ( A)控件数组可以由不同类型的控件组成 ( B)控件数组元素的最小下标值为 1 ( C)在设计阶段,可以改变控件数组元素的 Index属性值 ( D)控件数组的名字由 Caption属性指定 18 窗体上有一个由两个文本框组成的控件数组,名称为 Textl,并有如下事件过程: Private Sub Text l_Change(Index As Integer) Select Case Index Case 0 Textl(1) FontSize=Textl(0) FontSize*2Textl(1) Text=Textl(0) Text Case 1 Text
14、l(0) FontSize=Textl(1) FontSize 2Textl(0) Text=Textl(1) Text Case Else MsgBox”执行 Else分支 ” End Select End Sub 关于上述程序,以下叙述中错误的是 ( A) Index用于标识数组元素 ( B)本程序中 Case Else分支的语句永远不会被执行 ( C)向任何一个文本框输入字符,都会在另一个文本框中显示该字符 ( D)下标为 0的文本框中显示的字符尺寸将越来越小 19 以下叙述中错误的是 ( A)标准模块文件的扩展名是 bas ( B)标准模块文件是纯代码文件 ( C)在标准模块中声明的全
15、局变量可以在整个工程中使用 ( D)在标准模块中不能定义过程 20 下面不能在信息框中输出 “VB”的是 ( A) MsgBox”VB” ( B) x=MsgBox(”VB”) ( C) MsgBox(”VB”) ( D) Call MsgBox”VB” 21 以下关 =F过程的叙述中,错误的是 ( A)在 Sub过程中不能再定义 Sub过程 ( B)事件过程也是 Sub过程 ( C)过程调用语句的形参个数必须与实参个数相同 ( D)函数过程一定有返回值 22 设子程序过程定义的首部为: Public Sub S(XAs Integer, YAs Single)则 以下正确的调用形式为 ( A
16、) Call S 5, 4 8 ( B) Call Sub(5, 4 8) ( C) Sub 5, 4 8 ( D) S 5, 4 8 23 在窗体上画两个标签和一个命令按钮,其名称分别为 Label1、 Label2和Commandl,然后编写如下程序: Private Sub func(L As Label) L Caption=”1234” End Sub Private Sub Form_Load() Label1 Caption=”ABCDE” Label2 Caption=1 0 End Sub Private Sub Command l_Click() a=Val(Label2
17、Caption) Call func(Labell) Label2 Caption=a End Sub 程序运行后,单击命令按钮,则在两个标签中显示的内容分别为 ( A) ABCD和 10 ( B) 1234和 100 ( C) ABCD和 100 ( D) 1234和 10 24 设有如下 Commandl的单击事件过程及 fun过程: Private Sub Command l_Click() Dim x As Integer X=Val(InputBox(”请输入一个整数 ”) fun(x) End Sub Private Sub fun(x As Integer) Ifx Mod 2=
18、0 Then fun(x 2) Print x; End Sub 执行上述程序,输入 6,结果是 ( A) 3 6 ( B) 6 3 ( C) 6 ( D)程序死循环 25 编写如下程序: Private Sub Command l_Click() Dim strl As String str2 As String str1=InputBox(”输入一个字符串 ”): subfstrl, str2: Print str2 End Sub Sub subf(s 1 As String, s2 As String) Dim temp As String: Static i As Integer i
19、=i+1 temp: Mid(sl, i, 1) Iftemp “Then subf s1 s2 s2=s2&temp End Sub 程序运行后,单击命令按钮 Commandl,且输入 “abcdef”,则输出结果为 ( A) afbecd ( B) cdbeaf ( C) fedcba ( D) adbecf 26 以下关于函数过程的叙述中,正确的是 ( A)函数过程形参的类型与函数返回值的类型没有关系 ( B)在函数过程中,过程的返回值可以有多个 ( C)当数组作为函数过程的参数时,既能以传值方式传递,也能以传址方式传递 ( D)如果不指明函数过程参数的类型,则该参数没有数据类型 27
- 1.请仔细阅读文档,确保文档完整性,对于不预览、不比对内容而直接下载带来的问题本站不予受理。
- 2.下载的文档,不会出现我们的网址水印。
- 3、该文档所得收入(下载+内容+预览)归上传者、原创作者;如果您是本文档原作者,请点此认领!既往收益都归您。
下载文档到电脑,查找使用更方便
2000 积分 0人已下载
下载 | 加入VIP,交流精品资源 |
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 计算机 试卷 国家 二级 VB 机试 选择题 模拟 答案 解析 DOC
