试题 试卷
题型：单选题 题类： 难易度：普通
新疆伊犁哈萨克自治州霍城县2023-2024学年高一上学期信息技术10月月考试卷
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
试题篮
