。 程序運(yùn)行界面如圖所示。 (2)實(shí)現(xiàn)上述功能的VB程序如下,請(qǐng)?jiān)跈M線(xiàn)處填入合適代碼 Private Sub Cmdl_Click ( ) Dim i As Integer,s As String,c As String,ans As String ① For i=1 To Len(s) c=Mid(s,i,1) If c<=“z“And c>=“a“Or c<=“Z“And c>=“A”“Then c= ② End If ③ Next i TxtOut.Text ans (3)根據(jù)上述程序,“加密”按鈕名稱(chēng)是
17.有趣的進(jìn)制數(shù):編寫(xiě)VB程序找出符合條件的十進(jìn)制自然數(shù),該自然數(shù)的七進(jìn)制與九進(jìn)制都是三位數(shù),且七進(jìn)制與九進(jìn)制的三位數(shù)碼順序正好相反,輸出這個(gè)十進(jìn)制數(shù)與對(duì)應(yīng)的七進(jìn)制和九進(jìn)制數(shù),程序運(yùn)行界面如圖所示。 實(shí)現(xiàn)上述功能的VB程序如下,請(qǐng)?jiān)跈M線(xiàn)處填入合適的代碼。 Private Sub Commandl_Click ( ) Dim i As Integer d As Integer,r As Integer Dim rs As String,ansl As Integer,ans2 As Integer For i=81 To 342 ① rs=““ Do While d<>0 r=d Mod 9 rs=str(r)+rs ② Loop ansl=val (rs) ’求出相應(yīng)的七進(jìn)制數(shù),存儲(chǔ)在變量ans2中,代碼略 If ansl Mod 10=ans2\100 And ansl\100=ans2 Mod 10 And ③Then Text1.Text= ④ Text2.Text=Str(ansl) Text3.Text=Str(ans2) End If Next i End Sub