关于VB操作

来源：百度知道 编辑：UC知道 时间：2024/05/30 12:08:10
随机产生一个3位正整数，然后逆序输出，产生的随机数与逆序数在点击窗体时同时显示。显示随机数的字体为宋体、大小为小三
这是我自己做的。。可能有点复杂。问题是当首位是0的时候显示只有2位数 不显示0 请大家帮我看下怎么改

Private Sub Form_click()
Dim a As String, b As String, c As String

Randomize
Me.Caption = "实验23"

a = Int(Rnd * 10 + 1)
b = Int(Rnd * 10 + 1)
c = Int(Rnd * 10 + 1)

If Len(Trim(a)) = 1 Then a = "0" & a
If Len(Trim(b)) = 1 Then b = "0" & b
If Len(Trim(c)) = 1 Then c = "0" & c

Print a, b, c
Print c, b, a

End Sub

a,b,c定义局部变量就可以了 不需要多余的变量d和e

定义a-e都为同一类型的变量可以写成
deftype a-e

产生一个3位正整数，既然是产生一个，如何排序

不知道你说的是不是这个意识？
Private Sub Form_Click()
Dim a As String
Form1.Cls
Randomize
a = Int(Rnd * 1000)
a = "520"
Print Format(a, "000")
Print Right(a, 1); Mid(a, 2, 1); Left(a, 1)
End Sub