VB测试题(必做部分)

VB测试题(必做部分)

V B必做测验及答案

目录

实验4选择结构程序设计 (3)

实验6循环结构程序设计 (10)

实验7数组 (16)

实验9常用控件 (20)

实验4选择结构程序设计

1.若整型变量a的值为2、b的值为3，则下列程序段执行后整型变量c的值为______。

If a>5 then

If b<4 then

c=a-b

Else

c=b-a

End if

ElseIf b>3 then c=a*b

Else

c=a mod b

End if

a) 2

b) -1

c) 1

d) 6 答案：A

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

A=100:b=50

If a>b Then

a=a-b

Else

b=b+a

End if

Print a

a) 50

b) 100

c) 200

d) 10 答案：A

3.以下程序输出1到1000之间所有的偶数之和，请补充完该程序。

Private Sub Command_Click()

Dim x As Double

For I=0 To 1000

If ____ Then

x=x+I

End If

Next I

Print x

End Sub

a) i Mod 2 = 0

b) x Mod 2 = 0

c) I Mod 2 <> 0

d) x Mod 2 <> 0 答案：A

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

x=Int(Rnd+4)

Select Case x

Case 3

Print "优秀"

Case 4

Print "良好"

Case 5

Print "合格"

Case Else

Print "不合格"

End Select

A）优秀

B）良好

C）合格

D）不合格

答案：B

5.以下程序段的执行结果是_____。

X=2:y=1

If x*y<1 Then

y=y-1

Else

y=-1

Print y-x>0

End If

a) Ture

b) False

c) -1

d) 1 答案：B

6.设计两个CheckBox，一个显示粗体，一个显示斜体，通过对CheckBox的选择，在一个文本框中显示相应效果的文本，完成下列程序。

Private Sub Form_Load()

Check1.Caption="显示粗体"

Check2.Caption="显示斜体"

Text1.Text="Visual Basic 6.0"

End Sub

Private Sub Check1_Click()

If Check1.Value =1 Then

Text1.FontBold=True

Else

Text1.FontBold=False

End If

End Sub

Private Sub Check2_Click()

If Check2.Value=1 Then

Text1. FontItalic =True

Else

Text1. FontItalic =False

End If

End Sub

7.下列程序的作用是将三个数按从大到小进行排序，请补充完该程序。

If a

d=a:a=b:b=d

EndIf

If a

d=a:a=c:c=d

EndIf

If_____Then

d=b:b=c:c=d

EndIf

Print a,b,c 答案：b

8.在下列关于 Select Case 的叙述中，错误的是（）选择一个答案

a. Case 10 To 100 表示判断Is 是否介于10 与100之间

b. Case 〝abc〞,〝ABC〞表示判断Is 是否和〝abc〞、〝ABC〞两个字符

串中的一个相同

c. Case -7,0,100 表示判断Is 是否等于字符串〝-7，0，100〞

d. Case 〝X〞表示判断Is 是否为大写字母X

9.下列程序的执行结果是（）

X=5

Y=-20

If Not X>0 Then X=Y-3 Else Y=X+3

Print X-Y;Y-X

选择一个答案

a. 3 -3

b. -3 3

c. 5 -8

d. 25 -25

10.下列说法正确与否：

If语句中的条件表达式中只能使用关系或逻辑表达式

选择一个答案

a. 正确

b. 错误

11.以下说法正确与否：

在情况语句中，各分支（即Case表达式）的先后顺序无关。选择一个答案

a. 错误

b. 正确

12.以下说法正确与否：

有If 则必有与之对应的Endif。

选择一个答案

a. 错误

b. 正确

实验6循环结构程序设计

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

Dim S As Integer,n As Integer

S=0:n=1

Do While n<=100

S=S+n

n=n+1

Loop

Print S

a) 5050

b) 2500

c) 3000

d) 4000 答案：A

2. 以下程序计算2到50间所有偶数的和，请补充完该程序

Sub mult()

Dim Sum As Integer

Sum=0

Dim I as integer

For___to 50

If I MOD 2=___Then___

Next I

Print sum

End Sub 答案：I=2#0#SUM=SUM+I

3.下列程序段的执行时，共循环____次。 For a=0 To 1

For b=1 To 2

For c=1 To 3

I=I+1

Next c

Next b

next a 答案：12

4.下列程序的执行结果是____。

K=0

For I=1 To 3

a=I^I^K

print a;

Next I

a) 1 1 1

b) 1 2 3

c) 0 0 0

d) 1 4 9 答案：A

5.下列程序运行后，输出的结果为______。 B=1

Do while (b<40)

b=b*(b+1)

Loop

Print b

