【正文】 D、 China, 14復選框的Value屬性為2時，表示(C)。14為了在按下回車鍵時執(zhí)行某個命令按鈕的事件過程，需要把該命令按鈕的一個屬性設(shè)置為True，這個屬性是(A)。符號C、一菜單項名為MenuTerm， = Flase 將使該菜單項失效D、希望在菜單中顯示amp。符號14以下敘述中錯誤的是(C)。 A、“text (.txt)|(*.txt)”B、“文本文件( .txt) | (.txt)”C、“text(.txt)||(*.txt)”D、“text(.txt)(*.txt)”15下面哪個屬性可以控制菜單項可見或不可見（C） A、Hide B、Checked C、Visible D、Enabled15下面說法不正確的是（D） A、層菜單不允許設(shè)置快捷鍵B、使菜單項中的文字具有下畫線，可在標題文字前加amp。C、一菜單項名為MenuTerm， = Flase 將使該菜單項失效?！狈?，則在標題欄中輸入“amp。15下面哪個屬性可以控制菜單項可見或不可見（C）? A、HideB、Checked C、VisibleD、Enabled15改變驅(qū)動器列表框的Drive屬性將激活（A）事件。 A、Input B、Output C、Random D、Append15為建一個隨機文件，其中每一條記錄由多個不同數(shù)據(jù)類型的數(shù)據(jù)項組成，應使用（A）。 A、當用Write 語句寫順序文件時，文件必須以O(shè)utput或Append方式打開B、用Open語句打開一個文件時，對同一個文件可以用幾個不同的文件號打開C、用Output和Append方式打開文件時，不用將文件關(guān)閉，就能重新打開文件D、用Append方式打開文件時，進行寫操作，寫入文件的數(shù)據(jù)附加到原來文件的后面160、執(zhí)行語句Open For Random As 1 Len = 50 后，對文件中的數(shù)據(jù)能夠進行的操作是(C)。查找結(jié)果和逆向排列數(shù)分別顯示在對應的列表框Private Sub Command1_Click()Dim n As IntegerDim m As IntegerDim i As IntegerFor i = 1000 To 9999m= 0n = iDoWhile n 0m = m * 10 + n Mod 10n = n \ 10LoopIf m Mod i=0And m \ i 1 Then i m amp。 iamp。 m \ iEnd IfNext iEnd Sub4，將100~150之間的偶數(shù)，拆分成兩個素數(shù)之和，最后輸出格式如圖。 :。 k。 n kExit ForEnd IfNext ki = i + 1Next nEnd Sub10,子過程F（N，M，T）對一個四位數(shù)n整整數(shù)判斷：已知該整數(shù)n，逆向排列獲得另一個4位數(shù)m是特自身的倍數(shù)，則t為true表示滿足上述條件。 i amp。 k amp。 i amp。 k \ i amp。Private Sub Command1_Click()Dim n(9) As Integer, i%Call CountN(n(), )For i = 0 To 9If n(i) Then 字符 amp。 出現(xiàn)的次數(shù)為 amp。用于實現(xiàn)split函數(shù)的功能，即將數(shù)字字符s鞍分隔符“，”分離到sArry數(shù)組中，分離的個數(shù)為n。Sub aa(x, y, z)z= x * x + y * yEnd SubSub bb(x, y, z)z =x ^ 3 + y ^ 3End Sub當在form1中單擊命令按鈕時，調(diào)用以上過程計算兩個數(shù)的平方和和立方和，并分別將計算結(jié)果顯示在文本框text3和text4中，請?zhí)羁胀瓿烧{(diào)用語句。Private Sub Command1_Click()Select Case Val()Case [2,4,6 ]Print X的值為2,4,6Case [11to 15 ] Print X的值為大于等于11小于等于15Case Is 20Print X的值大于20Case Else Print X不在范圍內(nèi)EndSelectEnd Sub――――――――――――――3下面的程序是使用冒泡法對數(shù)組進行排序，請將程序補充完整。 進行n1遍比較39。 在數(shù)組 i~n個元素中選最小元素的下標If [ iA(j) iA(j+1) ] Thent = iA(j)iA(j) = iA(j + 1)iA(j + 1) = tEnd IfNext jEnd Sub――――――――――――4 程序的功能是使用輾轉(zhuǎn)相除法求兩個數(shù)的最大公約數(shù)。請將程序補充完整。n存放字符串的長度a =InputBox(input a string)n =[Len(a) ]Fori = 1 To Int(n / 2)c= Mid(a, i, 1)Mid(a, i, 1) = [ Mid(a,ni+1,1) ]Mid(a, n i + 1, 1) = cNext iEnd Sub――――――――――下面的程序允許用戶按Enter(回車)鍵后，將組合框中沒有的項目添加到組合框。Private Sub Combo1_KeyPress(KeyAscii AsInteger)Dim flag As BooleanIf KeyAscii = 13 Thenflag = FalseFor i = 0 To 1 39。不存在則添加[ ]End IfEnd IfEnd Sub―――――――――下面的程序是使用選擇法對數(shù)組進行升序排列，請將程序補充完整。 進行n1遍比較iMin = i 39。 在數(shù)組 i~n個元素中選最小元素的下標If [a(j)a(imin) ] Then iMin = jNext jt = iA(i) 39。Private Sub Command1_Click()Dimcountn%, n%n =1: countn = 0Don= n + 1If [ n mod 3=1 And n mod 5=1 And n mod 7=1 ]ThenPrint ncountn = countn + 1End IfLoop [ until count n=5 ]End Sub――――――――――――――下面程序段是檢查輸入的算術(shù)表達式中圓括號是否配對，并顯示相應的結(jié)果。Dim count1%Private Sub Text1_KeyPress(KeyAscii AsInteger)If[ chr(keyAscii) ] = ( Thencount1 = count1 + 1ElseIf Chr(KeyAscii) = ) Then[ count1=count1+1 ]EndIfIfKeyAscii = 13 ThenIf count1 = 0 ThenPrint 左右括號配對ElseIf count1 0 ThenPrint 左括號多于右括號。 個ElsePrint 右括號多于左括號。 個End IfEndIfEnd Sub――――――――――――順序文件的建立。Private Sub Form_Load()Open“c:\” For Output As 1=“”End SubPrivate Sub Text1_KeyPress(keyAscii AsInteger)IfkeyAscii=13 ThenIf[ Ucase(Text1)=END ] ThenClose 1End Else[Print 1,Text1 ]=“”End IfEndIfEnd Sub―――――――――――――1輸入若干字符，統(tǒng)計有多少個元音字母、有多少個其他字母，不區(qū)分大小寫，并顯示結(jié)果。Private Sub Command1_Click()DimCountY%, CountC%, i%DimC$, B$c=Fori = 1 To Len(C)B=UCase(Mid(C, i, 1))If [ A=B And B=Z ] ThenSelect Case BCase A,E,I,O,UCountY = CountY + 1Case [ Else ]CountC = CountC + 1End SelectEnd IfNext iPrint 元音字母有。 個Print 其它字母有。 個End Sub――――――――1，并利用文件操作語句。判斷s字符變量是大寫字母字符的邏輯表達式為[s=AAnd s=Z]。表示字符變量s是字母字符（不區(qū)分大小寫）的VB表達式是[Lcase(s)=aAnd Lcase(s)=z或者Ucase(s)=AAnd Ucase(s)=Z]。隨機產(chǎn)生一個“C”～“L”范圍內(nèi)的大寫字符，則對應的VB表達式是[Chr(Int(Rnd*10+68))]。Int()的值是[3]。For i = 0 To 3Print Tab(5 * i + 1)。 2 amp。Next i循環(huán)語句For i=3to 20 Step 0 的循環(huán)次數(shù)是[無數(shù)次]。由Array函數(shù)建立的數(shù)組，其變量必須是[Variant]。循環(huán)語句For i= Step [19]。30 For j = 1 To 12 Step 340 For k = 6 To 2 Step 241 Print j, k42 Next k43 Next j循環(huán)語句For i=3to 20 Step 4的循環(huán)次數(shù)是[6]。a = *: b = $For i = 1 To 4If i Mod 2 = 0 Thenx$ = String(Len(a) + i, b)Elsex$ = String(Len(a) + i, a)End IfPrint x$。x = 242: y = 44z = x * yDo Until nx = yIf x y Then x = x y Else y = y xLoopPrint x, z / x下列程序段中，第40句共執(zhí)行了[4]次。]符號，那么該字母就成了熱鍵字母。列表框中的[List]和Selected兩個屬性均為數(shù)組。當用戶單擊滾動條的空白處時，滑塊移動的增量由[Largechange]屬性決定。列表框中項目的序號是從[0]開始的。如果窗體的[KeyPreview]屬性設(shè)置為True，則控件的KeyPress事件過程可以接收到在窗體的KeyPress過程中修改過的值。復選框的[value]屬性設(shè)置為2Grayed時，復選框變成灰色，禁止用戶選擇。如果要每隔15秒產(chǎn)生一個Timer事件，則Interval屬性應設(shè)置為[15000]。[]表示列表框（List1）中最后一項的序號。一、單項選擇題與傳統(tǒng)的程序設(shè)計語言相比,Visual Basic最突出的特點是（C）。Next jEnd Sub從鍵盤輸入任意長度的字符串，要求將字符順序倒置，例如，將輸入的“ABCDEFG”變換成“GFEDCBA”。SumEnd Sub4輸入一年份，判斷他是否為閏年，并現(xiàn)實是否是閏年的有關(guān)信息。 年是閏年)ElseMsgBox (y amp。PrivateSub Command1_Click()Dimx!, y!, z!x= InputBox(input x)y= InputBox(input y)z= InputBox(input z)PrintTab(8)。 x。 zPrint排序前:。 。 。 。 。 。如a=3,n=6,則s=3+33+333+3333+33333+333333。Private Sub Form_click()Dim s!, t!, i!, a%, n%a = Int(Rnd * 9 + 1)n = Int(Rnd * 6 + 5)t = 0: s = 0Print Tab(9)。 a,n=。 tNext iPrintPrint Tab(9)。 sEnd Sub計算100~300之間所有能被3和7整除的數(shù)之和。 sEndSub編程求200400范圍內(nèi)5的倍數(shù)或7的倍數(shù)之和。) Private Sub Command1_Click()Dims1%, s2%, s3%, i%s1= 0s2= 0Fori = 200 To 400Ifi Mod 5 = 0 Or i Mod 7 = 0 Thens1= s1 + iEndIfNextiFori = 200 To 400Ifi Mod 5 = 0 And i Mod 7 = 0 Thens2= s2 + iEndIfNextis3= s1 s2Prints3EndSub9找出被7除，余數(shù)均為1的最小的5個正整數(shù)。如果分別輸入7個評委對某個參賽者的打分數(shù)，按照去掉一個最高分和一個最低分的計算辦法，求出該參賽者的平均得分。也可以用隨機數(shù)產(chǎn)生