当前位置:首页 » VB程序题 » 正文

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://www.wb98.com/post/59.html

    << 上一篇 下一篇 >>

    湘公网安备 43011102000514号 - 湘ICP备08100508号