16.用VB編寫程序,在文本框Text1中輸入任意字符串s,統計s中數字字符串的數值和(如輸入字符串“ab123dr34fg9de”則輸出166,即123+34+9=166.)并在Labe13輸出結果.程序設計界面如下: 根據算法將下列程序補充完整. Private Sub Command1_Click( ) Dim s As String,ch As String,s As Integer Dim ch2 As String,sum As Double Dim n As Integer,i As Integer s=Text1.Text
i=1;sun=0 Do While i=n ch=Mid(s,i,1) If ch>=“0“And ch<=“9“Then j=i ch2=Mid(s,j,1) Do While ch2>=“0“And ch2“9“ j=j+1 ch2=Mid(s,j,1) Loop sum=sum+
i=j End If i=i+1 Loop Label3.Caption=Str(sum) End Sub.
17.某字符串(字節數為3的倍數)編碼規則如下:(1)將該字符串內碼分成3個字節一組,順次連接后得到24位二進制數; (2)將得到的24位二進制數字分成4組,每組6個位; (3)在每組數字前補上兩個0,得到4個字節的二進制數; (4)將(3)中得到的四個二進制數分別轉化為十進制數; (5)將每個十進制數轉換為1個加密字符,對應的“密碼表”按數值由小到大依次為“ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/” 小明按照上述方法,設計了一個字符串(僅包含ASCⅡ字符)加密的VB程序,功能如下:單擊“加密按鈕”Command1,程序依次將文本框Text1中每3個字符的ASCⅡ碼值按編碼規則轉換為四個加密字符,連接這些加密字符,最后在文本框Text2中輸出加密結果.程序運行效果如圖所示. 實現上述功能的VB程序如下: (1)在上述加密算法步驟(4)中,得到的十進制數最大是 (2)實現上述功能的VB程序如下.請在橫線處填入合適代碼. Function Code2Char(c As Integer)As String Dim s As String s=“ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/“ Code2Char=
End Function Private Sub Command1_Click( )'加密過程 Dim n As Integer,s As Integer,i As Integer,ss As String Dim a1 As Integer,a2 As Integer,a3 As Integer'存儲加密前字符的ASC碼 Dim b1 As Integer,b2 As Integer'分別存儲分割、轉換后的前兩個十進制數 Dim b3 As Integer,b4 As Integer'分別存儲分割、轉換后的后兩個十進制數 s=Text1.Text n=Len(s) ss=““ For i=1 To n