2009年春VB期中考试试题(答案版)[1]

试卷代号：

钦州学院2009年春季学期物电系期中考试试卷

课程：Visual Basic 程序设计

注意事项：1. 考前请将密封线内的内容填写清楚。

2. 所有答案请直接答在答题卡上。 3．考试形式：闭卷。

4. 本试卷共三大题，满分100分，考试时间120分钟。

一、单项选择题（2分/每题，共60分） 1.以下可以构成语句的一项是（ B ）: A) 对象名.属性 B) 对象名.方法名 C) 对象名.事件名 D) 对象名.函数名

2.MOVE 方法的一般形式是[对象名.]Move A[,B[,C[,D]]],其中B 指的是

（B ）：

A) Left B) Top C) Width D) Height 3.对象可以识别和响应的某些行为称为（ ）： A) 属性 B) 方法

C) 继承 D) 事件 4.下列续行写法正确的是（ ）： A) C=- A+B B) C= -

A+B

C) C =-

A+B

D) C=-…此处换行

A+B 5.任何控件都具有（ ）属性： A) Text

B) Caption C) Name

D) Forecolor

6.在程序运行期间，如果拖动滚动条上的滚动块，则触发的滚动条的事件是（ ）： A) Move B) Change C) Scroll D) Setfocus

7.能够获得一个文本框中被选取文本的内容的属性是（ ）： A) Text B) Length

C) Seltext D) Selstart

学号 姓名 系别 班别 试室

( 密 封 线 内 不 答 题 )……………………密………………………………封………………………………线……………

8.要使一个命令按钮成为图形命令按钮，则应设置其（）属性值。

A) Picture

B) Style C) DownPicture

D) DisablePicture

9.关于货币型数据，下列说法正确的是（）：

A) 货币型数据有时可以表示成整形数据

B) 货币型数据与浮点型数据完全一样

C) 货币型数据是由数字和小数点组成的字符串

D) 货币型数据是小数点位置固定的实型数

10.下列变量名中，不合法的变量名是（）：

A) Print_Num1

B) Abe C) Const

D) X1_y2_z3

11.表达式Int*(5*Rnd+1)*Int(5*Rnd-1)值的范围是（）：

A) [0,15]

B) [-1,15] C) [-4,15]

D) [-5,15]

12.设a$=”12”，下列语句错误的是（）：

A) Label.visible=text1.visible or text2.visible

B) Text1.text=https://www.360docs.net/doc/e34779909.html,+Chr(13)+a$

C) B=text2.text

D) Label1.fontsize=a$

13.设a，b为整型变量，且均不为0，下列关系表达式中恒成立的是（）：

A) a*b/a*b=1

B) a*b\b*a=1 C) a\b*b+a Mod b=a

D) a\b*b=a

14.下列既可用于输入数据又可用于输出数据的控件是（）控件。

A) Label

B) TextBox C) ListBox

D) OptionButton

15.执行x$=InputBox(“请输入x的值”)时，在弹出的对话框中输入123，在列表框list1选中第1个列表项（数据为456），则下列使y的值是123456的语句是（）：

A) Y=x$+list1.list(0)

B) Y=x$+list1.list(1) C) Y=V al(x$)+V al(list1.list(0))

D) Y=V al(x$)+V al(list1.list(1))

16.已执行语句x=123456.789，输出x的值时要求加千位分隔符，小数点后取2位有效数字。下列格式输出语句正确的是（）：

A) Print format$(x,####,##.##)

B) Print format$(x,”#,###,###.##”) C) Print format$(x,”,######.##”)

D) Print format(x,”######,.##”)

17.下列程序段的执行结果为（）：

A=”HELLOGOOD MORNING”

B=”WANGCHANGLI”

C=Left(A,5)+”!”

D=Right(A,7)

E=Mid(A,6,4)

G=E+”“+D+”!”

H=C+”“+F

Print H+”“+G

A) HELLO! CHANG! GOOD MORNING!

B) HELLO! WANG! GOODMORNING!

C) HELLO! LI! GOODMORNING!

D) HELLO! CHANG! GOOD!MORNING!

18.如下程序：

Private sub form_click()

a=20:b=20:c=120:d=120

Form.line(a,b)-(c,d),,BF

End sub

单击窗体后，窗体上显示的是（）：

A) 一条直线

B) 一个矩形空框C)一个填充了颜色的矩形

D)无任何图形

19.运行下面程序段可以显示（）中的图形：

Form1.cls

