191问答库 > 用vb6.0设计一个随机抽取幸运数的程序,并根据产生的幸运数按反序输出其中的奇数

用vb6.0设计一个随机抽取幸运数的程序,并根据产生的幸运数按反序输出其中的奇数

2025-03-05 03:13:46

推荐回答（1个）

回答1：

Private Sub Command1_Click()
Dim n As Integer
Dim s As String
Randomize
n = Int(Rnd * 9000 + 1000)
Print n; "反序奇数是";
s = StrReverse(CStr(n))
n = CInt(s)
If n Mod 2 = 1 Then
    Print n
Else
    Print
End If
End Sub