【正文】 = Val(InputBox(輸入欲插入的數(shù)))For i = UBound(a) 1 To 0 Step 1If m = a(i) Thena(i + 1) = a(i)If i = 0 Then a(i) = mElsea(i + 1) = mExit ForEnd IfNext iFor i = 0 To UBound(a)Print a(i)Next iEnd Sub3，下列程序在1000~9999之間查找滿足如下條件的整數(shù)：該整數(shù)，逆向排列得到的另一個四位數(shù)是它自身的倍數(shù)（2倍以上）。 =。 = amp。 i amp。Option Base 1Private Sub Command1_Click()Dim iA(0 To 10)n = 6iA(0) = 8: iA(1) = 6: iA(2) = 9: iA(3) = 3: iA(4) = 2: iA(5) = 7For i= 1 To n 1 39。請將程序補充完整。i~n個元素中選出的最小元素與第i個元素交換iA(i) = iA(iMin)iA(iMin) = tNext iEnd Sub―――――――――――找出被7除，余數(shù)均為1的最小的5個正整數(shù)。建立文件名為“c:\”的順序文件，內(nèi)容來自文本框，每按Enter鍵寫入一條記錄，然后清除文本框的內(nèi)容，直到文本框內(nèi)輸入“END”字符串。Private Sub Command1_Click()Dimstr1 $Open “c:\” For Input As 1Open “c:\” [For output As 2 ]DoWhile[ NotEoF(1) ]Line Input 1,str1Print 2,str1LoopClose 1,2KILL “c:\”End Sub―――――――――PIXTEL_MMI_EBOOK_20056 1產(chǎn)生[10，37]之間的隨機整數(shù)的Visual Basic表達(dá)式是[int(Rnd*28+10)]。下面程序段運行后的輸出結(jié)果是[2 20 3 21 4 22 5 23]。要使循環(huán)語句循環(huán)執(zhí)行20次，F(xiàn)or k=____ to 5 Step 2，則k=[33]。30 For j = 1 To 12 Step 340 For k = 6 To 2 Step 241 Print j, k42 Next k43 Next j如果在建立菜單時在標(biāo)題文本框中輸入一個[下劃線或者“_”],那么菜單顯示時形成一個分隔線如果菜單標(biāo)題的某個字母前輸入一個[amp。Visual Basic中有一種控件組合了文本框和列表框的特性，這種控件是[組合框]。Visual Basic提供的對數(shù)據(jù)文件的三種訪問方式為順序訪問方式、[二進(jìn)制訪問方式]和隨機訪問方式。 年是平年)End IfEnd Sub已知x,y,z 3個變量中存放了3個不同的數(shù)，比較它們的大小并進(jìn)行調(diào)整，使得xyz。 y。 zEndSub求s=a+aa+aaa+...aaaaa（n個a），其中a和n的值隨機產(chǎn)生，a的范圍是[1,9]的整數(shù)，n的范圍是[5,10]。 s=。Private Sub Form_Click()Dim a(6) As Integer, i%, t%, s!, max%, min%, imin%,imax%RandomizeFor i = 0 To 6a(i) = InputBox(輸入評委所打的分?jǐn)?shù)) 或者39。Private Sub Command1_Click()Dim countN%, n%countN = 0n = 1Don = n + 1If n Mod 3 = 1 And n Mod 5 = 1 And n Mod 7 = 1 ThenPrint ncountN = countN + 1End IfLoop Until countN = 5End Sub某次歌曲大獎賽，有7個評委。 nPrintFor i = 1 To nt = t * 10 + as = s + tPrint Tab(9)。 y。 x。Private Sub Command1_Click()Dim y%y = Val(Text1)If y Mod 4 = 0 And y Mod 100 0 Or y Mod 400 = 0 ThenMsgBox (y amp。當(dāng)用戶單擊滾動條兩端的箭頭時，滑塊移動的增量由[Smallchange]屬性決定。當(dāng)用戶單擊鼠標(biāo)右鍵時，MouseDown、MouseUp和MouseMove事件過程中的Button參數(shù)值為[2]。Next i下面程序的運行結(jié)果是[22 484]。在過程中定義的局部變量，如果希望過程結(jié)束后還保存變量的值，則應(yīng)使用[Static]關(guān)鍵字進(jìn)行聲明。Round()的值是[4]。 CountC。 count1。 對第i遍比較時，初始假定第i個元素最小For [ j=i+1 to n ] 39。Private Sub Command1_Click()Dima$, i%, c$, n% 39。Private Sub Command1_Click()a =Val()b =Val()Call [aa(a,b,c1) ] = c1bb[a,b,c2 ] = c2End Sub――――――――――――――――――2下面的程序用于根據(jù)文本框X中輸入的內(nèi)容進(jìn)行以下處理：若X為6，則打印X的值為6；若X在11到15之間，則打印X的值為大于等于11小于等于15；若X大于20，則打印X的值大于20；否則，打印X不在范圍內(nèi)。Public Sub MoveStr(a $(),m%,Tag As Boolean)Dimi%, j%, t$If Tag ThenFor i = 1 To mc = a(0)For j = 0 To UBound(a) 1a(j) = a(j + 1)Next ja (UBound(a)) 1Next iElseFor i = 1 To mc = a(UBound(a))For j = UBound(a) To 1 Step 1a(j) = a(j 1)Next ja(0) = cNext iEndIfEnd Sub字符（09）出現(xiàn)的個數(shù)；主調(diào)程序?qū)υ趖extbox1框輸入的文本，每次單擊“統(tǒng)計”按鈕，調(diào)用該子過程，在Label1框顯示結(jié)果。 vbCrLftext2 = text2 amp。其中，prime函數(shù)判斷參數(shù)x是否為質(zhì)數(shù)Private Function prime(ByVal x As Integer)As Booleanprime = tureFor i = 2 To Sqr(x)If x Mod i = 0 Thenprime = FalseExit FunctionEnd IfNext iEnd FunctionPrivate Sub Form_Load()i = 1For n = 100 To150For k = 3 To n / 2Ifprime(k) And prime(n k) ThenPrint i。 A、記錄類型B、數(shù)組 C、字符串類型 D、變體類型15下列說法錯誤的是（B）。符號。 A、復(fù)選框未被選中B、復(fù)選框被選中C、復(fù)選框內(nèi)有灰色的勾D、復(fù)選框操作有錯誤。 A、復(fù)選框未被選中B、復(fù)選框被選中C、復(fù)選框內(nèi)有灰色的勾D、復(fù)選框操作有錯誤。用于標(biāo)識各個控件數(shù)組元素的參數(shù)是(D)。A、VarB、ByDefC、ByValD、Value12在在窗體上添加一個命令按鈕Command1和兩個名稱分別為Label1和 Label2的標(biāo)簽，然后編寫如下事件過程： Private X AsInteger Private SubCommand1_Click() X = 5: y = 3 Call proc(X, y) = X = y End Sub Sub proc(ByVal a As Integer, ByVal bAs Integer) X = a * a y = b + b End Sub 程序運行后，單擊命令按鈕，則兩個標(biāo)簽label1和label2中顯示的內(nèi)容分別是（B）。 A、120B、75C、60D、1311假定有如下的Sub過程： SubS (x As Single, y As Single) t = x x = t / y y = t Mod y End Sub 在窗體上添加一個命令按鈕，然后編寫如下事件過程： Private Sub Command1_Click() Dim a As Single Dim b As Singlea = 5: b = 4 S a, b Print a, b End Sub 程序運行時，單擊命令按鈕得到的結(jié)果（D）。 A、120B、75C、30D、1310如果在上題語句前加入 Option Base 1，則該數(shù)組共有（D） 個元素。 A、x=1和y=1均為賦值語句B、x=1和y=1均為關(guān)系表達(dá)式C、x=1為關(guān)系表達(dá)式，y=1為賦值語句D、x=1為賦值語句， y=1為關(guān)系表達(dá)式9賦值語句：a=123amp。 A、If sex=“男”And age＜40 And InStr(duty,“教授”)＞0 Then n=n+1B、If sex=“男”And age＜40 And (duty=“教授”O(jiān)r duty=“副教授”) Then n=n+1C、If sex=“男”And age＜40 And Right(duty,2)= “教授” Then n=n+1D、If sex=“男”And age＜40 And duty=“教授”And duty=“副教授” Then n=n+18當(dāng)語句w=IIf(410,”Red”,“Green”)執(zhí)行后，變量w中的值是（C）。 A、Ltrim B、Rtrim C、Trim D、Mid7下列可為合法變量名的是(D)。 A、TextDate=1/1/2002B、TestDate=“1/1/2002”C、TextDate=date(“1/1/2002”)D、TestDate=Format(“m/d/yy”,“1/1/2002”)70、設(shè)a=2,b=3,c=4,d=5，表達(dá)式abAND c=d的值是(B)。 A、x=1 和 y=1 均為賦值語句B、x=1 和 y=1 均為關(guān)系表達(dá)式C、x=1 為關(guān)系表達(dá)式， y=1 為賦值語句D、x=1 為賦值語句， y=1 為關(guān)系表達(dá)式6設(shè)有聲明：DimX As Integer,如果Sgn(X) 的值為1，則X的值是(D)。 A、AA B、4A C、?xy D、constA5設(shè)a=10，b=5，c=1，執(zhí)行語句Printa b c后，窗體上顯示的是(B)。 A、文本框失去焦點 B、文本框獲得焦點C、設(shè)置文本框的焦點 D、改變文本框的內(nèi)容4以下敘述中錯誤的是(C)。 A、Style屬性和Graphics屬性B、Style屬性和Picture屬性C、Caption屬性 D、Graphics屬性若要使命令按鈕不可操作，要對(A)屬性進(jìn)行設(shè)制。 A、文本框 B、命令按鈕C、窗體 D、標(biāo)簽3以下敘述中正確的是(A)。 A、Load B、ClickC、Unload D、GotFocus2窗體設(shè)計器是用來設(shè)計(B)。C、文本框的文本將變成灰色，用戶仍然能改變文本框中的內(nèi)容。A、一個工程中可以包含多個窗體文件B、在一個窗體文件中用Private定義的通用過程能被其他窗體調(diào)用C、在設(shè)計VB程序時，窗體、標(biāo)準(zhǔn)模塊、類模塊等需要分別保存為不同類型的磁盤文件。 A、文本文件和工程文件 B、窗體文件和工程文件C、窗體文件和標(biāo)準(zhǔn)模塊文件 D、類模塊文件和工程文件以下能在窗體Form1的標(biāo)題欄中顯示VisualBasic窗體的語句是（C）。 A、12334 B、123 C、12334 D、157保存一個工程至少應(yīng)保存兩個文件，這兩個文件分別是（B）。 A、Enabled B、VisibleC、BackColor D、Caption1以下敘述中錯誤的是(B)。B、文本框的文本將變成灰色，用戶仍然能將光標(biāo)置于文本框上，但是不能改變文本框中的內(nèi)容。 A、執(zhí)行Unload Form1語句后，窗體Form1消失，但仍在內(nèi)存中B、窗體的Load事件在加載窗體時發(fā)生C、當(dāng)窗體的Enabled屬性為False時，通過鼠標(biāo)和鍵盤對窗體的操作都被禁止D、窗體的Height、Width屬性用于設(shè)置窗體的高和寬2當(dāng)運行程序時，系統(tǒng)自動執(zhí)行窗體的(A)事件過程。它是應(yīng)用程序的基石，是其他控件的容器。 A、[0，99] B、[1，100] C、[0，100] D、[1，99]3如果要在命令按鈕上顯示圖形文件，應(yīng)設(shè)置命令按鈕的(B)。 A、雙擊鼠標(biāo)可以觸發(fā)DblClick事件B、窗體或控件的事件的名稱可以由編程人員確定C、移動鼠標(biāo)時，會觸發(fā)MouseMove事件D、控件的名稱可以由編程人員設(shè)定4以下能夠觸發(fā)文本框Ch