关于VB的编程题，希望高手帮帮我啦

Question

下面的事件过程随机产生一个3位正整数，并对其逆序处理，最后将产生的数与逆序数相隔4个字符显示在一行上。例如，产生345，输出345 543。

Private Sub Form_Load()
Dim a As Integer, s As String, b As Integer
Randomize
a = int(Rnd * 900 + 100)
s = LTrim(Str(a))
b = -----------------------(Right(s, 1) & Mid(s, 2, 1) & Left(s, 1))-----只是这里不知道要填什么
Print a; Spc(4); b
End Sub
谢谢啦

Answer 1

。。。。。。
题目应该不能改吧
。。。。。。。

Private Sub Form_Load()
Dim a As Integer, s As String, b As Integer
Randomize
a = int(Rnd * 900 + 100)
s = LTrim(Str(a))
b =_______StrReverse(s & "")________
'强制转换为字符串后再倒序输出，(Right(s, 1) & Mid(s, 2, 1) & Left(s, 1))也是没错的，但必须把s 改成 s & ""
Print a; Spc(4); b
End Sub来自：求助得到的回答

Answer 2

Private Sub Form_Load()
Show
Dim a As Integer, s As String, b As Integer
Randomize
a = Int(Rnd * 900 + 100)
s = LTrim(Str(a))
b = StrReverse(a)
Print a; Spc(4); b
End Sub

Answer 3

你已经填上答案了！

Private Sub Form_Load()
Dim a As Integer, s As String, b As Integer
Randomize
a = int(Rnd * 900 + 100)
s = LTrim(Str(a))
b = (Right(s, 1) & Mid(s, 2, 1) & Left(s, 1))
Print a; Spc(4); b
End Sub

追问

没有填上啊b = ----------(Right(s, 1) & Mid(s, 2, 1) & Left(s, 1))
这里应该填个东西的，因为如果随机数是580的话，那么打出来的逆序数是85，所以这个程序是有点问题的，不知道应该填什么。。。。这是一道填空题，麻烦高手帮帮忙啦

追答

很容易的事，你把b定义为字符串型。就正确了。如果b 是整型，数字前面的0当然存不住。
Private Sub Command1_Click()
Dim a As Integer, s As String, b As String (b的类型改为字符型了)
Randomize
a = Int(Rnd * 900 + 100)
s = LTrim(Str(a))
b = (Right(s, 1) & Mid(s, 2, 1) &Left(s, 1))
Print a; Spc(4); b
End Sub