试题 试卷
题型：解答题 题类：常考题 难易度：普通
【bj】云南省临沧市沧源县2020-2021学年高一上学期信息技术期末考试试卷
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
试题篮
