VB程序题：随机产生一个3位正整数，然后逆序输出，产生的随机数与逆序数同时显示。例如输入735，输出537。 VB教程实验源码 龚沛曾

VB程序题：随机产生一个3位正整数，然后逆序输出，产生的随机数与逆序数同时显示。例如输入735，输出537。 VB教程实验源码 龚沛曾

解题：
在窗体先画出两个按钮，按钮1用于产生随机数，按钮2,用于产生逆序数，再画一个文本框和一个标签。文本框用于输入。
Private Sub Command1_Click()
  ’Randomize ’加上这句，每次产生随机数的第一次就不会总出现相同的数
  Text1 = Int(Rnd * 901 + 100)
End Sub

Private Sub Command2_Click()
  Dim x%, x1%, x2%, x3%
  x = Val(Text1)
  x1 = x Mod 10                   ' 分离出的个位数
  x2 = (x Mod 100) \ 10           ' 分离出的十位数
  x3 = x \ 100                    ' 分离出的百位数
  Label1 = x1 * 100 + x2 * 10 + x3
End Sub

程序运行效果图：

Visual Basic程序设计教程(第3版) (龚沛曾等编)课后实验源码

打赏 支付宝打赏 微信打赏

来源：济亨网

本文链接：http://wb86.com/post/59.html