程序设计语言VB填空题及答案

《程序设计语言VB》填空题
1. Private Sub Command1_Click()
a=3
b=1
For i=1 To 3
f=a + b
a=b
b=f
Next i
Print f
End Sub
以上程序段运行后，f的结果为。

2.设有如下通用过程：
Public Sub fun(a() As Integer, x As Integer)
For i = 1 To 5
x = x + a(i)
Next
End Sub
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程:
Private Sub Command1_Click()
Dim arr(5) As Integer, n As Integer
For i = 1 To 5
arr(i) = 2* i
Next
fun arr, n
Text1.Text = Str(n)
End Sub
程序运行后,单击命令按钮,则在文本框中显示的内容是。

3.阅读下列程序段
Option Explicit
Private Sub Command1_Click()
Dim str1 As String
Dim str2 As String
str1 = "ABCDEFG"
MySub str1, str2
Print str2
End Sub
Private Sub MySub(ByVal a As String, b As String) Dim c As String
Dim i As Integer
For i = Len(a) To 1 Step -1
c = c+ Mid(a, i, 1)
Next
b= c
End Sub
程序运行后，“print”语句的输出结果是___ _。

4.在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click()
x = Int(Rnd) + 6
If x ^ 2 > 25 Then y = x ^ 2 + 5
x = Int(Rnd) + 4
If x ^ 2 < 25 Then y = x ^ 2
x = Int(Rnd) + 5
If x ^ 2 = 25 Then y = x ^ 2 - 5
Print y
End Sub
程序运行后，单击命令按钮，其输出结果为__ _。

5.阅读下列程序段
Private Sub Command3_Click()
Print pl(3, 6)
End Sub
Public Function pl(x As Single, n As Integer) As Single
If n = 0 Then
pl = 1
Else
If n Mod 2 = 1 Then
pl = x * x + n
Else
pl = x * x - n
End If
End If
End Function
程序运行后，单击该命令按钮，屏幕上显示的结果是______。

6.阅读下列程序段
Private Sub Command2_Click()
For i = 1 To 3
x = 1
For j = 1 To 3
x = 3 + j
For k = 1 To 3
x = x + 3
Next k
Next j
Next i
Print x
End Sub
运行程序后，单击命令按钮，输出结果是。

7.阅读下列程序段
Private Sub Command1_Click()
Dim i As Integer
Dim k As Integer
k = 0
For i = 0 To 10
k = k + 1
i = i + k
Next
Print k; i
End Sub
请问其循环体共执行了次，i的值是。

8. Private Sub Command1_Click()
Dim i As Integer
Dim x As Integer
i = 1
x = 2
Do
i = i + 1
x = x + i
Loop Until i >= 7
Print i , x
End Sub
单击命令按钮后，i和x的值分别是、。

9.下面程序运行后，a、b、c、d的结果分别。

Private Sub Command1_Click()
Dim a, b, c, d As Integer
Do
For a = 1 To 2
b = b + 1
If a = 1 Then b = 0
c = 5
d = d + 2
Next a
Loop Until d > 10
Print a, b, c, d
End Sub
10.假定有如下的Sub过程：
Sub S(x As Single, y As Single)
t = x
x = t + x
y = t - y
End Sub
Private Sub Command2_Click()
Dim a As Single, b As Single
a = 6
b = 4
Call S(a, b)
Print a, b
End Sub
程序运行后，单击命令按钮输出结果为。

11.阅读下列程序段
Dim a(3, 3) As Integer
For m = 1 To 3
For n = 1 To 3
a(m, n) = (m - 1) * 3 + n
Next n
Next m
For m = 2 To 3
For n = 1 To 2
Print a(m, n);
Next n
Next m
程序运行后，显示结果为：。

答案
1. 9
2. 30
3. GFEDCBA
4. 20
5. 3
6. 15
7. 4、14
8. 7、29
9. 3、1、5、12
10. 12、2
11. 4、5、7、8。