- 二一组卷

题型：单选题题类：常考题难易度：普通

浙江省稽阳联谊学校2020届高三上学期信息技术12月联考试卷

有如下VB程序段：

s = Text1.Text: sum = 0: t = 0: cnt = 1

For i = 1 To Len(s)

c = Mid(s, i, 1)

If c >= "0" And c <= "9" Then

j=j+1

Else

If cnt Mod 2 = 1 Then sum = sum + val(mid(s,i-j,j))

j= 0：cnt = cnt + 1

End If

Next i

在文本框text1输入“12d6a3c4f20”，程序运行后sum的值是（）

A、21 B、15 C、45 D、25

举一反三

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

输入x的值为7，执行这部分流程，输出n的值为（）

相关试卷