vbvb生成随机数数问题，三位数100-129，vb生成随机数

来源：蜘蛛抓取(WebSpider) 时间：2018-04-28 09:07 标签： vb生成随机数
vb题随机生成【0,100】10个数,选择法排序。_百度知道
vb题随机生成【0,100】10个数,选择法排序。
我有更好的答案
Dim a(1 To 10) As Integer, zc As IntegerFor i = 1 To 10
a(i) = Int(Rnd * 101)
'0~100一共101个数，从零开始，所以是int(rnd*101+0)，+0省略
Print a(i);
'打印原始数据Next iPrintFor i = 1 To 10
For j = 1 To 9
If a(j + 1) & a(j) Then
'如果下标较大的比下标较小的还要小
zc = a(j + 1)
'就替换
a(j + 1) = a(j)
Next jNext iFor i = 1 To 10
Print a(i);
'打印排序后数据Next i如果要在Form中成功打印需要把Form.AutoRedrew设置成True
采纳率：86%
Private Sub Command1_Click()& Dim a(10) As Integer& For i = 1 To 10& & a(i) = Int(101 * Rnd)& Next i& For i = 1 To 9& & k = i& & For j = i + 1 To 10& & & If a(j) & a(k) Then k = j& & Next j& & t = a(i): a(i) = a(k): a(k) = t& Next i& For i = 1 To 10& & Print a(i);& Next i& Print: PrintEnd Sub
本回答被网友采纳
Timer1 嗯嗯嗯...
为您推荐：
其他类似问题
选择法的相关知识
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。用vb如何生成0-100之间的随机数_百度知道
用vb如何生成0-100之间的随机数
我有更好的答案
Private Sub Command1_Click()Dim oushu%, danshu%, sum%oushu = 0danshu = 0For i = 1 To 10Randomizesum = Int(Rnd * 100)If sum Mod 2 = 0 Thenoushu = oushu + sumElsedanshu = danshu + sumEnd IfNext iText1.Text = oushuText2.Text = danshuEnd Sub求采纳为满意回答。
采纳率：64%
为您推荐：
其他类似问题
随机数的相关知识
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。如何用vb编个 每次产生的随机数与之前产生过的都不同？求代码_百度知道
如何用vb编个 每次产生的随机数与之前产生过的都不同？求代码
我有更好的答案
Private&Sub&Command1_Click()Text1.Text&=&&&Dim&A(1&To&20)For&I&=&1&To&20&&&&Randomize:&Randomize&&&&A(I)&=&Int(Rnd&*&90&+&10)Next&I'下面对数组排序For&I&=&1&To&19&&&&For&J&=&1&To&20&-&I&&&&&&&&If&A(J)&&&A(J&+&1)&Then&&&&&&&&&&&&XX&=&A(J)&&&&&&&&&&&&A(J)&=&A(J&+&1)&&&&&&&&&&&&A(J&+&1)&=&XX&&&&&&&&End&If&&&&Next&JNext&I'下面判断是否有重复数据，有后面数据+1For&I&=&1&To&19&&&&For&J&=&1&To&20&-&I&&&&&&&&If&A(J)&=&A(J&+&1)&Then&&&&&&&&&&&&A(J&+&1)&=&A(J&+&1)&+&1&&&&&&&&End&If&&&&Next&JNext&IFor&I&=&1&To&20&&&&Text1.Text&=&Text1.Text&&&A(I)&&&Space(4)Next&IEnd&Sub
采纳率：64%
最好再加一个Randomize,防止每次运行产生相同随机序列。
为您推荐：
其他类似问题
随机数的相关知识
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。用VB，生成一个1到100之间的随机数_百度知道
用VB，生成一个1到100之间的随机数
我有更好的答案
对随机数生成器做初始化的动作。
之间的随机数值。
采纳率：49%
Private Sub Command1_Click()Text1.Text = Int(Rnd(1) * 100)End Sub点击按钮COMMAND1 就在文本TEXT1里输出 随即数
int(rnd*(100+1)+1) 或者 int(100*rnd+1)
Randomize(rnd * 100)+1
其他1条回答
为您推荐：
其他类似问题
您可能关注的内容
随机数的相关知识
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。当发生按钮的单击事件的时候，首先在两个文本框中随机产生[10~100](包括10,包括100)的随机数，(vb)_百度知道
当发生按钮的单击事件的时候，首先在两个文本框中随机产生[10~100](包括10,包括100)的随机数，(vb)
我有更好的答案
在按钮代码下写以下代码(假设那两个文本框是 text1 和text2)randomizetext1=int(rnd*91+10)text2=int(rnd*91+10)
采纳率：27%
为您推荐：
其他类似问题
文本框的相关知识
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。

我要回帖

更多关于 vb生成随机数 的文章

 

随机推荐