|
1.求100以内所有的3的倍数的和。(3+6+9+...+99)
2.求10!
Private Sub Form_Activate
Dim i%,x&
n=_(1)___________
For i-___(2)______To__(3)______
_(4)____________
Next i
Print "x=";x
End Sub
3.花1000个五颜六色的星星,颜色随机产生.
Private Sub Form Activate()
For i-1 To__(5)_____
r=_(6)__________
g=__(7)______________
b=___(8)___________
x=rnd*4800
y=rnd*3600
Pset_(9)_____________
Next i
End Sub
|