2012年软考软件设计师最新预测试题（三）

会计考友

Then Print 　　Next I
# G) s4 ]! [; z9 d. x9 b　　Print
/ m( v7 f& S6 A# ~0 `　　End Sub
　　Private Sub cmdsort_Click()
　　Dim I As Integer
　　Dim j As Integer
; i! m. z  s, h4 Q( i& e* V　　For I=1 To k-1
　　For j= I to k
7 |1 i7 _/ [, g* L& }& }! B& \* M　　If （4） Then temp=b(i):b(i)=b(j):b(j)=temp
4 h1 Q1 n3 K$ I　　Next j
　　（5）
　　For I=1 To k
　　Print b(i)
9 i+ g( t- b8 {: k　　If Int(i/5)=i/5 Then Print
　　Next I
　　End Sub