mtwm.net
当前位置:首页 >> vB生成随机数组 >>

vB生成随机数组

1、随机生成数生成通式:Randomize '必要代码,不然的话每次随机生成都是一样的数 a=int(rnd*(m-n+1))+n ' 其中m>n生成n~m间(包括n,m)的随机整数 假如我想随机生成20-100间 ,那么就是n=20,m=100 代码是int(rnd*(100-20+1))+202

纯数组用Int(rnd(1)*数值)先定义好行为x之后令x=Int(rnd(1)*数值)就可以了

补充:Private Sub Command1_Click() Dim i%, j%, x% Randomize For i = 1 To 5 For j = 1 To 10 x = Int(10 * Rnd + 1) Print x; If x = 8 Then Exit For Next Print Next End Sub Int((upperbound - lowerbound + 1) * Rnd + lowerbound) Rnd 函数 返回一个包

晕!你这是要整个程序还是思路啊?我只能给你个思路!第一步:界面!picturebox和三个command 第二步:程序!1,用随机函数生成数组(就是两个随机函数生成数组,赋予某一个变量)哦,这是二维数组的,一维数组只需要一个随机函数就可以了2,将随机生成数组的这一段程序添加到50次的循环过程中3,分别用不同的排序方法排序并输出(排序其实很简单,就是循环过程中嵌套比较就可以了,输出的时候用格式format输出) 第三步:调试!over!

Randomize Dim m(8, 8) As Integer Dim mx As Integer, mr As Integer, mc As Integer For i = 1 To 8 For j = 1 To 8 m(i, j) = Rnd * 899 + 0.5 + 100 If m(i, j) > mx Then mx = m(i, j) mr = i mc = j End If Next j Next i MsgBox "最大数是" & mx & ",在第" & mr & "行,第" & mc & "列"

给你个函数.'// 取得随机字符串 Public Function GetRndString(ByVal lngNum AS Long) As String If lngNum <= 0 Then Exit Function Dim i as Long Dim intLength As Integer Const STRINGSOURCE = "0123456789

private sub command1_click()dim a(1 to 10) as integer, i as integer, t as integer, j as integerrandomize print "随机数:";for i = 1 to 10 a(i) = int(90 * rnd + 10) print a(i);next ifor j = 2 to 10 for i = 10 to j step -1 if a(i) 评论0 0 0

VB可使用Randomize 语句和Rnd 函数输出随机数列到数组.1)Rnd 函数,返回一个包含随机数值的 Single.语法:Rnd[(number)] 可选的 number 参数是 Single 或任何有效的数值表达式.2)Randomize 语句,初始化随机数生成器.语法:

不是很清楚问题dim a as integera=((rnd*4) mod 4)+1

Private Sub Command1_Click() Me.Cls Dim i As Integer '数组元素的个数 Dim a() As Byte '数组每单元 0-255 Dim nMax As Integer nMax = 500 '定义最大阀值 Dim s As Integer '数组前几个数的和 Randomize Do While s = nMax 跳出循环 i = i + 1 ReDim Preserve a(i) a(i) = Int(Rnd() * 256) '产生 0-255 的随机数 Print a(i) s = s + a(i) Loop Text1.Text = s 'Text1 显示End Sub

网站首页 | 网站地图
All rights reserved Powered by www.mtwm.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com