實現上述功能的 VB 程序如下,但加框處代碼有錯,請改正。 Const n=10 Dim a(1 To n) As Integer Private Sub Command1_Click ( ) Dim i As Integer,j As Integer Dim temp As Integer,flag As Boolean '讀取一組正整數,存儲在數組 a 中,代碼略 i=1:j=n temp=a(j):flag=True Do While i<j If flag Then If a(i) Mod 2=0 Then a(j)=a(i) j=j-1 flag=Not flag Else '(1) End If Else If a(j) Mod 2=1 Then a(i)=a(j) flag=Not flag Else j=j-1 End If End If Loop '(2) '依次輸出排序后的數據,代碼略。 End Sub
)(填寫下標) 中。 (2)依據上述描述設計的VB 程序如下,請在橫線處填 入合適代碼。 Const n=6 Dim a(1 To n^2)As Integer,b(1 To n^2)As Integer Private Sub Form_Load ( ) '產生n*n個兩位隨機正整數,保存數組a,顯示在List1中,代碼略。 End Sub Private Sub Command1_Click ( ) Dim i As Integer,j As Integer,xy(1 To 4)As Integer Dim s As String,tmp As String,c As String s=Text1.Text+“,“+Text2.Text+“,“ tmp=““:j=0 For i=1 To Len(s) c=Mid(s,i,1) If c>=“0“And c<=“9“Then tmp=tmp+c Else j=j+1
tmp=““ End If Next i For i=1 To n For j=1 To n If i>=xy(1)And i<=xy(3)And j>=xy(2)And j<=xy(4)Then b((i-1)*n+j)=
Else b((i-1)*n+j)=a((i-1)*n+j) End If Next j Next i List2.Clear:c=““ For i=1 To n*n c=c+Str(b(i)) If