vb 添加一个文本框,Name属性设置为Tex1

发布网友 发布时间：2022-05-07 18:15

我来回答

共1个回答

热心网友 时间：2022-07-01 00:18

Private Sub Cmd1_Click()
Dim a() As Integer, n As Integer
Dim minNum As Integer, maxNum As Integer
Dim i As Integer

minNum = 100
maxNum = 200

n = Val(Tex1)

If Not GetRndNum(a(), 1, n, minNum, maxNum) Then Exit Sub
Me.Cls
Print "产生" & CStr(n) & "个100—200之间的随机数"
For i = 1 To n
Print CStr(a(i)); " ";
If i Mod 5 = 0 Then Print
Next i

If Not Paixu(a(), 1, n, False) Then Exit Sub
Print
Print "排序："
For i = 1 To n
Print CStr(a(i)); " ";
If i Mod 5 = 0 Then Print
Next i

Tex1.SetFocus
End Sub

'随机数
Private Function GetRndNum(a() As Integer, L As Integer, U As Integer, minNum As Integer, maxNum As Integer) As Boolean
On Error GoTo ErrGRN

Dim i As Integer, diata As Integer
ReDim a(L To U)
diata = maxNum - minNum + 1
Randomize
For i = L To U
a(i) = Int(Rnd * diata + minNum)
Next i
GetRndNum = True
ErrGRN:
End Function

'排序
'当p=True时从小到大，p=False时从大到小
Private Function Paixu(a() As Integer, L As Integer, U As Integer, p As Boolean) As Boolean
On Error GoTo ErrPx

Dim i As Integer, j As Integer, k As Integer
Dim T As Integer

For i = L To U - 1
k = i
For j = i + 1 To U
If a(k) < a(j) Xor p Then k = j
Next j
If k <> i Then
T = a(i): a(i) = a(k): a(k) = T
End If
Next i
Paixu = True
ErrPx:
End Function