vb程序设计：随机产生一个三位正整数，然后逆序输出该数，产生的数与逆序数同时显示。要用两种方法。
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 e(5) As Integer
Private Sub Form_Click()
For a = 1 To 3
Randomize
e(a) = Int((999 - 100 + 1) * Rnd) + 100
Text1.Text = e(a)
Print e(a) & " " & Mid(Text1.Text, 3, 1) & Mid(Text1.Text, 2, 1) & Mid(Text1.Text, 1, 1)
Next a
End Sub
Private Sub Form_Load()
Form1.Font.Size = 15
Form1.Font.Name = "宋体"
Text1.Visible = False
End Sub
代码修改完毕 请鉴定
数字逆序法：
Private Sub Form_Click()
Dim x As Integer
Dim n1 As Integer, n2 As Integer, n3 As Integer
Randomize
x = Int(Rnd * 900) + 100
n1 = x \ 100
n2 = (x Mod 100) \ 10
n3 = x Mod 10
Print x, n3 * 100 + n2 * 10 + n1
End Sub
字符串逆序法：
Private Sub Form_Click()
Dim x As Integer
Dim n1 As String, n2 As String, n3 As String
Randomize
x = Int(Rnd * 900) + 100
n1 = Left(x, 1)
n2 = Mid(x, 2, 1)
n3 = Right(x, 1)
Print x, Val(n3 & n2 & n1)
End Sub
补充一种最简单的直接函数逆序法：
Private Sub Form_Click()
Dim x As Integer
Randomize
x = Int(Rnd * 900) + 100
Print x, Val(StrReverse(x))
End Sub
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 & "," & j
End Sub
拓展资料
vb与c的区别：
这二者都市程序开发语言，c语言不支持可视化编程，vb支持可视化编程，从功能上考虑，二者均可完成任何一种开发需求，但是对于做界面，c会变得很麻烦，vb则相对简单。vb语言的语法要求不严格，可以不事先声明变量（当然是个人设置的），c必须先声明后使用，vb是一种事件驱动的程序结构，c的程序必须从一个main函数开始，c支持指针，v b不支持。
c入门相对较难，vb则很容易入门，但是后续的深入学习c会变得相对容易。c可以用来做一些底层的和计算机硬件相关的开发工作，v b在这方面相对较差。
tmp_num=Int(Rnd() * 899 + 100) 产生 100至999的随机三位数
tmp_num=Int(Right(tmp_num, 1) & Mid(tmp_num, 2, 1) & Left(tmp_num, 1))
你小气啊，不悬赏！
把产生的随机数转换为字符串，再从右到左分别截取子串，可以利用rnd()函数，len()函数和循环语句等实现
num = Int((999 - 100 + 1) * Rnd + 100)
For i = Len(num) To 1 Step -1
num1 = num1 & Mid(num, i, 1)
Next
Print "原始：" & num; "变换" & num1
C语言程序设计这道题,求求
include<stdio.h> include<stdlib.h> include<time.h> int main(){ int i,a[50],b[50],sum=0,count=0;float average;printf("随机生成50个两位正整数:\\n");srand((unsigned)time(NULL));for(i=0;i<50;i++){ a[i]=rand()%90+10;sum=sum+a[i];if((i+1)%10==0)printf("...
Vb程序设计,
Private Sub Command1_Click() Dim a(1 To 100) As Integer, b() As Integer Dim i As Integer, j As Integer, n As Integer Randomize Timer For i = 1 To 100 a(i) = Int(Rnd * 21) List1.AddItem a(i) If a(i) = 0 Then n = n + 1 End If Next Label...
VB程序设计 简答题
Dim x(100)Private Sub Form_click() dim I as long For I = 0 To 99 x(I) = Rndz(0, 99)'生成随机数字，并赋值给数组 If x(I) < 50 Then Print x(I)'输出小于50的 NextEnd SubPrivate Function Rndz(a As Long, b As Long) Randomize Rndz = Int((a...
c语言 设计小学生四则运算测试程序,要求随机产生10题四则运算题,答完...
\/ sizeyunsuan.c Created on: 2011-6-17 Author: zhanglujin \/ include <stdio.h> include <stdlib.h> include <time.h> int yunsuan(int M){ int m=1,n=0,a,b,daan;while(1) \/\/这里得解决\/的情况，因为这里保证是整数，所以一些条件要满足才能除，若不成立，改为+得了。{ srand...
vb程序设计,急求!!给出代码,感激!
'10个text1，1个命令按钮 Private Sub Command1_Click()Dim I As Integer Dim J As Long '总共生成随机数的次数 Dim K As Integer '生成座位 Dim s(12) As Integer '座位中对应的人 For I = 1 To 10 '按人选座位 Do J = J + 1 Randomize K = Int(Rnd * 12 + 1)Loop While (...
vb 猜字游戏程序设计
If a = I随机(I) Then F判断是否重复 = True Exit Function End If Next F判断是否重复 = False End Function Private Sub Text1_Change()If Len(Text1.Text) = 4 Then Call F猜字 End Sub Function F猜字()Dim I As Integer, j As Integer, B猜对个数 As Integer, B猜对数字 As ...
请问一下,能帮我设计一下这个VB程序。这是个“算法”中的“排序”问题...
Dim a(1 To 50) As Integer Dim b(1 To 50) As Integer Dim c(1 To 50) As Integer Private Sub Command1_Click()Dim j As Integer Me.Text1.Text = "排序前数据" + vbCrLf j = 1 While j <= 50 '产生随机数 a(j) = Int(100 * Rnd())Me.Text1.Text = Me.Text1.Text ...
c语言程序设计 有1、2、2、3、4、5六个数写个程序让他们随机输出,第三...
include<stdlib.h> include<stdio.h> include<conio.h> void main(){ int i,a[6]={1,2,2,3,4,5},b[6]={0},c[6]={0},d,k=0,m=0;srand((unsigned)time(NULL));while(1){ d=rand()%6;if(c[d]==0) \/* 没有输出数组a中该数 *\/ { if(b[k]==0) \/* 没有赋值 ...
...现请你帮忙设计一个100以内的随机出题程序,每次运行生成100道题...
s){ return Sample(n\/s.n);} void disp(){ cout<<"n="<<n<<endl;} };void main(){ int a,b;cout<<"输入两个整数:";cin>>a>>b;Sample s1(a),s2(b),s3,s4,s5,s6;s3=s1+s2;s4=s1-s2;s5=s1*s2;s6=s1\/s2;s3.disp();s4.disp();s5.disp();s6.disp();} ...
VB 程序设计
如你所愿：Dim answer(1 To 20) As Single Dim tt As Integer Dim cl As String Private Sub Command1_Click()Text1.Text = ""tt = 10 Timer1.Enabled = True cl = Chr(13) & Chr(10)Dim i As Integer For i = 1 To 20 Call pro(i)Next i Text1.Text = Text1.Text & "注...
黎生吉巨： Private Sub Form_Load()Dim i As IntegerDim temp As IntegerDim result As StringRandomizeFor i = 1 To 3temp = Rnd * 10If temp = 10 Then temp = 1result = result & Trim(Str(temp))NextPrint ＂随机数:＂ & resultPrint ＂反转后:＂ & StrReverse(result) End Sub
建华区18615913906： vb中单击按钮随机产生一个三位正整数 - ？
黎生吉巨： Private Sub Command1_Click() Randomize MsgBox Int(Rnd * 900 + 100) End Sub
建华区18615913906： VB能生成三位数的整数随机数的语句 怎么写 - ？
黎生吉巨： Randomizeinum = Int((900) * Rnd + 100)
建华区18615913906： vb.net中产生三位正整数的随机数的程序写法 - ？
黎生吉巨： '项目:VB中产生在一定正整数范围内的不重复的随机数'作者:qq15495835Private Sub Command1_Click() Max = 100 '随机数上限值 Min = 1 '随机数下限值 Amount = 10 '产生号码数量(数量值应小于随机数上限值-随机数下限值)否则会产生死...
建华区18615913906： 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 仅供参考哦,呵呵.
建华区18615913906： VB编写一个程序:分别随机生成3 个正整数,其中一个是1 位数、1 个是2 位数、1 个是3 位数. - ？
黎生吉巨： Private Sub Command1_Click()Dim a, b, c As IntegerClsRandomizea = Int(10 * Rnd)b = Int(100 * Rnd)c = Int(1000 * Rnd)Print ＂a=＂ & aPrint ＂b=＂ & bPrint ＂c=＂ & cEnd Sub
建华区18615913906： VB 随机产生一个三位正整数,然后逆序输出,产生的随机数与逆序数同时显示.例如:357和753 - ？
黎生吉巨： 你的程序可以说是正确的,并且还有一定技巧,比如用rnd *900加100.580逆序结果从数值上看就是85,因此也很正确.如果要求显示085,说明要求以字符形式输出只需改动i句(倒数第四句)即可.我无法用键盘输入,很多符号打不上,请原谅.
建华区18615913906： VB如何产生一个随机的三位数,数字可以重复 - ？
黎生吉巨： 用两行命令: randomize x=int(rnd()*900+100)
建华区18615913906： vb:双击窗体后随机产生一个三位正整数,若它是5的倍数则将此数倒置后输出,否则结束程序的运行 - ？
黎生吉巨： 需要一个按钮,两个文本框 Private Sub Command1_Click() Dim myval As Integer myval = Int(Rnd() * 900 + 101) If myval Mod 5 = 0 Then Text2.Text = myval '这里输出原数 Text1.Text = Mid(myval, 3, 1) & Mid(myval, 2, 1) & Mid(myval, 1, 1) '这里输出倒序后的数 End If End Sub 希望帮到你!
建华区18615913906： vb随机产生一个3位正整数,然后逆序输出,产生的随机数与逆序数同时显示,例如,产生189,逆序981(用VB6.0做) - ？
黎生吉巨： Dim sum, a, b, c As Integer, m As Single Private Sub Cmd1_Click() Randomize m = Int(Rnd * 900 + 100) Print ma = m \ 100 b = (m Mod 100) \ 10 c = m Mod 10 sum = c * 100 + b * 10 + a Print sum End Sub
