VB二十道常见编程(期末操作题)

1.求随机10个整数的最大值、最小值、平均值以及和；Dim a(1 To 10)Private Sub Command1_Click()RandomizePicture1.Print "产生的随机数为："For i = 1 To 10a(i) = Int(Rnd * 99 + 1) …(1~100随机)Picture1.Print a(i);Next iPicture1.PrintEnd SubPrivate Sub Command2_Click()Dim max, min, avemax = a(1)min = a(1)ave = 0.1 * a(1)For i = 2 To 10If a(i) > max Then max = a(i)If a(i) < min Then min = a(i)ave = ave + 0.1 * a(i)Next iPicture1.Print "最大数为："; maxPicture1.Print "最小数为："; minPicture1.Print "平均数为："; aveEnd Sub2.求水仙花数Private Sub Form_Click()Dim a, b, c As Integer 'a(个)b(十)c(百)For a = 0 To 9For b = 0 To 9For c = 1 To 9If a ^ 3 + b ^ 3 + c ^ 3 = a + 10 * b + 100 * c ThenMsgBox 100 * c + 10 * b + aEnd IfNext cNext bNext aEnd Sub3.百元买百鸡问题；Option ExplicitConst a = 5, b = 3, c = 1Private Sub Form_Activate()Dim i As Integer, j As Integer, k As Integer, n As IntegerFor i = 1 To 100For j = 1 To 100For k = 1 To 100If i * a + j * b + k * c = 100 Thenn = n + 1List1.AddItem " 公鸡：" & i & " 母鸡：" & j & " 小鸡：" & k End IfNext: Next: NextMsgBox "共有组合：" & nEnd Sub4.求1000以内的所有完数一个按钮里调用的过程Private Sub Command1_Click()OutputWanNumber 1000End Sub4.'求完数的过程Private Sub Form_Click()Dim i, j As IntegerFor i = 4 To 100temp = 1For j = 2 To i / 2If i Mod j = 0 Thentemp = temp + jEnd IfNext jIf temp = i ThenPrint iEnd IfNext iEnd Sub5.求各位数字之和input a: '输入任意数Dob=a mod 10: '取a的末位数sum=sum+b:'求和a=a \ 10: '去掉末位数loop until a=0print "sum=";sum: '输出end（dim n as stringinput nfor i = 1 to len(n)sum=sum+val(mid$(n,i,1))next iprint sum）6.求最小公倍数Private Sub Form_Load()Form1.AutoRedraw = TrueDim n1%, m1%, m%, n%, r%n1 = InputBox("输入n1")m1 = InputBox("输入m1")If m1 > n1 Then '为了求最小公倍数，增加m,n变量m = m1: n = n1Elsem = n1: n = m1End IfDor = m Mod nIf r = 0 Then Exit Dom = nn = rLoopPrint n1; ","; m1; "的最大公约数为"; nPrint "最小公倍数=", m1 * n1 / nEnd Sub7.求逆序数Private Sub Command1_Click()Dim n As String Dim i As Integer Dim s As String n = Text1For i = 1 To Len(n)st = Mid(n, i, 1)s = st + sNext iText2 = sEnd Sub8Private Sub Command2_Click()Text1 =“”Text2 =“”End SubPrivate Sub Command3_Click()EndEnd Sub8.级数有限项求和问题Private Sub Command1_Click()Dim a As Double '存放阶乘Dim s As Double '存放和Dim i As Integer '循环变量Dim n As Double '存放通项Dim m As Double '存放项数s = 1 '和初值a = 1 '阶乘初值i = 1 '循环变量初值Doa = a * i '阶乘n = 1 / a '通项s = s + n '和i = i + 1 '下个循环Loop Until n < 0.000001 '执行循环直到和比0.000001要小Text1 = Str(s) '和列入text1End SubPrivate Sub Command2_Click()Text1 = ""End SubPrivate Sub Command3_Click()EndEnd Sub9. 求质因子问题Private Sub Command1_Click()Dim N As Integer, I As IntegerN = Val(InputBox("请输入2的整数:"))I = 2DoIf N Mod I = 0 ThenPrint I;N = N \ IElseI = I+ 1End IfLoop While N >1End Sub10. 字符统计Option Base1Option ExplicitPrivate Sub Command1_Click()Dim i as integer，A(26) as integer，n as integer Dim S as string*1,Strl as stringStrl=Text1n=Len(Strl)For i=1 To nS=Mid(Strl,i,1)If UCase(S)>=”A” And UCase(S)<=”Z” Then A(Asc(UCase(S))-64)+1End IfNext iFor i=1 To 26List1.Additem Chr(64+i) & “:” & A(i)Netx iEnd SubPrivate Sub Command_Click()EndEnd Sub11. 判定素数过程Function isprime(Num As Long) As BooleanIf Num < 2 Then isprime = False: Exit FunctionDim i As LongFor i = 2 To Sqr(Num)If (Num Mod i) = 0 Thenisprime = FalseExit FunctionEnd IfNext iisprime = TrueEnd FunctionPrivate Sub Command1_Click()Dim i As LongFor i = 1 To 1000If isprime(i) ThenPrint iEnd IfNext iEnd Sub12.求最大公约数过程；Function Max公约数(A As Long, B As Long) '求出两个数的最大公约数Dim X As Long, Y As Long, K As LongX = IIf(A >= B, A, B) 'x存入最大值Y = IIf(A <= B, A, B) 'y 存入最小值Do '辗转相除法K = X Mod Y: If K = 0 Then Exit DoX = Y: Y = KLoopMax公约数= YEnd Function13.冒泡排序过程Private Sub Command1_Click()Dim a(9) As IntegerDim i As IntegerFor i = 0 To 9a(i) = InputBox("输入整数")NextSort aFor i = 0 To 9Print a(i)NextEnd SubPrivate Sub Sort(ByRef a() As Integer)Dim i As IntegerDim j As IntegerDim t As IntegerFor i = LBound(a) + 1 To UBound(a)For j = UBound(a) To i Step -1If a(j - 1) > a(j) Thent = a(j - 1)a(j - 1) = a(j)a(j) = tEnd IfNextNextEnd Sub14.顺序查找过程Private Sub Command1_Click()Dim i, j, t, a(1 To 10)RandomizePrint "原数组:"For i = 1 To 10a(i) = Rnd * 10Print "a(" & i & ") =" & a(i) & Space(2),If i Mod 2 0 Then PrintNext iPrintFor i = 1 To 9For j = i + 1 To 10If a(j) < a(i) Thent = a(i)a(i) = a(j)a(j) = tEnd IfNext jNext iPrint "从小到大排序后数组:"For i = 1 To 10Print "a(" & i & ") =" & a(i) & Space(2),If i Mod 2 = 0 Then PrintNext iEnd Sub15. 判断回文数过程建一个Text1,Text2,Command1。