题型:综合题 题类:常考题 难易度:普通
浙江省温州十五校联合体2019-2020学年高一下学期信息技术期中考试试卷
请回答下列问题:
Private Sub Command1_Click()
Dim s As String, sum As Integer
Dim i As Integer, j As Integer
①
sum = 0
j = 0
For i = 1 To Len(s)
ch = Mid(s, i, 1)
If ch >= "0" And ch <= "9" Then
j = ②
Else
sum = sum + Val(Mid(s, i - j, j))
j = 0
End If
Next i
Label1.Caption = "数字之和为:" + Str(sum) End Sub
① ②
试题篮