VB问题：单击窗体，利用随机函数产生20个2位整数，在窗体输出，并判断其奇偶性，

vb要求单击命令按钮，产生一个1-100之间的随机整数，并判断该数的奇偶性，判断结果用MsgBox函数给出~

Private Sub Command1_Click()Dim x As IntegerRandomizex = Int(Rnd * 100) + 1If x Mod 2 = 0 Then MsgBox x & "是偶数"Else MsgBox x & "是奇数"End IfEnd Sub

private sub form_click() dim n n=val(inputbox("输入任意整数：")) if n mod 2 =0 then msgbox "您输入的是偶数" else msgbox "您输入的是奇数" endifend sub

试编写代码如下：

Dim aOdd() As Integer, aEven() As Integer, aAll(1 To 20) As Integer

Sub GenArray()
    Randomize
    For i = 1 To 20
        aAll(i) = Int((90 * Rnd) + 10)
    Next
End Sub

Function DoSort(arr)
        
    For i = LBound(arr) To UBound(arr) - 1
       For j = LBound(arr) To UBound(arr) - 1
            If arr(j) > arr(j + 1) Then
               temp = arr(j)
               arr(j) = arr(j + 1)
               arr(j + 1) = temp
            End If
       Next j
    Next i
    
    DoSort = arr

End Function

Sub SplitArr()
    ReDim aOdd(0)
    ReDim aEven(0)
    
    For i = 1 To 20
        n = aAll(i) Mod 2
        If n = 0 Then
            iMax = UBound(aEven)
            ReDim Preserve aEven(iMax + 1)
            aEven(iMax) = aAll(i)
        Else
            iMax = UBound(aOdd)
            ReDim Preserve aOdd(iMax + 1)
            aOdd(iMax) = aAll(i)
        End If
    Next
    
    ReDim Preserve aEven(UBound(aEven) - 1)
    ReDim Preserve aOdd(UBound(aOdd) - 1)
    
End Sub

Sub ShowArray(sTitle, arr)
    s = ""
    For i = LBound(arr) To UBound(arr)
        s = s & " " & arr(i)
    Next
    Print " "
    Print sTitle & s
End Sub

Private Sub Form_Click()
    GenArray
    SplitArr
    
    aOdd = DoSort(aOdd)
    aEven = DoSort(aEven)
    
    Call ShowArray("排序前：", aAll)
    Call ShowArray("排序后：奇数：", aOdd)
    Call ShowArray("排序前：偶数：", aEven)
End Sub

运行截图如下：

---

VB问题：单击窗体，利用随机函数产生20个2位整数，在窗体输出，并判断其奇偶性，视频