《求随机10个整数的最大值.doc》由会员分享，可在线阅读，更多相关《求随机10个整数的最大值.doc（6页珍藏版）》请在金锄头文库上搜索。
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
2、 a(i) max Then max = a(i) If a(i) 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
3、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
4、=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 End Sub 第二大题 1. 判定素数过程 Function isprime(Num As Long) As Boolean If Num = B, A, B) x存入最大值 Y = IIf(A a(j) Then t = a(j - 1) a(j - 1) = a(j) a(j) = t End If Next Next End Sub
