Private Sub Command1Click( )
Dim n As Integer
Dim a(1 To 10) As Integer
n = Val(Text1.Text)
s = 1
For i = 1 To n
s = s * i
a(i) = s
List1.AddItem Str(a(i))
Next i
End Sub
A:
B:
C:
D:
2013年的公共假期中,我国各地白昼最长的是( )
再读课文《七颗钻石》,填一填。
我知道课文中的水罐发生了一次次神奇的变化,主要有:空木水罐—____—掉在地上端端正正,水依然是满的—____—金水罐—____。