VB期末测试题答案

x=InputBox(x)

If x^2<15 Then y=1/x

一、填空题：（10 * 2 = 20）

If x^2>15 Then y=x^2+1

1、VB中的整型数在计算机中占 个字节，表示数的范围

Print y

是 。

End Sub

2、变量命名规则要求变量名必须以 开头，其后可由字母、

A.4 B.17√ C.18 D.0.25

数字、下划线组成，长度不超过 个字符。

8. 运行下面程序后，在弹出的消息窗口中显示的是______。3

Private Sub Form_Click()

3、CHR（ASC（“ABCD”））的值是 LOG（EXP

Dim counter

（3））的值是

counter=0

4、RND函数产生的随机数区间是

While counter<20

5、逻辑运算符中，运算级别最高的是

counter=counter+1

6、语句X=X+1的含义是

Wend

VB期末测试题

7、Print方法具有 和 功能。

8、语句X = 5 = 3中，第一个“=”是 号，第二个“=”

是 号

9、要定义一个单精度符号常量PI，其值为3.1416应该使用的语句

是：

10、有如下语句：Dim x as Integer，y ，z as String * 8，

则声明的变量x，y，z的类型分别是 型、 型和

型。

二、选择题（）

3. 以下程序的输出结果是______。8

Private Sub Command1_Click()

a=100

Do

s=s+a

a=a+1

Loop Until a>100

print a

End Sub

A.100 B.120 C.201 D.101√

4. 以下程序的循环次数是______。11

Private Sub Command1_Click()

For j=8 To 35 Step 3

Print j;

Next j

End Sub

A.10 ‘int(35-8)/3+1√ B.9 C.27 D.28

5. 执行下面程序段后，变量a的值为______。20

For I=1 To 3

For j=1 To I

For k=j To 3

a=a+1

Next k

Next j

Next I

A.3 B.9 C.14√ D.21

6. 执行下面程序段后，变量x的值为______。20

x=5

For I=1 To 20 step 2

x=x+I5

Next I

A.21√ B.22 C.23 D.24

7. 当输入4时，以下程序的输出结果是______。7

Private Sub Command1_Click()

MsgBox counter

End Sub

A.0 B.21 C.20√ D.19

9. 运行下面程序后，在窗体中显示的是______。4

Private Sub Form_Click()

a$="*": b$="$"

For k=1 To 3

x$=String$(Len(a$)+k,b$) ‘指定长度重复字符的字符串。

Print x$;

Next k

Print

End Sub

A.、*** ** **** B.*$*$*$ C.1*$2*$3*$ D.、

$$$$$$$$$√

10. 下面程序运行后，单击命令按钮，在两个文本框中显示的值分别为

______。7

Private Sub Command1_Click()

x=0

Do While x<50

x=(x+2)*(x+3)

n=n+1

Loop

=Str(n)

=Str(x)

End Sub

A.1和0 B.2和72√ C.3和50 D.4和168

11. 执行下面的程序段后，I的值为______。3

s = 2

For I = 3.2 To 4.9 Step 0.8

s = s + 1

Next I

A.6.4 B.5.6√ C.4.8 D.7.2

12. 执行下面的程序段后，变量S的值为______。3

S＝5

For I ＝2.6 To 4.9 Step 0.6

S=S+1

Next I

A.7 B.8 C.9√ D.10

13. 在窗体中添加一个文本框（其中Name属性为Text1）,然后编写如

下代码：2

Private Sub Form_click()

= ""

us

For I = 1 To 10

Sum = Sum + I

Next I

= Sum

End Sub

上述程序运行后，单击窗体，则运行的结果______。

A.在文本框Text1中输出55√ B.在文本框Text1中输出0

C.出错 D.在文本框Text1中输出不定值

14. 运行下面程序后，在弹出的消息窗口中显示的是______。2

Private Sub Form_Click()

k=0

Do While k<70

k=k+2

k=k*k+k

a=a+k

Loop

MsgBox a

End Sub

A.64 B.72 C.78√ D.148

1. 语句Dim a(3,-3 to 0,3 to 6)声明的数组a有______元素。3

A.12 B.27 C.64√ D.80

2. 用语句Dim a(-3 to 5) As Integer定义的数组的元素个数是______。6

A.7 B.8 C.9√ D.10

1. 以下程序的输出结果是______。12

Option Base 1

Private Sub Command1_Click()

Dim a(10),p(3) As Integer

k=5

For I=1 To 10

a(I)=I

Next I

For I=1 To 3

p(I)=a(I*I)

Next I

For I=1 To 3

k=k+p(I)*2

Next I

Print k

End Sub

A.33√ B.28 C.35 D.37

2. 运行下面程序后，在弹出的消息窗口中显示的是______。

Private Sub Form_Click()

Dim Week,Day

Week=Array("Mon","Tue","Wed","Thu","Fri","Sat","Sun")

Day=Week(2)

Day=Week(4)

MsgBox Day

End Sub

√

1. 下列控件中，没有Caption属性的是＿＿＿。4

A.框架 B.列表框√ C.复选框 D.单选按钮

2. 假如列表框（List1）有4个数据项，那么把数据项“China”添加到

列表框的最后，应使用＿＿＿语句。6

A. m3，”China” m”China”，

unt-1

m”China”，3 m”China”，

unt√

3. 如果列表框（List1）中只有一个项目被用户选定，则执行Debug．Print

List1Selected（dex）语句的结果是＿＿＿。14

A.在Debug窗口输出被选定的项目的索引值 B.在 Debug窗口

输出True√

C.在窗体上输出被选定的项目的索引值 D.在窗体上输出True

4. 引用列表框（List1）最后一个数据项应使用＿＿＿。8

A. (unt) (unt-1) √

(ListCount) (ListCount-l)

三、程序填空()

9. 请用正确的内容填空。7

下面程序的作用是利用随机函数产生10个(1～200)之间的随机整数，

打印其中7的整数倍的数并求其和。

Private Sub Form_Click()

For I=1 To 10

x=Int(Rnd*200+1)

If (x mod 7) = 0 Then

k1=k1+x

Print x

End If

Next I

Print

Print "k1=";k1

End Sub

14. 以下程序的功能是：从键盘上输入若干个学生的考试分数，统计并

输出最高分数和最低分数，当输入负数时结束输入，输出结果，请将程

序补充完整。3

Private Sub Form_Click()

Dim x, amax, amin As Single

x = InputBox("Enter a score")

amax = x

amin = x

Do While x>=0

If x > amax Then

amax = x

End If

If amin > x Then

amin = x

End If

x = InputBox("Enter a score")

Loop

Print "max="; amax, "min="; amin

End Sub

1. 以下程序的功能是：用Array函数建立一个含有8个元素的数组，然

后查找并输出该数组中元素的最大值。请填空。8

Option Base 1

Private Sub Command1_Click()

Dim arr1, Max as Integer

arr1 = Array(12, 435, 76, 24, 78, 54, 866, 43)

Max = arr1(1)

For I = 1 To 8

If arr1(I) > Max Then Max = arr1(I)

Next I

Print "最大值是: "; Max

End Sub

2. 请用正确的内容填空。下面程序用“选择”法将数组a中的10个整

数按升序排列。13

Option Base 1

Private Sub Form_Click()

Dim a

a = Array(678, 45, 324, 528, 439, 387, 87, 875, 273, 823)

For I=1 To 9

For j= I+1 To 10

If a(I) > a(j) Then