For k=1 to 5

Print tab(10-k)

For m=1 to 2 * k - 1

Print “%”;

Next m

Print

Next k

20.有如下程序：

Const c$=”Beijing”

C$=”Shanghai”

Print c$

运行后输出的结果是（）：

A) Beijing

B) Shanghai C) Hebei

D)显示信息出错

21.在窗体上画一个命令按钮，名称为Command1，然后编写如下程序：Private sub command1_click()

For i=1 to 4

For j=0 to i

Print chr$(65+i);

Next j

Print

Next i

End sub

程序运行后，如果单击命令按钮，则在窗体上显示的内容是（）：

A)BB CCC DDDD EEEEE B)A

BB CCC DDDD C)B

CC DDD EEEE D)AA BBB CCCC DDDDD

22.在窗体上画两个名称分别为text1，text2的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：

Private sub command1_click()

Dim x as Integer, n as Integer

x=1

n=0

do while x<20

x=x*3

n=n+1

loop

text1.text=str(x)

text2.text=str(n)

End sub

程序运行后，单击命令按钮，在两个文本框中显示的值分别是（）：

A) 15和1

B) 27和3 C) 195和3

D) 600和4

23.在窗体上画一个名称为text1的文本框和一个名称为command1的命令按钮，然后编

Private sub command1_click()

Dim I as Integer, n as I nteger

For j=0 to 50

i=i+3

n=n+1

if i>10 then exit for

next

text1.text=str(n)

End sub

程序运行后，单击命令按钮，在文本框中显示的值是（）：

A) 2

B) 3 C) 4

D) 5

24.下列各种形式的循环中，输出“*”个数最少的循环是（）：

A) a=5:b=8

Do

Print “ * “

a=a+1

Loop While a

Do

Print :” *”

a=a+1

Loop Until a

Do Until a-b

Print “ * “

b=b-1

Loop

D) a=5:b=8

Do While a-b

Print “ * “

b=b-1

Loop

25.程序执行时，单击窗体后输出结果是（）：

Private sub form_click()

Dim i as Integer

n=8

While n>5

n=n-1

print n;

Wend

End Sub

A) 8 7 6

B) 7 6 5 C) 7 6 5 4

D) 8 7 6 5

26.下列多行结构条件语句正确的是（）：

A) If x>a then print “x>a”

ElseIf x>b then print “x>b”

Else print “x<=a,x<=b”End if B) If x>a

Print “x>a”

ElseIf x>b then

Print “x>b”

C) If x>a then

Print “x>a”

Else If x>b then

Print “x>b”End if D) If x>a then

Print “x>a”

ElseIf x>b then

Print “x>b”End if

27.下列程序段的功能是：给列表框list1加载如下项目：星期一、星期二、星期三、星期

四、星期五、星期六和星期日。给以下程序的空白行选择适当的语句。( )

For i=1 to 7

________________

Next i

A) List1.text=choose(I, “星期一”, “星期二”, “星期三”, “星期四”, “星期五”, “星期六”, “星期日”,)

B) List1.AddItem= choose(I, “星期一”, “星期二”, “星期三”, “星期四”, “星期五”, “星期

六”, “星期日”,)

C) List1. AddItem choose(I, “星期一”, “星期二”, “星期三”, “星期四”, “星期五”, “星期

六”, “星期日”,)

D) List1.RemoveItem choose(I, “星期一”, “星期二”, “星期三”, “星期四”, “星期五”, “星

期六”, “星期日”,)

28.下列程序的运行结果是（）：

s=0:t=0:u=0

For x=1 to 3

For y=1 to x

For z=y to 3

s=s+2

Next z

t=t+2

Next y

u=u+2

Next x

Print s; t; u

A) 20 14 6

B)26 12 6 C) 28 12 6

D) 16 4 3

29.下列程序段的执行结果为（）：

n=0

For i=1 to 3

For j=5 to 1 step -1

n=n+1

Next j,i

A) 12 0 4

B) 15 0 4 C) 12 3 1

D) 15 3 1

30.下列程序的输出结果是（）：

x=0

For i=0 to 1

x=x+1

For j=1 to 5

If j Mod 2=0 then x=x+1

Next j

Next i

Print “x=”;x

A)x=12

B)x=10

C)x=8

D)x=6

二、填空题。请在程序的空白处填写适当的语句（一个空白处只能填写一条语句），使程序完成相应的操作或计算。（2分/每空，共20分）

