发布时间 : 星期一 文章VB - 经典考试题及答案更新完毕开始阅读
果是（ ）。
Private Sub Command7_Click() Dim a As Integer Dim b As Integer
a = 100:b = 25:x = gys(a, b) Print x End Sub
20、以下程序段中Do…Loop循环执行的次数为（ ）。 N=5 do
if n mod 2=0 then n=n\\2 else n=n*3+1 end if Loop until n=1
21、在窗体上添加一个命令按纽，名为COMMAND1，事件过程如下：
Private Sub Command1_Click() x = 0
Do Until c = -1
a = InputBox(\请输入a的值\ a = Val(a)
b = InputBox(\请输入b的值\ b = Val(b)
c = InputBox(\请输入c的值\ c = Val(c) a = a + b + c Loop Print a End Sub
程序运行后，单击命令按纽，依次在输入对话框中输入5,4,3,2,1,-1后，输出的结果是（ ）。 22、以下程序输出的结果为（ ）。 X = 1: y = 4 Do Until y > 4 x = x * y y = y + 1
29
Loop Print x
23、假定有如下的Sub过程：
Sub S（x As Single,y As Single）
t = x x =t/y y =t Mod y End Sub
在窗体上画一命令按钮，然后编写如下事件过程
Private Sub Commandl_Click ( )
Dim a As Single Dim b As Single a =5 : b =4 S a,b Print a,b End Sub
程序运行后，单击命令按钮，输出结果为 。 24、 阅读下面的程序段：
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 的值为 。 25、执行下面的程序段后，x 的值为 。
x=5
For i=1 To 20 Step 2
x=x+i\\5 Next i 26、下列程序段运行后，输出结果是（ ）。
B = 1
Do While b < 7 b = b * (b + 1) Loop
Print b
27、以下程序的运行结果是（ ）。 Private Sub Command1_Click() Dim x As Integer For I = 1 To 10 If I Mod 3 = 0 Then x = x + I End If Next I Print x
End Sub
28、对窗体编写如下代码： Option Base 1
Private Sub Form_KeyPress(KeyAscii As Integer)
a=Array(237,126,87,48,498) m1= a(1) m2=1
If KeyAscii=13 Then For I=2 To 5 If a(I)>ml Then m1=a(I): m2=I End If Next I End If Print m1 Print m2 End Sub
程序运行后，按回车键，输出结果为( )。 29、函数和调用它的事件过程如下，则该程序运行结果为( )。
Function func(a As Integer, b As Integer) As Integer
Static m As Integer Static I As Integer m = 0 : I = 2
I = I + m + 1 : m = I + a + b func = m End Function
Private Sub Command1_Click() Dim k As Integer Dim m As Integer Dim p As Integer k = 4: m = 1 p = func(k, m) Print p; p = func(k, m) Print p End Sub
30
30、在窗体上画一个命令按钮(其Name属性为Command1)，然后编写如下代码： Private Sub Command1_Click() Dim n() As Integer Dim a,b As Integer
a=InputBox(\ b=InputBox(\ ReDim n(a To b)
For k=Lbound(n,1) To Ubound(n,1) n(k)=k
Print\ Next k End Sub
程序运行后，单击命令按钮，在输入对话框中分别输入2和3，输出结果为( )。 31、下列程序段的执行结果为( )。 Dim A(10, 10) For I = 2 To 4 For J = 4 To 5 A(I, J) = I * J Next J Next I
Print A(2, 5) + A(3, 4) + A(4, 5)
32、下列是一个计算1到100的奇数的和的程序，请补充完该程序。
Private Sub Command1_Click() Dim s As Long Dim x As Integer s = 0
For x= ( ) Step -2 s = s + x Next x Print s End Sub
33、有如下过程：
Sub SS(ByVal X, ByRef Y, Z) X = X + 1 Y = Y + 1 Z = Z + 1
End Sub
执行该过程的事件过程如下： Private Sub Command1_Click() A = 1 :B = 2: C = 3 Call SS(A, B, C) Print A; B; C End Sub
该程序的执行结果是( )。 34、有如下一个Sub过程： Sub pb(b() As Integer) For I = 1 To 4 b(I) = 2 * I Next I End Sub
在窗体上添加一个命令按纽，名为Command1，事件过程如下，则运行结果是( )。 Private Sub Command1_Click() Dim a(1 To 4) As Integer
a(1) = 5 :a(2) = 6 : a(3) = 7 : a(4) = 8 pb a()
For I = 1 To 4 Print a(I); Next I End Sub
35、单击窗体时，下列程序代码的执行结果为( )。
Private Sub Value(ByVal m As Integer, ByVal n As Integer) m = m * 2 n = n - 5 Print m; n End Sub
Private Sub Form_Click() Dim x As Integer Dim Y As Integer x = 10 Y = 15
Call Value(x, Y) Print x; Y
31
End Sub 36、阅读程序：
Function F(a As Integer) b=0 Static c b=b+1 c=c+1 f=a+b+c End Function
Private Sub Command1_Click () Dim a As Integer a=2
For I=1 To 3 Print F(A), Next I End Sub
运行上面的程序，单击命令按钮，输出结果为：____
37、下列程序段的执行结果是( )。 Z = \For I = 6 To 2 Step -3
u = String(I, z) :v = Left(z, I) w = Mid(z, I, I)
x = Right(z, I) : Y = x + w + v + u Y = Right(Y, 1) Next I Print Y
38、下列程序段的执行结果为( )。 Dim X(3, 5) For I = 1 To 3 For J = 1 To 5
X(I, J) = X(I - 1, J - 1) + I + J Next J Next I Print X(3, 4)
五、编程题
1、 输入3个数，要求按从小到大输出。 2、 输入10个学生记录（每个记录包括学号、成
绩），组成记录类型数组，统计出平均成绩，及成绩最低的学生的学号和成绩。
3、写一程序将一个数插入到已经有序（设从小到大排序）的数组中，使数组还继续保持有序。假设原数组中的数为-12，-4，10，23，68。 4、求两个数m和n的最大公约数和最小公倍数，要求用一个函数过程来实现。
5、有一个数列，它的头三项是0，0，1，以后每个数都是其前三个数的和。编程在窗体上每行输出5个数，输出此数列，直到最后一个数超过1010为止。
6、鸡翁一，值钱五，鸡母一，值钱三，鸡雏一，值钱一，百元买百鸡，问鸡翁、鸡母、鸡雏各几何？
7、用随机函数产生100个20-100之间的随机整数，赋予A数组。以每行输出10个元素的紧凑格式在图形框中输出，并在标签框中输出数组元素中的最大值、最小值和它们的平均值。 8、编写程序，求S=A！+B！+C！。阶乘的计算分别用SUB过程和FUNCTION过程两种方法来实现。 9、把两个按升序（即从小到大）排列的数列a(1)，（2），……、a(n)和b(1)、b(2)……、b(m)，合并成一个仍为升序排列的新数列。
10、编写一个函数，将一个十进制整数转换成2，8，16进制字符串。
11、编程序输出在指定范围内的3个随机函数，范围在文本框中输入。
12、编写计算阶乘的Funciton过程，利用ex的下述近似公式计算e（直到最后一项小于10-6为止）。
10=3+7，……。
15、设有10个数存放在数组A中，分别为A(1)、A(2)、A(3)、A(4)、……、A(10)。分别用选择法和冒泡法排序。
16、找出1～1000之间的全部“同构数”。 17、若基本工资大于等于600玩，增加工资20%，若小于600大于等于400元，则增加工资15%，若小于400元则增加工资10%，请根据用户输入的基本工资，计算出增加后的工资。
18、编写一个程序，输入某仓库的货物数据。建立一个顺序文件。每次从键盘上输入一种货物的数据。包括货物号、名称、单价、进库日期和数量。建立文件后，输出全部的内容。 19、税务部门征收所得税，规定如下：
1) 2) 3) 4)
收在200元以内，免征; 收入在200～400元以内的，超过收入超过400玩的部分，纳税5%。 当收入达5000元或超过进，将4%
200的部分纳税3%。
税金改为5%。 编写程序实现上述操作。
20、编写程序，演示列表框控件的基本操作。在窗体上建立两个列表框，两个命令按钮。程序运行后，在每一个列表框中选择所需要的项目，单击“添加”按钮，把所选择的项目移到第二个列表框中。如果单击“删除”按钮，则执行相反的操作。在第二个列表框中，允许同时选择多个项目。要求在每个列表框的下面用标签控件显示各自的Style和Sorted属性。
21 、编写一个倒计时程序，运行时，单击“设置倒计时间”按钮，将弹出一个输入框，提示输
ex?1?xxxx??????1!2!3!n!23n
入以分钟为单位的时间，若单击“开始倒计时”按钮，将开始倒计时，在标签上显示剩余时间并按秒刷新。
22、从键盘上输入4个数，编写程序，计算并输出这4个数的和及平均值。通过InputBxo函数输入数据，在窗体上显示及平均值。
23、输人三角形的三条边a、b、c的值根据其数值判断能否构成三角形。若能还要显示三角形的32
13、编制判断是否同时被17与37整除的Funciton过程。输出1000~2000之间所有能同时被17与37整除的数。
14、编制判断素数的Sub过程或Function过程，验证哥德巴赫猜想：一个不小于6的偶数可以表示为两个素数之各，例如6=3+3，8=3+5，