怎样随机产生3位正整数，然后逆序输出，产生的随机数与逆序数同时显示。例如，产生753，输出是537

VB 随机产生一个三位正整数，然后逆序输出，产生的随机数与逆序数同时显示。例如：357和753~

I为整型的话，fromat的结果赋值给I又转为数字了，自然弃首位0
要么dim I as string
要么不要I直接Print Format(Val(x3 & x2 & x1), "000")的结果
另xi x2 x3均定义为整型，但后面又用x3 & x2 & x1这样隐式转换成字符串，这个习惯不好，也就是VB里对变量类型要求不严格才能用，之前不显示0同样是因为不重视变量类型而依赖自动转换造成的

Dim sum, a, b, c As Integer, m As Single
Private 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 sum
End Sub
呵呵，我试过了，可以！

program fdsl;
var
n,a,b,c:integer;
begin
randomize;
n:=random(999);
writeln(n);
a:=n mod 10;
b:=(n mod 100) div 10;
c:=n div 100;
write(a,b,c);
writeln;
end.
div 是整除

mod?用汇编语言编么？

VB不会～告诉你算法，比如753,你要取第一位的话就是753/100=7～取第二位先去掉百位，是753 Mod 100=53,然后类似53/10=5,个位类似处理

---

保定市13786706116： VB题:随机产生一个3位正整数,然后逆序输出,如734,输出437.不要像之前百度上回答一样的,那些都不对的提示:利用运算符“Mod”和“/”将一个3... - ？
塔昌洋参：[答案] Private Sub Form_Click() Dim a As Integer, b As Integer, c As Integer, d As Integer, e As Integer d = Int(Rnd * 899) + 100 Print ＂随机产生的数是:＂ & d a = d \ 100 b = (d / 10) Mod 10 c = d Mod 10 e = a + b * 10 + c * 100 Print ＂排序后的结果是:＂ ...

保定市13786706116： 要随机产生一个3位正整数,然后逆序输出、、按这种写法,如果碰到10的倍数就会输出一个两位数、要怎么处理Private Sub Form - click()Randomizex = Int(... - ？
塔昌洋参：[答案] Private Sub Form_click() Randomize x = Int(Rnd * 900 + 100) & ＂＂ Print strreverse(x) End Sub

保定市13786706116： 设计程序,随机产生一个[m,n]之间的3位正整数,将这个数和其逆序数同时输出. - ？
塔昌洋参： Int(n+Rnd*(m-n+1))产生n,m区间内的随机整数 Mid(字符串,n,m)n是起始位置,m是长度,这里m取1 输入用n=Inputbox(提示文字,标题文字,预留值) m=Inputbox(提示文字,标题文字,预留值) 输出用Msgbox(提示文字“这里提示文...

保定市13786706116： 随机产生一个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...

保定市13786706116： VB 随机输入一个3位数正整数,然后逆序输出,产生的随机数与逆序数同时显示利用Mod跟“/”来编码 - ？
塔昌洋参：[答案] 规定利用Mod跟“/”来编码廷垃圾的,本来两个函数就搞定了.Private Sub Command1_Click()Dim a As Integer,b As Integer,c As IntegerDim i As Integer,j As Stringi = 100 + Int(Rnd * 900)a = Int(i / 100)b = i Mo...

保定市13786706116： 1.随机产生一个三位数将其逆序输出. - ？
塔昌洋参： 三位数 a , 输出数 b for i=0,i<3,i++ {b*10;b=b+a/10;取a的余数 }

保定市13786706116： 编写一个程序,能随机产生一个三位正整数,然后逆序输出,产生的数与逆序数同时显示,如产生541,输出145 - ？
塔昌洋参： 给一个取巧的方法:先生成三个数字,用于个位、十位、百位,然后就可以组成转换前/后的三位数了.楼主没说明用那种语言,我给出个C++版本的具体代码:#include<iostream>;#include<ctime>;#include<cstdlib>; using namespace std; void ...

保定市13786706116： VB 随机产生一个三位正整数,然后逆序输出,产生的随机数与逆序数同时显示.例如:357和753 - ？
塔昌洋参： 你的程序可以说是正确的,并且还有一定技巧,比如用rnd *900加100.580逆序结果从数值上看就是85,因此也很正确.如果要求显示085,说明要求以字符形式输出只需改动i句(倒数第四句)即可.我无法用键盘输入,很多符号打不上,请原谅.

保定市13786706116： VB题:随机产生一个3位正整数,然后逆序输出,如734,输出437.不要像之前百度上回答一样的,那些都不对的 - ？
塔昌洋参： Private Sub Form_Click() Dim a As Integer, b As Integer, c As Integer, d As Integer, e As Integer d = Int(Rnd * 899) + 100 Print ＂随机产生的数是:＂ & d a = d \ 100 b = (d / 10) Mod 10 c = d Mod 10 e = a + b * 10 + c * 100 Print ＂排序后的结果是:＂ & e End Sub 仅供参考哦,呵呵.

保定市13786706116： 编写程序,实现随机生成一个3位的整数n,将n中的三位数字逆序构成一个新数m,然后输出m. - ？
塔昌洋参： #include<stdio.h> #include<stdlib.h> #include<time.h>int main() {srand((unsigned int)time(null));int n=rand()%900+100;int m=n%10*100+n/10%10*10+n/100%10;printf(＂%d\n＂,m);return 0; }