《VB期末范围题总汇》

1、VB期末范围题总汇 1 求随机10个整数的最大值、最小值、平均值以及和； Dim a(1 To 10) Private Sub Command1_Click() Randomize Picture1.Print "产生的随机数为：" For i = 1 To 10 a(i) = Int(Rnd * 99 + 1) Picture1.Print a(i); Next i Picture1.Print End Sub Private Sub Command2_Click() Dim max, min, ave max = a(1) min = a(1) ave = 0.1 *

2、a(1) For i = 2 To 10 If a(i) > max Then max = a(i) If a(i) < min Then min = a(i) ave = ave + 0.1 * a(i) Next i Picture1.Print "最大数为：" max Picture1.Print "最小数为：" min Picture1.Print "平均数为：" ave End Sub 2.求水仙花数 Private Sub Form_Click() Dim a, b, c As Integer 'a(个

3、)b(十)c(百) For a = 0 To 9 For b = 0 To 9 For c = 1 To 9 If a 3 + b 3 + c 3 = a + 10 * b + 100 * c Then MsgBox 100 * c + 10 * b + a End If Next c Next b Next a End Sub 3.百元买百鸡问题； Option Explicit Const a = 5, b = 3, c = 1 Private Sub Form_Activate() Dim i As Integer, j As Integer, k As Integer, n As In

4、teger For i = 1 To 100 For j = 1 To 100 For k = 1 To 100 If i * a + j * b + k * c = 100 Then n = n + 1 List1.AddItem " 公鸡：" & i & " 母鸡：" & j & " 小鸡：" & k End If Next: Next: Next MsgBox "共有组合：" & n End Sub 求1000以内的所有完数 一个按钮里调用的过程 Private

5、 Sub Command1_Click() OutputWanNumber 1000 End Sub 4.'求完数的过程 Private Sub Form_Click() Dim i, j As Integer For i = 4 To 100 temp = 1 For j = 2 To i / 2 If i Mod j = 0 Then temp = temp + j End If Next j If temp = i Then Print i End If Next i End Sub 5.求各位数字之和 input a:'输入任意数 do b=a mod 10:'

6、取a的末位数 sum=sum+b:'求和 a=a 10:'去掉末位数 loop until a=0 print "sum="sum:'输出 end （dim n as string input n for i = 1 to len(n) sum=sum+val(mid(n,i,1) next i print sum） 6.求最小公倍数 Private Sub Form_Load() Form1.AutoRedraw = True Dim n1%, m1%, m%, n%, r% n1 = InputBox("输入n1") m1 =

7、 InputBox("输入m1") If m1 > n1 Then '为了求最小公倍数，增加m,n变量 m = m1: n = n1 Else m = n1: n = m1 End If Do r = m Mod n If r = 0 Then Exit Do m = n n = r Loop Print n1; "," m1; "的最大公约数为" n Print "最小公倍数=", m1 * n1 / n End Sub 7.求逆序数（感觉题目类型太多） 8. 级数有限项求和问题（题目类型太多） 9

8、. 求质因子问题 Private Sub Command1_Click() Dim N As Integer, I As Integer N = Val(InputBox("请输入2的整数:") I = 2 Do If N Mod I = 0 Then Print I; N = N I Else I = I 1 End If Loop While N 1 End Sub 10. 字符统计 Option Base1 Option Explicit Private Sub Command1_Click() Dim i as integer，A(26) as integer，n

9、as integer Dim S as string*1,Strl as string Strl=Text1 n=Len(Strl) For i=1 To n S=Mid(Strl,i,1) If UCase(S)>=”A” And UCase(S)<=”Z” Then A(Asc(UCase(S)-64)+1 End If Next i For i=1 To 26 List1.Additem Chr(64+i) & “:” & A(i) Netx i End Sub Private Sub Command_Click() End End Sub 第二大题 1. 判

10、定素数过程 Function isprime(Num As Long) As Boolean If Num < 2 Then isprime = False: Exit Function Dim i As Long For i = 2 To Sqr(Num) If (Num Mod i) = 0 Then isprime = False Exit Function End If Next i isprime = True End Function Private Sub Command1_Click() Dim i As Long For i = 1 To 1000 If isprime

11、(i) Then Print i End If Next i End Sub 2.求最大公约数过程； Function Max公约数(A As Long, B As Long) '求出两个数的最大公约数 Dim X As Long, Y As Long, K As Long X = IIf(A >= B, A, B) 'x存入最大值 Y = IIf(A <= B, A, B) 'y 存入最小值 Do '辗转相除法 K = X Mod Y: If K = 0 Then Exit Do X = Y: Y = K Loop Max公约数 = Y End F

12、unction 3.冒泡排序过程 Private Sub Command1_Click() Dim a(9) As Integer Dim i As Integer For i = 0 To 9 a(i) = InputBox("输入整数") Next Sort a For i = 0 To 9 Print a(i) Next End Sub Private Sub Sort(ByRef a() As Integer) Dim i As Integer Dim j As Integer Dim t As Integer For i = LBound(a) + 1 To UBound(a) For j = UBound(a) To i Step -1 If a(j - 1) > a(j) Then t = a(j - 1) a(j - 1) = a(j) a(j) = t End If Next Next End Sub 4顺序查找过程 Private Sub Command1_Click() Dim i, j, t, a(1 To 10) Randomize Print "原数组:" For i = 1 To 10 a(