1. vb如何产生多个随机数
VB使用Rnd 函数产生随机数。
Rnd 函数，返回一个包含随机数值的 Single。
Rnd 函数示例
本示例使用 Rnd 函数随机生成一个 1 到 6 的随机整数。
Dim MyValue
MyValue = Int((6 * Rnd) + 1) ' 生成 1 到 6 之间的随机数值
2. vb怎样产生随机数
定义一个全局变量的数组：
dim a(10) as integer
随机产生10个两位的素数，素数各不相同：
Dim a(10), x As Integer
Dim str As String = ""
Dim di As Boolean = True
Dim n As Integer
Dim sd As
For i = 1 To 10
Do
Do
Randomize()
n = Int(Rnd() * 100 + 10)
Loop Until IsSushu(n)
If i > 1 Then
For x = 1 To i - 1
If a(x) = n Then
di = False
End If
Next
End If
Loop Until di = True
a(i) = n
'str = str & a(i) & " "
Next
随机数升序排序：
For i = 1 To 10
For j = 1 To 10 - i
If a(j) > a(j + 1) Then
x = a(j + 1)
a(j + 1) = a(j)
a(j) = x
End If
Next j
Next i
For i = 1 To 10
str = str & a(i) & " "
Next
将升序的数组写入文件：
Dim file As New System.IO.StreamWriter("data1.txt")
file.WriteLine(str)
file.Close()
读取文件，并写入数组及降序排序：
Dim file As New System.IO.StreamReader("data1.txt")
Dim words As String = file.ReadToEnd()
file.Close()
Dim b() As String
Dim temp As Integer
Dim str1 As String
str1 = ""
b = Split(words, " ")
Dim c() As Integer
Dim l As Integer
l = UBound(b)
ReDim c(l)
For i = 1 To l
c(i) = Val(b(i - 1))
Next
For i = 1 To l
For j = 1 To l - i
If c(j) < c(j + 1) Then
temp = c(j + 1)
c(j + 1) = c(j)
c(j) = temp
End If
Next j
Next i
For i = 1 To l
str1 = str1 & c(i) & " "
Next
MsgBox(str1)
3. 如何用vb产生随机数
VB使用Rnd 函数产生随机数。Rnd 函数，返回一个包含随机数值的 Single。Rnd 函数示例本示例使用 Rnd 函数随机生成一个 1 到 6 的随机整数。
Dim MyValue
4. vb随机生成n个数
privatesubcommand1_click() dimiasinteger,nasinteger,stasstring dimn1asinteger,n2asinteger fori=1to10 n=int(rnd*90)+10 st=st&str(n) ifnmod=0then n1=n1+1 else n2=n2+1 endif nexti text1.text=st text2.text=n1 text3.text=n2 endsub privatesubcommand2_click() text1.text="" text2.text="" text3.text="" endsub privatesubcommand3_click() end endsub
5. vb怎么生成随机数
VB生成1-100之间的随机整数，可以使用系统自带的Rnd()方法进行实现，代码如下：萊垍頭條
Private Sub Command_Click()Dim MyValue //定义一个随机数垍頭條萊
MyValue = Int((100 * Rnd) + 1) //rnd()函数生成随机数萊垍頭條
Print MyValue //打印出这个随机数萊垍頭條
End Sub萊垍頭條
Private Sub Form_Load()條萊垍頭
Randomize //初始化随机数生成器頭條萊垍
End Sub萊垍頭條
萊垍頭條
6. vb中如何产生随机数
为了生成某个范围内的随机整数，可使用以下公式：
Int((upperbound - lowerbound + 1) * Rnd + lowerbound)
例如：
print Int((126 + 1) * Rnd + 1)
1
7. vb产生两个随机数
用个大循环，每次产生一个随机 数，之后再用个小循环检查刚产生的数与此前产生的所有随机数对比，没有重复则记下此次产生的随机数，退出小循环，有重复的就直接退出小循环，此次产生的数不作处理。
- 相关评论
- 我要评论
-