VB模拟试题2(答案)

模拟考试题（2）

一、选择题：每题2分，共40分

1

(A) max=x : If y>=x Then max=y

(C) max=Iif(x>y , x , y)

2．设计动画时，用计时器控件的属性来控制动画速度。

(A) Enabled (B) Timer (C) Interval (D) Index

3．若要在文本框Text1上按回车键来激发运行某段程序，则该程序段应编写在Text1的事件中。

(A) Change (B) KeyPress (C) Click (D) GotFocus

4．语句Print "A+2"的运行结果是。

(A) A+2 (B) A (C) 2 (D) 运行出错

5．语句Print "AB12" + 34的运行结果是。

(A) AB1234 (B) 1234 (C) 46 (D) 运行出错

6．若要将标签控件的文字居中对齐，应将其Alignment属性设置为。

(A) 0 (B) 1 (C) 2 (D) 3

7．表达式x=x+1是。

(A)关系表达式(B) 赋值表达式(C) 算术表达式(D) 逻辑表达式8．下列定义数组的语句，错误的是。

(A) Dim a(10) (B) Dim a(2 To 2) as Variant

(C) Dim a(-3 To –9) (D) Dim a(-2 To 0)

9．下面有关For循环的说法中，正确的是。

(A) 循环初值必须小于终值(B) 步长为0时，循环是死循环

(C) 循环变量可以是字符型(D) For循环不可能有死循环

10．对Command1编写如下单击事件，单击Command1的运行结果是。

Private Sub Command1_Click()

x = 4

If x ^ 2 < 15 Then y = 3

If x ^ 2 = 16 Then y = 2

If x ^ 2 > 15 Then y = 1

Print y

End Sub

(A) 1 (B) 2 (C) 3 (D) 4

11．在Visual Basic 6.0中，下列变量名合法的是。

(A)cosx (B)cos(x) (C)2y (D) x-y

12．工程文件的扩展名是。

(A) .vbp (B) .frm (C) .res (D) .cls

13．双击窗体窗口，打开的窗口是。

(A) 属性窗口(B) 资源管理器窗口(C) 代码窗口(D) 布局窗口

14．下列叙述中不正确的是

(A) 变量名的第一个字符必须是字母(B) 变量名可以包含小数点或者内嵌的类型声明字符

(C) 变量名的长度不超过255个字符(D) 变量名不能使用关键字

15．函数Ucase(Mid("visual basic",8,5))的值是

(a) BASIC (b) visual (c) VISUAL (d) basic

16．若将PasswordChar属性设置为一个字符（如*），则在运行时，文本框中输入的字符仍然显示出来，而不显

(B) 文本框的Locked属性值为True

(D) 文本框的Locked属性值为False

17．下面的过程定义语句中合法的是

(a) Sub Proc(ByVal n( )) (b) Sub Proc(n) As Integer

(c) Function Proc(ByVal n) (d) Function Proc(Proc)

18．下列程序段的执行结果是

x=2

Print x+1;x+1

(a) 2+1 2+1 (b) 3 3 (c) 3 4 (d) x+1 x+1

19．决定窗体标题栏显示内容的属性是

(a) Caption (b) Name (c) Text (d) BackStyle

20. 下列语句中正确的是

(A) Text1.Text+Text2.Text=Text3.Text (B) a=Inputbox("Hello")

(C) 12Label.Caption=1234 (D) https://www.wendangku.net/doc/8d5030440.html,=CmdOk

21. 要使滚动条表示的最小值为10，应设置其属性

(a) MinChange (b) Min (c) Minimize (d) SmallChange

22. 在过程调用中，参数的传递可以分为两种方式

(a) 按地址传递与按值传递(b) 按值传递与按位置传递

(c) 按参数传递与按地址传递(d) 按位置传递与按参数传递

23. 如下数组声明语句，正确。

(A) Dim a[3 , 4] As Integer (B) Dim a(3 , 4) As Integer

(C) Dim a(n , n) As Integer (D) Dim a(3 4) As Integer

24. 数学关系3≤x<10

(a) 3<=x<10 (d) 3<=x And <10

25. Rnd

(a) 0 (c) 0.1234 (d) 0.0005

26. 若a$=〞12345678〞,的值为。

