发布时间 : 星期二 文章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