试题 试卷
题型:单选题 题类:常考题 难易度:容易
海南省文昌中学2018-2019学年高一下学期信息技术段考信息试卷
Private Sub Command1_Click()
Dim a As Integer
a = Int(6 * Rnd + 1) * Int(6 * Rnd - 1)
Print a
End Sub
Dim t As Single, h1 As Single, h2 As Single
Const g = 9.8
t = Val(Text1.Text)
h1 = (g * t ^ 2) / 2
h2 = Int(h1)
Text2.Text = Str(h2)
⒈能被4整除,但不能被100整除;
⒉能被400整除;
试题篮