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:
已知△ABC的三边长分别为a,b,c,且满足(a﹣5)2+|b﹣12|+ c−13 =0,则△ABC( )
把肯定句改成双重否定句
①我一定把这道题做出来。
②他答应了我们的请求。