UC知道VB 字符串与数组赋值问题
来源：百度知道 编辑：UC知道 时间：2024/06/30 13:20:39
设想：通过inputbox接受输入信息，信息要求看代码。
希望通过split函数，分解用户输入的信息。也就是把用户输入的信息根据“*”来赋值到一个数组变量里。（最后我要将数组变量写入数据库)
下面是我写出的代码。但总是提示类型不相符等等提示。
Dim a(1 To 3) As String
Dim b() As String
Dim c(1 To 3) As Integer
Private Sub Command1_Click()
For i = 1 To 3
a(i) = InputBox("请输入第" & i & "题资料题的维度，每个维度以一个空格或以“*”隔开，输入1为结束输入。", "资料题维度") '输入维度，以字符*作为分割，分割每个数组变量b()。
Next i
End Sub
Private Sub Command2_Click()
For j = 1 To 3
c(j) = Len(a(j)) - Len(Replace(a(j), "*", ""))
b = Split(a(j), "*")
Select Case j
Case 1
ReDim b(1 To c(1))
Case 2
ReDim b(c(1) + 1 To c(1) + c(2))
Case 3
ReDim b(c(1) + c(2) + 1 To c(1) + c(2) + c(3))
Print b()
Next j
End Sub
100分悬赏，麻烦各位指教。小生虚心学习。恳请尽量说详细点，最好有正确代码。再次谢谢了
希望通过split函数，分解用户输入的信息。也就是把用户输入的信息根据“*”来赋值到一个数组变量里。（最后我要将数组变量写入数据库)
下面是我写出的代码。但总是提示类型不相符等等提示。
Dim a(1 To 3) As String
Dim b() As String
Dim c(1 To 3) As Integer
Private Sub Command1_Click()
For i = 1 To 3
a(i) = InputBox("请输入第" & i & "题资料题的维度，每个维度以一个空格或以“*”隔开，输入1为结束输入。", "资料题维度") '输入维度，以字符*作为分割，分割每个数组变量b()。
Next i
End Sub
Private Sub Command2_Click()
For j = 1 To 3
c(j) = Len(a(j)) - Len(Replace(a(j), "*", ""))
b = Split(a(j), "*")
Select Case j
Case 1
ReDim b(1 To c(1))
Case 2
ReDim b(c(1) + 1 To c(1) + c(2))
Case 3
ReDim b(c(1) + c(2) + 1 To c(1) + c(2) + c(3))
Print b()
Next j
End Sub
100分悬赏，麻烦各位指教。小生虚心学习。恳请尽量说详细点，最好有正确代码。再次谢谢了
把command2_click改成这样吧(先把a()连接起来,再折分,省得反复重定义b数组)
Private Sub Command2_Click()
temp = Join(a, "*")
b = Split(temp, "*")
Print Join(b, ",")
End Sub
Dim a(1 To 3) As String
Dim b
Private Sub Command1_Click()
For i = 1 To 3
a(i) = InputBox("请输入第" & i & "题资料题的维度，每个维度以一个空格或以“*”隔开，输入1为结束输入。", "资料题维度") '输入维度，以字符*作为分割，分割每个数组变量b()。
Next i
End Sub
Private Sub Command2_Click()
For j = 1 To 3
b = Split(a(j), "*")
For i = 0 To UBound(b)
Print b(i)
Next i
Next j
End Sub