关于VB编程的问题

显示全部楼层 · 2008-1-23 11:34:29

好像也不是很长哈：）已测试Dim a(1000) As DoubleConst n = 10'随机数的个数Const d = 1'随机数的范围： d a(j) Thentemp = a(i)a(i) = a(j)a(j) = tempEnd IfNextNextFor i = 1 To nPrint a(i)NextEnd Sub

千问 · 2008-1-23 11:34:29

这程序简单不了的..---------------标准模块中'*********************************'产生互不相同的一组随机数'
n
个数' Lower
下限' Upper
上限' NotSameRnd返回一个Long数组'*********************************Public Function NotSameRnd(ByVal n As Long, ByVal Lower As Long, ByVal Upper As Long) As Long()Dim tmp() As LongIf Upper - Loweri Then
t = Xarray(i)
Xarray(i) = Xarray(k)
Xarray(k) = tEnd IfNext iEnd Sub-----------------------------窗体中,建立一按钮Private Sub Command1_Click()Dim a() As Long, xa = NotSameRnd(10, 0, 9)'调用产生10个0-9的数SelectSort a
'排序For Each x In a
'输出Print xNext xEnd Sub

千问 · 2008-1-23 11:34:29

//以生成10个[0，10]的整数为例//在窗体上设置一个按钮和一个标签Dim i, a, j, t As Integer, b(9) As Integer, tag As Boolean
//数字的生成算法
Randomize()
For i = 0 To 9
a = Int(Rnd() * 10)
tag = True
For j = 0 To i - 1
If b(j) = a Then
tag = False
Exit For
End If
Next
If tag = True Then
b(i) = a
Else
i = i - 1
End If
Next//数字的排序算法（冒泡法）
For i = 1 To 9
For j = 1 To 10 - i
If b(j) = i Then
'说明找到不重复的数
s(i - 1) = v
newValue = True
End If
Wend
Next
'己产生了随机数据，排序即可
'排序算法不写了。。。。。。。
getOrderNoSameRnd = sEnd Function

千问 · 2008-1-23 11:34:29

在前面加上窗体名。PrivateSubCommand1_Click()Form2.Label1.Caption="..."EndSub把label换成button试试看……（楼主做的什么工程？多个窗体跳转新建对象new）