15.由于交通日益擁堵,某市對車輛實施限行政策,即根據車牌最后一位數字進行限行判斷,雙號則奇數日期限行,單號的偶數日期限行。如車牌號“浙A53350”,末位數字為0,則奇數日期限行,如車牌號“浙A5335B”,末位數字為5,則偶數日期限行。現有一VB程序用來查詢限行情況,軟件界面如圖,在文本框Text1中輸入車牌號,單擊“判斷”按鈕Command1,并在文本框Text2中顯示限行情況。 “查詢”按鈕Command1的單擊事件處理過程如下: Private Sub Command1_Click ( ) Dim i As Integer,n As Integer'變量n保存車牌的最末位數字 Dim cp As String,c As String cp=Text1.Text For i=7 To 3 Step-1 c=Mid(cp,i,1) If
Then n=Val(c) If
Then Text2.Text=″奇數日期限行″ Else Text2.Text=″偶數日期限行″ End If i=2 End If Next i End Sub 在程序橫線處填寫適當的表達式或語句,以實現程序功能。 程序中①橫線處應填入
16.小王設計了一個Visual Basic小程序,該程序的功能是將一個二進制數轉化為十六進制數。程序運行時,在文本框Text1輸入二進制數(由0、1構成的數串),單擊“轉換”按鈕Command1后,在文本框Text2中顯示轉換結果。程序運行界面如圖所示。 實現上述功能的程序代碼如下所示,請在橫線處填上合適的代碼: Private Sub Command1_Click ( ) Dim x As String,y As String, Dim i As Integer,s As Integer,n As Integer,c As String Dim q As String,h As String,ans As String n=Len(Text1.Text) y=Text1.Text If n Mod 4<>0 Then (1)
For i=1 To s y=″0″+y Next i For i=1 To n Step 4 (2)
If h=″0000″Then q=″0″ If h=″0001″Then q=″1″ If h=″0010″Then q=″2″ If h=″0011″Then q=″3″ If h=″0100″Then q=″4″ If h=″0101″Then q=″5″ If h=″0110″Then q=″6″ If h=″0111″Then q=″7″ If h=″1000″Then q=″8″ If h=″1001″Then q=″9″ If h=″1010″Then q=″A″ If h=″1011″Then q=″B″ If h=″1100″Then q=″C″ If h=″1101″Then q=″D″ If h=″1110″Then q=″E″ If h=″1111″Then (3)