VB用随机数产生30个两位整数，在线等！回答出来在加分！！！！

来源：百度知道 编辑：UC知道 时间：2024/09/21 15:31:10
用随机数产生30个两位整数，其中的奇数保存在数组B中，偶数保存在数组A中，奇数升序输出，偶数降序输出，要求排序用子过程实现

Private Sub Command1_Click()
Dim s As String, i As Long

For i = 1 To 30
Randomize Second(Now)
s = s & "," & CStr(Int((100 * Rnd) + 1)) ' 生成 1 到 6 之间的随机数值。
Next

Text1.Text = s
End Sub

Option Explicit

Private Sub Form_Load()
Dim i As Integer, intC As Integer
Dim IntOuSus() As String, strOuSus As String
Dim IntJiSus() As String, strJiSus As String

Randomize
For i = 1 To 30
intC = CInt(Rnd * 90) + 10
If intC Mod 2 = 1 Then
strJiSus = strJiSus & IIf(strJiSus = "", "", ",") & intC
Else
strOuSus = strOuSus & IIf(strOuSus = "", "", ",") &