VB期末测试题答案

VB期末测试题

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

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

2、变量命名规则要求变量名必须以开头，其后可由字母、数字、下划线组成，长度不超过个字符。

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

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

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

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

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+I\5

Next I

A.21√

B.22

C.23

D.24

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

Private Sub Command1_Click()

x=InputBox(x)

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

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

Print y

End Sub

A.4

B.17√

C.18

D.0.25

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

Dim counter

counter=0

While counter<20

counter=counter+1

Wend

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

Text1.Text=Str(n)

Text2.Text=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()

Text1.Text = ""

Text1.SetFocus

For I = 1 To 10

Sum = Sum + I

Next I

Text1.Text = 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

A.Fir√

B.Tue

C.Wed

D.Thu

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

A.框架

B.列表框√

C.复选框

D.单选按钮

2. 假如列表框（List1）有4个数据项，那么把数据项“China”添加到列表框的最后，应使用＿＿＿语句。6

A. List1.AddItem3，”China”

B.List1.AddItem”China”，List1.ListCount-1

C.List1.AddItem”China”，3

D.List1.AddItem”China”，List1.ListCount√

3. 如果列表框（List1）中只有一个项目被用户选定，则执行Debug．Print List1Selected（List1.ListIndex）语句的结果是＿＿＿。14

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

B.在Debug窗口输出True√

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

D.在窗体上输出True

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

A. List1.List(List1.ListCount)

B.List1.List(List1.ListCount-1)√

C.List1.List(ListCount)

D.List1.List(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) = 0Then

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+1To 10

If a(I) > a(j)Then

t=a(I): a(I)=a(j): a(j)=t

End If

Next j

Next I

For I=1 To 10

Print a(I);

Next I

End Sub

2. 编写一个求最大公约数的函数，并调用该函数，程序如下：16 Function gcd(ByVal a As Integer,ByVal b As Integer) As Integer

Dim re as integer

Do While b<>0

re=a mod b

a=b

b=re

Loop

gcd=a

End Function

Sub Command1_Click()

Dim x As Integer,y As Integer, z As integer

X=96

Y=64

Z = gcd(x,y)

Print “结果=”;z

End Sub

1. 函数odd用于判断一个数是否是奇数。当单击命令按钮时，产生[1,9]之间的随机数，调用odd过程，判断该数是否为奇数。如果是则显示“奇数”，否则显示“偶数”。14

Private Sub odd(n As Integer)

Print n;

If n/2<>n\2 Then

Print "奇数"

Else

Print “偶数”

End If

End Sub

Private Sub Command1_Click()

Dim x As Integer

Randomize

x =Int(Rnd*9+1)

odd x

End Sub