早教吧 育儿知识 作业答案 考试题库 百科 知识分享

随机产生一个3位正整数,然后逆序输出,产生的随机数与逆序数同时显示,例如产生198,逆序981.用vb6.0企业版做

题目详情
随机产生一个3位正整数,然后逆序输出,产生的随机数与逆序数同时显示,例如产生198,逆序981.
用vb6.0企业版做
▼优质解答
答案和解析
Dim sum, a, b, c As Integer, m As SinglePrivate Sub Cmd1_Click() Randomize m = Int(Rnd * 900 + 100) Print m a = m \ 100 b = (m Mod 100) \ 10 c = m Mod 10 sum = c * 100 + b * 10 + a Print sumEnd S...