16.小強用VB編寫正整數(shù)十進制轉換為十六進制的程序,運行界面如圖所示.程序功能如下:在文本框Text1中輸入待轉換的十進制值,單擊“十進制轉換十六進制”按鈕Command1,在文本框Text2中輸出轉換結果. 請在程序的橫線處填寫合適的代碼.Private Sub Command1_Click( ) Dim a As String,s As String Dim r As Integer,x As Integer x=Val(Text1.Text) s=““ Do While x>0
① x=x\16 If r>9 Then a=Chr(r+55) Else a=Str(r) End If
。 (2)請在橫線處填上合適的代碼。 Const max=1000 Dim n As Integer'存放學生人數(shù) Dim sfzh(1 To max) As String,xm(1 To max) As String '數(shù)組sfzh、xm分別存放學生身份證號、姓名 Dim bj(1 To max) As Integer,flag(1 To max) As Boolean '數(shù)組bj、flag分別存放學生班級、身份證校驗結果 Dim cw(1 To 15)As Integer'數(shù)組cw存放各班身份證號出錯人數(shù) Function check(x As String) As Boolean '本函數(shù)功能:校驗身份證號x,若校驗通過返回True;否則返回False Dim i As Integer,sum As Integer,xh As Integer,jym As String Dim a(1 To 18)As Integer,w(1 To 18)As Integer jym=“10X98765432“:sum=0 For i=18 To 2 Step-1 a(i)=Val(Mid(x,19-i,1)) Next i For i=18 To 1 Step-1 w(i)=2^(i-1)Mod 11 Next i For i=2 To 18 sum=sum+a(i)*w(i) Next i xh=sum Mod 11 If
=Mid(x,18,1)Then check=True Else check=False End Function Private Sub Form_Load ( ?。?br />'本過程從數(shù)據(jù)庫中讀入指定數(shù)據(jù)到數(shù)組sfzh、xm、bj,并在List1中顯示 Dim conn As New ADODB.Connection Dim rs As New ADODB.Recordset conn.ConnectionString=“provider=microsoft.ace.jye.ai.12.0;data source=“+App.Path+“\student.jye.ai“ conn.Open Set rs.ActiveConnection=conn rs.Open“select*from stu“ '本過程其它語句略,學生人數(shù)存變量n,數(shù)組cw各元素初值置為0 End Sub Private Sub Command1_Click ( ?。?br />Dim i As Integer,j As Integer For i=1 To n If check(sfzh(i))Then flag(i)=True Else flag(i)=False Next i For i=1 To 15 For j=1 To n If bj(j)=i And flag(j)=False Then
List2.AddItem sfzh(j)+““+xm(j) End If Next j If cw(i)>0 Then List2.AddItem Str(i)+“班共有以上“+Str(cw(i))+“個身份證號錯誤“ List2.AddItem““ End If Next i End Sub