阶段测试1

一、单项选择题

1.以下叙述中错误的是（）。

A）标准模块文件的扩展名是.bas

B）标准模块文件是纯代码文件

C）在标准模块中声明的全局变量可以在整个工程中使用

D）在标准模块中不能定义过程

2.在Visual Basic中，表达式3*2\5Mod3的值是（）。

A）1B）0C）3D）出现错误提示

3.以下选项中，不合法的Visual Basic的变量名是（）。

A）a56B）_xyz C）a_b D）andif

4.以下数组定义语句中，错误的是（）。

A）Static a(10)As Integer B）Dim c(3,1To4)

C）Dim d(-10)D）Dim b(0To5,1To3)As Integer

5.现有语句：y=IIf(x>0,x Mod3,0)，设x=10，则y的值是（）。

A）0B）1C）3D）语句有错

6.为了使文本框同时具有垂直和水平滚动条，应先把MultiLine属性设置为True，然后再把ScrollBars属性设置为（）。

A）0B）1C）2D）3

7.文本框Text1的KeyDown事件过程如下：

Private Sub Text1_KeyDown(KeyCode As Integer,Shift As Integer)

End Sub

其中参数KeyCode的值表示的是发生此事件时（）。

A）是否按下了Alt键或Ctrl键B）按下的是哪个数字键

C）所按下的键盘键的键码D）按下的是哪个鼠标键

8. 窗体上有一个名称为Hsscroll1的滚动条，程序运行后，单击滚动条箭头时，立即在窗体上显示棍动条的位置（即刻度值）。下面能够实现上述操作的事件过程是（）。

A）Private Sub Hscroll1_Change() Print Hscroll1.Value

End Sub B）Private Sub Hscroll1_Change() Print Hscroll1.SmallChange

End Sub

C）Private Sub Hscroll1_Scroll() Print Hscroll1.Value

End Sub D）Private Sub Hscroll1_Scroll() Print Hscroll1.SmallChange

End Sub

9.若已把一个命令按钮的Default属性设置为True，则下面可导致按钮的Click事件过程被调用的操作是（）。

A）用鼠标右键单击此按钮B）按键盘上的Esc键

C）按键盘上的回车键D）用鼠标右键双击此按钮

10.要使两个单选按钮属于同一个框架，正确的操作是（）。

A）先画一个框架，再在框架中画两个单选按钮

B）先画一个框架，再在框架外画两个单选按钮，然后把单选按钮拖到框架中

C）先画两个单选按钮，再用框架将单选按钮框起来

D）以上三种方法都正确

11.能够存放组合框的所有项目内容的属性是（）。

A）Caption B）Text C）List D）Selected

12.设窗体上有一个标签Label1和一个计时器Timer1，Interval属性被设置为1000要求程序运行时每秒在标签中显示一次系统当前时间。以下可以实现上述要求的事件过程是（）。

A）Private Sub Timer1_Timer()

Label1.Caption=True

End Sub

B）Private Sub Timer1_Timer()

Label1.Caption=Time

End Sub

C）Private Sub Timer1_Timer()

Label1.Interval=1

End Sub

D）Private Sub Timer1_Timer()

For k=1To Timer1.Interval

y= 5

End Sub

13.设有窗体和以下程序：

Private Sub Command1_Click()

Text1.Text="Visual Basic"

End Sub

Private Sub Text1_LostFocus()

If Text1.Text<>"BASIC"Then

Text1.Text=""

Text1.SetFocus

End If

End Sub

程序运行时，在Text1文本框中输入"Basic"，然后单击Command1按钮，则产生的结果是（）。A）文本框中无内容，焦点在文本框中B）文本框中为"Basic"，焦点在文本框中

C）文本框中为"Basic"，焦点在按钮上D）文本框中为"Visual Basic"，焦点在按钮上

14.窗体上有一个名称为Command1的命令按钮，其事件过程如下：

Private Sub Command1_Click()

x="VisualBasicProgramming"

a=Right(x,11)

b=Mid(x,7,5)

c=MsgBox(a,,b)

End Sub

运行程序后单击命令按钮，以下叙述中错误的是（）。

A）信息框的标题是Basic B）信息框中的提示信息是Programming

C）c的值是函数的返回值D）MsgBox的使用格式有错

15. 设工程文件包含两个窗体文件Form1.frm、Form2.frm及一个标准模块文件Module1.bas。两个窗体上分别只有一个名称为Command1的命令按钮。

Form1的代码如下：

Public x As Integer

Private Sub Command1_Click()

Form2.Show

End Sub

Private Sub Form_Load()

x =5

end sub

Form2的代码如下：

Private Sub Command1_Click()

Print Form1.x,y

End Sub

Module1的代码如下：

Public y As Integer

运行以上程序，单击Form1的命令按钮Command1，则显示Form2；再单击Form2上的命令按钮Command1，则窗体上显示的是（）。

A）15B）50C）00D）程序有错

二、判断题

1、在if <条件> then 结构中，条件可以是逻辑表达式或关系表达式。（√）

2、计时器（Timer）控件的Interval属性的单位是秒。（×）

（×）

3、在For <控制变量>＝<初值> To <终值> [Step <步长>] 结构中，初值只能取数

值。

4、窗体的卸载使用Load 语句。（×）

5、表达式268="268" 的结果为True。（×）

6、语句if 0 then print "Hello" 是错误的。（×）

7、在for循环结构对循环变量的赋值中，终值可以大于初值，也可以小于初值。（√）

8、将文本框T ext1中的内容清除，可使用语句Text1.cls。（×）

9、设a＝5，则语句print a＝5的运行结果为True （√）

10、通过label1.cls 可以清除由label1所显示的内容。（×）

三、填空题（）

1.下列程序段的执行结果为。

num=2

While num <=3

num=num + 1

Print num;

Wend

2.下列程序段的执行结果为。

t= 0

For i = 1 To 4

For j = 6 To 1 Step -2

t = t + 1

Next j

Next i

Print t

3.下列程序段的执行结果为。

a=75

If a > 60 Then a=70

If a > 70 Then Score=4

If a < 80 Then a=80

If a > 70 Then Score=2

Print "Score="; Score

4.下列程序段的执行结果为。

Option Base 1

Private Sub Command1_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

5计算sum=1!+2!+3!+…+n!，其中n从键盘输入，请补充完整。

Private Sub Command1_Click( )

Dim k As Integer

n=InputBox("Enter a number")

n=Val(n)

Sum=0: t=1

For k=1 To n

t=t * k

Sum=

Next k

Print Sum

End Sub

答案：三、填空题

1、3 4

2、12

3、Score=2

4、1234

5、t + Sum或Sum+t