[计算机类试卷]国家二级VB机试(选择题)模拟试卷8及答案与解析.doc
《[计算机类试卷]国家二级VB机试(选择题)模拟试卷8及答案与解析.doc》由会员分享,可在线阅读,更多相关《[计算机类试卷]国家二级VB机试(选择题)模拟试卷8及答案与解析.doc(29页珍藏版)》请在麦多课文档分享上搜索。
1、国家二级 VB机试(选择题)模拟试卷 8及答案与解析 一、选择题 1 现有语句: y=IIf(x 0, x Mod 3, 0) 设 x=10,则 y的值是 ( A) 0 ( B) 1 ( C) 3 ( D)语句有错 2 设 x是整型变量,与函数 IIf(x 0, -x, x)有相同结果的代数式是 ( A) |x| ( B) -|x| ( C) x ( D) -x 3 计算下面分段函数的正确语句是 ( A) y=IIf(x 0, x+1, IIf(x 0, x-1, 0) ( B) y=IIf(x=0, 0, IIf(x 0, x-1, x+1) ( C) y=IIf(x 0, x+1, IIf
2、(x 0, 0, x-1) ( D) y=IIf(x=0, 0, x-1, x+1) 4 现有如下语句: x=IIf(a 50, Int(a 3), a Mod 2)当 a=52时, x的值是 ( A) 0 ( B) 1 ( C) 17 ( D) 18 5 在下面语句或函数中,不能描述选择结构的是 ( A) If语句 ( B) IIf函数 ( C) Select Case语句 ( D) While语句 6 设窗体上有 Textl、 Text2两个文本框,并编写了下面的程序代码: Private Sub Textl_KeyPress(KeyAscii As Integer) If“A“ =Chr
3、(KeyAscii)And Chr(KeyAscii) =”Z”Then KeyAscii=KeyAscii+(Asc(“a“)-Asc(”A”) End If n=0 If KeyAscii=13 Then For k=1 To Len(Textl) ch$=Mid(Textl, k, 1) If”a” =ch And ch =”z”Then n=n+1 Next k Text2=n End If End Sub 程序运行时,在 Textl文本框中输入 “Visual Basic 6 0”后按回车键,则在 Text2文本框显示的是 ( A) 1 1 ( B) 16 ( C) Visual B
4、asic 6 0 ( D) visual basic 6 0 7 编写如下程序: Private Sub Command l_Click() Dim a As Integer, b As Integer a=3: b=2 If a*b 1 0 Then b=b+1 Else b=b-1 End If Print b-a 0 End Sub 程序运行后,单击命令按钮 Commandl,输出结果为 ( A) True ( B) False ( C) 1 ( D) -1 8 编写如下程序: Private Sub Command 1_Click() Dim score As Integer scor
5、e=86 If score 85 Then r=1 Elself score 60 Then r=2 Else r=0 End If Print r End Sub 程序运行后,单击命令按钮 Commandl,输出结果为 ( A) 0 ( B) 1 ( C) 2 ( D) 86 9 设有如下事件过程: Private Sub Form_Click() Sum=0 For k=1 To 3 If k =l Then x=1 Elselfk =2 Then x=2 Elselfk =3 Then x=3 Else x=4 End If Sum=Sum+x Next k Print Sum End
6、Sub 程序运行后,单击窗体,输出结果是 ( A) 9 ( B) 6 ( C) 3 ( D) 10 10 设订下面的语句: Print IIf(x 0, 1, IIf(x 0, -1, 0)与此语句输出结果不同的程序段是 ( A) If x 0 Then x=1 Elselfx 0 Then x=-1 End If Print x ( B) Ifx 0 Then Print 1 Elselfx 0 Then Print-1 Else Print 0 End If ( C) Select Case X Case Is 0 Print 1 Case IS 0 Print-1 Case Else P
7、rint 0 End Select ( D) If x 0 Then If x 0 Then Print 1 Elself x 0 Then Print-1 Else Print 0 End If End If 11 在窗体上画一命令按钮和一文本框,其名称分别为 Commandl和 Textl,然后编写如下程序: Function Fun(x As Integer, y As Integer)As Integer Fun=IIf(x y, x, y)End Function Private Sub Form_Load() Command 1 Default=True End Sub Priva
8、te Sub Command l_Click() Dim a As Integer,b As Integer a=20: b=12 Text 1 Text=Str(Fun(a, b) End Sub 程序运行后,按回车键,文本框中显示的内容为 ( A) 12 ( B) 20 ( C) 24 ( D) 40 12 三角形的构成条件是:任意 2边之和大于第 3边。设变量 a、 b、 c是 3条直线的长度,要求判断这 3条直线能否构成一 个三角形。下面有 3个程序段可以正确判断,另一个不能正确判断的是 ( A) If a+b c And a+c b And b+C a Then Print”可以构成
9、一个三角形 ” Else Print”不能构成三角形 ” End If ( B) If a+b c Or a+c b Or b+c a Then Print”可以构成一个三角形 ” Else Print”不能构成三角形 ” End If ( C) If a+b =c Or a+c =b Or b+c =a Then Print”不能构成三角形 ” Else Print”可以构成一个三角形 ” End If ( D) If a+b =c Or a+c =b Then Print”不能构成三角形 ”Elselfb+c =a Then Print”不能 构成三角形 ” Else Print”可以构成
10、一个三角形 ” End If 13 设 x为一整型变量,且语句的开始为: Select Case x,则不符合语法规则的Case子句是 ( A) Case Is 20 ( B) Case l To 10 ( C) Case 0 Is And IS 20 ( D) Case 2, 3, 4 14 假定有如下情况语句: Select Case X能表示 |X| 5的 Case子句是 ( A) Case Not(-5 To 5) ( B) Case 5 To-5 ( C) Case Is -5 Is 5 ( D) Case Abs(X) 5 15 现有如下一段程序: Private Sub Comm
11、and 1_Click() x=UCase(InputBox(”输入: ”) Select Case X Case”A”To”C” Print”考核通过 !” Case ”D” Print”考核不通过 !” Case Else Print”输入数据不合法 !” End Select End Sub 执行程序,在输入框中输入字母 “B”,则以下叙述中正确的是 ( A)程序运行错 ( B)在窗体上显示 “考核通过 !” ( C)在窗体上显示 “考核不通过 !” ( D)在窗体上显示 “输入数据不合法 !” 16 窗体上有 1个名称为 Commandl的命令按钮,事件过程如下: Private Su
12、b Command l_Click() Dim hum As Integer, x As Integer num=Val(InputBox(”请输入一个正整数 ”) Select Case num Case Is 100 x=x*hum Case Is 90 x=num Case Else x=x*num End Select Print x; End Sub 运行程序,并在三次单击命令按钮时,分别输入正整数 100、 90和 60,则窗体上显示的内容为 ( A) 0 0 0 ( B) 0 0 60 ( C) 0 90 0 ( D) 100 0 60 17 窗体上有一个名称为 Textl的文本
13、框,一个名称为 Commandl的命令按钮。命令按钮的单击事件过程如下: Private Sub Command l_Click() Dim x 1 As Integer,x2 As Integer,x3 As Integer s=Trim(Textl Text) strLen=Len(s) For i=1 To strLen c=Mid(s, i, 1) Select Case c Case”0”To”9” x1=x1+1 Case”A”To”Z” x2=x2+1 Case”a”To”Z” x3=3+1 Case Else x4=x4+1 End Select Next Print”x1”;
14、 x1, ”x2”; x2, ”x3”; x3, ”x4”; x4 End Sub 以下关于上述程序的叙述中,正确的是 ( A) S是去掉文本框中字符串末尾的空格 ( B) Select Case c有误, Case后应该是一个表达式 ( C)各 Case分支条件有误,不能用 To表示字符的 取值区间 ( D) x4是字符串中非字母、非数字字符的个数 18 编写如下程序: Private Sub Command l_Click() Dim m As Integer, n As Integer m=2: n=1 Select Case m Case 1 Select Case n Case 1
15、Print”AAA” Case 2 Print”BBB” Case 2 Print”CCC” End Select End Sub 程序运行后,单击命令按钮 Commandl,输出结果为 ( A) AAA ( B) BBB ( C) CCC ( D) 1 19 某人为计算 n!(0 n =1 2)编写了下面的函数过程: Private Function fun(n As Integer)As Long Dim P As Long p=1 For k=n-1 To 2 Step-1 p=p*k Next k fun=p End Function 在调试时发现该醺数过程产生的结果是错误的,程序需要
16、修改。下面的修改方案中有 3种是正确的,错误的方案是 ( A)把 P=1改为 P=n ( B)把 For k=n-1 To 2 Step-1改为 For k=1 To n-1 ( C)把 For k=n-1 To 2 Step-1改为 For k=1 To n ( D)把 For k=n-1 To 2 Step-1改为 For k=2 To n 20 阅读程序: Private Sub Form_Click() a=0 For i=1 To 1 5 a=a+j Mod 3 Next j Print a End Sub 程序运行后,单击窗体,输出结果是 ( A) 105 ( B) 1 ( C)
17、120 ( D) 1 5 21 在窗体上画一个命令按钮,其名称为 Commandl,然后编写如下代码: Option Base 1 Private Sub Command 1_Click() Dim a a=Array(1, 2, 3, 4) j=1 For i=4 To 1 Step -1 s=s+a(i)*j j=j*10 Next i Print s End Sub 程序运行后,单击命令按钮,其输出结果是 ( A) 4321 ( B) 1234 ( C) 34 ( D) 12 22 在窗体上画一个命令按钮,名称为 Commandl,然后编写如下代码: Option Base 0 Priv
18、ate Sub Command l_Click() Dim A l(4)As Integer,A2(4)As Integer For k=0 To 2 Al(k+1)=InputBox(”请输入一个整数 ”) A2(3-k)=Al(k+1) Next k Print A2(k) End Sub 程序运行后,单击命令按钮,在输入对话框中依次输入 2、 4、 6,则输出结果为 ( A) 0 ( B) 1 ( C) 2 ( D) 3 23 设有以下程序: Private Sub Form_Click() x=50 For i=1 To 4 y=InputBox(”请输入一个整数 ”) y=Val(y
19、) Ify Mod 5=0 Then a=a+Y x=y Else a=a+x End If Next i Print a End Sub 程序运行后,单击窗体,在输入对话框中依次输入 15、 24、 35、 46,输出结果为 ( A) 100 ( B) 50 ( C) 120 ( D) 70 24 有下面程序代码: Private Sub Command l_Click() a=3 s=0 For k=1 To 5 s=s+a Mod k a=a+k Next k Print s End Sub 程序运行后,单击命令按钮 Commandl,输出结果是 ( A) 1 5 ( B) 13 ( C
20、) 4 ( D) 1 25 有下面程序代码: Private Sub Command l_Click() Dim sign As Integer sign=1 a=1: b=2 For k=1 To 5 c=a+sign*b a=b: b=c Print c; sign=-sign Next k End Sub 程序运行后,单击命令按钮 Commandl,输出结果是 ( A) 3-1 2-3-1 ( B) 3 5 8 13 21 ( C) -1 1-2-1-1 ( D) 3 4 5 6 7 26 编写如下程序: Private Sub Command l_Click() Dim a(10)As
21、 String s=”123456” n=Len(s) For k=1 To n a(k)=Mid(s, k, 1) Next k For i=1 To n 2 t=a(i) a(i)=a(n-i+1) a(n-i+1)=t Next i For k=1 To n Print a(k); Next k End Sub 程序运行后,单击命令按钮 Commandl,输出结果为 ( A) 654321 ( B) 123456 ( C) 654123 ( D) 123654 27 窗体上有 1个名称为 Commandl的命令按钮; 1个名称为 Listl、没有列表项的列表框。编写 如下程序: Priv
22、ate Sub Command l_Click() Dim x As String, s As String, temp As String Dim i As Integer x=InputBox(”输入字符串 ”, ”输入 ”) If x ”Then For i=Len(x)To 1 Step-1 s=Mid(x, i, 1) If s “Then temp=s+temp Else List 1 Addltem temp s=“ temp=“ End If Next List 1 Addltem temp Else MsgBox”输入内容为空 !” End If End Sub 程序运行后,
23、单击命令按钮 Commandl,并输入 “Happy new year”,则在 List1中显示的内容为 ( A) year new Happy ( B) Happy new year ( C) raey wen yppaH ( D) yppaH wen raey 28 设窗体上有一个文本框 Textl和一个命令按钮 Commandl,并有以下事件过程:Private Sub Commandl_Click()Dim s As String, ch As String s=“For k=1 To Len(Textl)ch=Mid(Textl, k, 1)s=ch+s Next k Textl T
24、ext=s End Sub程序执行时,在文本框中输入 “Basic”,然后单击命令按钮,则 Textl中显示的是 ( A) Basic ( B) cisaB ( C) BASIC ( D) CISAB 29 某人编写了如下程序,用来求 10个整数 (整数从键盘输入 )中的最大值: Private Sub Command l_Click() Dim a(1 0)As Integer,max As Integer For k=1 To 10 a(k)=InputBox(”输入一个整数 ”) Next k max=0 For k=1 To 10 Ifa(k) max Then max=a(k) En
- 1.请仔细阅读文档,确保文档完整性,对于不预览、不比对内容而直接下载带来的问题本站不予受理。
- 2.下载的文档,不会出现我们的网址水印。
- 3、该文档所得收入(下载+内容+预览)归上传者、原创作者;如果您是本文档原作者,请点此认领!既往收益都归您。
下载文档到电脑,查找使用更方便
2000 积分 0人已下载
下载 | 加入VIP,交流精品资源 |
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 计算机 试卷 国家 二级 VB 机试 选择题 模拟 答案 解析 DOC
