《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. 求质因子问题
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 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
