16.數字反轉,下面程序的功能是:輸入一個非負整數,將該數各個位上數字反轉得到一個新數。新數也應滿足整數的常見形式,即除非給定的原數為零,否則反轉后得到的新數的最高位數字不應為零。如輸入120,反轉后輸出21,程序運行時,在文本框Text1中輸入反轉前的數字,單擊“反轉”按鈕后,在文本框Text2中顯示反轉后的數字。程序運行效果如圖所示。 為實現上述功能的程序如下,請在程序橫線處填入合適的代碼。 Private Sub Command1_Click ( ) Dim a As String Dim n As Integer a=Text1.Text n=Len(a) Do While
and Mid(a,n,1)=”0” n=n-1 Loop For i=n To 1 Step-1 Text2.Text=Text2.text+
17.創建VB程序,統計英語短文中字母出現的次數,并輸出出現次數最多的字母和未出現的字母.字母不區分大小寫,均表示為大寫字母.程序運行界面如圖所示. 算法如下: (1)獲取輸入的英語短文,存入變量s (2)統計字母出現次數依次取出s中的每個字符如果是大寫字母,計算其在字母表中的位置n,并計數如果是小寫字母,計算其在字母表中的位置n,并計數(用數組a存放26個字母出現的次數,a(1)存儲“A”出現的次數,a(2)存儲“B”出現的次數,…,a(26)存儲“Z”出現的次數) (3)找出最大出現次數 (4)找出出現次數最多和未出現過的字母并輸出VB程序如下,在其中①②③橫線處填指定相應代碼,完善程序. Private Sub Command1_Click ( ?。?br />Dim i As Integer,n As Integer,max As Integer Dim a(1To 26)As Integer'數組a存放26個字母出現的次數 Dim s As String,c As String'變量s存放輸入的短文 Dim s1As String,s2As String'變量s1、s2分別存放出現次數最多和未出現的字母組成的字符串 s=Text1.Text '統計字母出現次數 For i=1 To Len(s) c=Mid(s,i,1) if c>=“A”And c<=“Z”Then n=Asc(c)-Asc(“A”)+1 a(n)=
ElseIf c>=“a”And c<=“z”Then n=Asc(c)-32-Asc(“A”)+1 a(n)=a(n)+1 End If Next i '找出最大出現次數 max=a(1) For i=1 to 26 If
Then max=a(i) End If Next i '找出出現次數最多和未出現過的字母 For i=1 To 26 If
Then s1=s1+“”+Chr(Asc(“A”)+i-1) ElseIf a(i)=0Then s2=s2+“”+Chr(Asc(“A”)+i-1) End if Next i Label 2.Caption=“出現次數最多的字母是:”&s1&“出現次數為:”&Str(max) Label3.Caption=“未出現的字母是:”&s2 End Sub.