试题 试卷
题型:单选题 题类:常考题 难易度:普通
浙江省诸暨市牌头中学2017-2018学年高二下学期信息技术第一次月考试题
Private Sub Command1_Click()
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)
End Sub
请回答下列问题:
试题篮