第二次考试及答案.doc

Visual Basic程序设计（2015.4.28）
姓名：

一、单项选择题（2分/每题，共40分）
1.以下可以构成语句的一项是（ ）:
A) 对象名.属性
B) 对象名.方法名
C) 对象名.事件名
D) 对象名
2.对象可以识别和响应的某些（ ）
A) 属性
B) 方法
C) 继承
D) 事件
3.下列续行写法正确的是（ ）：
A) C=-
A+B
B) C= -
A+B
C) C =-
A+B
D) C=-‘此处换行
A+B

4.任何控件都具有（ ）属性：

A) Text
B) Caption
C) Name
D) Forecolor

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

A) 货币型数据有时可以表示成整形数据
B) 货币型数据与浮点型数据完全一样
C) 货币型数据是由数字和小数点组成的字符串
D) 货币型数据是小数点位置固定的实型数

6.下列变量名中，不合法的变量名是（ ）：
A) Print_Num1
B) Abe
C) Const
D) X1_y2_z3
7.下列既可用于输入数据又可用于输出数据的控件是（ ）控件。
A) Label
B) TextBox
C) ListBox
D) OptionButton
8已执行语句x=123456.789，输出x的值时要求加千位分隔符，小数点后取2位有效数字。下列格式输出语句正确的是（ ）：
A) Print format$(x,####,##.##)
B) Print format$(x,”#,###,###.##”)
C) Print format$(x,”,######.##”)
D) Print format(x,”######,.##”)
9.下列程序段的执行结果为（ ）：
A=”HELLOGOOD MORNING”
B=”WANGCHANGLI”
C=Left(A,5)+”!”
D=Right(A,7)
E=Mid(A,6,4)
F=Mid(B,Len(B)-6,5)+”!”
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!
10.运行下面程序段可以显示（ ）中的图形：
Form1.cls
For k=1 to 5
Print tab(10-k)
For m=1 to 2 * k - 1
Print “%”;
Next m
Print
Next k

11.有如下程序：
Const c$=”Beijing”
C$=”Shanghai”
C$=”Hebei”
Print c$
运行后输出的结果是（ ）：

A) Beijing
B) Shanghai
C) Hebei
D)显示信息出错

12.在窗体上画一个命令按钮，名称为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

13.在窗体上画两个名称分别为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

14.在窗体上画一个名称为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

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

A) a=5:b=8
Do
Print “ * “
a=a+1
Loop While a<b
B) a=5:b=8
Do
Print :” *”
a=a+1
Loop Until a<b
C) a=5:b=8
Do Until a-b
Print “ * “
b=b-1
Loop
D) a=5:b=8
Do While a-b
Print “ * “
b=b-1
Loop

16.程序执行时，单击窗体后输出结果是（ ）：
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

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

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”
End if
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

18.下列程序的运行结果是（ ）：
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

19.下列程序段的执行结果为（ ）：
n=0
For i=1 to 3
For j=5 to 1 step -1
n=n+1
Next j,i
Print n;j;i

A) 12 0 4
B) 15 0 4
C) 12 3 1
D) 15 3 1

20.下列程序的输出结果是（ ）：
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
二、填空题。请在程序的空白处填写适当的语句（一个空白处只能填写一条语句），使程序完成相应的操作或计算。（4分/每小题，共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<n
Print a, n, Sn
2、执行下面的程序段后，s的值为__19___ 。
s=5
For i=2.6 To 4.9 Step 0.6
s=s+i
Next i
print s
3、A的绝对值大于等于B同时不等于C的表达式是abs(a)>=b and abs(a)< >c__.
4、下列程序执行时，从键盘上依次输入123和234，则程序的输出结果是_357_。
Dim a As Integer,b As Integer
a=InputBox("请输入第一个整数"," ")
b=InputBox("请输入第二个整数"," ")
print a+b
5.程序功能是将一个由字母与数字相混的字符串中选出字符串，并把该字符串在窗体上打印出来，请完善下面程序。
Option Explicit
Private Sub Command1_Click( )
Dim s As String,k As Integer
Dim r As String,i As Integer,t As String
s=“aa11bb22Cc33”
For i=1 To Len(s)
t=______mid(s,I,1)
If t>=“a”And t<=“z”Or t>=“A”And t<=“Z” Then
r=r & t
End If
Next i
Print r
End Sub
Print a+b
三 、判断题，正确打“√”，错误打“×”（20分）

1．在VB中，控件的事件只能通过用户的操作触发。（ ）

2．字符型数据以双引号作为定界符，输出时双引号本身不会显示在屏幕上。（ ）

3．保存工程时，窗体文件和工程文件的文件名不能相同。（ ）

4．改变控件的大小，可以使用鼠标和键盘，还可以通过修改代码。（ ）

5．同一过程中，数组和简单变量可以同名。（ ）

6．VB函数中的参数可以是常量、变量、表达式，还可以是另一个函数。（ ）

7．代码Const Number1=15：Number1=10合法。（ ）

8．允许将块If-Then语句结构中的所有语句都写在一行上（ ）

9．定义数组语句Dim a(b) As Integer 是正确的（ ）

10．在过程调用中，“实参表”和“形参表”中对应的变量名不必相同，但是变量的个数必须相等，而且实际参数的类型必须与相应形式参数的类型相符。（ ）
1．× 2．√ 3．× 4．√ 5．×

6．√ 7．× 8．× 9．× 10．√

三、编程题。(共20分，每小题10分)
1．编写程序，判断一个正整数（>=3）是否为素数。（需要判断的数是从键盘输入的）
Private Sub Form1_Click()
Dim n As Integer
n = InputBox("请输入一个正整数（>=3）")
k = Int(Sqr(n))
i = 2
Swit = 0
While i <= k And Swit = 0
If n Mod i = 0 Then
Swit = 1
Else
i = i + 1
End If
Wend
If Swit = 0 Then
Print n; "是一个素数"
Else
Print n; "不是一个素数"
End If
End Sub
2. 找出100～999三位数中的“水仙花”数，计算其个数。所谓水仙花数，是指各位数字立方和等于该数本身，如153是一个水仙花数，因为153=13 + 53 + 33。
程序中采用计数方法n=n+1（或称“计数器”）来记录有多少个“水仙花”数。
Private Sub Form_load()
Dim k As Integer, a As Integer, b As Integer
Dim c As Integer, n As Intege
Show
n = 0
Print "三位数的水仙花数是："
For k=100 To 999
a = Int(k/100) '求百位数
b = Int((k-100*a)/10) '求十位数
c = k Mod 10 '求个位数
If k=a^3 + b^3 + c^3 Then
Print k ‘输出水仙花数
n=n+1 '对满足条件的数进行计数
End If
Next k
Print "一共有" & n & "个水仙花数"
End Sub

第 10 页 共 10 页