Question

VB中 msgbox无法显示多个变量的值

窗体装载代码如下:
Private Sub Form_Load()
Dim ttt As String
Open "d:\123.dat" For Random As #1 Len = Len(jl)
Get #1, 1, jl
ttt = jl.mz & Space(2) & jl.cj
Print ttt
MsgBox ttt
Close #1
End Sub
另外还有个模块文件,代码如下:
Type aa
mz As String * 8
cj As String * 8
End Type
Public jl As aa
问题描述:
执行上述代码时,msgbox异常,只显示mz的值,cj的没显示出来
print正常,可以在窗体上显示mz的值和cj的值

请高手指教,因目前我正在做个俄罗斯方块的小游戏,里面涉及到读取排名数据文件,我想用msgbox一次性将前10名的名字和成绩全列出来,帮帮我,谢啦!

Answer 1

经过我一个多小时的测试，终于找出问题，其实出在jl.mz问题上，如果你知道名字只有两个字，使用left(jl.mz)后你会发现就能正常输出了，或者你把jl.cj放在前面，也能正常输出

没想到解决问题的办法

追问

你的方法不错,但是感觉比较别扭,毕竟所有排行榜都是名字在前,分数在后的,继续期待高手帮我解答.

追答

我想了好多方法，都没找出具体问题在哪儿，我也百思不得其解

你可以换个思路，不要用随机方法读取文件，你就用二进制方法，或者顺序方法读取，读取一行数据后，再用split()函数把内容分到mz和cj变量里

Answer 2

因为你定义的是定长字符串，定长字符串尾部没有字符部分全是0，而显示输出时遇到0则停止输出，所以只输出了第一个字符串。建议定义成变长字符串
mz As String
cj As String

追问

不能定义为变长字符串,定义后会报错,说记录长度出错,我已将D:\123.dat删除重写

追答

这么改只显示字符串前面有字符部分
mzl = InStr(1, jl.mz, Chr(0)) - 1
If mzl = -1 Then mzl = 8
cjl = InStr(1, jl.cj, Chr(0)) - 1
If cjl = -1 Then cjl = 8
ttt = Mid(jl.mz, 1, mzl) & Space(2) & Mid(jl.cj, 1, cjl)

Answer 3

可以用msgbox mz & vbcrld & cj

追问

是不是写错字母了?怎么我这边报错?

追答

不好意思,是VBCRLF,就是回车换行的健

追问

不好意思,我这里不能换行,因为我要把名字和成绩放在一行,总共取前10名的成绩,有10行呢.
另外,你的那个办法好像也不行,还是只能显示名字这一行,分数还是不能显示

追答

你的代码是没问题的，就是在ttt后面加上VBCrlf
tt=""
ttt=ttt & jl.mz & space(2) & jl.cj & vbcrlf
如果还不行，把qq留下，我帮你调试一把