试题 试卷
题型:单选题 题类:常考题 难易度:普通
粤教版(B版)信息技术2020-2021八年级下册期末试卷
Private Sub Timer1_Time( )
For i= 0 To 10 Step 1
Shape l(0) BackColor= RGB(Int(Rnd * 256), Int(Rnd * 256), In(Rnd * 256)
Next i
End Sub
Private Sub Command 1_Click()
a=10
for k=1 to 5 Step -1
a=a -k
Next k
Print a, k
End sub
Private Sub Form_Click()
Dim x as integer
x=1
n=0
Do while x<100
x=x*3
n=n+1
Loop
Print x,n
i=1
while i<=100:
print(“*”)
i=i+1
试题篮