《vb期末范围题总汇》

VB期末范围题总汇 VB期末范围题总汇 1. 求随机10个整数的最大值、最小值、平均值以及和; Dim al To 10 Private Sub CommandIClick Randomize Picturel. Print产生的随机数为 For i 1 To 10 a i Int Rnd *991 Picturel. Print ai Next i Picturel. Print End Sub Private Sub Command2_Click Dim max, min, ave max a 1 min a 1 ave 0. 1 * al For i 2 To 10 If ai max Then max ai If ai min Then min ai ave ave 0. 1 * ai Next i Picturel. Print ”最大数为max Picturel ,Print ”最小数为min Picturel ,Print ”平均数为ave End Sub 2. 求水仙花数 Private Sub Click（） Dim a, b, c As Integer a （个）b （十）c （百） For a 0 To 9 For b 0 To 9 For c 1 To 9 If a 3 b 3c3a10b 100 * c Then MsgBox 100 * End If c 10 * b a Next c Next b Next a End Sub 3. 百兀买百鸡问题； Option Explicit Const a 5, b 3, c 1 Private Sub Activate（） Dim i As Integer, j As Integer, k As Integer, n As Integer For i 1 To 100 For j 1 To For k 1 To 100 100 If i * a j n n 1 * b k * c 100 Then Listl. Additem 公鸡 i 母鸡 j 小鸡 k End If Next Next Next MsgBox ”共有组合 n End Sub 求1000以内的所有完数 一个按钮里调用的过程 Private Sub CommandIClick Ou t pu tWanNumb er 1000 End Sub 4. 求完数的过程 Private Sub 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. 求各位数字之和 a输入任意数 do ba mod 10取a的末位数 sumsumb求和 aa \ 10去掉末位数 loop until a0 print sum; sum输出 end dim n as string n for i 1 to len n sumsumval mid n, i, 1 next i print sum 6. 求最小公倍数 Private Sub _Load l. AutoRedraw True Dim nl, ml, m, n, r nl Box输入 nl ml Box输入 ml If ml nl Then 为了求最小公倍数，增加m, n变量 m ml n nl Else m nl n ml End If Do r m Mod n If r 0 Then Exit Do m n n r Loop Print nl; ml的最大公约数为；n Print ”最小公倍数二”,ml * nl / n End Sub 7. 求逆序数感觉题目类型太多 8. 级数有限项求和问题（题目类型太多） 9. 求质因子问题 Private Sub CommandIClick Dim N As Integer, I As Integer N Vai Box C请输入 2 的整数 I 2 Do If N Mod I 0 Then Print I N N \ I Else 1 11 End If Loop While N 1 End Sub 10. 字符统计 Option Basel Option Explicit Private Sub CommandIClick Dim i as integer, A26 as integer, n as integer Dim S as string*, Strl as string StrlTextl nLenStrl For il To n SMidStrl, i, 1 If UCaseS A” And UCaseS〈 Z” Then A Asc UCase S -64 1 End If Next i For il To 26 Listl. Additem Chr 64i Ai Netx i End Sub Private Sub CommandClick End End Sub 第二大题 1. 判定素数过程 Function isprimeNum As Long As Boolean If Num 2 Then isprime False Exit Function Dim i As Long For i 2 To SqrNum If Num Mod i 0 Then isprime False Exit Function End If Next i isprime True End Function Private Sub CommandIClick Dim i As Long For i 1 To 1000 If isprimei Then Print i End If Next i End Sub 2. 求最大公约数过程； Function