1、精選優質文檔-傾情為你奉上精選優質文檔-傾情為你奉上專心-專注-專業專心-專注-專業精選優質文檔-傾情為你奉上專心-專注-專業一、單選題1、下列_不是Visual Basic程序的基本結構。A) 層次結構 B) 分支結構 C) 循環結構 D) 順序結構2、當文本框的內容發生變化時，必將觸發_事件。A) LostFocus B) KeyPress C) Change D) Click3、在Visual Basic中，建立一個文本編輯區域，可采用下列_。A) 命令按鈕 B) 標簽控件 C) 文本控件 D) 定時器控件4、在Visual Basic中，下列_表達式的值不等于4。A) int(4.1)

2、 B) int(4.9) C) Abs(int(-3.9) D) Abs(int(-4.5)5、代數表達式中的一元二次方和求根公式中的一個改成VB表達式是_。A) (-b+sqr(b*b-4*a*c)/(2*a) B) -b+sqr(b*b-4*a*c)/(2*a)C) (-b+sqr(b*b-4*a*c)/2*a D) (-b+ (b*b-4*a*c)/(2*a)6、在Visual Basic中，下列_程序行是符合語法的。A) X=Y=5 B) A+B=C3 C) Y=1:Y=Y+1 7、假定X是一個數值型變量，那么由函數組成的表達式INT（X/2）=X/2，作用是_。A) 用于測試X是否偶

3、數 B) 返回一個整數C) 返回一個奇數 D) 用于測試X是否整數8、表達式Abs(-3.6)*sqr(100)的值是_。A) -360 B) 360 C) -36 D) 369、為了使一個窗體從屏幕消失但仍在內存中，所使用的方法或語句為_。A)Show B)Hide C)Load D)Unload10、要改變新建對象的缺省名稱，應使用屬性_。A) Font B) ForeColor C) Name D) Height11、要使一個命令按鈕顯示文字“確定”，正確的設置是把它的屬性_設置為“確定”。A) Font B) ForeColor C) Caption D) BorderStyle12、

4、在Visual Basic 中，下列_ 單詞用于注釋語句。A) Rem B) End C) Else D) Loop13、在Visual Basic中，設置控件的位置，可改變下列_屬性。A) Height 與 Width B) height 與Top C) Left 與 Top D) Left 與 Width14、下列語句中_定義了一個單精度型變量。A) Dim I As Integer B) Dim Sum As SingleC) Dim Name As String D) wjm=信息技術15、要使一個控件在運行時無效，正確的設置是_。A) 把屬性Enabled設置為True B) 把屬性

5、Enabled設置為FalseC) 把屬性Visibled設置為True D) 把屬性Visibled設置為False16、下面敘述正確的是_。A)算法的執行效率與數據的存儲結構無關B)算法的空間復雜度是指算法程序中指令(或語句)的條數C)算法的有窮性是指算法必須能在執行有限個步驟之后終止D)算法的時間復雜度是指執行算法程序所需要的時間17、下面概念中，不屬于面向對象方法的是_。A)對象、消息 B)繼承、多態 C)類、封裝 D)過程調用18、下面描述中，不符合結構化程序設計風格的是_。A)使用順序、選擇和重復(循環)三種基本控制結構表示程序的控制邏輯B)自頂向下C)注重提高程序的執行效率D)限

6、制使用goto語句19、可以同時刪除字符前導和尾部空格的函數是_。A)Ltrim B)Rtrim C)Trim D)Mid20、每一個控件都有的屬性是_。A)Top B)Name C)Visible D)Interval21、執行以下程序段后，變量c$的值為_。a$=Visual Basic Programmingb$=Quickc$=b$ & UCase(Mid$(a$，7，6) & Right$(a$,12)A)Visual Basic Programming B)Quick Basic ProgrammingC)QUICK Basic Programming D)Quick BASIC

7、Programming22、Rnd函數不可能產生_值。A)0 B)1 C23、以下說法錯誤的是_。A)函數過程沒有返回值 B)子過程沒有返回值C)函數過程可以帶參數 D)子過程可以帶參數24、下列哪項是窗體對象的方法而不是屬性_。A)Name B)Print C)Caption D)Enabled25、以下關于文件的敘述中，錯誤的是_。A)順序文件中的記錄一個接一個地順序存放B)隨機文件中記錄的長度是隨機的C)執行打開文件的命令后，自動生成一個文件指針D)LOF函數返同給文件分配的字節數26、計算機之所以按人們的意志自動進行工作，最直接的原因是因為采用了_。 A)二進制數制 B)高速電子元件

8、C)存儲程序控制 D)程序設計語言 27、微型計算機主機的主要組成部分是_。 A)運算器和控制器 B)CPU和內存儲器 C)CPU和硬盤存儲器 D)CPU、內存儲器和硬盤 28、一個完整的計算機系統應該包括_。 A)主機、鍵盤、和顯示器 B)硬件系統和軟件系統 C)主機和其他外部設備 D)系統軟件和應用軟件 29、計算機軟件系統包括_。 A)系統軟件和應用軟件 B)編譯系統和應用系統 C)數據庫管理系統和數據庫 D)程序、相應的數據和文檔 30、微型計算機中，控制器的基本功能是_。 A)進行算術和邏輯運算 B)存儲各種控制信息C)保持各種控制狀態 D)控制計算機各部件協調一致地工作二、填空題I

