Question

VB str$ 函数 的问题

高手们，求助你们了啊。我被这个问题给困扰了。
Private Sub Form_Click()
Dim a!
a = Int(1000 * Rnd)
bstr = str$(a)
b = Val(Right$(bstr, 1) & Mid$(bstr, 2, 1) & Left(bstr, 1))
Print a, b

End Sub

Private Sub Form_Load()
Form1.AutoRedraw = True
Print "随机数", "逆序数"
End Sub

这样编了代码过后，产生逆序数的时候就出现问题了。产生的逆序数只有两位。

将bstr = str$(a)改成bstr=a后，程序成功运行

我就没搞懂了。str$函数是将数值型转换为字符串行。怎么就会出错。

求高手帮助啊。谢了。

Answer 1

我试验了一下，问题出在bstr = str$(a)。

你可以在这行设置断点观察一下执行后的结果，假设a是533，那么bstr = str$(a)后，你会发现bstr的值是" 533"，就是533之前多了一个字符，测试后发现是空格，因此可以把语句改为bstr = Trim(Str(a))，代码就执行正确了。

至于str()函数为什么会加一个空格，还没时间查找这方面资料。

另外，提醒一下，你这个程序的代码是不严谨的，你是想当然的认为 a = Int(1000 * Rnd)是一个三位数，所以才有下面的逆序算法，可是，a是有可能是两位数甚至是一位数的，这样你的逆序数结果就有可能不正确了。

正确的方法应该是根据a的实际长度利用一个循环从后向前取每一个字符。

Answer 2

虽然好多不是太懂
你的str$后面的那个符号什么用啊
去了不也可以吗
再都,转字符串的一般用
cstr
如果是double的用tostring
你的那个符号去了,应该就行