18.查找 ASCII 碼值最小的字符.程序功能如下:在文本框 Text1 中輸入一個字符串,單擊命令按鈕 Command1,在文本框 Text2 中輸出該字符串中 ASCII 碼值最小的字符,運行界面如圖所示. Private Sub Command1_Click ( ) Dim str1 As String'存儲輸入的字符串 Dim n As Integer'存儲輸入字符串的長度 Dim s As String Dim i As Integer,j As Integer str1=Text1.Text n=①
s=②
For i=2 To n If Mid(str1,i,1)<s Then s=Mid(str1,i,1) Endif Next i Text2.Text=s End Sub (1)為實現(xiàn)上述功能,請在橫線處填入合適的代碼. 程序中橫線處①應(yīng)填入
19.編寫VB程序,尋找第1位為2,第5位為5,數(shù)字長度為5的完全平方數(shù)(即開根號之后是一個整數(shù)),并統(tǒng)計個數(shù).要求:單擊“尋找”按鈕Command1,將符合要求的五位數(shù)顯示在列表框List1中,統(tǒng)計的個數(shù)顯示在標簽Label2中,界面如圖所示. 實現(xiàn)上述功能的VB程序代碼如下: Private Sub Command1_Click
Dim i As Integer,n As Integer Dim x As Integer n=0 For i=0To 999 x=①
If②
Then List1.AddItem str(x) n=n+1 End If Next i Label2.Caption=“共有:“+Str(n)+“個“ End Sub (1)在設(shè)計應(yīng)用程序界面時,要將按鈕Command1的標題改為“尋找”,應(yīng)該修改它的