a) 42

b) 39

c) 6

d) 1 答案：A

6.下列程序执行后，变量s的值为______。

Dim s As long ,x As Integer

s=0:x=1

Do While (x<10)

s=s+x

x=x+2

Loop

Print s

a) 10

b) 25

c) 50

d) 100 答案：B

7.当变量x=2,y=5时，以下程序的输出结果为____。

Do until y>5

x=x*y

y=y+1

loop

print x

a) 2

b) 5

c) 10

d) 20 答案：C

8.执行下面的程序，在窗体上显示的输出结果的第一行是（15），第二行是（16）。

Private Sub Form_Click()

Dim a As Integer, b As Integer, c As Integer

c = -2

For a=6 To 1 Step c

a = a +1

c = c-a

b = b+1

Next a

Print b

Print c

End Sub

答案：6 -29

9.要实现同样的循环控制，在Do While … Loop和Do … Loop While循环结构中给定的循环条件一样的。该结论是否正确：

选择一个答案

a. 正确

b. 错误

10.Do … Loop While语句实现循环时，不管条件真假，首先无条件地执行一次循环。

该结论是否正确：

选择一个答案

a. 错误

b. 正确

11.Do … Loop Until语句实现循环时，只要条件是假，循环将一直进行下去。该结论是否正确：

选择一个答案

a. 错误

b. 正确

12.For循环语句正常结束（即不是通过Exit For语句退出循环或强制中断）其循环控制变量的值一定大于“终值”，并等于“终值”+“步长”。

该结论是否正确：

选择一个答案

a. 正确

b. 错误

13.如果有多重Do循环嵌套，位于最里层循环体语句中的Exit Do语句可以退出所有的循环。

该结论是否正确：

选择一个答案

a. 正确

b. 错误

1.在窗体上画一个命令按钮（其Name属性为Command1），然后编写如下代码：

Private Sub Command1_Click()

Dim a(5)

For i=0 To 4

A(i)=i+1

t=i+1

If t=3 Then

Print a(i)

A(t-1)=a(i-2)

Else

A(t)=a(i)

End if

If i=3 Then a(i+1)=a(t-4)

A(4)=1

Print a(i)

Next i

End Sub

程序运行后，单击命令按钮，输出结果是 1 2 3 1 4 1 。

2.设执行以下程序段时依次输入1、3、5，执行结果为_____。

Dim a(4) As Integer

Dim b(4) As Integer

For K =0 To 2

a(K+1) =Val(InputBox(“请输入数据："))

b(3-K) =a(K+1)

Next K

Print b(K)

a) 1

b) 3

c) 5

d) 0 答案：A

3. 如果有数组声明 Dim a(10) As Integer，则该数组共有______个元素。

a) 10

b) 11

c) 9

d) 不确定答案：B

4.数组的下标可取的变量类型是_____。

a) 日期型

b) 字符型

c) 数值型

d) 可变型答案：C

5.用以下语句 Dim b(-2 to 4)as string 所定义的数组的元素个数是_______个。

a) 2

b) 4

c) 6

d) 7 答案：D

6. 下列程序是将数组a的元素倒序交换，即第1个变为最后一个，第2个变为倒数第2个，设数组中有10个元素完成下列程序。

Private Sub Backward(a())

Dim i As Integer, Tmp As Integer

For i=1 To 5

Tmp=a(i)

Next i

End Sub

7. 如下数组声明语句，正确的是______。

a) dim a[3,4] as intiger

b) dim a(3,4) as string

c) dim a(n,n) as single

d) dim a(3 4) as integer 答案：B

8.下列关于数组的说法正确的是（）

选择一个答案

a. 在VB中，数组只能在模块中定义，不能在过程中定义

b. 在VB中，一个数组中所包含的元素只能是相同类型的数据

c. 在定义数组时，数组的每一维元素的个数必须是常数，不能是变量或表

达式

d. 同普通变量一样，数组也可以不定义，先使用

9.使用 Dim 定义数组时，其数组的上界或下界，可使用已赋值的变量。该结论是否正确：

选择一个答案

a. 正确

b. 错误

10.数组的下界一定是大于 0 的整数。该结论是否正确：

选择一个答案

a. 错误

b. 正确

11.可以在程序中多次使用 ReDim 语句来改变动态数组的大小、维数和类型。该结论是否正确：

选择一个答案

a. 错误

b. 正确

12.可以使用 Option Base 2 语句把数组下标下界的默认值设置为 2 。该结论是否正确：

选择一个答案

a. 正确

b. 错误

1. 所有控件都有的属性是_______，在程序中作为对象的标识引用。

a) Caption

b) Value