17.運行下列VB程序,在文本框Text1中輸入15,界面如圖所示。 Private Sub Command1_Click ( ) Const x=“轉換成八進制數為” Dim y As Integer‘用于存儲輸入的十進制自然數 Dim s As String‘用于存儲轉換后的結果 Dim r As Integer y=Val(Text1.Text) s=“” Do While y<>0‘采用除八取余法 r=y Mod 8 s=Str(r)+s y=y\8 Loop Label1.Caption=Text1.Text+x Text2.Text=s End Sub 單擊“開始”按鈕Command1后,標簽Label1中顯示的內容是
屬性值設置為“可能的密碼有:”。 (2)為實現上述功能,請在橫線處填入合適的選項。 Private Sub Command1_Click ( ) Dim x As Integer,s As Long,y As Integer,i As Integer For i=0To 9999 s=590000+i If
Then x=s mod 10 y=(s Mod 100)\10 If
Then List1.AddItem
End If End If Next i End Sub 劃線②、③的選項: A.x=y B.Str(s) C.Str(i) D.s Mod 12=0and s Mod 38=0