。 程序運行界面如圖所示。 (2)實現上述功能的VB程序如下,請在橫線處填入合適代碼 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)根據上述程序,“加密”按鈕名稱是
17.有趣的進制數:編寫VB程序找出符合條件的十進制自然數,該自然數的七進制與九進制都是三位數,且七進制與九進制的三位數碼順序正好相反,輸出這個十進制數與對應的七進制和九進制數,程序運行界面如圖所示。 實現上述功能的VB程序如下,請在橫線處填入合適的代碼。 Private Sub Commandl_Click ( ?。?br />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) ’求出相應的七進制數,存儲在變量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