求一个vb程序,随机十个数字!按一个按钮正序排列,按另一个按钮倒序排列
Private Sub Command1_Click()
Dim i As Long
Randomize
i = Int(Rnd * 999999 + 100000)
Print "随机产生的数为：" & i
Print "倒序 后 的数为：" & StrReverse(Str(i))
End Sub
Private Sub Command2_Click()
Shell "C:\WINDOWS\system32
otepad.exe", vbNormalFocus
End Sub
Private Sub Command1_Click()
Randomize
Text1.Text = Int(Rnd * 900) + 100
End Sub
Private Sub Command2_Click()
Text1.Text = StrReverse(Text1.Text)
End Sub
Dim a(1 To 10) As Integer
Private Sub Command1_Click() '产生随机数
Randomize
For i = 1 To 10
a(i) = Int(Rnd * 90 + 10)
Print a(i);
Next i
End Sub
Private Sub Command2_Click() '正序排列
For i = 1 To 9
For j = i + 1 To 10
If a(i) > a(j) Then b = a(i): a(i) = a(j): a(j) = b
Next j
Next i
For i = 1 To 10
Print a(i);
Next i
End Sub
Private Sub Command3_Click() '倒序排列
For i = 1 To 9
For j = i + 1 To 10
If a(i) < a(j) Then b = a(i): a(i) = a(j): a(j) = b
Next j
Next i
For i = 1 To 10
Print a(i);
Next i
End Sub
VB设计一个随机抽奖程序,当单击开始按钮时,在两个文本框产生【1,20...
假定开始按钮是 Command1，两个文本框分别是 Text1、Text2 Private Sub Command1_Click()Randomize Text1.Text = Int(Rnd * 20) + 1 Text2.Text = Int(Rnd * 20) + 1 End Sub
VB试题随机产生20个50-108(包括50和108)的整数赋给一个一维数组,求其最...
工具／材料：以Microsoft Visual Studio 2010为例。1、首先在桌面上，点击“Microsoft Visual Studio 2010”图标。2、然后在该界面中，输入随机产生20个50-108(包括50和108)的整数赋给一个一维数组的代码“Dim arr(1 To 20) As Integer Dim max As Integer For i = 1 To 20 arr(i) = Int(...
vb程序:随机生成一个4X4矩阵,求出对角线元素之和,并求出所有元素的平均...
Option Explicit Private Sub Command1_Click()Dim arr(1 To 4, 1 To 4) As Long, i As Integer, j As Integer, sum As Long, sum1 As Long For i = 1 To 4 For j = 1 To 4 Randomize arr(i, j) = Int(100 * Rnd) + 1'随机生成1-100的整数 sum = sum + arr(i, j)...
vb编写一个程序,随机生成十个两位数保存到一维数组中,把该数组的各元素...
'VB6.0代码Dim N(1 To 10) As StringPrivate Sub Command1_Click()Dim i As IntegerFor i = 1 To 10 N(i) = Int(Rnd * 90 + 10)NextText1.Text = Join(N, " ")End SubPrivate Sub Command2_Click()Dim i As IntegerDim m As StringFor i = 1 To 5 m = N(i) ...
编一VB程序,随机产生10个30~100(包括30,100)的正整数,求最大值,最小...
Private Sub Command1_Click()Dim a(10)Randomize Dim sum As Integer, min As Integer, max As Integer sum = 0: min = 100: max = 30 For i = 0 To 9 a(i) = Int(30 + (71 * Rnd))sum = sum + a(i)If a(i) < min Then min = a(i)If a(i) > max Then max =...
请问怎样在vb生成一个1到100的随机整数?
VB生成1-100之间的随机整数，可以使用系统自带的Rnd()方法进行实现，代码如下：Private Sub Command_Click() Dim MyValue \/\/定义一个随机数 MyValue = Int((100 * Rnd) + 1) \/\/rnd()函数生成随机数 Print MyValue \/\/打印出这个随机数End SubPrivate Sub Form_Load() Randomize...
用vb编程随机产生15个不重复的英文字母
给你一个完整程序吧：Dim c(1 To 15) As String Dim i As Integer, j As Integer, a As Integer Randomize Timer a = 65 + Int(Rnd * 26) + 32 * Int(Rnd * 2)c(1) = Chr(a)For i = 1 To 14 Do While True 'Not f a = 65 + Int(Rnd * 26) + 32 * Int(Rnd * ...
vb随机产生100个自然数,将它们从大到小的排序。并输出
Private Sub Form_Click()Form1.AutoRedraw = True Form1.Cls Dim A(100) As Integer Dim I As Integer, J As Integer, K As Integer Randomize Print "随机产生的100个数是："For I = 1 To 100 A(I) = Int(Rnd * 999 + 1)Print A(I);If I Mod 10 = 0 Then Print Next For...
VB如何生成随机数
3、双击该命令按钮，这里演示输入代码打印0～10之间的任意随即整数，生成其他范围的随机整数公式为“int（（上限-下限+1）*Rnd+下限）”，如果是1到53就是“int（（1-53+1）*Rnd+53”：4、写完之后运行程序，每单击一次命令按钮，就会在窗体上打印一个0～10之间的随即整数：...
vb语句 设计一个随机数程序,生成10个范围是1到100随机整数,并求出这...
'声明变量 dim Min_num as int dim Max_num as int dim Sum_num as int dim Arr_num(9) as int '赋予初始值 Min_num=101 Max_num=-1 Sum_num=0 '循环10次获得10个随机数 for i=1 to 10 randomize Arr_num(i-1)=int(rnd*100)+1 '判断后赋值最小值 if Arr_num(i-1)<Min_...
米浩金银： Private Sub Command1_Click() Open ＂d:\data.txt＂ For Output As #1 Randomize Print ＂输入文件:＂ For i = 1 To 10 x = 30 + Int(Rnd * 61) Print #1, x; Print x; Next i Print Close #1 Print ＂从文件中读出:＂ Open ＂d:\data.txt＂ For Input As #1 ...
温县17254161109： 新建一个工程文件sjt4vbp程序的功能是单击产生随机数按钮可以产生十个随机数 - ？
米浩金银： 在考生文件夹下有一个工程文件sjt5.vbp.其窗体中有一个名称为Text1的文本框数组,下标从0开始.程序运行时,单击“产生随机数”按钮,就会产生10个3位数的随机数,并放入Text1数组中(如图1所示);单击“重排数据”按钮,将把Text1中的奇数移到前面,偶数移到后面(如图2所示).已经给出了所有控件和部分程序.要求去掉程序中的注释符,把程序中的?改为正确的内容,使其能正确运行,不能修改程序的其他部分和控件属性.最后把修改后的文件按原文件名存盘.提示:在“重排数据”按钮的事件过程中有对其算法的文字描述,请仔细
温县17254161109： vb程序设计.设计一个程序,可以随机产生10个随机数,并将这10个数字进行倒置和进行升序排序,如下图所示？
米浩金银： <p></p> <p> </p> <p>Dim a(10) As Integer, i As Integer Private Sub Command1_Click() For i = 1 To 10 a(i) = Int(Rnd * 90 + 10) Next i For i = 1 To 10 Text1.Text = Text1 + vbCrLf + Str(a(i)) Next i End Sub Private Sub Command2_Click() For i = 10 ...
温县17254161109： 用VB语言随机生成10个不能重复的数?? - ？
米浩金银： Private Sub Command1_Click() Dim i As Integer Dim a As Integer Randomize For i = 1 To 10 a = Int(10 * Rnd) Print a; Next i End Sub
温县17254161109： Vb编写程序,随机生成 10 个[1,100]的整数,输出其平均值及大于平均值的数. - ？
米浩金银： Private Sub Command1_Click() '生成10-100间10个数字求平均值及大于平均值的数字 Me.Cls Dim a() As Integer, i As Integer, he As Integer Dim pj As Single ProduceShu 10, 100, 10, a() Print ＂生成的10个数字分别为:＂ & Space(2); For i = ...
温县17254161109： vb随机生成10个数,在1到100之间,并且按照从大到小的顺序排成一行 - ？
米浩金银： Dim shuzu(1 To 10) As Integer Dim i As Integer Private Sub Form_Load() Me.AutoRedraw = True Randomize i = 1 For i = LBound(shuzu) To UBound(shuzu) shuzu(i) = 1 + Int(100 * Rnd()) Print shuzu(i); Next Print paixu shuzu For i = LBound(shuzu) ...
温县17254161109： 用VB写出产生10个1到100的随机整数 - ？
米浩金银： dim a(10) as integer randomize for i=1 to 10a(i)=int(100*rnd)+1 next i
温县17254161109： 用VB做 1.随机产生10个正整数,求其中的最小值,并将原始数据和最小值显示在窗体中. - ？
米浩金银： option explicit dim myvalue(19) as integer private sub command1_click() '单击按钮开始冒泡法 dim i as integer, y as integer, temp as integer for i = 0 to 18 for y = i + 1 to 19 if myvalue(i) > myvalue(y) then temp = myvalue(i) myvalue(i) = myvalue(y) ...
温县17254161109： 用vb设计一个程序:从0到100中随机抽取10个数,保存到数组中,查找出最大值并查找其位置 - ？
米浩金银： Private Sub Command1_Click() Dim i, b(1 to 10) As Long, max As Long, d As Integer Print ＂10个随机数:＂ Randomize For i = 1 To 10 b(i) = Int(Rnd * 100) Next i max = 0 For i = 1 To 10 Print b(i); If max < b(i) Then max = b(i): d = i Next i Print Print ＂其中最大值为:＂ & max, ＂位置是第＂ & Trim(Str(d)) & ＂个＂ End Sub
温县17254161109： vb编写一个程序,利用随机函数Rnd生成10个10 - 99之间的整数,并计算其中素数的个数 - ？
米浩金银：n= [ 10+int(90*rnd) ]st = [ st + ＂ ＂ + n ]forj=2 to [ n ][ n1=n1+1 ][ exit for ]text1.text=[ st ]text2.text= [ n-n1 ]
