【正文】 次改為Print 口令輸入錯誤amp。NextPrintNext24)窗體上有一個Text1文本框，一個Command1命令按鈕，并有以下程序Private Sub Commandl_Click()Dim nIf 23456 Thenn=n+1Print 口令輸入錯誤 amp。請將正確選項填涂在答題卡相應(yīng)位置上，答在試卷上不得分。有如下程序段：If s=90 ThenLevel=”A”Else If s=75 ThenLevel=”B”Else If s=60 ThenLevel=”B”ElseLevel=”D”End If下面用SelectCase結(jié)構(gòu)改寫上述程序，使兩段程序所實現(xiàn)的功能完全相同。（5）人員基本信息一般包括：身份證號，姓名，性別，年齡等。為得到與題目要求相符的結(jié)果，下面修改方案中正確的是A）把設(shè)計器的Interval屬性設(shè)置為1B）把For k= To Step 100和Next k兩行刪除C）把For k= To Step 100改為For k= To Step 100D）把If + Then改為If Then（34）下列有關(guān)文件的敘述中，正確的是A）以O(shè)utput方式打開一個不存在的文件時，系統(tǒng)將顯示出錯信息B）以Append方式打開的文件，既可以進行讀操作，也可以進行寫操作C）在隨機文件中，每個記錄的長度是固定的D）無論是順序文件還是隨機文件，其打開的語句和打開方式都是完全相同的（35）窗體如圖1所示。HC000amp。Next nPrintNext mEnd Sub運行程序，單擊命令按鈕，窗體上顯示的內(nèi)容為A）2 0 00 4 00 0 6B）2 0 40 4 04 0 6C）2 3 03 4 00 0 6D）2 0 00 4 50 5 6（25）設(shè)有以下函數(shù)過程Function fun(a As Integer,b As Integer)Dim c As IntegerIf ab Thenc=a:a=b:b=cEnd Ifc=0Doc=c+aLoop Until c Mod b=0fun=cEnd function若調(diào)用函數(shù)fun時的實際參數(shù)都是自然數(shù)，則函數(shù)返回的是A）a、b的最大公約數(shù)B）a、b的最小公倍數(shù)C）a除以b的余數(shù)D）a除以b的商的整數(shù)部分（26）窗體上有1個名稱為Text1的文本框；1個名為Timer1的計時器控件，其Interval屬性值為5000，Enable屬性值是True。例如：若給定序列a1,a2,...a7分別為2,5,3,7,6,1,4當(dāng)文本為“PROGRAM時，加密后的文本為APOMRRG當(dāng)文本為THANK時，加密后的文本為*TA*HKN下面的過程code實現(xiàn)這一算法。 1)Timer1的Interval屬性的值應(yīng)事先設(shè)置為【6】2)Private Sub Command1_Click() = TrueEnd Sub3)Private Sub Timer1_Timer()If 【7】 Then = 【8】 100End IfEnd Sub 【7】的答案是 【8】的答案是 9. (7)設(shè)窗體上有一個名稱為Combo1的組合框,并有以下程序：Private Sub Combo1_KeyPress(KeyAscii As Integer)If 【9】 = 13 ThenFor k = 0 To 1If = (k) Then = Exit ForEnd IfNext kIf Then 【10】End IfEnd IfEnd Sub程序的功能是：在組合框的編輯區(qū)中輸入文本后按回車鍵，則檢查列表中有無與此文本相同的項目，若有，則把編輯區(qū)中的文本刪除，否則把編輯區(qū)中的文本添加到列表的尾部。程序運行后，要求“宋體”單選按鈕和“粗體”復(fù)選框被　　選中，則以下能夠?qū)崿F(xiàn)上述操作的語句序列是 A)=False=TrueB)=True=0C)=False=2D)=True=1(17)在窗體上畫一個名稱為Command1的命令按鈕，然后編寫如下事件過程:Private Sub Command1_Click()c=1234c1=Trim(Str(c))For i=1 To 4Print ____NextEnd Sub程序運行后,單擊命令按鈕，要求在窗體上顯示如下內(nèi)容：1121231234則在橫線處應(yīng)填入的內(nèi)容為A)Right(c1,i)B)Left(c1,i)C)Mid(c1,i,1)D)Mid(c1,i,1)(18)假定有一下程序段For i=1 To 3For j=5 To 1 Step 1Print i*jNext jNext i則語句Print i*j 的執(zhí)行次數(shù)是A)15 B)16 C)17 D)18(19)在窗體上畫兩個文本框（名稱分別為Text1和Text2）和一個命令按鈕（名稱為Command1），然后編寫如下事件過程：Private Sub Command1_Click()x=0Do While x50x=(x+2)*(x+3)n=n+1Loop=Str(n)=Str(x)End Sub程序運行后，單擊命令按鈕，在兩個文本框中顯示的值分別為A)1和0 B)2和72 C)3和50 D)4和168(20)閱讀程序：Private Sub Command1_Click()a=0For j=1 To 15a=a+j Mod 3Next jPrint aEnd Sub程序運行后，單擊窗體，輸出結(jié)果是A)105 B)1 C)120 D)15 (21)以下說法中正確的是A)當(dāng)焦點在某個控件上時，按下一個字母鍵，就會執(zhí)行該控件的KeyPress事件過程B)因為窗體不接受焦點，所以窗體不存在自己的KeyPress事件過程C)若按下的鍵相同，KeyPress事件過程中的KeyAscii參數(shù)與KeyDown事件過程中的KeyCode參數(shù)的值也相同D)在KeyPress事件過程中，KeyAscii參數(shù)可以省略 (22)語句Dim a(3 To 4,3 To 6) As Integer 定義的數(shù)組的元素個數(shù)是A)18 B)28 C)21 D)32 (23)在窗體上畫一個命令按鈕，其名稱為Command1，然后編寫如下代碼：Option Base 1Private Sub Command1_Click()Dim aa = Array(1, 2, 3, 4)j = 1For i = 4 To 1 Step 1s = s + a(i) * jj = j * 10Next iPrint sEnd Sub程序運行后，單擊命令按鈕，其輸出結(jié)果是A)4321 B)1234 C)34 D)12 (24)假定通過復(fù)制，粘貼操作建立了一個命令按鈕數(shù)組Command1，以下說法中錯誤的是A)數(shù)組中每個命令按鈕的名稱(Name屬性)均為Command1B)若未做修改,數(shù)組中每個命令按鈕的大小都一樣C)數(shù)組中各個命令按鈕使用同一個Click事件過程D)數(shù)組中每個命令按鈕的Index屬性值都相同 (25)在窗體上畫一個命令按鈕，名稱為Command1,然后編寫如下代碼：Option Base 0Private Sub Command1_Click()Dim A1(4) As Integer, A2(4) As IntegerFor k = 0 To 2A1(k + 1) = InputBox(請輸入一個整數(shù))A2(3 k) = A1(k + 1)Next kPrint A2(k)End Sub程序運行后,單擊命令按鈕，在輸入對話框中依次輸入6則輸出結(jié)果為A)0 B)1 C)2 D)3 (26)以下關(guān)于函數(shù)過程的敘述中，正確的是A)函數(shù)過程形參的類型與函數(shù)返回值的類型沒有關(guān)系B)在函數(shù)過程中，過程的返回值可以有多個C)當(dāng)數(shù)組作為函數(shù)過程的參數(shù)是，既能以傳值方式傳遞，也能以傳址方式傳遞D)如果不指明函數(shù)過程參數(shù)的類型，則該參數(shù)沒有數(shù)據(jù)類型 (27)在窗體上畫兩個標(biāo)簽按鈕和一個命令按鈕，其名稱分別為LabelLabel2和Command1，然后編寫如下程序：Private Sub func(L As Label) = 1234End SubPrivate Sub Form_Load() = ABCDE = 10End SubPrivate Sub Command1_Click()a = Val()Call func(Label1) = aEnd Sub程序運行后，單擊命令按鈕，則在兩個標(biāo)簽中顯示的內(nèi)容分別為A)ABCD和10 B)1234和100 C)ABCD和100 D)1234和10 (28)在窗體上畫一個命令按鈕(名稱為Command1)，并編寫如下代碼:Function fun1(ByVal a As Integer, b As Integer) As IntegerDim t As Integert = a bb = t + afun1 = t + bEnd FunctionPrivate Sub Command1_Click()Dim x As Integerx = 10Print fun1(fun1(x, (fun1(x, x 1))), x 1)End Sub程序運行后，單擊命令按鈕，輸出結(jié)果是A)10 B)0 C)11 D)21 (29)以下關(guān)于過程及過程參數(shù)的描述中，錯誤的是A)過程的參數(shù)可以是控件名稱B)調(diào)用過程時使用的實參的個數(shù)應(yīng)與過程形參的個數(shù)相同C)只有函數(shù)過程能夠?qū)⑦^程中處理的信息返回到調(diào)用程序中D)窗體可以作為過程的參數(shù) (30)設(shè)有如下通用過程Public Function Fun(xStr As String) As StringDim tStr As String, strL As IntegertStr = strL = Len(xStr)i = strL / 2Do While i = strLtStr = tStr amp。（10）以下程序的功能是：，并在文本框Text1中顯示出來。（2）深度為5的滿二叉樹有[2] 個葉子結(jié)點?，F(xiàn)有如下程序：Public Sub display (x As Control)If TypeOf x is Label Then =“計算機等級考試”Else = Loadpicture(“”)EndIfEnd SubPrivate Sub Label1_Click() Call display(Label1)End SubPrivate Sub Picture1_Click()Call display(Picture1)End Sub對以上程序，下列敘述中錯誤的是Ａ）程序運行時會出錯　　　　　B）單擊圖片框，在圖片框中顯示一幅圖片C）過程中的X是控件變量　　　 D）單擊標(biāo)簽，在標(biāo)簽中顯示一串文字3窗體上有兩個名稱分別為TextText2的文本框。以下可以實現(xiàn)上述要求的事件過程是Ａ）Private Sub Timer1_Timer() B) Private Sub Timer1_Timer() =True =Time$End Sub End SubC) Private Sub Timer1_Timer() D) Private Sub Timer1_Timer() =1 For k = l To End Sub =Timer Next k End Sub2 設(shè)有如圖所示窗體和以下程序：Private Sub Command1_Click()=“Visual Basic” End SubPrivate Sub Text1_LostFocus()If “BASIC”Then=””End IfEnd Sub程序運行時，在Text1文件框中輸入“Basic”(如圖所示)，然后單擊Command1按鈕，則產(chǎn)生的結(jié)果是Ａ）文本框中無內(nèi)容，焦點在文本框中 B）文本框中為“Basic”,焦點在文本框中C）文本框中為“Basic”,焦點的按鈕上 D）文本框中為“Vi