. (2)請在橫線處填入合適的代碼. Dim a(1 To 1000)As Integer'存儲某科目的相關數據,數組大小滿足處理要求 Dim n As Integer'該科目的學生總人數 Private Sub Command1_Click( ) '從數據庫中讀取指定科目的各相關數據,存儲在數組a中 Dim conn As New ADODB.Connection,rs As New ADODB.Recordset conn.ConnectionString=“Provider=Microsoft.ACE.OLEDB.12.0;Data Source=“+App.Path+“\students.jye.ai“ conn.Open Set rs.ActiveConnection=conn '本過程的其他語句略 End Sub Private Sub Command2_Click( ) Dim i As Integer,j As Interger,k As Integer,kt As Integer Dim c As Integer,zws As Single For i=1 To n-1
For j=i+1 To n If a(j)>a(k) Then kt=a(j):a(j)=a(k):a(k)=kt End If Next j Next i c=n\2 If n Mod 2=1 Then zws=
Else zws=(a(c)+a(c+1))/2 End If Text2.Text=Str(zws) End Sub.
①正數:正整數補碼的數值即其二進制表示. 例:12的8位二進制表示00001100,最高位即符號位“0”表示正數. ②負數:除符號位外,所有位取反,然后+1. 例:-5的8位二進制補碼表示方法如下,5對應7位二進制數為0000101 (原碼),所有位取反后為1111010(反碼),再加1后為1111011(補碼),再設置符號位為1,因此-5 用8位二進制補碼表示為11111011. 小明設計了一個VB程序,點擊“補碼”按鈕Command1,將文本框Text1中輸入的整數 n(-128≤n≤127)轉換成相應的補碼,并在文本框Text2中輸出,程序結果如圖所示,請將橫線處的代碼補充完整. Private Sub Command1_Click ( ) Dim n As Integer,a As Integer,i As Integer Dim m(1To 8)As Integer Text2.Text=““ n=Val(Text1.Text) If n>=0The ‘計算二進制原碼 For i=8To 2Step-l m(i)=n Mod 2 n=n\2 Next i ‘設置符號位 m(1)=0 Else n=-n ‘計算二進制反碼 For i=8To 2Step-l m(i)=①
n=n\2 Next i ‘加1計算 i=8 Do While m(i)=1 ②
i=i-1 Loop m(i)=1 ‘設置符號位 m(1)=1 End If ’輸出結果 For i=l To 8 Text2.Text=Text2.Text & m(i) Next i End Sub (1)-27用8位二進制補碼表示為