VB测试题(必做部分)

VB测试题(必做部分)

V B必做测验及答案

目录

实验4选择结构程序设计.... 错误!未定义书签。实验6循环结构程序设计 (11)

实验7数组 (17)

实验9常用控件 (21)

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<b Then

d=a:a=b:b=d

EndIf

If a<c Then

d=a:a=c:c=d

EndIf

If_____Then

d=b:b=c:c=d

EndIf

Print a,b,c 答案：b<c

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