1.下面的程序计算Sn的值，Sn=a+aa+aaa+…+aaa…a，其中最后一项为n个a。

例如，a=5，n=4时，则：Sn=5+55+555+5555.（a和n的值通过键盘输入）Dim a as Integer, n as Integer, Cout as Integer

Dim Sn as Long,Tn as Long

Cout=0:Sn=0：Tn=0

A=InputBox(“请输入a的值：”)

n=InputBox(“请输入n的值：”)

Do

Tn=Tn+a*10^cout

Sn=Sn+Tn

Cout=Cout+1

Loop while cout

Print a, n, Sn

2.窗体上有文本框text1和若干复选框，其中复选框check1设置文本框text1上显示的文本是否加下划线。Check1的单击事件过程如下：

Private sub check1_click()

If check1.value=1 then 【3】

Text1.FontUnderLine=True

ElseIf check1.value=0 then 【4】

Text1.FontUnderLine=False

End If

End Sub

3.下列程序的功能是：依次将列表框list2中的项目移入列表框list1中，并将列表框list2中移走的项目删除，在程序的空白行填上适当的语句。

Do while list2.listcout>0 【5】

List1.additem list2.list(0)

List2.removeitem 0

Loop

4.在窗体上画一个列表，然后编写如下两个事件过程：

Private sub form_click()

List1.RemoveItem 1

List1.RemoveItem 2

End sub

Private sub form_load()

List1.AddItem “ItemA”

List1.AddItem “ItemB”

List1.AddItem “ItemC”

List1.AddItem “ItemD”

List1.AddItem “ItemE”

End Sub

运行上面的程序，然后单击窗体，列表框中显示的项目是ItemA ItemC ItemE 。

5. 请在横线上写出该行代码的功能。

Dim h, m

Private Sub Form_Load()

Timer1.Interval = 1000 ' 【7】

End Sub

Private Sub Command1_Click()

h = Format(Text1.Text, "00")

m = Format(Text2.Text, "00")

End Sub

Private Sub Timer1_Timer()

Label3.Caption = Time$ ' 【8】

If Mid(Time$, 1, 5) = h & ":" & m Then ' 【9】

For i = 1 To 3

Beep ' 【10】

Next i

End If

End Sub

三、编程题。(共20分)

1.利用随机函数产生20个100~200范围内的随机整数，输出它们的平均值和最大值、最小值以及它们的所在位置。（8分）

Private Sub Command1_Click()

Dim sum As Integer, max As Integer, maxpos As Integer, min As Integer, minpos As Integer, ave As Single

Dim b(0 To 19) As Integer

Randomize Timer

For i = 0 To 19

b(i) = Int(101 * Rnd) + 100

Print b(i);

sum = sum + b(i)

Next i

ave = sum / 20

Print "ave="; ave

max = b(0): maxpos = 0

min = b(0): minpos = 0

For i = 1 To 19

If b(i) > max Then

max = b(i)

maxpos = i

ElseIf b(i) < min Then

min = b(i)

minpos = i

End If

Next

Print "max="; max; "maxpos="; maxpos

Print "min="; min; "minpos="; minpos

End Sub

2.由键盘输入N个数，分别统计其中正数的个数、负数的个数和零的个数，并把结果输出在窗体上。（提示：可以采用数组，参考统计分数段人数的例子）（6分）

Private sub Command1_click()

Dim n%,a%(1 to 3),b%

N=val(inputbox(“请输入要判断的个数”))

For i=1 to n

b=val(inputbox(“请输入一个数”))

if b>0 then

a(1)=a(1)+1

elseif b=0 then

a(2)=a(2)+1

else

a(3)=a(3)+1

end if

next i

print “正数的个数为”;a(1);”个”

print “负数的个数为”;a(3);”个”

print “0的个数为”;a(2);”个”

end sub

3. 设计时窗体如图所示。要求在程序运行时，如果单击“开始”按钮（名称为C1），则窗体上的螃蟹图标每0.1秒向右移动20（初始状态下不移动）；如果单击“停止”按钮

（名称为C2），则螃蟹图标停止移动。请编程实现以上要求。（6分）

Private Sub Form_Load()

Timer1.Interval = 100

Timer1.Enabled = False

End Sub

Private Sub C1_Click()

Timer1.Enabled = True

End Sub

Private Sub C2_Click()

Timer1.Enabled = False

End Sub

Private Sub Timer1_Timer()

Image1.Left = Image1.Left + 20

End Sub

钦州学院2009年春季学期期中考试答题卡

．．．