怎样随机产生3位正整数,然后逆序输出,产生的随机数与逆序数同时显示。例如,产生753,输出是537
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
呵呵,我试过了,可以!
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,个位类似处理
vb程序设计:随机产生一个三位正整数,然后逆序输出该数,产生的数与逆序...
Private Sub Command1_Click()Dim a As Integer, b As Integer, c As Integer Dim i As Integer, j As String i = 100 + Int(Rnd * 900)a = Int(i \/ 100)b = i Mod 100 c = b Mod 10 b = Int(b \/ 10)j = c & b & a MsgBox i & "," & jEnd Sub ...
vb:随机生成一个三位正整数,判断这个数是否是升序数
10 Mod 10 And n \\ 10 Mod 10 < n Mod 10 Then Text2.Text = Str(n) & "是升序数" Else Text2.Text = Str(n) & "不是升序数" End IfEnd SubPrivate Sub Command2_Click() '清除 Text1.Text = "" Text2.Text = ""End SubPrivate Sub Command3_Click() ...
随机产生一个三位正整数,然后逆序输出,随机数和逆序数同时输出_百度知 ...
i = 100 + Int(Rnd * 901)MsgBox "产生" & i & ",输出" & StrReverse(i)next End Sub
vb编程实现:随机产生一个3位正整数,逆序输出。
Print "随机数:" & result Print "反转后:" & StrReverse(result)End Sub
vb如何随机生成一个三位正整数,单击窗体,分别输出其百位、十位和个位...
Private Sub Form_Click()Dim x As Integer Randomize x = Int(Rnd * 900) + 100 MsgBox "随机生成的三位正整数是" & x & vbCrLf & "百位数是" & x \\ 100 & vbCrLf & "十位数是" & x \\ 10 Mod 10 & vbCrLf & "个位数是" & x Mod 10 End Sub ...
VB题:随机产生一个3位正整数,然后逆序输出,如734,输出437。不要像之...
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 仅供参考哦,呵呵。
随机产生一个3位正整数,然后逆序输出,产生的随机数与逆序数在点击窗体时...
Private Sub Form_Click()Randomize Dim A As Integer Dim B As Long A = Int(Rnd * 900 + 100)B = NiXuShu(A)Print A; vbTab; B End Sub Private Function NiXuShu(ByVal l As String) As Long '逆序数计算 Dim i As Integer, j As Integer, c As Long Dim n() As Integer R...
随机生成3个正整数,其中一个1位数,一个2位数,一个3位数,计算他们的平 ...
i = Int(Rnd * 10) '0-9 j = Int(Rnd * 90) + 10 '0-89 +10 即为10-99 k = Int(Rnd * 900) + 10 '0-899 +100 即为100-999 Dim result As String result = "(" & i & "," & j & "," & k & ")\/3="MsgBox result & (i + j + k) \/ 3 En...
随机生成三位正整数,如110?
和整数一样,正整数也是一个可数的无限集合。在数论中,正整数,即1、2、3……;也可以说成是除了0以外的自然数就是正整数。例如 160,280,360,等等都是正整数。
vs c# 编程实现功能,随机生成一个3位正整数并显示其值,然后将该数各位...
using System;namespace MyApplication{ class Program { static void Main(string[] args) { int v = GetNumber(); Console.WriteLine("三位随机数:{0}", v); v = Reverse(v); Console.WriteLine("反转后:{0}", v); } \/\/ 获取三位随机数 static ...
塔昌洋参:[答案] 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; }