设计一个窗体,随机生成一个三位整数将它逆序输出,vb代码
可以参考下面的代码:
private sub command1_click()
x=inputbox("输入一个三位数")
X1=X\100 'x1=三位数 的百位
X2=(X-X1*100)\10 '十位
X3=X-X1*100-X2*10 '个位
msgbox X3&X2&X1
end sub
扩展资料:
VB基本函数
CBool 函数: 返回已被转换为 Boolean 子类型的变体的表达式。
CByte 函数: 返回已被转换为字节子类型的变体的表达式。
CCur 函数 :返回已被转换为货币子类型的变体的表达式。
CDate 函数: 返回已被转换为日期子类型的变体的表达式。
CDbl 函数: 返回已被转换为双精度子类型的变体的表达式。
参考资料来源:百度百科-Visual Basic
用你哪种方法,不大好实现,你的程序可以如下修改
Private Sub Command1_Click()
Randomize
Text1.Text = CStr(Int(Rnd() * 900)) + 100
End Sub
Private Sub Command2_Click()
Dim a, b, c As Integer
a = Val(Text1.Text) \ 100
b = (Val(Text1.Text) - a * 100) \ 10
c = Val(Text1.Text) Mod 10
Text2.Text = CStr(c) + CStr(b) + CStr(a)
End Sub
Private Sub Command3_Click()
Text1.Text = ""
Text2.Text = ""
End Sub
Private Sub Command4_Click()
Unload Me
End Sub
VB如何生成随机数
1、打开“Microsoft Visual Basic 6.0 中文版”软件,准备一个空白的工程文件:2、然后需要一个命令按钮,单击左侧工具箱中的“命令按钮”,在窗体中右侧拖动鼠标左键画出即可:3、双击该命令按钮,这里演示输入代码打印0~10之间的任意随即整数,生成其他范围的随机整数公式为“int((上限-下限+1)*...
vb编程问题"单击窗体产生10个两位的随机整数,计算并显示出最大的数据...
Dim j As Integer, max As Integer For i = 1 To 10 a(i) = Int(Rnd * (99 - 10 + 1) + 10)Print a(i)Next i Print max = 1 For i = 1 To 10 If a(i) > a(max) Then max = i Next i Print "最大的数是:"; a(max), "是第"; max; "个数"End Sub ...
用vb设计一个随即抽取幸运数字的程序,单击"开始"按钮,在文本框中随机产...
Command3_Click()Call Command2_Click End End Sub 双击窗体,添加下面代码 Private Sub Form_Load()Randomize Timer End Sub 双击定时器,添加下面代码 Private Sub Timer1_Timer()Dim a As Long a = Int(Rnd * 9000000 + 1000000)Text1 = a End Sub 运行一下,一个幸运数字程序新鲜出炉 ...
随机产生10范围在1到100之间的正整数,分别计算偶数和奇数的个数,并在...
int i,j,c = 0,h= 0;void main(){ int a[10];for ( i=0; i<10; i++)a[i] = rand()%90 + 10;for ( i=0; i<10; i++){ if (a[i] % 2 == 0)c++;else h++;} for ( i=0; i<10; i++)printf("%d ", a[i]);printf("\\n");printf("偶数个数 %d \\...
vb6中,当程序运行后,随机产生一个数,并且判断奇数偶数。程序怎么写...
'添加窗体Form1,文本框Text1,按钮Command1,Command2,然后添加如下代码:PrivateSubForm_Load()Command1.Caption="产生随机数"Command2.Caption="判断"Text1.Locked=False a=False EndSub PrivateSubCommand1_Click()Text1.Text=Int(Rnd()*100)EndSub PrivateSubCommand2_Click()IfNotaThen MsgBox"请产生...
c#编程随机生成加减乘除的数学题目,写出答案并一分钟倒计时,结束显示答 ...
窗体程序,加一个Timer,5个label和一个textbox,1个button Timer的事件属性设成1000 Form_Load事件 LabelTime.Text = "60";Timer.Start();newWork();--- int correct = 0;int count = 0;void newWork(){ Random rd = new Random();Label1.Text = rd.Next(1,100);Label3.Text = rd.N...
怎么让vb在文本框上随机产生一个1-10的整数?
随机数的返回格式 用a表示下界,b表示上界,用一下的命令可以返回a~b之间的任意数 int(rnd()*(b-a+1))+a 你是要产生一个1~10之间的数,并显示与文本框上。假设这个文本框是Text1就可以这样 Text1.Text = Str(Int(Rnd()*10)+1)...
用VB,随机生成20个100以内的正整数,将其中的奇数和偶数分两行显示在...
Private Sub Form_Activate()Dim myarray(1 To 20) As Integer Dim myarray2(1 To 20) As Integer Dim myarray3(1 To 20) As Integer Dim j As Integer j = 1 Dim k As Integer k = 1 Dim i As Integer For i = 1 To 20 Randomize myarray(i) = (1 - 100) * Rnd + ...
C#窗体程序怎么实现点一个按钮在Textbox控件里输出随机字符串_百度知 ...
\/\/\/ 随机字符串的长度 \/\/\/ <returns><\/returns> private string GetStr(int num){ string result = "";\/\/随机字符串结果 for (int i = 0; i < num; i++){ int randomNum = random.Next(strs.Length);\/\/产生一个小于随机字符串集合数量的非负整数 result += strs[randomNum];\/...
设计一个窗体,窗体上显示数字,利用定时器控件,每隔100毫秒数字增加1...
以下为为你量身定做的代码,基本可以实现你的要求,误差为10ms,另外DateDiff函数不支持ms级。。。Dim i As Integer '定义全局变量,为了减少程序运行时间,尽量将变量定义在timer外面 Dim t As Integer Dim sTest As String Private Sub Command1_Click()Print "OK"End Sub Private Sub Form_Load(...
城香百虑: 首先在窗体中添加两个标签Lable1和Lable2,然后选择form 的属性click双击在后台的Form1_Click中写下面的代码就可以了 private void Form1_Click(object sender, EventArgs e) { Random rand = new Random(); int a = rand.Next(100, 999); label1....
奎屯市17885811847: 如何用C语言随机产生一个三位整数? - ?
城香百虑: 思路:分别产生个、十、百位上的随机数,依次组合在一起 #include<stdio.h> #include<stdlib.h> #include<time.h> int main() {int i,tmp;num=0;srand((unsigned)time(NULL));//初始知化随即种子tmp=rand()%10; //产生个位上的随机数num=...
奎屯市17885811847: 设计一个窗体,输入一个三位整数,将其反向输出.例如输入246,输出642. - ?
城香百虑: 在窗体上放一个文本框,名为text1,再放一个按钮,名为command1 最后在代码里写入:Private Sub Command1_Click() Dim str, str1 str = Form1.Text1.Text str1 = StrReverse(str) Print str1 End Sub
奎屯市17885811847: 单击窗体时,随机产生一个三位整数,然后逆序输出该数产生的数与逆序数同时显示 该怎么弄 谢谢 - ?
城香百虑: 利用c或者VB都能实现.
奎屯市17885811847: 有关VB窗体输出3个随机整数等等?
城香百虑: 两个TextBox为Text1控件组,三个按钮……看注释 Option Explicit Dim i As Long Dim X(2) As Long Private Sub Command1_Click() '生成随机数 Randomize For i = 0 To 2 X(i) = Int(Rnd * (Text1(1).Text - Text1(0).Text) + Text1(0).Text) Next i ...
奎屯市17885811847: VB设计一个窗体,输入一个三位整数,将它反向输出.例如输入123,输出着为321,程序代码怎么写 - ?
城香百虑: 最简单的方案,试验通过. 代码: Dim a, b As String Private Sub Command1_Click() a = Text1.Text b = StrReverse(a) '反向字符串 Text2.Text = b End Sub
奎屯市17885811847: VB编程题.设计一个窗体,输入一个3位整数,将它反向输出.例如输入123,输出为321 - ?
城香百虑: 不用那么麻烦的,一个函数就可以了.StrReverse() dim s as string s=inputbox("输入一个数字") msgbox "你输入的是:" & s & "倒置后是:" strreverse(s)
奎屯市17885811847: 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 希望帮到你!
奎屯市17885811847: 编写程序,实现随机生成一个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; }
奎屯市17885811847: vb编写代码:在窗体的单击事件中完成:随机产生100个三位正整数,按从大到小的顺序在窗体上输出.每 - ?
城香百虑: Private Sub Form_Click() Cls Dim n As Integer Randomize For i = 1 To 10 For j = 1 To 10 n = Int(Rnd * 900 + 100) If n Mod 3 = 0 Then Me.ForeColor = vbRed Print n; Else Me.ForeColor = vbBlack End If Print n; Next j Print Next i End Sub Private Sub Form_Load() Me.AutoRedraw = True End Sub