Question

VB中的inputbox函数的输入框输入中文什么是乱码？什么解决？

如题：

Answer 1

这是你的不是正式的SP6补丁包
你可以重新找一个SP6企业版的VB装一下，就可以了，
虽然显示是乱码但如1楼所说，只是障眼法，让你看着不是，实际还是

Answer 2

首先要定义变量类型
dim x as string
再调用Inputbox函数
x=inputbox()
还有可能是你定义的数据类型不对。
比如定义的是整形变量，而输入的是双精度的就可能出现这种情况。

Answer 3

sub main()
on error goto NotInt
dim aa as string
dim a1 as integer
dim a2 as integer
dim a3 as integer
aa=inputbox("请输入第1个任意整数")
a1=cint(aa)
aa=inputbox("请输入第2个任意整数")
a2=cint(aa)
aa=inputbox("请输入第3个任意整数")
a3=cint(aa)

if a1<a2 then
if a1<a3 then
s=cstr(a1)
if a2<a3 then
s=s & "<" & cstr(a2) & "<" & cstr(a3)
else
s=s & "<" & cstr(a3) & "<" & cstr(a2)
end if
else
if a2<a3 then

if a2<a3 then
s=s & "<" & cstr(a2) & "<" & cstr(a3)
else
s=s & "<" & cstr(a3) & "<" & cstr(a2)
end if
end if
end if
else

end if
exit sub
NotInt:
msgbox "您输入的" & aa &"不是整数",64,"请确认"
end sub

Answer 4

不用解决的，这是由于编码的方式不同，你输出的话还是原来的中文。