题型：综合题 题类：常考题 难易度：普通
浙江省临海市白云高级中学2018-2019学年高二上学期信息技术期中考试试卷
Private Sub Command1_Click()
Dim i As Integer, x As String, t As String
Dim n As Integer, m As Integer
x = Text1.Text
For i = 1 To
t =
If Asc(t) <= 127 And Asc(t) >= 0 Then
n = n + 1
Else
m = m + 1
End If
Next i
Label2.Caption = "共有ASCII字符" & n & "个，GB2312字符" & m & "个"
End Sub
试题篮
