【计算机类职业资格】国家二级VB机试(控制结构)模拟试卷16及答案解析.doc
《【计算机类职业资格】国家二级VB机试(控制结构)模拟试卷16及答案解析.doc》由会员分享,可在线阅读,更多相关《【计算机类职业资格】国家二级VB机试(控制结构)模拟试卷16及答案解析.doc(15页珍藏版)》请在麦多课文档分享上搜索。
1、国家二级 VB机试(控制结构)模拟试卷 16及答案解析(总分:80.00,做题时间:90 分钟)一、选择题(总题数:40,分数:80.00)1.现有语句:y=IIf(x0,x Mod 3,0)设 x=10,则 y的值是(分数:2.00)A.0B.1C.3D.语句有错2.设 x是整型变量,与函数 Ilffx0,-X,x)有相同结果的代数式是(分数:2.00)A.|x|B.一|x|C.xD.-x3.计算下面分段函数的正确语句是 (分数:2.00)A.y=IIf(x0,x+1,IIf(x0,x 一 1,x+1)C.Y=IIf(x0,x+1,IIf(x50,Int(a3),a Mod 2)当 a=52
2、时,x 的值是(分数:2.00)A.0B.1C.17D.185.在下面语句或函数中,不能描述选择结构的是(分数:2.00)A.If语句B.IIf函数C.Select Case语句D.While语句6.设窗体上有 Text1、Text2 两个文本框,并编写了下面的程序代码: Private Sub Text1_KeyPress(KeyAscii As Integer) If”A”85 Then r=1 Else If score60 Then r=2 Else r=0 End If Print r End Sub 程序运行后,单击命令按钮Command1,输出结果为(分数:2.00)A.0B.1
3、C.2D.869.设有如下事件过程: Private Sub Form_Click() Sum=0 For k=1 To 3 Ifk0,1,Ilf(x0 Then x=1 Elself xB.Ifx0 Then Print 1 ElselfxC.Select Case x Case Is0 Print 1 Case IsD.Ifx0 Then Print 1 Elselfx11.在窗体上画一命令按钮和一文本框,其名称分别为 Command1和 Text1,然后编写如下程序:Function Fun(x As Integer, Y As Integer)As Integer Fun=IIf(xA
4、.1 2B.20C.24D.4012.三角形的构成条件是:任意 2边之和大于第 3边。设变量 a、b、c 是 3条直线的长度,要求判断这 3条直线能否构成一个三角形。下面有 3个程序段可以正确判断,另一个不能正确判断的是(分数:2.00)A.If a+bc And a+cb And b+ca Then Print”可以构成一个三角形” Else Print”不能构成三角形”End IfB.If a+bc Or a+cb Or b+ca Then Print”可以构成一个三角形” Else Print”不能构成三角形” End IfC.Ifa+b20B.Case 1 To 10C.Case 05
5、 的 Case子句是(分数:2.00)A.Case Not(-5 To 5)B.Case 5 To 一 5C.Case Is5D.Case Abs(X)515.现有如下一段程序: Private Sub Command1_Click() x=UCase(InputBox(”输入:”) Select Case x Case”A”Tb”C” Print”考核通过!” Case”D” Print”考核不通过!” Case Else Print”输入数据不合法!” End Select End Sub 执行程序,在输入框中输入字母“B”,则以下叙述中正确的是(分数:2.00)A.程序运行错B.在窗体上
6、显示“考核通过!”C.在窗体上显示“考核不通过!”D.在窗体上显示“输入数据不合法!”16.窗体上有 1个名称为 Command1的命令按钮,事件过程如下: Private Sub Commandl_Click() Dim sum As Integer,X As Integer num=Val(InputBox(”请输入一个正整数”) Select Case num Case Is100 x=x+sum Case IsA.0 0 0B.0 0 60C.0 90 0D.100 0 6017.窗体上有一个名称为 Text1的文本框,一个名称为 Command1的命令按钮。命令按钮的单击事件过程如下
7、:Private Sub Command1_Click() Dim x1 As Integer,x2 As Integer,x3 As Integer S=Trim(Text1Text) strLen=Len(s) For i=1 To strLen c=Mid(s,i,1) Select Case C Casc”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”;x1,”x2”;x2,”x3”;x3,”x4”;x4End Sub 以下关于上述程
8、序的叙述中,正确的是(分数:2.00)A.s是去掉文本框中字符串末尾的空格B.Select Case c有误,Case 后应该是一个表达式C.各 Case分支条件有误,不能用 To表示字符的取值区间D.x4是字符串中非字母、非数字字符的个数18.编写如下程序: Private Sub Commandl_Click() Dim mAs Integer,nAs Integer m=2:n=1 Select Case m Case 1 Select Case n Case1 Print”AAA” Case 2 Prinnt”BBB” Case 2 Print”CCC” End SelectEnd S
9、ub 程序运行后,单击命令按钮 Command1,输出结果为(分数:2.00)A.AAAB.BBBC.CCCD.119.某人设计了如下程序用于计算并输出 7!(7的阶乘) Private Sub Commandl_Click() t=0 For k=7 To 2 Step-1 t=t*k Next Prite t End Sub 执行程序时,发现结果是错误的。下面的修改方案中能够得到正确的是(分数:2.00)A.把 t=0改为 t=1B.把 For k=7 to 2 Step-1改为 For k=7 to 1 Step-1C.把 For k=7 to 2 Step-1改为 For k=1 to
10、 7D.把 Next改为 Next k20.为计算 an的值,某人编写了函数 power如下: Private Function power(a As Integer,n As Integer)As Long Dim P As Long P=a For k=1 To n P=p*a Next k Power=p End Function 在调试时发现是错误的,例如 Print power(5,4)的输出应该是 625.但实际输出是 3125。 程序需要修改。下面的修改方案中有 3个是正确的,错误的一个是(分数:2.00)A.把 For k=1 To n改为 For k=2 To nB.把 P=
11、p*a改为 P=paC.把 For k=1 To n改为 For k=1 To n1D.把 P=a改为 P=121.某人为计算 n!(0Then For i=Len(x)To 1 Step 一 1 s=Mid(x,i,1) If smax Then max=a(k) End If Next k Print max End SUb 运行程序时发现,当输入 10个正数时,可以得到正确结果,但输入 10个负数时结果是错误的,程序需要修改。下面的修改中可以得到正确运行结果的是(分数:2.00)A.把 If a(k)max Then改为 Ifa(k)B.把 max=a(k)改为 a(k)=maxC.把第
12、 2个循环语句 For k=1 To 10改为 For k=2 To 10D.把 max=0改为 max=a(10)32.在窗体上画一个名称为 Text1的文本框和一个名称为 Command1的命令按钮,然后编写如下事件过程: Private Sub Commandl_Click() Dim i As Integer,n As Integer For i=0 To 50 i=i+3:n=n+1 Ifi10 Then Exit For Next Text1Text=Str(n) End Sub 程序运行后,单击命令按钮,在文本框中显示的值是(分数:2.00)A.2B.3C.4D.533.在窗体上
13、画一个名为 Command1的命令按钮,然后编写如下代码: Option Base 1 Private Sub Commandl_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 运行上面的程序,其输出结果是(分数:2.00)A.1234B.12C.34D.432134.在窗体上画一个名称为 Text1的文本框和一个名称为 Commandl的命令按钮,然后编写如下事件过程:Private Sub Command1_Click() Dim iAs Inte
14、ger,nAs Integer For i=0 To 50 i=i+3:n=n+1 Ifi10 Then Exit For Next TeXt1Text=Str(n)End Sub 程序运行后,单击命令按钮,在文本框中显示的值是(分数:2.00)A.2B.3C.4D.535.在窗体上画一个名称为 Command1的命令按钮,然后编写如下程序: Option Base 1 Private Sub Commandl_Click() d=0:c=10:x=Array(10,12,21,32,24) For i=1 To 5 Ifx(i)c Then d=d+x(i):c=x(i) Else d=d-
15、c End If Next i Print dEnd Sub 程序运行后,如果单击命令按钮,则在窗体上输出的内容为(分数:2.00)A.89B.99C.23D.7736.在窗体上画 1个名称为 Command1的命令按钮,并编写如下事件过程: Private Sub Commandl_Click() X=1:s=0 For i=1 To 5 x=xi:s=s+x Next Print sEnd Sub 该事件过程的功能是计算(分数:2.00)A.s=1+2+3+4+5qB.s=1+12+13+14+15C.s=1+12!+13!+14!+15!D.s=1+1(1*2)+1(2*3)+1(3*4
16、)+1(4*5)37.有如下程序: Private Sub Form_Click() Dim iAs Integer,nAs Integer For i=1 To 20 i=i+4:n=n+i Ifi10 Then Exit For Next Print n End Sub 程序运行后,单击窗体,则输出结果是(分数:2.00)A.14B.15C.29D.3038.有以下通用过程: Function fun(N As Integer) S=0 For k=1 T0 N s=s+k*(k+1) Next k fun=S End Function 该过程的功能是(分数:2.00)A.计算 N!B.计
17、算 1+2+3+NC.计算 12233NND.计算 12+23+34+N(N+1)39.编写如下程序: Option Base 1 Prirate Sub Command1_Click() Dim a a=Array(1,2,3,4):s=0:j=1 For i=4 To 1 Step-1 s=s+a(i)*j:j=j*10 Next i Print s End Sub 程序运行后,单击命令按钮 Command1,输出结果为(分数:2.00)A.110B.123C.1234D.432140.在窗体上画一个名称为 Command1的命令按钮,编写如下事件过程: Private Sub Comma
18、ndl_Click() n=0 For i=0 To 10 X=2*i-1 Tf X Mod 3=0 Then n=n+1 Next 1 Print n End Sub 运行程序,单击命令按钮,则窗体上显示的是(分数:2.00)A.1B.3C.5D.7国家二级 VB机试(控制结构)模拟试卷 16答案解析(总分:80.00,做题时间:90 分钟)一、选择题(总题数:40,分数:80.00)1.现有语句:y=IIf(x0,x Mod 3,0)设 x=10,则 y的值是(分数:2.00)A.0B.1 C.3D.语句有错解析:解析:本题考查的考点是有关 IIf函数的。IIf 函数可用于执行简单的条件判
19、断操作,它是“IfThenElse”结构的简写版本。 格式:ReSUlt=IIf(条件,True 部分,False 部分) 其中“Result”是函数的返回值,“条件”是一个逻辑表达式。当“条件”为真时,IIf 函数返回“True部分”的值,而当“条件”为假时返回“False 部分”的值。“True 部分”或“False 部分”可以是表达式、变量或其他函数。本题中由于 x=10是大于 0的,所以返回值为 x Mod 3的值即 1。2.设 x是整型变量,与函数 Ilffx0,-X,x)有相同结果的代数式是(分数:2.00)A.|x|B.一|x| C.xD.-x解析:解析:IIf 函数可以用来执行
20、简单的条件判断操作,它是“IfThenElse”结构的简写版本,其格式为:result=IIf(条件,True 部分,False 部分)。其中“result”是函数的返回值,“条件”是一个逻辑表达式。当“条件”为真时,IIf 函数返回“True 部分”,否则返回“False 部分”。“True 部分”或“False 部分”可以是表达式、变量或其他函数。本题中 IIf函数的作用是如果 x0则返回一 x,否则返回 x,等价于一|x|。3.计算下面分段函数的正确语句是 (分数:2.00)A.y=IIf(x0,x+1,IIf(x0,x 一 1,x+1)C.Y=IIf(x0,x+1,IIf(x50,In
21、t(a3),a Mod 2)当 a=52时,x 的值是(分数:2.00)A.0B.1C.17 D.18解析:解析:IIf 函数可用来执行简单的条件判断操作,它是“IfThenElse”结构的简写版本。格式为:result=lIf(条件,True 部分,False 部分)。当条件为真时,IIf 函数返回True部分,而当条件为假时,返回False 部分。本题中 a的值是 52,所以条件为真,将返回 523的值即 17。5.在下面语句或函数中,不能描述选择结构的是(分数:2.00)A.If语句B.IIf函数C.Select Case语句D.While语句 解析:解析:选择结构可以使用 lIf函数、
22、If 语句来实现两个分支的选择结构,使用 Select Case语句实现多分支选择结构,while 语句用来描述循环结构。6.设窗体上有 Text1、Text2 两个文本框,并编写了下面的程序代码: Private Sub Text1_KeyPress(KeyAscii As Integer) If”A”85 Then r=1 Else If score60 Then r=2 Else r=0 End If Print r End Sub 程序运行后,单击命令按钮Command1,输出结果为(分数:2.00)A.0B.1 C.2D.86解析:解析:块结构条件语句的格式为: If条件 1 The
23、n : 语句块 1 Elself条件 2 Then :语句块 2 Else : 语句块 n End If 如果“条件 1”为 True,则执行“语句块 1”并跳出结构;否则如果“条件 2”为 True,则执行“语句块 2”并跳出结构否则执行“语句块 n”并结束整个结构。9.设有如下事件过程: Private Sub Form_Click() Sum=0 For k=1 To 3 Ifk0,1,Ilf(x0 Then x=1 Elself xB.Ifx0 Then Print 1 ElselfxC.Select Case x Case Is0 Print 1 Case IsD.Ifx0 Then
- 1.请仔细阅读文档,确保文档完整性,对于不预览、不比对内容而直接下载带来的问题本站不予受理。
- 2.下载的文档,不会出现我们的网址水印。
- 3、该文档所得收入(下载+内容+预览)归上传者、原创作者;如果您是本文档原作者,请点此认领!既往收益都归您。
下载文档到电脑,查找使用更方便
5000 积分 0人已下载
下载 | 加入VIP,交流精品资源 |
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 计算机 职业资格 国家 二级 VB 机试 控制 结构 模拟 试卷 16 答案 解析 DOC
