15.編寫“數(shù)字序列”程序,實(shí)現(xiàn)如下功能:在文本框Text1中輸入[100,500]范圍內(nèi)的整數(shù),單擊“生成”按鈕Command1,在列表框List1中顯示9個(gè)該序列的數(shù)字.?dāng)?shù)字序列的生成規(guī)則為:該項(xiàng)的數(shù)字+該數(shù)百位上的數(shù)字+該數(shù)十位上的數(shù)字+該數(shù)個(gè)位上的數(shù)字=下一項(xiàng)的數(shù)字,例如:365+3+6+5=379.小明編寫了VB程序,運(yùn)行的界面如圖所示,程序代碼如下: (1)代碼“Private Sub Command1_Click _”中的Command1_Click ( ?。┦?
. (單選,填字母:A.對象名B.事件C.事件處理過程D.方法) (2)為實(shí)現(xiàn)上述功能,請?jiān)跈M線處填入合適的代碼. Private Sub Command1_Click ( ?。?br />Dim n As Integer,i As Integer Dim a As Integer'提取百位上的數(shù)字 Dim b As Integer'提取十位上的數(shù)字 Dim c As Integer'提取個(gè)位上的數(shù)字 List1.Clear n=Val(Text1.Text) If n>=100And n<=500Then For i=1To 9 A.位置一 a=n\100 b=(n-100*a)\10 c=
n=n+a+b+c B.位置二 Next i C.位置三 Else List1.AddItem“輸入數(shù)值有誤“ End If D.位置四 End Sub (3)上述代碼段中缺少了List1.AddItem Str(i)+“.“+Str(n),此句代碼應(yīng)該加在
(單選,填字母:A.Command1 B.List1 C.Decryp_Click( ?。?nbsp; D.Decryp E.解密) (2)實(shí)現(xiàn)上述功能,請?jiān)跈M線處填入合適的代碼. Private Sub Decryp_Click( ?。?br />Dim zs As Long,g As Integer,s As Integer,b As Integer,q As Integer Dim jmh As String,m As Integer zs=Val(Text1.Text) For m=zs To
q=(m\1000)*5 Mod 8 b=((m\100)Mod 10)*5 Mod 8 s=((m\10)Mod 10)*5 Mod 8 g=(m Mod 10)*5 Mod 8 jmh=
List1.AddItem Str(m)+““+jmh Next m End Sub (3)由上述算法可知,四位數(shù)“6124”對應(yīng)的解密數(shù)值是