大學vb考試題庫-資料下載頁

　　

【正文】 Sub――――――――――――――下面程序段是檢查輸入的算術表達式中圓括號是否配對，并顯示相應的結果。本程序在文本框輸入表達式，邊輸入，邊統計，以輸入回車鍵作為表達式輸入結束，然后顯示結果。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 左括號多于右括號。 count1。 個ElsePrint 右括號多于左括號。 count1。 個End IfEndIfEnd Sub――――――――――――順序文件的建立。建立文件名為“c:\”的順序文件，內容來自文本框，每按Enter鍵寫入一條記錄，然后清除文本框的內容，直到文本框內輸入“END”字符串。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輸入若干字符，統計有多少個元音字母、有多少個其他字母，不區分大小寫，并顯示結果。其中，CountY中放元音字母個數，CountC中放其他字符數。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 元音字母有。 CountY。 個Print 其它字母有。 CountC。 個End Sub――――――――1并利用文件操作語句。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產生[10，37]之間的隨機整數的Visual Basic表達式是[int(Rnd*28+10)]。判斷s字符變量是大寫字母字符的邏輯表達式為[s=AAnd s=Z]。表示x是5的倍數或9的倍數的邏輯表達式是[xMod 5=0 Or x Mod 9=0]Len(vb程序設計)的值是[6]。表示字符變量s是字母字符（不區分大小寫）的VB表達式是[Lcase(s)=aAnd Lcase(s)=z或者Ucase(s)=AAnd Ucase(s)=Z]。將一個兩位數x的個位數與十位數交換位置，組成另一個兩位數，則對應的表達式是[(x Mod 10)+x\10]。隨機產生一個“C”～“L”范圍內的大寫字符，則對應的VB表達式是[Chr(Int(Rnd*10+68))]。Round()的值是[4]。Int()的值是[3]。下面程序段運行后的輸出結果是[2 20 3 21 4 22 5 23]。For i = 0 To 3Print Tab(5 * i + 1)。 2 + i。 2 amp。 i。Next i循環語句For i=3to 20 Step 0 的循環次數是[無數次]。在過程中定義的局部變量，如果希望過程結束后還保存變量的值，則應使用[Static]關鍵字進行聲明。由Array函數建立的數組，其變量必須是[Variant]。要使循環語句循環執行20次，For k=____ to 5 Step 2，則k=[33]。循環語句For i= Step [19]。下列程序段中，第41句共執行了[12]次。30 For j = 1 To 12 Step 340 For k = 6 To 2 Step 241 Print j, k42 Next k43 Next j循環語句For i=3to 20 Step 4的循環次數是[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$。Next i下面程序的運行結果是[22 484]。x = 242: y = 44z = x * yDo Until nx = yIf x y Then x = x y Else y = y xLoopPrint x, z / x下列程序段中，第40句共執行了[4]次。30 For j = 1 To 12 Step 340 For k = 6 To 2 Step 241 Print j, k42 Next k43 Next j如果在建立菜單時在標題文本框中輸入一個[下劃線或者“_”],那么菜單顯示時形成一個分隔線如果菜單標題的某個字母前輸入一個[amp。]符號，那么該字母就成了熱鍵字母。[Clear]方法可以清除列表框中的所有內容。列表框中的[List]和Selected兩個屬性均為數組。[Style]屬性設置為1，單選按鈕和復選框以圖形方式顯示。當用戶單擊滾動條的空白處時，滑塊移動的增量由[Largechange]屬性決定。當用戶單擊鼠標右鍵時，MouseDown、MouseUp和MouseMove事件過程中的Button參數值為[2]。列表框中項目的序號是從[0]開始的。Visual Basic中有一種控件組合了文本框和列表框的特性，這種控件是[組合框]。如果窗體的[KeyPreview]屬性設置為True，則控件的KeyPress事件過程可以接收到在窗體的KeyPress過程中修改過的值。復選框的[Value]屬性設置為2Grayed時，變成灰色，禁止用戶選擇。復選框的[value]屬性設置為2Grayed時，復選框變成灰色，禁止用戶選擇。滾動條產生Change事件是因為它的[Value]屬性值改變了。如果要每隔15秒產生一個Timer事件，則Interval屬性應設置為[15000]。當用戶單擊滾動條兩端的箭頭時，滑塊移動的增量由[Smallchange]屬性決定。[]表示列表框（List1）中最后一項的序號。Visual Basic提供的對數據文件的三種訪問方式為順序訪問方式、[二進制訪問方式]和隨機訪問方式。一、單項選擇題與傳統的程序設計語言相比,Visual Basic最突出的特點是（C）。 1 產生1－100以內的素數Private Sub Command1_Click()Dim i%, j%, tag As BooleanFor j = 1 To 100tag = TrueFor i = 2 To j 1If j Mod i = 0 Then tag = FalseNext iIf tag Then Print j。Next jEnd Sub從鍵盤輸入任意長度的字符串，要求將字符順序倒置，例如，將輸入的“ABCDEFG”變換成“GFEDCBA”。 PrivateSub Form_Click()Dimi, a, b, n As Stringn= InputBox(輸入字符)i= Len(n)Fora = 1 To i / 2b= Mid(n, a, 1)Mid(n, a, 1) = Mid(n, i + 1 a, 1)Mid(n, i + 1 a, 1) = bNext aPrint nEndSub 或11整除的數的和Private Sub Command1_Click()Dim i%For i = 0 To 200If i Mod 11 = 0 Or i Mod 5 = 0 ThenSum = Sum + iEnd IfNext iPrint 總和是。SumEnd Sub4輸入一年份，判斷他是否為閏年，并現實是否是閏年的有關信息。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。 年是閏年)ElseMsgBox (y amp。 年是平年)End IfEnd Sub已知x,y,z 3個變量中存放了3個不同的數，比較它們的大小并進行調整，使得xyz。PrivateSub Command1_Click()Dimx!, y!, z!x= InputBox(input x)y= InputBox(input y)z= InputBox(input z)PrintTab(8)。 。 x。 y。 zPrint排序前:。 x。 。 y。 。 zIfx y Then t = x: x = y: y = t:Ifx z Then t = x: x = z: z = t:Ify y Then t = y: y = z: z = t:Print排序后:。 。 x。 。 y。 。 zEndSub求s=a+aa+aaa+...aaaaa（n個a），其中a和n的值隨機產生，a的范圍是[1,9]的整數，n的范圍是[5,10]。如a=3,n=6,則s=3+33+333+3333+33333+333333。編程確定n和a的值，并計算s。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=。 a,n=。 nPrintFor i = 1 To nt = t * 10 + as = s + tPrint Tab(9)。 tNext iPrintPrint Tab(9)。 s=。 sEnd Sub計算100~300之間所有能被3和7整除的數之和。PrivateSub Command1_Click()Dims%, i%s= 0Fori = 100 To 300Ifi Mod 3 = 0 Or i Mod 7 = 0 Thens= s + iEndIfNextiPrints= amp。 sEndSub編程求200400范圍內5的倍數或7的倍數之和。(一個數如果同時是7和5的倍數，則只能加一次。) 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除，余數均為1的最小的5個正整數。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個評委。如果分別輸入7個評委對某個參賽者的打分數，按照去掉一個最高分和一個最低分的計算辦法，求出該參賽者的平均得分。Private Sub Form_Click()Dim a(6) As Integer, i%, t%, s!, max%, min%, imin%,imax%RandomizeFor i = 0 To 6a(i) = InputBox(輸入評委所打的分數) 或者39。也可以用隨機數產生 39。a(i)= Int(R