发布时间 : 星期一 文章2007vb期末试卷A更新完毕开始阅读7bb872ffba0d4a7302763a5a
Dim a(4, 4) As Integer, k As Integer
Dim i As Integer, j As Integer, m As Integer, n As Integer For m = 1 To 4 j = m
For n = 1 To m k = k + 1 a(n, j) = k j = j - 1 Next n Next m
For n = 2 To 4 i = n
For m = 4 To n Step -1 k = k + 1 a(i, m) = k i = i + 1 Next m Next n
For n = 1 To 4 For m = 1 To 4
Text1 = Text1 & Right(\ Next m
Text1 = Text1 & vbCrLf Next n End Sub
11．执行下面的程序后，窗体上显示的第一行是 （17） 、第二行是 （18） 、第三行是 （19） 。 Option Explicit
Private Sub Command1_Click()
Dim I As Integer, n As Integer For I = 5 To 15 Step 2 n = fun1(I, I) Print n Next I Print I End Sub
Private Function fun1(ByVal a As Integer, b As Integer) b = a + b fun1 = a + b
5
End Function
12、下列程序运行后，第二行= （20） ，第三行= （21） 。
Dim ch As String, I As Integer ch = \
For I = 1 To Len(ch)
Ch=Mid(ch,2*I-1,1) & Left(ch,Len(ch)) Print ch Next I
13．下面程序是求出所有的幸运数显示在列表框中，并将幸运数的个数显示到文本框中。凡前两位数字之和等于后两位数字之和的四位数称为幸运数，完善程序。 Private Sub Command1_Click()
Dim i As Integer, n As Integer, n1 As Integer, n2 As Integer For i = 1000 To 9999
（22） n2 = i Mod 100
If sum(n1) = sum(n2) Then
（23） List1.AddItem CStr(i) End If Next i Text1 = n End Sub
Private Function sum(s As Integer) As Integer Dim p As Integer, q As Integer p = s \\ 10
（24） sum = p + q End Function
14. 用递归函数过程实现求两个数的最大公约数。
（1）在窗体上单击，则弹出2个对话框，分别输入2个正整数，并调用函数过程Gcd()； （2）函数过程Gcd()，用来求两个数的最大公约数的递归过程。 完善程序代码： Option Explicit
Private Sub Form_Click()
Dim M As Integer, N As Integer, G As Integer M = InputBox(\请输入M\ N = InputBox(\请输入N\ （25） Print M; \和\的最大公约数是\End Sub
6
Private Function Gcd( （26） ) Dim R As Integer R = X Mod Y If R = 0 Then Gcd = Y Else
X = Y Y = R
（27） End If End Function
15. 下面的程序采用冒泡法排序。随机生成10个两位正整数，按升序排列。请完善程序。
Option Base 1
Private Sub Form_Click() Dim a(10) As Integer
Dim i As Integer, j As Integer, temp As Integer Randomize
Print \排序前：\ For i = 1 To 10
a(i) = （28） Print a(i); Next i Print
For i = 1 To 9
For j = 1 To （29）
If a(j) > a(j + 1) Then '两个相邻元素进行比较 temp = a(j)
（30） a(j + 1) = temp End If Next j Next i
Print \排序后：\ For i = 1 To 10 Print a(i); Next i End Sub
7