2016年計算機軟考《軟件設(shè)計師》預(yù)測題：VB程序設(shè)計

試題七 VB程序設(shè)計題目
    挑選單數(shù)并排序程序：程序啟動后由計算機自動產(chǎn)生20個屬于[100，300]之間的隨機整數(shù)，單擊“顯示全體”按鈕時，在Form1上顯示這20個 隨機數(shù)；單擊“顯示單數(shù)”按鈕時，在Form1上顯示其中的單數(shù)；單擊“排序”按鈕時，在Form1上將這些單數(shù)從小到大顯示。要求顯示格式為每行顯示5個數(shù)據(jù)。
    挑單數(shù)并排序
    Option Explicit
    Dim a(20) As Integer, b(20) As Integer
    （1）
    Private Sub cmdodd_Click()
    Dim I As integer
    K=0
    For I= 1 To 20
    If a(i)/2<>Int(a(i)/2)
    Then k=k+1;b(k)=a(i)
    （2）
    For I=1 To k
     Print b(i)
     If Int(i/5)=i/5 Then Print
    Next I
    Print
    End Sub
    Private Sub cmda11_Click()
     Randomize
     Dim I As Integer
     For I =1 To 20
     A(i)=Int(Rnd()*20+100)
     Print a(i),
     If （3） Then Print
     Next I
     Print
    End Sub
    Private Sub cmdsort_Click()
     Dim I As Integer
     Dim j As Integer
     For I=1 To k-1
     For j= I to k
     If （4） Then temp=b(i):b(i)=b(j):b(j)=temp
     Next j
     （5）
     For I=1 To k
     Print b(i)
     If Int(i/5)=i/5 Then Print
     Next I
    End Sub