VB程序基础编程

　 VB 期末考试编程题覆盖范围：

　第一题要求（12 分）：

　不用过程，覆盖以下算法：

　1． 求随机 10 个整数的最大值、最小值、平均值以及和； 2． 求水仙花数； 3． 百元买百鸡问题； 4． 求 1000 以内的所有完数； 5． ． 求各位数字之和; 6． 求最小公倍数； 7． 求逆序数； Private Sub Command3_Click() Dim s As String, i As Integer, j As Integer, n As Integer s = Text2.Text n = 0 For i = 1 To Len(s) - 1

　 For j = i + 1 To Len(s)

　 If Mid(s, i, 1) > Mid(s, j, 1) Then

　 n = n + 1

　 End If

　 Next Next Print n End Sub 8． 级数有限项求和问题； 9． 求质因子问题； 10． 字符统计。

　Private Sub Command5_Click() Dim s As String, i As Integer, n As Integer, ch As String s = Text2.Text n = 0 For i = 1 To Len(s)

　ch = Mid(s, i, 1)

　If ch >= "0" And ch <= "9" Then

　 n = n + 1

　 End If Next Print n

　End Sub 第二题要求（18 分）：

　指定编写过程并调用此过程，覆盖以下算法: 1． 判定素数过程； Function f 素数(ByVal n As Integer) As Boolean

　 Dim i As Integer For i = 2 To n - 1

　 If n Mod i = 0 Then Exit Function Next f 素数 = True End Function 2． 求最大公约数过程； Function f 最大公约数(ByVal x As Integer, ByVal y As Integer) As Integer Dim i As Integer For i = x To 1 Step -1

　 If x Mod i = 0 And y Mod i = 0 Then

　 f 最大公约数 = i

　 Exit Function

　 End If Next End Function 3． 冒泡排序过程； Sub s 冒泡法(x() As Integer) Dim i As Integer, j As Integer, c As Integer, n As Integer For i = UBound(x) - 1 To LBound(x) Step -1

　 n = 0

　 For j = LBound(x) To i

　 If x(j) > x(j + 1) Then

　 c = x(j)

　 x(j) = x(j + 1)

　 x(j + 1) = c

　 n = n + 1

　 End If

　 Next

　 If n = 0 Then Exit Sub Next End Sub 4． 顺序查找过程； Function f 顺序查找(x() As Integer, ByVal n As Integer) As Integer Dim i As Integer For i = LBound(x) To UBound(x)

　 If x(i) = n Then

　 f 顺序查找 = i

　 Exit Function

　 End If Next End Function 5． 判断回文数过程； Function f 回文数(ByVal x As Long) As Boolean

　 Dim s As String, ch As String, i As Integer, r As String s = CStr(x) r = "" For i = 1 To Len(s)

　 ch = Mid(s, i, 1)

　 r = ch & r Next If r = s Then f 回文数 = True End Function 6． 递归函数求阶乘； Function f 阶乘(ByVal n As Integer) As Double If n = 0 Or n = 1 Then

　 f 阶乘 = 1 Else

　 f 阶乘 = n * f 阶乘(n - 1) End If End Function 7． 递归函数求 Fibonacci 数列； Function fib(ByVal n As Integer) As Long If n = 1 Or n = 2 Then

　 fib = 1 Else

　 fib = fib(n - 1) + fib(n - 2) End If End Function 8． 矩阵靠边元素之和； 9． 矩阵不靠边元素之和； Function f 靠边元素之和(x() As Integer) As Long Dim i As Integer, j As Integer For i = LBound(x, 1) To UBound(x, 1)

　 For j = LBound(x, 2) To UBound(x, 2)

　 If i = LBound(x, 1) Or i = UBound(x, 2) Or j = LBound(x, 2) Or j = UBound(x, 2) Then

　 f 靠边元素之和 = f 靠边元素之和 + x(i, j)

　 End If

　 Next Next End Function Function f 不靠边元素之和(x() As Integer) As Long Dim i As Integer, j As Integer For i = LBound(x, 1) To UBound(x, 1)

　 For j = LBound(x, 2) To UBound(x, 2)

　 If Not (i = LBound(x, 1) Or i = UBound(x, 2) Or j = LBound(x, 2) Or j = UBound(x, 2)) Then

　 f 不靠边元素之和 = f 不靠边元素之和 + x(i, j)

　 End If

　 Next Next End Function 10． 矩阵转置。

　Sub s 转置(x() As Integer, y() As Integer) Dim i As Integer, j As Integer For i = LBound(y, 1) To UBound(y, 1)

　 For j = LBound(y, 2) To UBound(y, 2)

　 y(i, j) = x(j, i)

　 Next Next End Sub

　其它题型：

　单选题 40 题，每题 1 分共 50 分，填空题 10 空，每空 1 分，共 20 分。

推荐访问:编程 基础 程序