1、国家二级 VB机试（选择题）模拟试卷 183及答案与解析 一、选择题 1 下列关于滚动条的叙述中，错误的是 （ A）在滚动条内单击滚动框前面或后面的部位时，会触发 Scroll事件 （ B）在滚动条内拖动滚动框时，会触发 Scroll事件 （ C）在滚动条内拖动滚动框后，会触发 Change事件 （ D）单击滚动条两端的箭头时，会触发 Change事件 2 定时器的 Interval属性的值是一个整数，它表示的是 （ A）毫秒数 （ B）秒数 （ C）分钟数 （ D）小时数 3 为了使每秒钟发生一次计时器事 件，可以将其 Interval属性设置为 （ A） 1 （ B） 10 （ C） 10
2、0 （ D） 1000 4 窗体上有 1个名称为 Text1的文本框， 1个名称为 Timerl的计时器，且已在属性窗口将 Timer1 的 Interval属性设置为 2000、 Enabled属性设置为 False.以下程序的功能是，单击窗体，则每隔 2秒钟在 Text1中显示一次当前时间。 Private Sub Form Click()Private Sub Timerl Timer() Timerl_ Textl Text=Time() End Sub End Sub 为了实现上述功能，应该在横线处填入的内容为 （ A） Enabled=True （ B） Enabled=False
3、 （ C） Visible=True （ D） Visible=False 5 设窗体上有一个标签 Labell和一个计时器 Timerl， Timerl的 Interval属性被设置为 1000,Enabled属性被设置为 True。要求程序运行时每秒在标签中显示一次系统当前时间。以下可以实现上述要求的事件过程是 （ A） Private Sub Timerl Timer() Labell Caption=True Labell End Sub （ B） Private Sub Timerl Timer() Caption=TimeS End Sub （ C） Private SUb Tim
4、erl_Timer() Label1 Interval=1 End Sub （ D） Private Sub Timerl_Timer0 For k=l To Timerl Interval Labell Caption=Timer Next k End Sub 6 窗体上有 1仑名称为 Text1的文本框； 1个名称为 Timerl的计时器控件，其Interval属性值为 5000， Enabled属性值是 True。 Timerl的事件过程如下： Private Sub Timerl_Timer() Static flag As Integer Ifflag=O Then nag=1： f
5、lag=一 flag End If Ifflag=1 Then Textl ForeColor=&HFF&HFF&为红色 Else Textl ForeColor=&HC000&HC000& （ A）每次执行此事件过程时， flag的初始值均为 0 （ B） flag的值只可能取 0或 1 （ C）程序执行后，文本框中的文字每 5秒改变一次颜色 （ D）程序有逻辑错误， Else分支总也不能被执行 7 为了暂时关闭计时器，应把它的一个属性设置为 False，这个属性是 （ A） Visible （ B） Timer （ C） Enabled （ D） Interval 8 设窗体上有一个名称为
6、 Timerl的计时器控件，其 Interval属性被设置为 500，Enabled属性被设置为 True；还有一个名称为 Textl的文本框和下面的事件过程： Private“Sub Timer 1 Timer() Static XAs Long x=x+1： Text1=x End Sub 程序运行一段时间后，文本框中显示的是 100，则表示 （ A）程序已经运行了 100秒 （ B）程序已经运行了 100毫秒 （ C）程序已经运行了 50秒 （ D）文本框到窗体左边框的距离是 100 9 下列不属于计时器控件属性的是 （ A） Enabled （ B） Interval （ C） Ind
7、ex （ D） Visible 10 下列不属于计时 器控件属性的是 （ A） Enabled （ B） Interval （ C） Name （ D） Timer 11 窗体上有一个名称为 Timerl的计时器控件，一个名称为 Shapel的形状控件，其Shape属性值为 3(Circle)。编写程序如下： Private Sub Form Load()Private Sub Timerl_Tmer() Shapel Top=0： Timerl Interval=100Static x As Integer End SubShapel Top=Shapel TOp+100 x=x+1 Ifx
8、 Mod 10=0 Thell Shape1 Top=0 End If End Sub （ A）每执行一次 Timerl Timer事件过程， x的值都在原有基础上增加 1 （ B） Shapel每移动 10次回到起点，重新开始 （ C）窗体上的 Shapel由下而上移动 （ D） Shapel每次移动 100 12 窗体上有一个名称为 Labell的标签：一个名称为 Timerl的计时器，其 Enabled和 Interva属性分别为 True和 1000。编写如下程序： Dim nAs Integer Private Sfb Timer1 Timer() ch=Chr(n+Asc(“A”)
9、： Labell Caption=eh： n=n+1： n=n Mod 4 End Sub 运行程序，将在标签中 （ A）不停地依次显示字符 “A”、 “B”、 “C”、 “D”，直至窗体被关闭 （ B）依次显示字符 “A”、 “B”、 “C”、 “D”各一次 （ C）每隔 1秒显示字符 “A”一次 （ D）每隔 1秒依次显示 26个英文字母中的一个 13 窗体上有一个名称为 Shapel并显示为圆的形状控件 (其 Widm和 Height嘱性值相等 )，一个名称为 Timer1的计时器，并有下面程序代码： Dim r As Single， flag As Integer Private SU
10、b Timerl_rimer() Private SUb Form Load()Ifflag=0 Then r=Shapel WidthShapel Width=Shapel Width-10 Timerl Enabled=TrueIfShapel Width0， x Mod 3， 0)设 x=10，则 y的值是 （ A） 0 （ B） 1 （ C） 3 （ D）语句有错 27 设 x是整型变量，与函数 IIf(xO，一 X， x)有相同结果的代数式是 （ A） x （ B） - x （ C） x （ D）一 x 28 计算下面分段函数的正确语句是 （ A） Y=IIf(x 0， x+1， I
11、If(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(x 0， 0， x一 1) （ D） y=IIf(x=0， 0， x一 1， x+1) 29 现有如下语句： x=IIf(a50， Int(a 3)， a Mod 2)当 a=52时， x的值是 （ A） 0 （ B） 1 （ C） 17 （ D） 18 30 在下面语句或函数中，不能描述选择结构的是 （ A） If语句 （ B） IIf函数 （ C） Select Case语句 （ D） While语句 31 设窗体上有 Text1
12、、 Text2两个文本框，并编写了下面的程序代码： Private Sub Texfl_Ke3 Press(KeyAscii As Integer) If“A”0 End Sub 程序运行后，单击命令按钮 Commandl，输出结果为 （ A） True （ B） False （ C） 1 （ D） -1 33 编写如下程序： Private Sub Commandl Click() Dim scoreAs Integer score=86 If score85 Then r=1 ElseIfscore60 Then r=2 Else r=0 End If Print r End Sub 程序
13、运 行后，单击命令按钮 Command1，输出结果为 （ A） 0 （ B） 1 （ C） 2 （ D） 86 34 设有如下事件过程： Private Sub Form C1ick0 Sum=0 For k=1 To 3 IfkC And a+cb And b+ca Then Print“可以构成一个三角形 ” Else Print“不能构成三角形 ” End If （ B） If a+bC Or a+Cb Or b+Ca Then Print“可以构成一个三角形 ” Else Print“不能构成三角形 ” End If （ C） If a+b20 （ B） Case 1 To 10 （
14、C） Case 05 （ D） Case Abs(X)5 40 现有如下一段程序： Private Sub Command 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）在窗体上显示 “
15、输入数据不合法 !” 41 窗体上有 1个名称为 Commandl的命令按钮，事件过程如下： Privme Sub Commandl Click() Dim humAs Integer,x As Integer nurfl=Val(InputBox(“请输入一个正整数 ”) Select Case aum Case Is100 x=x+hum Case Is移动焦点时会跳过该控件，但仍然保持着它在 TIab顺序中的实际位置，鼠标选中控件依然能获得焦点，所以本题的正确选项应该是 D。 【知识模块】 常用标准控件 25 【正确答案】 C 【试题解析】 只有能输入的输入型控件才能够接收焦点，本题四个
16、选项中只有命令按钮是输入型控件，可以接收焦点 . 【知识模块】 常用标准控件 26 【正确答案】 B 【试题 解析】 本题考查的考点是有关 IIf函数的。 IIf函数可用于执行简单的条件判断操作，它是 “IfThcnElse” 结构的简写版本。格式： Result=IIf， )其中 “Resun”是函数的返回值， “条件 ”是一个逻辑表达式。当 “条件 ”为真时， f函数返回 “True部分 ”的值，而当 “条件 ”为假时返回“False部分 ”的值。 “True部分 ”或 “False部分 ”可以是表达式、变量或其他函数。本题中由于 x=10是大于 0的，所以返回值为 x Mod 3的值即
17、1。 【知识模块 】 控制结构 27 【正确答案】 B 【试题解析】 IIf函数可以用来执行简单的条件判断操作，它是 “IfThenElse”结构的简写版本，其格式为： result=IIf(条件， Tme部分， False部分 )。其中“result”是函数的返回值， “条件 ”是一个逻辑表达式。当 “条件 ”为真时， IIf函数返回 “True部分 ”，否则返回： “False部分 ”。 “True部分 ”或 “False部分 ”可以是表达式、变量或其他函数。本题中 IIf函数的作用是如果 x0则返回 -x，否则返回 x，等价于 - x。 【 知识模块】 控制结构 28 【正确答案】 A
18、【试题解析】 I IIf函数可用来执行简单的条件判断操作，它是 “IfThcnElse”结构的简写版本。格式为： result=IIf(， ， )。当 为真时， IIf函数返回 ，而当 为假时，返回 。本题中分段函数共有三段，因此需要使用嵌套的 IIf函数。 【知识模块】 控制结构 29 【正确答案】 C 【试题解析】 IIf函数可用来执行简单的条件判断操作，它 是 “IfThcn“Else” 结构的简写版本。格式为： result= f(， ， )。当 为真时， f函数返回 ，而当 为假时，返回 。本题中 a的值是 52，所以条件为真，将返回 52 3的值即 17。 【知识模块】 控制结构
19、30 【正确答案】 D 【试题解析】 选择结构可以使用 IIf函数、 If语句来实现两个分支的选择结构，使用 select Case语句实现多分支选择结构， while语句用来描述循环结构。 【知 识模块】 控制结构 31 【正确答案】 A 【试题解析】 本题中的第一个 IfThen 结构的作用是将所有输入的大写字符转换为小写字符；第二个 If结构的条件是按下回车键，里面嵌套了一个 For循环，在循环中依次取出文本框中的每一个字符进行判断，若其为小写字符则 n自加 1，循环结束后 n的值就是文本框中字母的个数。 【知识模块】 控制结构 32 【正确答案】 B 【试题解析】 本题的程序中由于 a
20、*b0的值即 False。 【知识模块】 控制结构 33 【正确答案】 B 【试题解析】 块结构条件语句的格式为： IfThen ElseIfThen EIse EndIf 如果 “条件 1”为 True，则执行 “语句块 1”并跳出结构；否则如果 “条件 2”为True，则执行 “语句块 2”并跳出结构 否则执行 “语句块 n”并结束整个结构。 【知识模块】 控制结构 34 【正确答案】 B 【试题解析】 本题总共循环三次，在每次循环中由于循环变量 k的 值不同，将分别进入 If语句的不同分支；在块结构的 If语句中，一旦满足某个 If或者 ElseIf后面的条件，将不再判断其他条件是否满足
21、。所以本题输出的是 l十 2+3的值。 【知识模块】 控制结构 35 【正确答案】 D 【试题解析】 IIf函数可用来执行简单的条件判断操作，它是 “IfthenElse” 结构的简写版本。格式为： Result=lift,， )。当 为真时， IIf函数返回一 ，而当 为假时，返回 。本题 中 IIf函数的功能是判断 x是不是正数，如果是返回 1，否则继续判断 a是不是负数，如果是返回 =1，否则返回 0，即返回 x的符号。分析 4个选项只有 D选项不应该使用 ElseIf语句而应该使用 Else语句。 【知识模块】 控制结构 36 【正确答案】 A 【试题解析】 命令按钮的 Default
22、属性用予设置窗体的缺省命令按钮，程序运行时，按下 键将执行该命令按钮的单击事件过程。 IIf函数可用来执行简单的条件判断操作，它是 “IfthenElse” 结构的简写版本。格式为： Result=IIf(,)。当 为真时， IIf函数返回 ，而当 为假时，返回 。本题在函数 Fun中判断 x是否比 y小，如果小则返回 x作为返回值，否则返回 y作为返回值，即返回两个参数中的最小值。 【知识模块】 控制结构 37 【正确答案】 B 【试题解析】 任意两边之和大于第三边，必须要求任意两个变量的和全部大于另一令变量，也就是三个表达式必须同时成立，只有一个或两个成立是不行的，故此 B选项不能正确判断
23、。 【知识模块】 控制结 构 38 【正确答案】 C 【试题解析】 Case语句中含有多个参量，这些参量的含义分别为： 测试表达式：可以是任何表达式，通常采用变量或常量； 语句块 1，语句块 2， ：每个语句块由一行或多行合法的 Visual Basic语句组成： 表达式列表 1，表达式列表 2， ：称为域值。可采用下列 3种形式之一：表达式 1【，表达式 2】 。表达式 1 To表达式 2。 Is关系运算表达式，其中可使用的运算符有 =(等于 )、(不等于 )、 (大于 )、 =(大于或等于 )。 【知识模 块】 控制结构 39 【正确答案】 C 【试题解析】 多分支控制结构又称为 Sele
24、ct Case语句或 Case语句，可以同时对条件的多个取值来判断。其格式为： Select Case Case 语句块 1 Case Else 【语句块 n】 End Select Case语句以 Select Case开头，以 End Select结束。 其中，表达式列表 1，表达式列表 2， 称为域值。可采用 3种形式： 表达式lf，表达式 21 表达式 1 T0表达式 2； Is关系运算表达式。其中，可使用的运算符有等于 (=)、不等于 ( )、小于 ()、小于或等于 (=)。 【知识模块】 控制结构 40 【正确答案】 B 【试题解析】 多分支控制结构又称为 Select Case语
25、句或 Case语句，可以同时对条件的多个取值来判断。其格式为：同 14题。 【知识模块】 控制结构 41 【正确答案】 B 【试题解析】 多分支控制结构又称为 Select Case语句或 Case语句，可以同时对条件的多个取值来判断。其格式为：同 14题。本题中第一次输入 100执行 Case Else分支，由于 x是默认初值 0所以输出 0：第二次输入 90也执行 Case Else分支，由于 x是默认初值 0所以输出 0；第三次输入 60执行第二个分支输出 60。 【知识模块】 控制结构 42 【正确答案】 D 【试题解析】 Tilm函数的作用是去掉文本框中字符串两端的空格；多分支控制结构又称为 Select Case语句或 Case语句，可以同时对条件的多个取值来判断，Case后面的表达式可采用 3种形式： 表达式 1，表达式 2 表达式 l To表达式 2： Is关系运算表达式。最终 x1是字符串中数字的个数； x2是字符串中大写字母的个数： x3是字符串中小写字母的个数； x4是字符串中非字母、非数字字符的个数。 【知识模块】 控制结构
