16.用VB編寫程序,在文本框Text1中輸入任意字符串s,統(tǒng)計(jì)s中數(shù)字字符串的數(shù)值和(如輸入字符串“ab123dr34fg9de”則輸出166,即123+34+9=166.)并在Labe13輸出結(jié)果.程序設(shè)計(jì)界面如下: 根據(jù)算法將下列程序補(bǔ)充完整. Private Sub Command1_Click( ?。?br />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.某字符串(字節(jié)數(shù)為3的倍數(shù))編碼規(guī)則如下:(1)將該字符串內(nèi)碼分成3個(gè)字節(jié)一組,順次連接后得到24位二進(jìn)制數(shù); (2)將得到的24位二進(jìn)制數(shù)字分成4組,每組6個(gè)位; (3)在每組數(shù)字前補(bǔ)上兩個(gè)0,得到4個(gè)字節(jié)的二進(jìn)制數(shù); (4)將(3)中得到的四個(gè)二進(jìn)制數(shù)分別轉(zhuǎn)化為十進(jìn)制數(shù); (5)將每個(gè)十進(jìn)制數(shù)轉(zhuǎn)換為1個(gè)加密字符,對(duì)應(yīng)的“密碼表”按數(shù)值由小到大依次為“ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/” 小明按照上述方法,設(shè)計(jì)了一個(gè)字符串(僅包含ASCⅡ字符)加密的VB程序,功能如下:單擊“加密按鈕”Command1,程序依次將文本框Text1中每3個(gè)字符的ASCⅡ碼值按編碼規(guī)則轉(zhuǎn)換為四個(gè)加密字符,連接這些加密字符,最后在文本框Text2中輸出加密結(jié)果.程序運(yùn)行效果如圖所示. 實(shí)現(xiàn)上述功能的VB程序如下: (1)在上述加密算法步驟(4)中,得到的十進(jìn)制數(shù)最大是 (2)實(shí)現(xiàn)上述功能的VB程序如下.請(qǐng)?jiān)跈M線處填入合適代碼. 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'存儲(chǔ)加密前字符的ASC碼 Dim b1 As Integer,b2 As Integer'分別存儲(chǔ)分割、轉(zhuǎn)換后的前兩個(gè)十進(jìn)制數(shù) Dim b3 As Integer,b4 As Integer'分別存儲(chǔ)分割、轉(zhuǎn)換后的后兩個(gè)十進(jìn)制數(shù) s=Text1.Text n=Len(s) ss=““ For i=1 To n