19.在窗體上有一個命令按鈕(Command1)和兩個文本框(Text1和Text2),然后編寫了如下事件過程,要求:在文本框Text1中輸入一個數(shù)值x,根據(jù)下面的分段函數(shù)計算y的結果,并將y值顯示在文本框Text2中. 請將實現(xiàn)以上功能的程序補充完整: Private Sub Command1_Click ( ?。?br />x=Val (Text1.text) If x>0 Then
20.王敏的E-Mail郵箱密碼忘記了,但她需要收一封很重要的來信,請你幫她盡可能找出密碼.她零星記得自己密碼信息: ①密碼是六位數(shù)字,前面兩位為31; ②最后兩位數(shù)字相同; ③能被16和46整除. 程序界面如下圖所示,單擊“幫助找回密碼“按鈕(Command1),可能的密碼顯示在列表框List1中. 解決此問題的相應程序如下: Private Sub Command1_Click ( ) Dim a As Integer,s As long,b As Integer,i As Integer For i=0 To ①
s=310000+i If s Mod 46=0 And s Mod 16=0 Then ②
b=(s Mod 100)\10 If a=b Then List1.AddItem Str(s) End If End If Next i End Sub (1)解決此問題的算法是