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.
. (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 String,i As Integer,ss As String Dim a1 As Integer,a2 As Integer,a3 As Integer'存儲加密前字符的ASCII碼 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