私有子窗體_Click()
小數位數(-300，200)-(300，-200)
行(0，200)-(0，-200)
線(-300，0)-(300，0)
r1 = 150
r2 = 190
對於i = 0至360，步長為0.01
a = i * 3.14 / 180
x = r1 * Sin(a)
y = r2 * Cos(a)
PSet (x，y)
接下來我
末端接頭
2.
私有子命令1_Click()
Dim a(1到8)為整數
圖片1。打印“原數組是”；
對於i = 1到8
a(I)= Int(Rnd * 21)+10
如果i = 1，那麽
j = 1
其他
如果a(j)>a(i)那麽j = i
如果…就會結束
圖片1。打印a(壹)；
然後
圖片1。打印vbCrLf & amp；”新數組是”；
t = a(1):a(1)= a(j):a(j)= t
對於i = 1到8
圖片1。打印a(壹)；
然後
末端接頭
3.
私有子命令1_Click()
Dim a(1到10)為整數
圖片1。打印“分數是:”
對於i = 1至10
a(i) = Int(Rnd * 101)
總和=總和+ a(i)
圖片1。打印a(壹)；
然後
圖片1。打印vbCrLf & amp；"平均分= "；總和/ 10
圖片1。打印"超過平均分的有:"
對於i = 1至10
如果a(i)>Sum / 10然後畫出1。打印壹，a(壹)
然後
末端接頭