5.某Visual Basic程序段如下: Dim s As String,t As Integer,i As Integer s=“Information Technology“ t=4 For i=3To 1Step-1 s=Mid(s,i,t) t=t-1 Next i Text1.Text=s 該程序段運(yùn)行后,文本框Text1中顯示的內(nèi)容為( ?。?/h2>
16.編寫(xiě)VB程序,實(shí)現(xiàn)如下功能:在文本框Text1中輸入三位正整數(shù),單擊“計(jì)算”按鈕Command1,在文本框Text2中輸出該該三位正整數(shù)能生成的最大三位數(shù),運(yùn)行界面如圖所示,程序代碼如下. (1)代碼“Private Sub Command1_Click( )”中的Click是
.(單選,填字母:A.對(duì)象名/B.屬性名/C.事件名) (2)為實(shí)現(xiàn)上述功能,請(qǐng)?jiān)跈M線處填入合適的代碼. Private Sub Command1_Click ( ) Dim n As Integer,max As Integer Dim a As Integer,b As Integer,c As Integer,t As Integer x=Val(Text1.Text) a='① b=x\10Mod 10 c=x Mod 10 If a<b Then t=a:a=b:b=t If a<c Then t=a:a=c:c=t If b<c Then t=c:c=b:b=t '② Text2.Text=Str(max) End Sub ①a=
(單選,填字母:A.Command1 B.List1 C.Decryp_Click( ) D.Decryp E.解密) (2)實(shí)現(xiàn)上述功能,請(qǐng)?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”對(duì)應(yīng)的解密數(shù)值是