《今天11点揭贴。希望11点前能够出现救世主》这几天接触到VB。做了个简单的游戏，现在碰到个小麻烦。关于随机函数的问题。希望大家能帮

2003-12-18 09:12:59 95 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

Scratch（四十一）：升级版垃圾分类哈喽，大家好！之前给大家展示过“Scratch（二十四）：垃圾分类”。今天呢，给大家展示的Scratch是`升级版垃圾分类`。接下来，我们一起看一下效果吧。阅读详情

Private Sub Command1_Click()
Dim i As Integer

Dim a(9) As Integer
For i = 1 To 9

a(i) = Int((Rnd * 9) + 1)

Print a(i)

Next i
End Sub
这个随机函数的范围是1到9，而我呢想让它产生1到9 不重复的数。很简单的，只是刚学VB不适应，希望你们都能帮我。这个帖子今天11：00揭贴。。。谁给详细的原代码，给50分。

...全文

镜像电流源与比例电流源：原理、应用与性能优化本文深入解析了镜像电流源与比例电流源的工作原理、核心应用与性能优化方法。镜像电流源利用匹配晶体管实现电流复制，是集成电路的基础；比例电流源通过发射极电阻实现电流缩放，应用更灵活。文章重点探讨了其作为有源负载提升放大器增益的关键应用，并分析了静态误差、输出阻抗和最小工作电压三大性能指标，最后介绍了威尔逊电流镜等进阶优化技术及实战设计要点。阅读详情

baizhongri

VB基础类 7,788 成员 197,583 内容

+ 关注 + 加入社区

切换为时间正序

SmileSkyNet 2003-12-18

打赏
举报

你的这个应用我原来用过（我用的是0－9），我用来做猜数游戏，每次随机出现4个不同的数字组成一个四位数。。。。源码吗，我要找找，写起来有点麻烦！！！

lgs666 2003-12-18

打赏
举报

Option Explicit

Private Sub Command1_Click()
Dim I As Integer
Dim intArray(10) As Integer
Dim intRnd As Integer
Dim dblK As Double

Randomize
Do While True
intRnd = Val(Left(Rnd, 1))
If Not IsInArray(intRnd, intArray) Then
intArray(I) = intRnd
Debug.Print intArray(I)
I = I + 1
End If
If I = 9 Then
Exit Do
End If
Loop

End Sub

Private Function IsInArray(ByVal intItemToFind As Integer, ByRef intArray() As Integer) As Boolean
Dim I As Integer

For I = LBound(intArray) To UBound(intArray())
If intArray(I) = intItemToFind Then
IsInArray = True
Exit Function
End If
Next
IsInArray = False
End Function

landongfang 2003-12-18

打赏
举报

Private a(1 To 9) As Integer
Private Sub Command1_Click()

If Timer1.Enabled = True Then
Timer1.Enabled = True
Else
Timer1.Enabled = True
End If

End Sub
Private Sub Rep()
Dim i As Integer
Dim temp As Integer
Dim temp1 As Integer

temp = Int((Rnd(3) * 9) + 1)
temp1 = a(1)
a(1) = a(temp)
a(temp) = temp1
End Sub

Private Sub Form_Load()
Dim i As Integer
For i = 1 To 9
a(i) = i
Next
End Sub

Private Sub Timer1_Timer()
Call Rep
End Sub

hcj2002 2003-12-18

打赏
举报

0--9不重复的数？？？

如果有产生10个数呢？？

liyan010 2003-12-18

打赏
举报

用我这个代码吧,不需要判断是否重复,而且也不需要定义动态数组,绝对节省系统资源:

Dim mysz(8) As Integer'9维数组

Private Sub Form_Load()
Dim i As Integer
For i = 0 To 8
mysz(i) = i + 1初始化
Next i
End Sub

Private Sub Command1_Click()
Dim A As Integer, B As Integer, t As Integer, num As Integer
Dim str As String
num = 0
For num = 0 To 49
Randomize Timer
A = Int(Rnd() * 9)
Randomize Timer
B = Int(Rnd() * 9)
t = mysz(A): mysz(A) = mysz(B): mysz(B) = t'交换
Next num
For t = 0 To 8
str = str & mysz(t)
Next t
Print str'打印
End Sub

SoHo_Andy 2003-12-18

打赏
举报

试试看，我的程序

Private Sub Command1_Click()
Dim i As Integer
Dim j As Integer
Dim a() As Integer
Dim intTemp As Integer
ReDim a(0)
For i = 1 To 9
Do While True
intTemp = Int((Rnd * 9) + 1)
For j = 0 To UBound(a)
If a(j) = intTemp Then
i = i - 1
Exit Do
End If
Next
ReDim Preserve a(i - 1)
a(i - 1) = intTemp
Debug.Print a(i - 1)
Exit Do
Loop
Next i
End Sub

landongfang 2003-12-18

打赏
举报

Private Sub Command1_Click()

Dim a(1 To 9) As Integer
Dim temp As Integer
Dim i As Integer

i = 1
While i <= 9
temp = Int((Rnd(3) * 9) + 1)
If Rep(a, temp, i) = True Then
a(i) = temp
i = i + 1
End If
Wend

End Sub
Private Function Rep(b() As Integer, T As Integer, n As Integer) As Boolean
Dim i As Integer
For i = 1 To n
If b(i) = T Then
Rep = False
Exit Function
End If
Next
Rep = True
End Function

ides 2003-12-18

打赏
举报

请再定义一个数组，如b(9),在a(i) = Int((Rnd * 9) + 1)后加上一个循环语句和一个判断语句：当每产生一个随机树就把他放到b(j)中，并要与b(j)中的每个树比较，如果产生的树在b(j)中已经有了则不再显示

jhzhou882 2003-12-18

打赏
举报

Private Sub Command1_Click()

Dim i, j As Integer
Dim use As Integer
Dim a(9) As Integer

For i = 1 To 9
use = Int((Rnd(1) * 9) + 1)
For j = 0 To i - 1
If a(j) = use Then
i = i - 1
Exit For
Else
a(i) = use
End If
Next j
Next i

End Sub

liyan010 2003-12-18

打赏
举报

我就是救世主,传说中的the one!

把1～9放在一个数组里mysz(8),然后每次随机取两个数交换数值,如第一次随机取到mysz(6)和mysz(3),则利用t=mysz(6),mysz(6)=mysz(3),mysz(3)=t来实现交换......
如此循环50次,1-9的九个数字的顺序即被随即打乱.
现在你只需从mysz(0)一直取到mysz(8)即可以随机顺序取得1-9间的随机数,而且不重复.

landongfang 2003-12-18

打赏
举报

Private Sub Command1_Click()

Dim a(1 To 9) As Integer
Dim temp As Integer
Dim i As Integer

i = 1
While i < 9
temp = Int((Rnd * 9) + 1)
If Rep(a, temp, i) = True Then
a(i) = temp
i = i + 1
End If
Print a(i)
Wend

End Sub
Private Function Rep(b() As Integer, T As Integer, n As Integer) As Boolean
Dim i As Integer
For i = 1 To n
If b(i) = T Then
Rep = False
Exit Function
End If
Next
Rep = True
End Function

佛的光辉 2003-12-18

打赏
举报

9个不重复的数？范围是多少

《今天11点揭贴。希望11点前能够出现救世主》这 几天接触到VB。做了个简单的游戏，现在碰到个小麻烦。关于随机函数的问题。希望大家能帮

相关推荐

《今天11点揭贴。希望11点前能够出现救世主》这几天接触到VB。做了个简单的游戏，现在碰到个小麻烦。关于随机函数的问题。希望大家能帮