Question

急求vb6.0编写程序题(1)编写程序，从键盘输入一个三位的正整数，计算并输出这个三位数的逆序数，如输入581，输出18

Answer 1

1.

Private Sub command1_click()

Dim a As Integer, b As Integer

a = CInt(InputBox("输入一个三位的正整数"))

If a >= 100 And a 0 And m < 7 Then

For i = 0 To 9

s = s + jc(m + i)

Next

MsgBox s

Else

MsgBox "输入有误！"

End If

End Sub

Function jc(n As Integer) As Double

jc = 1

For i = 2 To n

jc = jc * i

Next

End Function