9、 閱讀程序，寫出下列程序的運行結果：1、下列Visual Basic程序段運行后,變量M的值為_1_。a=3 : b=2 : c=5If ab Then m=a Else m=bIf c4X=X*YY=Y+1LoopPrint X5、在窗體上畫一個名稱為Commandl的命令按鈕和一個名稱為Textl的文本框，然后 編寫如下程序：Private Sub Command l Click()Dim x，y，z As Integerx=5y=7z=0TextlText=Call Pl(x，y，z)TextlText=Str(z)End SubSub Pl(By Val a As Integer，By

10、 Val b As Integer，c As Integer)c=a+bEnd Sub程序運行后，如果單擊命令按鈕，則在文本框中顯示的內容是_5_。II 在下列程序的劃線處填寫適當代碼，使之能夠完成題目要求：6、若一個三位數，它的個、十、百位數字的立方和恰巧等于這個數本身，則把這個數稱為水仙花數。完善程序求出所有水仙花數。Dim x%, a%, b%, c%For x = _6_ Step 1 a = Int(x / 100) b = _7_ c = x - 100 * a - 10 * b If _8_ Then Print x _9_Next x7、編程鍵盤輸入5個數字，求出其中最接近10

11、0的數字。Private Sub Command1_Click()Dim i%, x%, Nu%Nu =Val(InputBox(請輸入第一個數字)Print 你輸入的五個數分別是: & Nu;For i = 2 To 5 x =_10_(請輸入第 & i & 個數) Print x; If Abs(x - 100) _11_ Abs(Nu - 100) Then _12_ End IfNext iPrint vbCrLf & 最接近100的數是_13_End Sub8、完善程序，自定義一個名為ProcMin的函數，該函數能夠接受一個整型的數組參數，求出該數組中最小的元素值并將這個值作為函數值

12、返回。Function ProcMin(b%() As IntegerDim i%, Nmin%_14_= b(LBound(b)For i = LBound(b) + 1 To_15_ If b(i) Nmin Then _16_Next i_17_End Function 9、完善程序，完成冒泡排序。程序可隨機生成指定個數的50，80區間的整數進行排序，在窗體中顯示每一步排序操作的結果。Dim _18_ As Integer, i%, j%, imin%, t%, n%n = Val(InputBox(請輸入數組元素的個數:)ReDim ia(n)Form1.ClsFor i = 1 To

13、 n ia(i) = _19_ Print ia(i);Next iFor i = 1 To n For j = 1 To _20_ If ia(j) _21_ Then t = ia(j) ia(j) = ia(j + 1) ia(j + 1) = t End If Next j Print For j = 1 To n Print ia(j); Next jNext iPrint10、完善程序，在窗體中繪制y=Cos(x)函數圖形。要求鼠標單擊窗體時開始繪制，繪制范圍：-3.x3.。Dim x!, y!Private Sub _22_x = -3.Timer1.Interval = 100

14、End SubPrivate Sub Timer1_Timer()_23_ = x + 0.05_24_x0 = x + Line2.X1y0 = -y + Line1.Y1Shape1.Move x0, y0 - Shape1.Height / 2PSet (x0, y0), RGB(255, 0, 0)If x _25_ Then Timer1.Interval = 0End Sub三、編程題1、編程輸入10名短跑運動員的姓名及其100米跑成績，輸出最好成績的運動員姓名及其成績，再顯示低于平均成績的所有運動員姓名及其成績。2、素數(質數)是一個正整數，除了1和它本身之外，不能被其它任何正整

15、數整除。編程：求出1到1000間的所有素數，并將這些素數顯示在列表框中。當用戶輸入的數不是正整數時，給出提示并要求重新輸入一個數。參考答案（可在vb6.0種驗證）選擇題ACCDACADBCCACBBCDCCBDBABBCBBDD填空題對于與標準答案不同但驗證正確的答案同樣給分，對于有個別文字不準確而不致引起誤解的答案，可酌情扣1分。1 22 ccccccc3 2 184 45 12 6 100 To 9997 (x-100*a)108 X=a3+b3+c3 9 Endif10 Val( InputBox11 3.編程題）Private sub form_click()Dim a(1 To 10) As String, b(1 To 10) As Integer, i%, j%, n%, p%, sum!, aver!For i = 1 To 10 a(i) = InputBox(請輸入第 & i & 個運動員的姓名) b(i) = Val(InputBox(請輸入第 & i & 個運動員的短跑成績) sum = sum + b(i) Print a(i); b(i)Next iaver = sum / 10 iMax = 1For i = 2 To 10 If b(i) b(iMax) Then iMax = iNext iP