【文章內容簡介】 。 k=k+1 if k mod 3 =0 then st=st amp。 vbcrlf End if End if Next I Text1=st End Sub Private Function fj(a() as integer, s as string) as Boolean Dim n as Integer, i as integer, j as integer if Instr(s,0)0 then ___(20)___ end if For i=1 to 3 For j=1 to 2 n=n+1 ____(21)___ s=Left(s,1) amp。 Right(s,1) amp。 Mid(s,2,1) Next j s=Right(s,1) amp。 left(s,2) Next i fj=True End Function ，由于vb中能夠表示的整數(shù)大小有一定限制，所以必須用新的方法求特大整數(shù)之和，本程序將特大整數(shù)使用字符類型進行處理，其中函數(shù)add用于求兩個1位整數(shù)之和，參數(shù)c用于保存進位，注意，求和前需首先將兩個整數(shù)按位對齊 option explicit private Sub mand1_Click() Dim s1 as string, s2 as string, s3 as string dim i as integer, n1 as integer, n2 as integer dim c as integer, n as integer s1=text1 : s2=Text2 n=______22_____ if sgn(n)0 then s2=________23__________ elseif Sgn(N)0 then s1=String(Abs(n),0) amp。 s1 end if For i=len(s1) to 1 step 1 n1=Val(Mid(s1,i,1)) n2=Val(Mid(s2,i,1)) s3=_______(24)________ Next i if c0 then s3=________(25)________ Text3=s3 End Sub Private Function Add(x as integer, y as integer, c as Integer) as string Add=Cstr((x+y+c) Mod 10) _________(26)________ End Function 9. Option Explicit Private Sub Command1_Click() dim i as long,i2 as long, flag as Boolean Dim a(0 to 9) as integer, b(0 to 9) as integer For i=100000 to 160000 Call Validate(i,a,flag) if flag then i2=i*6 call Validate(i2,b,flag) if flag and Compare(a,b) then i amp。 amp。 i2 End if End if Next i end sub Private Sub validate(n as long, a() as Integer, f as Boolean) dim p as integer, i as integer Erase a f=false for i=1 to len(cstr(N)) p=___(27)___ if a(p)=1 then exit sub else a(p)=1 end if next i ___(29) f=true End Sub Private Function Compare(a() as integer, b() as integer) as Boolean dim j as integer pare=false for j=1 to Ubound(a) if a(j)b(j) then ____(30)____exit function End if next j Compare=true End Function,屬于CommandButton控件、ListBox控件共有的是22。 、Text 、Font 、Visible 、Visible 對應的visual Basic表達式是 23 。 (30*)+Sqr(Log(x)+y)/2*+Exp(x+y) B.(Sin(30* /180)+sqr(Ln(x)+y))/(2* +Exp(x+y)) (30*180/)+Sqr(Log(x)+y)/(2*+e^(x+y)) D.(Sin(30*)+Sqr(Log(x)+Y))/(2*+Exp(x+y)) ,運算結果為True的是24。 ()=Int() ()=Int() ()=CInt() ()=Int() ,不正確的是25 。 ①在過程中用ReDim語句定義的動態(tài)數(shù)組,其下標的上下界可以是變量 ②數(shù)組作為形式參數(shù)時,傳遞的是每個數(shù)組元素的值 ③在窗體模塊的通用聲明處可以用Public說明一個全局數(shù)組 ④數(shù)組定義語句中可以用負數(shù)或小數(shù)來指定某一維的維下界或維上界的值 A.②③ B.①③④ c.①②③④ D.③④ ,錯誤的是26 。 A?用Output模式打開一個順序文件,即使不對它進行寫操作,原來的內容也被清除 語句或Write語句將數(shù)據(jù)寫到順序文件中 C?若以Output、Append、Random、Binary方式打開一個不存在的文件,系統(tǒng)會出錯 ,錯誤的是27 。 A?控件數(shù)組由一組具有相同名稱和相同類型的控件組成,不同類型的控件無法組成控件數(shù)組 ,能正確描述Y的絕對值大于6的是28。 Abs(Y)6 6 To 6 Not (6 To 6) Is6,Is6 29?若在模塊中用Private Function Fun(A As Single,B As Integer)As Integer定義了函數(shù)Fun。調用函數(shù)Fun的過程中定義了I、J和K三個Integer型變量,則下列語句中不能正確調用函數(shù)Fun的語句是29。 ,J Fun(I,365) (I),(J) =Fun(24”,”35”) 30?若需要在同一窗體內安排兩組相互獨立的單選按鈕(),可使用30控件做容器將它們分開。 ①TextBox ②PictureBox ③Image ④Frame ?A.①或② B.②或③ c.②或④ D.③或④ 二、填空題(請將答案填寫在答題紙的相應答題號內,每個答案只占一行) ,單擊Commandl,則數(shù)組元素a(1,2)的數(shù)值是 ( 1 ),a(2,3)的數(shù)值 是(2),a(4,3)的數(shù)值是(3)。 Option Explicit Private Sub Commandl_Click() Dim a(4,4)As Integer,i As Integer Dim j As Integer,k As Integer,n As Integer n=6：k=2 Do For i=1 To 4 For j=1 To 4 If i+j=k Then a(i,j)=n n=n1 End If Next j Next i k=k+1 Loop Until k8 For i=1 To 4 For j=1 To 4 print Right(“ “ amp。 a(i,j),3)。 Next j Print Next i End Sub ,單擊Commandl,窗體上顯示的第一行是( 4 ) ,第三行是( 5 ) , 最后一行是(6) 。 . Option Explicit Private Sub Commandl_Click() Dim i As Integer,s As Integer For i=1 To 9 Step 3 . s=fun((i)