如何用VB制作随机数程序
来源:学生作业帮 编辑:大师作文网作业帮 分类:综合作业 时间:2024/11/10 23:13:06
如何用VB制作随机数程序
用VB制作一个 0-9十个数中随机出8个不重复的数字,例如:01235689,
用VB制作一个 0-9十个数中随机出8个不重复的数字,例如:01235689,
‘直接给代码,窗体上只需一个名为command1的按钮
Private Sub Command1_Click()
Dim a(1 To 8) As Integer, b As Integer
Randomize
For i = 1 To 8
b = Int(Rnd * 10)
For j = 1 To i - 1
If a(j) = b Then
i = i - 1
Exit For
End If
Next j
If j > i - 1 Then a(i) = b
Next i
For i = 1 To 8
s = s & a(i)
Next i
MsgBox s
End Su
Private Sub Command1_Click()
Dim a(1 To 8) As Integer, b As Integer
Randomize
For i = 1 To 8
b = Int(Rnd * 10)
For j = 1 To i - 1
If a(j) = b Then
i = i - 1
Exit For
End If
Next j
If j > i - 1 Then a(i) = b
Next i
For i = 1 To 8
s = s & a(i)
Next i
MsgBox s
End Su
如何用VB制作随机数程序
如何用VB语言编写这个程序?
如何用C语言 写一个随机数生成器的程序
如何用VB来制作一个解一元一次方程的程序,界面已有(如下图),只求代码!如:4x+1=5 x=?
如何用vb设计计算二次方程的根的程序
一元二次方程求根公式式如何用VB程序编辑
如何用Fix(N)和Int(N)实现四舍五入取整?用VB,完整的程序.
如何用vB程序随机产生30个不同的字母?
如何用VB编 “求任意两个数的和”的程序
如何用vb 画smith圆图?需程序及注释……
如何用C++产生随机数
如何用VB产生2~99之间的1次1个随机数,可以重复的,另外求如何用VB产生1~n之间的1次20个随机数