帮忙看一段代码。

Question

Option Explicit
Public Sub GetValue()
Dim strtemp As String
Dim i, temp As IntegerDim T1(0 To 15) As Single
With MDIForm1
'.MSComm1.PortOpen = True
.MSComm1.Output = "#010115" + Chr(13)
strtemp = .MSComm1.Input
For i = 1 To 15T1（i） = Val(Mid(strtemp, i * 6 + 1, 5))
Next i
End With
end sub大家帮忙看看为什么只能得出T1（0）得不出其他的14个值？

Answer 1

执行时，你先看一下 strtemp 中的内容是否正常！还有，你这段代码中，T1(0) 根本没有赋值，你的“只能得出T1(0)”如何理解？

Answer 2

我的意思是帮忙看一下能否用for循环得出T1（0 to 15）这16个值，strtemp中的内容正常，关键是不知到怎么用循环把这16个值取出来。

Answer 3

T1(i)就是第i个数组的值 啊,怎么会不知道怎么取出来啊,用哪个就把哪个赋值其他变量就可以了阿

Answer 4

自己添加一个dim t1(1 to 15) as integer

Answer 5

把strTemp的值给出来，然后贴出想要的结果，肯定就有人能回答了
这样的话不知道在说什么？反正我是看不懂

Answer 6

对不起，我看糊涂了。
可能你的 mscomm1.input 传回值没有那么长，你却按照固定长度来分割了出来。