发布时间 : 星期三 文章VB - 经典考试题及答案更新完毕开始阅读
End If
If Then d = b : b = c : c = d End If Print a, b, c
34、以下程序用来建立一个10*10矩阵，该矩阵两条对角线上的元素为1，其余元素为0，请补充完该程序。该程序运行结果见下图。 Private Sub Form_click() Dim s(10, 10) As Integer For n = 1 To 10 For m = 1 To 10
If Or Then s(n, m) = 1 Else
s(n, m) = 0 End If Next m Next n
For n = 1 To 10 For
Picture1.Print Tab(m * 3); s(n, m); Next m Print Next n End Sub
35、以下是一个判断一元二次方程ax2+bx+c=0根的方式的程序，请补充完该程序。
提示：①当a<>0 是，有两个根。设delta=b2-4ac 当delta>0时，有两个不同的实根；当delta=0时，有两个相同的实根；当delta<0时，有两个不同的虚根。
②当a=0时，b<>0时，有一个根。 ③当a=0时，方程无意义。 Private Sub Command2_Click()
Dim a As Single ,b As Single, c As Single, sb As Single,xb As Single, re As Single a = InputBox(“请输入a的值”) b = InputBox(“请输入b的值”)
25
c = InputBox(“请输入c的值”) If Then
delta = b ^ 2 - 4 * a * c re = -b / (2 * a) If Then
sb = Sqr(delta) / (2 * a) Print “方程有两个实根” ElseIf delta = 0 Then
Print “方程有两个相等实根” Else
xb = Sqr(-delta) / (2 * a) Print “方程有两个虚根” End If Else
If Then ygz = -b / c
Print “方程仅有一个根” Else
Print “方程无意义” End If End If End Sub
四、阅读程序写结果
1、下列程序的输入值为15时，其运行结果为( )。 Dim a as integer
A = InputBox(\请输入a的值\Select case A Case 1 to 4 Print \ Case 5 to 10 Print \ Case IS=15 Print \ Case else Print \End select
2、下列程序段的执行结果是（ ）。 A = 0 : b = 0
For I = -1 To -2 Step -1 For j = 1 To 2 b = b + 1 Next j a = a + 1 Next I Print a; b
3、有如下一个函数过程： 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
运行该程序，单击命令按纽，输出结果是（ ）。 4、在窗体上添加一命令按纽，名为Command1，然后为该命令按纽编写如下事件过程，该过程执行结果为（ ）。 Option base 1
Private Sub Command2_Click() Dim a As Variant Dim s As integer a = Array(1, 2, 3, 4) j = 1
For I = 1 To 4 Step 1 s = s + a(I) * j j = j * 10 Next I Print s End Sub
26
5、下列程序的执行结果是( )。 Private Function P(N As Integer) For I = 1 To N SUM = SUM + 1 Next I P = SUM End Function
Private Sub Command1_Click() S = P(1) + P(2) + P(3) + P(4) Print S; End Sub
6、下列程序段的执行结果为( )。 有如下SUB过程：
Sub s(x As Single, y As Single) t = x x = t / y y = t Mod y End Sub
在窗体上添加一个命令按纽，然后编写如下事件过程：
Private Sub Form_Click() Dim a As Single Dim b As Single a = 5 b = 4 s a, b Print a, b End Sub
则程序运行后，单击命令按纽，输出的结果为 ( )
7、在窗体上添加一命令按纽，名为Command1，然后为该命令按纽编写如下事件过程，该过程执行结果为（ ）。 Option base 1
Private Sub Command2_Click() Dim a As Variant a = Array(1, 2, 3, 4) j = 1
For I = 4 To 1 Step -1
s = s + a(I) * j j = j * 10 Next I Print s End Sub
8、下列命令按纽事件过程执行后，输出结果是： For m = 1 To 1000 Step 2 a = 10
For n = 1 To 20 Step 2 a = a + 2 Next n Next m Print a
9、在窗体上添加一个命令按钮，名为command1，一文本框，名为text1,则执行如下事件过程后，文本框中的输出为（ ）。 For I = 1 To 4 For j = 1 To 3 x = 3
For k = 1 To 2 x = x + 3 Next k Next j Next I
Text1.Text =str( x)
10、在窗体上建立三个文本框，名称分别为Text1、Text2和Text3，一个命令按纽，名称为command1，如果在TEXT1中输入数200，在TEXT2中输入数150，则执行下列程序后，TEXT3的值为（ ）。 Private Sub Command1_Click() Dim m, n As Integer
m = Val(Text1.Text) : n = Val(Text2.Text) If n * m = 0 Then Exit Sub End If If m < n Then
t = m: m = n: n = t End If Do
27
r = m Mod n m = n n = r
Loop While r <> 0 Text3.Text = m End Sub
11、下列程序段的执行结果是（ ）。 K = 0
For j = 1 To 2 For I = 1 To 3 k = I + 1 Next I
For I = 1 To 7 k = k + 1 Next I Next j Print k 12.函数如下：
Function Total (x As Integer) As Long Dim ss As Long, I As Integer ss=0
For I=1 To x ss=ss+1 Next I
Total=ss End Function
调用它的事件过程如下： Private Sub Form_Load() Show
Dim I As Integer,sum As Long For I=1 to 10
sum=sum+total(I) next I
print \和数为：\end sub
则该程序的运行结果为( )。
13、下列的程序段执行后，X的值为（ ）。 X = 0
For I = 1 To 10
For j = I To 10 x = x + 1 Next j Next I Print x
14、单击命令按钮之后，下列程序代码的执行结果为（ ）。
Private Function P(N As Integer) Static sum For I = I To N sum = sum + 1 Next I P = sum End Function
Private Sub Command1_Click() S = P(1) + P(2) + P(3) + P(4) Print S; End Sub
15、下列程序段的执行结果为（ ）。 Dim M(10), N(10) I = 3
For T = 1 To 5 M(T) = T
N(I) = 2 * I + T Next T
Print N(I); M(I)
16、在窗体上画两个文本框(其Name 属性分别为Text1和Text2)和一个命令按钮(其Name属性为Command1)，然后编写如下事件过程： 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
程序运行后，单击命令按钮，在两个文本框中显
28
示的值分别为
17、有如下一个函数过程:
Function max(x As Single, y As Single) If x > y Then max = x Else max = y End If End Function
调用它的事件过程如下: Private Sub Command1_Click() Dim I As Integer Dim j As Integer Dim a As Integer
I = Val(InputBox(\请输入第一个数据\ j = Val(InputBox(\请输入第二个数据\ a = max((I), (j)) Print a End Sub
则该程序执行后,输入数据50,100,结果为( )。 18、下列程序段的执行结果为（ ）。 X = 5:y = -20 If Not x > 0 Then x = y - 3 Else
y = x + 3 Print x - y; y -x End If
19、有如下函数过程：
Function gys(ByVal x As Integer, ByVal y As Integer) As Integer Do While y <> 0 reminder = x Mod y x = y y = reminder Loop gys = x End Function
以下是调用该函数的事件过程，该程序的运行结