1、蘇州大學 VisualBasic程序課程試卷（6）卷8 形式 2002 5 院 級 專業學 成績一、選擇題（請填寫在答題紙的相應題號內 環境下的應用程序的工具A蘇州大學 VisualBasic程序課程試卷（6）卷8 形式 2002 5 院 級 專業學 成績一、選擇題（請填寫在答題紙的相應題號內 環境下的應用程序的工具ADOS2Visual Basic 程序設計時常用的move、3一個可執行的 Visual Basic 的應用程序至少要包括一4在VisualBasic中最基本的對象，它是應用程序的基石 6執行語句Format(1234.567, #,#0.00),正確的輸出結果A.C. B. D

2、.語句可以用來正確B(B(,B(1to9假定變量LOGIC類型CLOGIC=#TRUE#DLOGIC= 的類型A順序BD順序、隨機、字C 的類型A順序BD順序、隨機、字C BA. C. 。B. D. 控件A函CBD通用過 。 Ctrl 會自動改變。 18.將命令按鈕的 18 Click事件。 19. 19 20.A1C3B2D二、填充執行下面程序，第一行輸出結果Option Private Sub DimMAs For M=1 eger, N NEnd M執行下面的程序，單擊窗體后在窗體上顯示二、填充執行下面程序，第一行輸出結果Option Private Sub DimMAs For M=1

3、 eger, N NEnd M執行下面的程序，單擊窗體后在窗體上顯示的第一行結果是，第三行結果Private Sub DimMystrAsString,Mystr1AsString,Mystr2AsString Mystr1= “H”For i=1 To Mystr1=Mystr1&Mystr2 Mystr=Mystr & Mystr1Next iEnd 運行下面的程序，當單擊窗體時，窗體上顯示的內容的第一行是，第二行是Private Sub Test(x AsIf x=3 For I=1 To 6-K NextI For I=1 To NextI Next K For To I=1 To N

4、extI NextK End SubNextI Next K For To I=1 To NextI NextK End Sub三、編程填空 Dim PrivateSubForm_Click() OpenA:TEST.TXTForInputAs#1 Do While Not EOF(1)Input Close#1OpenA:OUT.TXTForOutputAs For i=1 To flag= 0For j=1 To If ThenExitFor End IfNext Next For i=1 To For j=1 To Ifa(2,i)=a(1,j)Then ExitFor End IfNe

5、xt Ifflag=0ThenWrite#2,a(2,i) Next iClose End Ifa(2,i)=a(1,j)Then ExitFor End IfNext Ifflag=0ThenWrite#2,a(2,i) Next iClose End 2A、B、C、Da、b、c、d1，2，3，45PrivateSubForm_Click() Dim chAs String, IAschInputBox(輸入 Case A, a: I = 1CaseB,b:I=CaseD,d:I=I=End MsgBox運行結果chStr(I) End Subabcdefghijklmnopqrstuvwx

6、yz efghijklmnopqrstuvwxyzabcPrivateSubDimstAsString,chAsString,ieger,nst = InputBox(i = 1chn = DoWhilech.If n = n + 4EndIf(ch=w)Andn = DoWhilech.If n = n + 4EndIf(ch=w)And(ch=z)Then n = n + 4 - 26Endi=i + ch=Mid(st,i,1) n = Asc(ch)End 41234554321，要求將原來的數覆蓋掉，求出PrivateSubDimxAs x = eger,sumCallrv(x, x=;x,sum=;End PrivateSubrv( xAseger,sDimieger,a(10)i=1: k =0:s = a(i)= xMod 10 k=k*10+a(i) s = s + a(i)x=x10 i = i + 1LoopUntilx= End 蘇州大學 VisualBasic程序