1、1、 生成隨機數Private Sub Command1_Click()Dim m As Integer, n As Integerm = Int(Rnd * 900+ 100) n = Int(Rnd * 900 + 100)Text1.Text = m Text2.Text = n End Sub 2、 生成30個數組3、 Dim a(30) As IntegerPrivate Sub Command1_Click()randomize For i = 1 To 30 a(i) = Int(Rnd * 101 + 100)Text1.Text = Text1.Text & Str(

2、a(i) Next I End Sub 如果在text生成多行數組需要將text的multiline屬性改為true3、在picture里生成數組For i=1 to 5 for j =1 to 4A(i,j)=int(rnd*90)+10Picture1.print a(i,j); 特別注意英文分號Next j picture1.print next i4、生成無重復的兩位隨機數Option Explicit強制變量說明Option Base 1數組下限從1開始Private Sub Command1_Click()Dim a(10) As Integer, n As Integer, i

3、As Integer, k As Integer Randomizea(1) = Int(90 * Rnd + 10)k = 1 Do n = Int(90 * Rnd + 10)For i = 1 To k If a(i) = n Then Exit ForNext I If i > k Then k = k + 1a(k) = n End If Loop Until k = 10For i = 1 To 10 Text1 = Text1 & Str(a(i)Next I End Sub5、產生20個2040之間的兩位數，統計不同數據出現的次數 Option ExplicitD

4、im A(1 To 2, 1 To 10) As Integer, b(20 To 40) As Integer, i%, j%, n%Private Sub Command1_Click()For i = 1 To 2 For j = 1 To 10A(i, j) = Int(20 * Rnd + 20.5)Text1 = Text1 & A(i, j) Next jText1 = Text1 & vbCrLfNext I End SubPrivate Sub Command2_Click()For i = 1 To 2 For j = 1 To 10b(A(i, j) =

5、b(A(i, j) + 1Next j Next iFor i = 1 To 2 For j = 1 To 10Next j Next I For n = 20 To 40If b(n) <> 0 Then List1.AddItem n & "出現：" & b(n) & "次" Next n End Sub6、判斷自首數Private Sub Command1_Click()Dim x As Long x = Val(Text1.Text)If verify(x) Then調用程序判斷List1.AddItem x

6、ElseMsgBox Str(x) & "不是自守數。", vbInformation End If End SubPrivate Function verify(x As Long) As BooleanDim y As Long, s As Integer, z As Integerverify = Falsey = x * x s = Len(CStr(x)If x = Val(Right(CStr(y), s) Then verify = True End Function7、最大公約數1Private Sub Command2_Click()Dim m A

7、s Integer, n As Integer, s As Integerm = val(Text1.Text) n = (Text2.Text) Text3.Text = lcr(m, n) End SubFunction lcr(ByVal x As Integer, ByVal y As Integer) Dim a As Integera = x Mod y If a = 0 Then lcr = y Else x = y y = a lcr = lcr(x, y) End If End Function最大公約數2、Private Sub Form_Click() Dim m As

8、Integer, n As Integer, r As IntegerDo m = InputBox("輸入一個數m") n = InputBox("輸入一個數n") If m <> 0 And n <> 0 Then Exit Do Print "data error!" Loop Do r = m Mod n m = n n = r Loop Until r = 0Print "最大公約數是:" m End Sub8、最小公倍數Option ExplicitPrivate Sub Com

9、mand1_Click()Dim m As Integer, n As Integer, r As Integerm = Val(Text1.Text)n = Val(Text2.Text)Do r = m Mod n If r <> 0 Then m = n n = r Else Exit DoEnd If Loop Text3.Text = Val(Text1.Text) * Val(Text2.Text) / n End Sub9、判斷素數并記錄有幾個素數Private Sub Command3_Click()Dim m As Integer, n As Integer, i

10、 As Integer, j As Integer, s As Integerm = Text1.Text n = Text2.Text s = 0 For i = 1 To m - 1If m Mod i = 0 Then Exit For Next I If m = i Then s = s + 1 End If For j = 1 To n 1 If n Mod j = 0 Then Exit For Next jIf n = j Then s = s + 1 End If Text4.Text = s End Sub篩選素數For i = 1 To 30 For j = 2 To a(

11、i)-1If a(i) Mod j = 0 Then Exit For Next j If a(i) = j Then Text4.Text = Text4.Text & Str(a(i) End If Next I End Sub求N以內素數Private Sub Form_Click()Dim n As Integer, m As Integer, k As Integer, i As Integer n = InputBox("輸入一個數n")m = 3 Do k = Int(Sqr(m) i = 2 Do If m Mod i = 0 Then Exit D

12、o Else i = i + 1 End If Loop Until i > k If i >= k + 1 Then Print mm = m + 1 Loop Until m > n End Sub求大于N的最小素數Do n = n + 1 For i = 2 To n - 1If n Mod i = 0 Then Exit For Next iIf i >= n Then Text2.Text = nEnd If Loop Until Text2.Text <> ""Label2.Caption = "大于" &

13、amp; Val(Text1.Text) & "的最小素數是" End Sub10、找出100-999間的升序數（降序數）Option ExplicitPrivate Sub Command1_Click()Dim i As Integer, r1 As Integer,r2 As Integer, r3 As IntegerFor i = 100 To 999可以換成數組一樣 r1 = i 100 r2 = (i 10) Mod 10 r3 = (i Mod 100) Mod 10If r1 < r2 And r2 < r3 Then List1.Ad

14、dItem iEnd If Next I End Sub11、交換兩個數temp=text1.text: text1.text=text2.texttext2.text=temp Text1.text=val(text1.text)+val(text2.text)Text2.text=text1.text-text2.textText1.text=text1.text-text1.text12、求矩陣最大(最小)元素及所在行列 For i = 1 To 4 For j = 1 To 4 a(i, j) = Int(10 * Rnd) + 1 Picture1.Print a(i,j); Nex

15、t j Picture1.Print Next I max = a(1, 1)For i = 1 To 4 For j = 1 To 4 If a(i, j) > max Then max = a(i, j) row = I col = j End If Next j Next I Text1.Text = max Text2.Text = row Text3.Text = col End Subinputbox輸入矩陣，求出每一行最大最小數Private Sub Command1_Click()Dim a(4, 3) As Integer, i As Integer, j As Int

16、eger Dim max As IntegerFor i = 1 To 4 For j = 1 To 3a(i, j) = InputBox("請輸入矩陣的第(" & i & " , " & j & ")元素", "輸入矩陣元素")Picture1.Print a(i, j) Next jPicture1.Print Next iFor i = 1 To 4 max = a(i, 1) For j = 2 To 3If max < a(i, j) Then max = a(i,

17、 j) Next jPicture1.Print "第" & i & "行最大的是：" "a(" & i & " , " & j & ")=" maxNext I End Sub12、冒泡排序Private Sub cmdsort_Click()Dim rndarray(10) As Integer, i%, j%, temp As Integer RandomizePicture1.Print "排序前："For i = 1

18、To 10rndarray(i) = Int(90 * Rnd + 10)Picture1.Print rndarray(i); Next iFor i = 1 To 9 For j = 1 To 10 - iIf rndarray(j) > rndarray(j + 1) Thent = rndarray(j + 1)：rndarray(j + 1) = rndarray(j) rndarray(j) = t End If Next j Next iPicture1.Print Picture1.Print "排序后:"For i = 1 To 10 Picture

19、1.Print rndarray(i);Next I Picture1.Print End SubPrivate Sub Command2_Click()Picture1.Cls List1.Clear Text1.SetFocusEnd Sub13、產生10個2050之間的兩位數，用二分法查找數，并輸出排序后的位置Option Base 1 Dim rndarry(10) As IntegerPrivate Sub Command1_Click(Index As Integer) Picture1.ClsDim i As Integer, j As Integer, temp As Inte

20、gerRandomize Picture1.Print "排序前："For i = 1 To 10 rndarry(i) = Int(90 * Rnd + 10)Picture1.Print rndarry(i);Next iFor j = 1 To 10 For i = 1 To 10 - jIf rndarry(i) > rndarry(i + 1) Thentemp = rndarry(i) rndarry(i) = rndarry(i + 1)rndarry(i + 1) = temp End If Next iNext j Picture1.PrintPic

21、ture1.Print "排序后" For i = 1 To 10Picture1.Print rndarry(i);Next iPicture1.Print End SubPrivate Sub Command2_Click(Index As Integer)Dim sl as Integersl = 0 For i = 1 To 10If rndarry(i) = Val(Text1.Text) ThenText2.Text = "要查找的數是第" & i & "個數據。"sl = 1 End If Next iI

22、f sl = 0 Then Text2.Text = "不存在！"End Sub14、求和Private Sub Command3_Click() Text3.Text = sum(a) End SubFunction sum(b() As Integer) For i = 1 To 30 sum = sum + a(i) Next I End Function15、隨機二維數組每一行每一列元素之和Dim a(4, 5) As IntegerPrivate Sub Command1_Click()For i = 1 To 4 For j = 1 To 5a(i, j) =

23、Int(9 * Rnd) + 1Picture1.Print a(i, j); Next jPicture1.Print Next I End SubPrivate Sub Command2_Click()For j = 1 To 5 s = 0 For i = 1 To 4s = s + a(i, j) Next I Text1 = Text1 & Str(s)Next j End SubPrivate Sub Command3_Click()For i = 1 To 4 s = 0 For j = 1 To 5s = s + a(i, j) Next jText2 = Text2

24、& Str(s) & Chr(13) & Chr(10) Next I End Sub16、求階乘Private Sub Command1_Click() Dim n As Integer, s As Integer, i As Integern = InputBox("輸入一個數n:") s = 1 For i = 1 To n s = s * I Next I Print n & "個數累乘積為：" & s End Sub17、求勾股數Option ExplicitPrivate Sub Command1_Cl

25、ick()Dim a As Long, b As Long, c As LongFor a = 1 To 100 For b = 1 To 100For c = 1 To 100If a * a + b * b = c * c ThenList1.AddItem a & "," & b & ","& c End If Next c Next b Next a End Sub18、判斷是否為偶數（奇數）Private Sub cmdjudge_Click()Dim n As Integer n = Text1.TextIf

26、n Mod 2 = 0 Then MsgBox n & "是偶數"Else MsgBox n & "不是偶數"End If End Sub19、生成10個1099之間的整數，并分別求出其中偶數與奇數的個數Option ExplicitDim n1%, N2%, n%, i%, st As StringPrivate Sub Command1_Click()For i = 1 To 10n = Int(Rnd(1) * 89 + 0.5) + 10st = st & Str(n)If n Mod 2 = 0 Then N2 = N2

27、 + 1Else n1 = n1 + 1 End If Next iText1.Text = st Text2.Text = N2Text3.Text = n1 End Sub20、判斷完數Private Sub Command1_Click()m = Text1.Text For i = 1 To m - 1If m Mod i = 0 Then sum = sum + ij = j + 1 ReDim Preserve a(j)a(j) = I End If Next iIf m = sum Then Picture1.Print m & "是完數,因為"Pic

28、ture1.Print m; "="For i = 1 To UBound(a) - 1Picture1.Print a(i); "+" Next iPicture1.Print a(i) ElsePicture1.Print m & "不是完數"End If End Sub21、找鞍點（列最大，行最小）Private Sub Command1_Click()Dim a() As Integer, i As Integer, j As IntegerDim max As Integer, k As Integer, f As

29、Boolean Dim n As Integer, m As Integer, t As Integer n = InputBox("輸入矩陣的行數：") m = InputBox("輸入矩陣的列數：")ReDim a(n, m) Randomize For i = 1 To nFor j = 1 To m a(i, j) = Int(90 * Rnd) + 10Text1 = Text1 & Str(a(i, j) Next jText1 = Text1 & vbCrLf Next iFor i = 1 To n max = 0For j = 1 To m If a(i, j) > max Thenmax = a(i, j) t = j E