奇数:Private Sub Command1_Click()For i = 1 To 99 Step 2Print iNext iEnd Subfibonacci数列:Private Sub Command1_Click()Dim a As Integer, b As Integer, c As Integera = 1: b = 1Print a; b;For i = 3 To 20 c = a + b Print c; a = b: b = cNext iEnd Sub4*5矩阵:Option Base 1Private Sub Command1_Click()Dim a(4, 5) As IntegerFor i = 1 To 4 For j = 1 To 5 a(i, j) = Int(Rnd * 100 + 1) Print a(i, j); Next j PrintNext iMin = 101For i = 1 To 4 For j = 1 To 5 If a(i, j) Next jNext iFor i = 1 To 4 For j = 1 To 5 If a(i, j) = Min Then Print "最小值:"; a(i, j), "第"; i; "行"; "第"; j; "列" Next jNext iEnd Sub