试题 试卷
题型:单选题 题类:模拟题 难易度:普通
浙江省杭州市2016年信息技术高考模拟卷十四
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
s = "2019Nian12yue3Ri"
For i = Len(s)-1 To 1 step -1
If Mid(s, i, 1) <= "9" And Mid(s, i + 1, 1) >= "A" Then
sum= sum+ Val(Mid(s, i, 1))
End If
Next i
运行程序后,变量sum 的值是( )
试题篮