私人函數傑(ByVal s)作為長
如果s = 0，則
傑= 1
退出功能
如果…就會結束
傑=傑(s - 1) * s
結束功能
私有子命令1_Click()
M = Val(InputBox("請輸入公式中的最後壹個數字"))
對於i = 1到m步驟2
Sum = Sum + jie(i)
然後
打印“是”的總和&；總和
末端接頭
(2)利用隨機函數生成40、
分別數1的個數，2的個數，3的個數，4的個數。
私有子命令1_Click()
將a(40)作為整數變暗
對於i = 1到40
使不規則化
a(i) = Int(Rnd() * 4 + 1)
然後
對於i = 1到40
選擇案例a(i)
案例1
a1 = a1 + 1
案例2
a2 = a2 + 1
案例3
a3 = a3 + 1
案例4
a4 = a4 + 1
結束選擇
然後
打印“1的數量”&；a1
打印數量“2”&；主動脈第二聲
打印數量“3”&；a3
打印的數量" 4 " &；a4
末端接頭
(3)用隨機函數生成100到999之間的10整數，並顯示在表單上。'
然後分別計算偶數的平均值和奇數的平均值，然後顯示結果。
私有子命令1_Click()
將a(10)作為整數維數
對於i = 1至10
使不規則化
a(i) = Int(Rnd() * 900 + 100)
然後
對於i = 1至10
打印a(i)
然後
對於i = 1至10
如果a(i) Mod 2 = 0，則
o = o + a(i)
onum = onum + 1
其他
j = j + a(i)
如果…就會結束
然後
如果onum & lt& gt那麽0
打印“均勻平均值”&；CDbl(o) / onum
如果…就會結束
如果onum & lt& gt那麽10
打印“奇數的平均值”&；CDbl(j) / (10 - onum)
如果…就會結束
末端接頭
(4)定義壹個5X5的二維數組，數組元素為10 ~ 99的隨機整數。
在窗體上顯示數組，計算對角線元素的和並顯示。
私有子命令1_Click()
Dim a(5，5)為整數
對於i = 1到5
對於j = 1到5
使不規則化
a(i，j) = Int(Rnd() * 90 + 10)
然後
然後
對於i = 1到5
對於j = 1到5
打印a(i，j)和amp" ";
然後
打印
然後
對於i = 1到5
對於j = 1到5
如果j = i，那麽
總和=總和+ a(i，j)
如果…就會結束
然後
然後
打印“對角線元素的和”&；總和
末端接頭