题型:综合题 题类:常考题 难易度:困难
浙江省“温州十五校联合体”2018-2019学年高一下学期信息技术期中考试试卷
Private Sub Cmd1_Click()
Dim i As Integer, j As Integer, ans As Integer
Dim ch As String, s As String
s = Text1.Text
ans = 0
j = 1
For i = 1 To Len(s)
If ch = "," Then
ans =
j = i + 1
End If
Next i
Label1.Caption = "计算结果是:" +Str(ans)
End Sub
试题篮