职高15-16第一 学期中VB的试题的答案.docVIP

2010—2011学年第一学期期中考试试卷 高三职高VB试题 题号 一 二 三 四 五 总分 得分 一 、选择题 下列说法错误的是　A) 标准模块的扩展名是.bas　　B) 标准模块由程序代码组成 　C) 标准模块只用来定义一些通用的过程D) 标准模块不附属于任何一个窗体 如果要将窗体中的某个命令按钮设置成无效状态，应动命令按钮的何种属性 　　A) Value　　B) Visible　　C) Default　　D) Enabled 在窗体上有多个控件，要实现程序运行后焦点默认在某一控件上，应该设置的属性是A) 设置Enabled的值为True　　B) 设置TabIndex的值为1C) 设置TabIndex的值为0　　D) 设置Index的值为0 下列几项中，属于合法的日期型常量的是　　A) 10/10/02　　B) 10/10/02　　C) {10/10/02}　　D) #10/10/02# 下列程序段的执行结果为　　A=2B=5 　　If A * B 1 Then B=B - 1 Else B=-1 　　Print B - A 0 　　A) True　　B) False　　C) -1　　D) 1 　Private Sub Timer1_Timer() Dim x As Integer For i = 1 To 10 x = x + 1 Next i Print x End Sub 标签控件能够显示文本信息，决定其文本内容的属性是　　A) Alignment　　B) Caption　　C) Visible　　D) BorderStyle ）”,则运算后表达式的值为（ ） A、True B、b=7 C、7 D、b 12、能产生30—100之间随机数的表达式为（ ） A)Int(71*Rnd)+30 B)Int(100*Rnd)+30 C)Int(70*Rnd) D)Int(100*Rnd) 13、 在窗体上画一个命令按钮，然后编写如下事件过程： 　　 Private Sub Command1_Click() 　　 s=1 　 　Do 　 　s=(s + 1) * (s + 2) 　Number=Number + 1 　 　Loop Until s =30 　 　Print Number, s 　 　End Sub 　　程序运行后，输出的结果是　　A) 2 3　　B) 2 56　　C) 5 12　　D) 10 20 下列程序段的执行结果为　x=Int(Rnd() + 9) 　　Select Case x Case 10 　　Print excellent 　　Case 9 　　Print good Case 8 　　Print pass 　　Case Else 　　Print fail 　　End Select 　A) excellent　　B) good　　C) pass　　D) fail 下列程序段的执行结果为　　a=75 　　If a 60 Then Score=1 　　If a 70 Then Score=2 　　If a 80 Then Score=3 　　If a 90 Then Score=4 　　Print Score=; Score 　　A) Score=1　　B) Score=2　　C) Score=3　　D) Score=4 下列程序段的执行结果为　　I=1x=5 　　Do 　　I=I + 1：x=x + 2 　　Loop Until I =7 　　Print I=; I Print x=; xI=4 x=5 B) I=7 　 x=15 C) I=6 　　x=8 D) I=7 　 x=17 下面的程序的运行结果是　　a=1b=1 　　Do 　　a=a^2 　　b=b + 1 　　Loop Until b 5 　　Print k=; a; Spc(4) ; b=; b + a 　　 =7 b=14 B) k=6 　=6 C) k=4 　=8 D) k=1 　=7 18、 单击命令按钮，下列程序的执行结果为　　Private Sub Command1_Click() 　　Dim x As Integer, y As Integer 　　x=32: y=42 　　Call PCS(x, y) 　　Print x; y 　　End Sub 　　Public Sub PCS(Byval n As Integer, ByVal m As Integer) 　　n=n Mod 10+1 m=m Mod 10+1 　　End Sub 　　A) 32 42　　B) 2 32　　C) 2 3　　D) 12 3 ．若要获得列表框中被选中的列表项的内容，