(a) 123456 (b) 123445 (c) 8 (d) 6

a=InputBox("示例"，"请输入一个正数"，"1")

a=InputBox("请输入一个正数"，"1"，"示例")

二、填空题：每空2分，共40分。

1．"YES">"yes" 的结果是false 。

2．数学表达式 sin150+3e

x 的VB表达式为 sin(15*180/3.14)+sqr(x+e^3)。

3．若要在运行时将标签Label1的字体大小改为20磅字，对应的设置语句 label1.fontsize=20 。4．表达式Abs(-3) * 10 \ 6 / 2的值为 10 。

5．结构化程序设计的三大结构分别是顺序结构、选择结构和循环结构。

6．计时器控件的Interval属性的默认单位是是毫秒。

7．根据数组中包含的元素个数是否固定，可将数组分为静态数组和动态数组。

8．对Command1编写如下单击事件，单击Command1后在输入对话框中输入整数

75后按回车键，程序的运行结果是 3 。

Private Sub Command1_Click()

Dim x%

x = InputBox("请输入一个整数")

If x > 80 Then

Print 5

ElseIf x > 60 Then

Print 3

Else

Print 1

End If

End Sub

9．下面的循环结构能不能正常结束（能/不能）不能。

i = 3

Do

i = i + 2

Loop Until i Mod 2 = 0

10．对Command1编写如下单击事件，单击Command1的运行结果是 8 。

Private Sub Command1_Click()

Dim a(1 To 10) As Integer

For i = 1 To 10

a(i) = 2 * i

Next i

Print a(a(a(1)))

End Sub

11．InputBox函数返回值的类型是字符串，Time()函数返回值的类型是时间型。12．下面的程序用于求3个数中的最大数。

Private Sub Command1_Click( )

a=Val(InputBox("请输入第一个数"))

b=Val(InputBox("请输入第二个数"))

c=Val(InputBox("请输入第三个数"))

max=a : min=a

If b> max / a Then max=b

If b< min /a Then min=b

If c>max Then max=c

If c

Print "最大值为："；max

Print "最小值为："；min

End Sub

13．程序代码将整型动态数组x声明为具有20个元素的数组，并给数

组的所有元素赋值1。

A dim x() As Integer

Private Sub Command1_Click( )

Redim x(1 to 20)

For j=1 To 20

x(j)=1

Print x(j)

Next j

End Sub

三、程序阅读题：写出下列程序的运行结果（每题5分）

1．Option Base 1

Private Sub Command1_Click()

Dim a

a = Array(2,4, 6, 8)

j = 1

For i = 4 To 1 Step -1

s = s + a(i) * j

j = j * 10

Next i

Print s 2468

End Sub

2．Public Sub f1(n%, ByVal m%)

n = n Mod 10+2

m = m \ 10

End Sub

Private Sub Command1_Click()

Dim x%, y%

x = 98: y = 223

Call f1(x, y)

Print x, y 10 223

End Sub

3. 写出执行下列程序的结果

Private Sub Command1_Click()

x=-7

If Sgn(x) Then

y=Sgn(x^2)

Else

y=Sgn(x)

End If

Print y 1

End Sub

4.写出下列程序运行后的结果

Private Sub Command1_Click()

Const P=3

Dim a(8) As Integer

For i=1 To 8

a(i)=8-i

Next i

Print a(a(P)) 3

End Sub

5. 写出下列程序运行后的结果

Private Sub Command1_Click()

Dim x As Integer,y As Integer

x=10 : y=5

Call f1(x,y)

Print x ; y

End Sub

Private Sub f1(ByVal x1 As Integer, y1 As Integer)

x1=x1+2 : y1=y1+2

End Sub 10 7

6．以下程序段的功能是求数组各元素的和，并求出数组中最大值的位置。

Dim ia(1 To 10) As Integer

Dim max As Integer, imax As Integer

max = ia(1): imax = 1: sum = ia(1)

For i = 2 To 10

sum = sum + ia(i)

If ia(i) > max Then

max = ia(i)

imax = i

End If

Next i

四编程题每题10分，共10分。

1．编写命令按钮Command1的单击事件，随机产生N个[400,500]范围的随机整数，按照从大到小的顺序以每行6个的要求输出。