UC知道VB 如何读取Text 的值
来源：百度知道 编辑：UC知道 时间：2024/06/19 14:24:09
当Text1 中输入1,2,3,11,12,13 时,怎么出现类型不匹配
Private Sub Command1_Click()
Dim i As Integer
Dim a() As Integer
ReDim a(Len(Text1))
For i = 1 To Len(Text1) / 2
a(i) = CInt(Mid(Text1, 2 * i - 1, 2)) '出现类型不匹配
Print a(i)
Next
End Sub
Private Sub Command1_Click()
Dim i As Integer
Dim a() As Integer
ReDim a(Len(Text1))
For i = 1 To Len(Text1) / 2
a(i) = CInt(Mid(Text1, 2 * i - 1, 2)) '出现类型不匹配
Print a(i)
Next
End Sub
a(i) = CInt(Mid(Text1, 2 * i - 1, 2))
text1=“1,2,3,11,12,13 ”
用你的方法会分得
1，
2，
3，
11
,1
2,
13
第一次因为有逗号就不能转化成整数形式。其他都差不多。
另外还有，不要把redim放在循环以内，每次都执行。
正确的做法是：
dim a'注意是变体格式，不是数组，而不是整数
a=split（text1,",") '逗号分割，装入数组。
这就行了。至于a有多少元素，可以使用ubound（a）知道他的最大下标。
For i = 1 To Len(Text1) / 2
redim preserve a(i)
a(i) = CInt(Mid(Text1, 2 * i - 1, 2)) '出现类型不匹配
Print a(i)
Next