《VB期末范围题总汇》.docVIP

《VB期末范围题总汇》 《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 * 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(个)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 Integer 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 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:取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 = 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. 求质因子问题