12.小輝用Visual Basic制作了一個動畫程序,部分程序代碼如下所示 Dim a As Integer Private Sub Command1_Click( ) Timer1.Enabled=True Timer1.Interval=100 End Sub Private Sub Timer1_Timer( ) a=a+1 If a>=8 Then a=0 End Sub 單擊命令按鈕Command1,加框處語句執行的時間間隔為( )
38.階乘是一種累乘積的計算方法,用“!”來表示階乘,n!=1×2×3×……×n.如:8!=1×2×3×…×8=40320.小王為了求10!的值,編寫了如下Visual Basic代碼: Private Sub Command1_Click ( ) Dim i As Integer,s As Integer① s=0② i=1 Do While i<10 ③ i=i+1 s=s*i④ Loop Print s End Sub 運行該程序,小王單擊命令按鈕Command1后,出現如圖對話框,已知序號①橫線處的代碼有錯誤,正確的代碼應該是
39.小明的支付寶賬號密碼忘記了,但他還零星記得有關于密碼的一些信息: ①密碼是八位數字,前兩位為19 ②最后兩位數字是91 ③能被77和133整除 程序界面如圖1所示,單擊“找回密碼”按鈕(Command1)后,可能的密碼顯示在列表框List1中。 解決此問題的相應的程序如下: Private Sub Command1_Click ( ) Dim i As Long,s As Long For i=0 To 9999 s=①
's表示該八位數密碼 If ②
Then'符合密碼的條件,s能被77和133整除 List1.AddItem Str(s) End If Next i End Sub (1)在應用程序界面設計時,添加“List1”對象用于顯示可能的密碼,應使用圖2所示的“控件工具箱”中的