vb实现随机生成100个整数，将其中的奇数由大到小排序，偶数由小到大排序，找出其中所有素数并求和

一.程序运行界面

二. 代码部分

1.全局变量的声明

 
    Public a(100) As Integer 
    Public oA(100) As Integer 
    Public jA(100) As Integer 
    Public x As Integer 
    Public y As Integer 
    Public sA(100) As Integer
    Public z As Integer 
    

2. 窗体内的代码

1>生成100个随机数

Private Sub Command1_Click() 
    Dim n As Integer
    Dim str As String

    For i = 0 To 99
       a(i) = Int(Rnd() * 100 + 1)
    Next

    For i = 1 To 100
        If i Mod 10 = 0 Then
            str = str & a(i - 1)