规定利用Mod跟“/”来编码廷垃圾的,本来两个函数就搞定了. Private Sub Command1_Click() Dim a As Integer,b As Integer,c As Integer Dim i As Integer,j As String i = 100 + Int(Rnd * 900) a = Int(i / 100) b = i Mod 100 c = b Mod 10 b = Int(b / 10) j = c & b & a MsgBox i & "," & j End Su