问道简单题
随机产生一个三位正整数,然后逆序输出,产生的数与逆序数同时显示,例如产生124,输出是421。
感觉特简单,概念问题,但是难倒我了。。
[解决办法]
在窗体上放一个CommandButton、两个TextBox
双击CommandButton,输入下列代码
Randomize() '每次产生不同的随机数 Dim tmpRnd As Integer '临时存放随机数 tmpRnd = Int(Rnd() * 1000) '使随机数扩大1000倍(0,1000),并对其取整(不四舍五入,对题目没影响) TextBox1.Text = Format(tmpRnd, "000") '显示产生的随机数(格式化成3位数) TextBox2.Text = (tmpRnd Mod 100) Mod 10 & Int((tmpRnd Mod 100) / 10) & Int(tmpRnd / 100) '---取100的余数得到一个两位数,再次取余,得到个位数---取100的余数得到一个两位数,再除10并取整获得十位数---同理,除100取整即得百位数