88问答网
所有问题
当前搜索:
vb随机产生数字的代码
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
如何
生成随机数
答:
1、打开“Microsoft Visual Basic 6.0 中文版”软件,准备一个空白的工程文件:2、然后需要一个命令按钮,单击左侧工具箱中的“命令按钮”,在窗体中右侧拖动鼠标左键画出即可:3、双击该命令按钮,这里演示输入
代码
打印0~10之间的任意随即整数,
生成
其他范围的
随机
整数公式为“int((上限-下限+1)*R...
VB中
,
随机产生
10个0~100之间的
随机数
,按从小到大的顺序排列怎么做?
答:
新建一个form1添加command1添加label1label1高度设的稍高一点,以显示数据。form
代码
视图中加入以下语句.Private Sub Command1_Click() '定义变量 Dim a(9) As Integer Dim i As Integer Dim r As Integer Dim t As Integer '
产生随机数
Randomize For i = 0 To 9 a(i) = CInt(Rnd(...
vb随机产生
500个1-6之间的整数,统计123456每个
数字
出现的次数,设计程 ...
答:
Private Sub Command1_Click()Dim a(6) As Integer Randomize For i = 1 To 500 x = Int(6 * Rnd) + 1 a(x) = a(x) + 1 Next i Print " 整数";For i = 1 To 6 Print Tab(5 * i + 7); i;Next i Print Print "出现次数";For i = 1 To 6 Print Tab(5 * i +...
vb的
题目:
随机生成
100个10到1000之间的
随机数
,将它们之中的偶数个数统 ...
答:
放一个列表框用来显示
生成的
100个随即
数
,2个按纽,其中一个用来生成随即数,另一个用来统计和计算结果,
代码
如下 Private Sub Command1_Click()Dim i As Integer For i = 0 To 99 Randomize List1.List(i) = Int(Rnd * (1000 - 10 + 1) + 10)Next i End Sub Private Sub Command2_...
vb产生随机数
1.【10到1000之间的整数(包含10和1000)】 2. 【一个两 ...
答:
1.Dim number Randomize Timer() '使每次
产生的数字
都不一样 number=Int((991*Rnd())+10) '
产生随机
数 Rnd()产生的数>=0且<1 2.Dim number Randomize Timer() '使每次产生的数字都不一样 number=Int((90*Rnd())+10) '产生随机数 ...
vb编程产生
20个200以内的
随机数
并从大到小排序输出
答:
Print "
产生的数
:"For i = 1 To 20 a(i) = Int(Rnd * 201)Print a(i);Next i Print For i = 1 To 19 For j = 1 To 20 - i If a(j) < a(j + 1) Then t = a(j): a(j) = a(j + 1): a(j + 1) = t End If Next j Next i Print "排序以后:"For i...
用
VB
来写
代码
,用循环if或do来写:
随机产生
n个(1~100)之间的数,求它们的...
答:
Randomize '初始
随机数
suiji(i) = Int(Rnd * 100) + 1 For j = 1 To i - 1 If suiji(i) = suiji(j) Then i = i - 1 Exit For End If Next j Next i da = 0 xiao = 100 For i = 1 To n '输入到文本 Text1 = Text1 & suiji(i) & " "If suiji(i) > da ...
电脑本身怎么
随机产生
一个三位数,然后输出该
数字的
百位数、十位数和...
答:
private sub command1_click()randomize a=int(rnd*900)+100 '
产生
100~999之间的
随机数
print "随机数:"; a print "百位数:"; a\100 print "十位数:"; a\10 mod 10 print "个位数:"; a mod 10 print "反向输出:"; StrReverse(a)end sub ...
VB
题目:
随机产生
1-33之间的6个
随机数
(保证6个
数字
不重复)按照从大到小...
答:
For i = 0 To 5 num(i) = Int(Rnd * 53) + 1 Next PrintNum "新
生成的
6个
随机数
为:", num()For i = 0 To 5 For j = 0 To 5 If num(j) < num(j + 1) Then tmp = num(j)num(j) = num(j + 1)num(j + 1) = tmp End If Next Next PrintNum "排序后的6个...
1
2
3
4
5
6
7
8
9
10
涓嬩竴椤
灏鹃〉
其他人还搜
vb产生随机数的代码
vb随机产生整数代码
vb生成随机数的代码
vb里随机产生运算符号的代码
vb随机数的代码编写
vb随机生成四位数代码
vb编程随机数字代码
vb 随机产生一个范围的数
vb中如何产生随机数