Question

VB题目：数组输入输出，在文本框text1.text中放入一维数组的5个元素，点击command1

VB题目：数组输入输出，在文本框text1.text中放入一维数组的5个元素，点击command1，将5个元素逆序放入文本框2中。使用array to text 和text to array完成数组与字符串之间的转换。

Answer 1

Private Sub Command1_Click()
Text2.Text = 0
Text3.Text = 0
Text4.Text = 0
For i = 1 To Len(Text1.Text)
If Mid(Text1.Text, i, 1) Like "[A-Z]" Or Mid(Text1.Text, i, 1) Like "[a-z]" Then
Text3.Text = Val(Text3.Text) + 1
ElseIf Mid(Text1.Text, i, 1) Like "[0-9]" Then
Text2.Text = Val(Text2.Text) + 1
Else
Text4.Text = Val(Text4.Text) + 1
End If
Next

End Sub