Private Sub Command1_ Click ()
Dim i As Integer
Dim s As String, s2 As String
s =Text1. Text
For i=1ToLen(s)
s2 = Mid(s,i,1)
List1.AddItem s2 & ":”& Str (Asc (s2))
Next i
End Sub
则程序界面上用于输出的控件的图标为( )
微信扫码预览、分享更方便