用VB生成一个1到100之间的随机数
如何用VB生成1~100的随机数? -
1、2、3按照90%、5%、5%的比例生成随机数的方法:生成一个1~100的随机数,1~90表示1、91~95表示、96~100表示3,公式使用RANDBETWEEN和VLOOKUP(实现转换),公式为:VLOOKUP(RANDBETWEEN(1,100),{1,1;95,2;96,3},2)示例:
Randomize ' 对随机数生成器做初始化的动作。MyValue = Int((100 * Rnd) + 1) ' 生成 1 到 100 之间的随机数值。
1、2、3按照90%、5%、5%的比例生成随机数的方法:生成一个1~100的随机数,1~90表示1、91~95表示、96~100表示3,公式使用RANDBETWEEN和VLOOKUP(实现转换),公式为:VLOOKUP(RANDBETWEEN(1,100),{1,1;95,2;96,3},2)示例:
Randomize ' 对随机数生成器做初始化的动作。MyValue = Int((100 * Rnd) + 1) ' 生成 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 /还有呢?
因此要产生1~100之间的随机数,可以使用Rnd*98,产生的是[0,98)的随机数,而int(Rnd*98)产生的是[0,97]之间的随机整数,那么int(Rnd*98)+2产生的就是[2,99]之间的随机整数了,符合目标1到100之间的随机数目的。函数代码如下:Public Function sj() As Integer Randomize sj = Int(Rnd * 98还有呢?
vb产生随机数1至100 -
假定获得的随机数放在变量x中第一种方法(推荐):Print Format(x, "00")第二种方法:Print Right("0" & x, 2)补充:Picture1.Print a(i);改为Picture1.Print Format(a(i), "00");
你这个程序能够运行。既能让1-100各个数字按随机顺序排列,也能把这个序列的各个数字保存到文件中。只是,这个方法效率太低,应该用更好的算法提高效率。有什么问题请留言。
VB编程中,从1-100中随机产生一个随机数并判断它的奇偶性。跪求各位大...
Dim s As Integer = Int(Rnd() * (100 + 1)) If s Mod 2 Then MsgBox("奇数: <" & s.ToString & ">") Else MsgBox("偶数: <" & s.ToString & ">") End If
代码:Private Sub Command1_Click()'单击command1按钮dim nRandomizen = Int((100 - 1+ 1) * Rnd + 1)If n > 50 then'判断print n '如果大于50msgbox "生成的随机数是" & n & " 大于50"'这里n就是随机数Else '如果小于等于50msgbox "随机数" & n & " 小于等于50"End IfEnd是什么。
vb 1到100内产生20个随机数 -
Private Sub Command1_Click()For i = 1 To 20 Randomize Text1 = Text1 & Space(1) & Int(Rnd * 100 + 1)Next End Sub Private Sub Command2_Click()On Error Resume Next t = Split(Text1, " ")For j = 0 To UBound(t) - 1 If t(j) Mod 2 <> 0 Then Text2 = Text2到此结束了?。
1、打开“Microsoft Visual Basic 6.0 中文版”软件,准备一个空白的工程文件:2、然后需要一个命令按钮,单击左侧工具箱中的“命令按钮”,在窗体中右侧拖动鼠标左键画出即可:3、双击该命令按钮,这里演示输入代码打印0~10之间的任意随即整数,生成其他范围的随机整数公式为“int((上限-下限+1)希望你能满意。