20道vb操作题(含代码和图片).docVIP

不用过程，覆盖以下算法(10题)： 1. 求随机10个两位整数的最大值、最小值、平均值以及和 Dim s(1 To 10) As Integer Private Sub Command1_Click() Dim i As Integer For i = 1 To 10 s(i) = Int(Rnd * 90) + 10 List1.AddItem s(i) Next i End Sub Private Sub Command2_Click() Dim i As Integer Dim max As Integer, min As Integer, sum As Integer max = s(1) min = s(1) sum = 0 For i = 1 To 10 sum = sum + s(i) Next i For i = 2 To 10 If s(i) max Then max = s(i) If s(i) min Then min = s(i) Next i Text1 = max Text2 = min Text3 = sum / 10 Text4 = sum End Sub 2.求水仙花数 这道题用列表框做的，建议再练习下用文本框做 Private Sub Command1_Click() Dim i As Integer, a As Integer, b As Integer, c As Integer For a = 1 To 9 For b = 0 To 9 For c = 0 To 9 i = a * 100 + b * 10 + c If i = a ^ 3 + b ^ 3 + c ^ 3 Then List1.AddItem i Next c Next b Next a End Sub Private Sub Command2_Click() List1.Clear ←注意列表框的清除语句是Clear！！！ End Sub 3.百元买百鸡 Private Sub Command1_Click() Dim x As Integer, y As Integer, z As Integer List1.AddItem 公鸡 母鸡 小鸡 For x = 1 To 20 For y = 1 To 33 z = 100 - x - y If 5 * x + 3 * y + z / 3 = 100 Then List1.AddItem CStr(x) Space(6) CStr(y) Space(6) CStr(z) End If Next x Next y End Sub 4.求1000内所有完数 一个数的所有因子（包含1，但除这个数本身）之和与这个数相等即为完数 Private Sub Command1_Click() Dim i As Integer Dim j As Integer Dim intSum As Integer For i = 1 To 1000 intSum = 0 For j = 1 To Int(i / 2) If i Mod j = 0 Then intSum = intSum + j Next j If intSum = i Then List1.AddItem i Next i End Sub 5.求各位数字之和 Private Sub Command1_Click() Dim k As String, i As Integer, s As Integer k = CStr(Text1) For i = 1 To Len(k) s = s + Val(Mid(k, i, 1)) Next i Text2 = s End Sub 6.求最小公倍数 Private Sub Command1_Click() Dim m As Integer, n As Integer, r As Integer, a As Integer, b As Integer m = Text1 n = Text2 a = m b = n Do r = a Mod b a = b b = r Loop Until r = 0 Text3 = m * n / a ←此题实际是利用最大公约数求最小公倍数，a即为最大公约数 End Sub 7.求逆序数 Private Sub Command1_Click() Dim n As String, s As String Dim i As Integer n = Text1 For i = Len(n) T