读该模式图
下列当今社会生活中的活动,与第二次科技革命中的创造发明无关的是( )
如图所示,DE⊥AB,DF⊥AC,AE=AF,则下列结论成立的是 ( )
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