VB 高手,请帮忙.
来源:百度知道 编辑:UC知道 时间:2024/08/22 10:03:25
Private Sub Command1_Click()
aa = Split(Text1(J), ",")
On Error Resume Next
If aa(0) = "" Then
a = 11
Else
a = aa(0)
End If
Err.Clear
On Error GoTo 0
Print a; b; c; d; e; f; g; h; i; J
end sub
当text 中输入几个值,便输出几个,但不知错在哪里,只能输出第一个?
请问,上面错在哪里?
aa = Split(Text1(J), ",")
On Error Resume Next
If aa(0) = "" Then
a = 11
Else
a = aa(0)
End If
Err.Clear
On Error GoTo 0
Print a; b; c; d; e; f; g; h; i; J
end sub
当text 中输入几个值,便输出几个,但不知错在哪里,只能输出第一个?
请问,上面错在哪里?
On Error Resume Next
If aa(0) = "" Then
a = 11
Else
a = aa(0)
End If
这些都去掉,没用
Print a;b;c;d;e;f;g;h;i;J
这是什么。。。
不管怎么样,也应该这样输出把
for i=0 to ubound(aa)
print aa(i);
next