第一篇：高三計算機專業VB試題(一)
高三年級計算機專業VB試題
（一）一、選擇題：
１、運行工程的錯誤操作是（）
A：執行“運行”菜單中的“啟動”命令
B：單擊工具欄中的“啟動”按鈕
C：按功能鍵“F5”
D：按組合鍵“alt+f5”
2、下列有關VB特點的描述有誤的是（）
A：VB是一種可視化、面向對象的程序設計語言
B：VB采用事件驅動編程機制
C：VB可用于開發Windows環境下的各類應用程序
D：VB是非面向對象的程序設計語言。
3、以下敘述錯誤的是（）
A：在工程資源管理器窗口中只能包含一個工程文件及屬于該工程的其他文件 B：以.bas為擴展名的文件是標準模塊文件
C：窗體文件包含該窗體及其控件的屬性
D：一個工程可以含有多個標準模塊文件
4、與傳統的程序設計語言相比，VB最突出的特點是（）
A：結構化程序設計
B：程序開發環境
C：事件驅動編程機制
D：程序調試技術
5、下列不能打開代碼窗口的操作是（）
A：雙擊窗體
B：雙擊窗體上的某個控件
C：單擊窗體
D：按“F7”鍵
6、在8BBE計窗體時雙擊窗體的任何地方，可以打開的窗體時（）
A：代碼窗口
B：屬性窗口
C：工程資源管理器窗口
D：工具箱窗口
7、下列標識符不能作為VB變量名的是（）
A：ABCabe
B：b1234
C：28wed
D：crud8、下列說法錯誤的是（）
A：在同一模塊不同過程中的變量可以同名
B：不同模塊中定義的全局變量可以同名
C：引用另一模塊中的全局變量時，必須在變量名前加模塊名
D：同一模塊中不同級的變量可以同名
9、下列描述不正確的是（）
A某個子過程中聲明的局部變量，其適用范圍僅限定于該子過程內
B：某個子過程中聲明的局部變量，期生命周期僅限定于該子過程被執行過程中 C：不同子過程中的局部變量可以具有相同的名稱
D：不同子過程的局部變量可以具有相同的名稱
10、聲明一個變量為局部變量應該用（）
A：localB：privateC：staticD：public11、語句Y=Y+1的正確含義是（）
A：變量Y的值與Y+1的值相等
B：獎變量Y的值存到Y+1中去
C：將變量Y的值加1后賦值給變量Y
D：變量Y的值為112、下列符號不能作為VB中的變量名的是（）
A：ABCDB：E0065400C：123TWJGFD：zxy13、若要在代碼編輯器窗口中規定輸入的代碼中的變量必須要顯示聲明，應在下列哪個選項中設置（）
A：自動 語法檢測B：要求變量聲明C：自動縮進D：Tab寬度
14、下列屬于不合法的常量是（）
A：20000B：100^6C：123.5D：10E+615、下列不合法的變量名是（）
A：Print_NumlB：Abc%C：ConstD：X1_y2_z316、關于變體變量，下列說法正確的是（）
A：變量未加定義而直接使用，該變量變為變體變量，因此變體變量是無類型變量 B：遍體變量占16字節的固定存儲單元
C：變體變量定以后，系統將變體變量初始化為數值0或空字符串
D：設X為遍體變量，且X=“10”，則X=X+20是正確的語句
17、下列符號常量的聲明中，不合法的是（）
A：Constaas single =1.1B：consta=“OK”
C： constaas double =sin（1）D：constaasinteger =“12”
18、下列關于聲明變量的說法中，錯誤的是（）
A：用顯式聲明變量的關鍵字Dim、Private、Static或Public來聲明的類型
B：用類型說明符標記變量的類型，其中Yype是類型標志
C：用DefTrype語句聲明變量的類型，其中Type是類型標志
D：用Type<數據類型名>/End Type語句聲明記錄類型變量
19、已知a=5，b=8，c=12，下列表達式的值為Ture的是（）
A： a>b and c C:a>b xor c Private Sub Form_Click() a = 5: b = 6: c = 7: d = 8 x = 3 > 2 * b Or a = c And b <> c Or c > d Print x End Sub A：1B：TureC：FalseD： 2 二、填空題。 1、用戶定義符號常量時常量表達式是必需的，它是由文字、其他常數、除_______、之外的任意的算數操作符和邏輯操作符所構成的任意組合組成，但不能使用_______、_______和_______ 2、變量名用于識別變量在內存中的位置，變量的類型指定_______ 3、如果希望在程序中顯式聲明變量，可以在模塊的聲明段中加入_______語句。也可以在_______菜單中選擇_______命令，單擊_______選項卡，選中_______復選框 4、在VB中，可以用變量聲明語句來聲明的類型，語法格式為_______ 5、使用聲明語句聲明一個變量后，VB自動將數值類型的變量賦初值為_______，將字符類型的變量賦初值為_______，將Variant類型的變量賦初值為_______，將布爾型的變量賦初值為_______ 6、VB中允許變量不經過聲明就直接使用，稱為_______這種聲明的變量都是_______型的，并默認為_______ 7、變量未賦值時，數值型變量的值為_______，字符串變量的值為_______ 8、一個變量未被顯式定義，末尾沒有類型說明符，則該變量的隱含類型是_______ 9、已知變量aa是一個布爾型的變量，如果要給其賦值為Ture，則正確的賦值語句為_______ 10、VB在數據后面可以加上符號表示不同的數據類型，&表示_______，@表示_______，！表示_______ 11、常量-0.00000567的VB標準化指數形式為_______ 12、表達式5*（7 Mod 3）*1/2的值為_______ 13、表達式運算符的優先順序從高到低是_______→_______→_______→_______ 14、下列程序中，a,b,c代表一個三角形的三個邊，程序的作用是判斷一個三角形是否成立，請填寫空白處。 If a + b < c_______ b + c < a _______ a + c < b Then MsgBox(“這三條邊不能構成一個三角形”) End If15、設a=2,b=b a = a-b18、表達式len(str(0.03456))Mod 2 的值為a = 600_______ 19、表達式14/5*2的值是_______ 20、表達式（-17/3+1)*(28/-5)的值是_______ 21、表達式“abc”<>“abc”&“123的值是_______ 22、字符串運算符_______連接的兩邊的操作數類型必須是字符型 23、設a=-2 b=4，則表達式4*a>9 or b+8>0 的值是_______ 24、生成1~100范圍內的隨機整數表達式：_______ 25、數學表達式sin60+cos30+log35對應的VB表達式：_______ 26、函數Str$(256.36)的值是_______ 27、表達式Int（-19.6）的值為_______ 28、表達式Right(”zhengzhou“,4)的值是_______ 29、一個語句行以_______結束。把多句寫在一行時，語句之間必須用_______連接。當一行代碼很長時可以用_______來換行 30、Print格式為_______ 三、判斷題 1、變量在使用前一般要預先聲明，聲明變量就是將變量的有關信息事先告訴編譯系統（） 2、標識符必須以字母開頭。最大長度為255（） 3、標識符不能作為VB的保留字 4、VB的標識符不區分大小寫（） 5、標識符在標識符的同一范圍內必須是唯一的（） 6、VB中，輸入Print語句時，不論輸入”PRINT“還是“print”，VB都會轉換成“Print”（） 7、賦值語句的功能是把右邊的表達式的值賦給左邊的變量或某個帶有屬性的對象（） 8、在賦值語句中，賦值號“=”與數學上的等號意義相同。（） 9、注釋語句是為了方便程序閱讀對程序進行的說明，對程序運行沒有影響（） 10、在塊結構的IF語句中，必須以一個END IF 語句結束（） 四、運行結果題 1、在窗體上畫一個命令按鈕，名稱為Command1，然后編寫如下程序： Private Sub Command1_Click() For i = 1 To 2 For j = 1 To i Print String(i, ”Hello“) Next j Print Next i End Sub 程序運行后，如果單擊命令按鈕，則在窗體上顯示的內容是什么？ 2、設當前日期為2011年6月8日，星期三，則執行下面語句的輸出結果是什么？ Print Day(Now) Print Month(Now) Print Year(Now) Print Weekday(Now) 3、窗體下面畫一個命令按鈕，然后編寫如下事件過程： rivate Sub Comm1_Click() x = 0 Do Until x =-1 a = InputBox(”請輸入a的值“) a = Val(a) b = InputBox(”請輸入b的值“) b = Val(b) x = InputBox(”請輸入a的值“) x = Val(x) a = a + b + x Loop Print a End Sub4、執行下面程序后，輸出結果是什么？ Private Sub Form_Load() s$ = ”abcDEF“ Print InStr(s$, ”efg“) Print LCase$(s$) s1 = ”zhengzhou“ s2 = ”nanyang“ s3 = ”zhumadian“ Print Right(s1, 4) Print Mid(s2, 4) Print Left(s3, 5) End Sub5、執行下列程序后輸出的是什么？ Private Sub Command1_Click() ch$ = ”abcdefg" Print Mid(Right(ch$, 6), Len(Left(ch$, 4)), 3) End Sub (1)下面敘述正確的是(C) A.算法的執行效率與數據的存儲結構無關 B.算法的空間復雜度是指算法程序中指令(或語句)的條數 C.算法的有窮性是指算法必須能在執行有限個步驟之后終止 D.以上三種描述都不對 (2)以下數據結構中不屬于線性數據結構的是(C) A.隊列 B.線性表 C.二叉樹 D.棧 (3)在一棵二叉樹上第5層的結點數最多是(B)注：由公式2k-1得 A.8 B.16 C.32 D.15 (4)下面描述中，符合結構化程序設計風格的是(A) A.使用順序、選擇和重復(循環)三種基本控制結構表示程序的控制邏輯 B.模塊只有一個入口，可以有多個出口 C.注重提高程序的執行效率 D.不使用goto語句 (5)下面概念中，不屬于面向對象方法的是(D) A.對象 B.繼承 C.類 D.過程調用 (6)在結構化方法中，用數據流程圖(DFD)作為描述工具的軟件開發階段是(B) A.可行性分析 B.需求分析 C.詳細設計 D.程序編碼 (7)在軟件開發中，下面任務不屬于設計階段的是(D) A.數據結構設計 B.給出系統模塊結構 C.定義模塊算法 D.定義需求并建立系統模型 (8)數據庫系統的核心是(B) A.數據模型 B.數據庫管理系統 C.軟件工具 D.數據庫 (9)下列敘述中正確的是(C) A.數據庫是一個獨立的系統，不需要操作系統的支持 B.數據庫設計是指設計數據庫管理系統 C.數據庫技術的根本目標是要解決數據共享的問題 D.數據庫系統中，數據的物理結構必須與邏輯結構一致 (10)下列模式中，能夠給出數據庫物理存儲結構與物理存取方法的是(A) A.內模式 B.外模式 C.概念模式 D.邏輯模式 (11)算法的時間復雜度是指(C) A.執行算法程序所需要的時間 B.算法程序的長度 C.算法執行過程中所需要的基本運算次數 D.算法程序中的指令條數 (12)算法的空間復雜度是指(D) A.算法程序的長度 B.算法程序中的指令條數 C.算法程序所占的存儲空間 D.算法執行過程中所需要的存儲空間 (13)設一棵完全二叉樹共有699個結點，則在該二叉樹中的葉子結點數為(B)注：利用公式n=n0+n1+n2、n0=n2+1和完全二叉數的特點可求出 A.349 B.350 C.255 D.351 (14)結構化程序設計主要強調的是(B) A.程序的規模 B.程序的易讀性 C.程序的執行效率 D.程序的可移植性 (15)在軟件生命周期中，能準確地確定軟件系統必須做什么和必須具備哪些功能的階段是(D)注：即第一個階段 A.概要設計 B.詳細設計 C.可行性分析 D.需求分析 (16)數據流圖用于抽象描述一個軟件的邏輯模型，數據流圖由一些特定的圖符構成。下列圖符名標識的圖符不屬于數據流圖合法圖符的是(A) A.控制流 B.加工 C.數據存儲 D.源和潭 (17)軟件需求分析階段的工作，可以分為四個方面：需求獲取、需求分析、編寫需求規格說明書以及(B)注：P66 A.階段性報告 B.需求評審 C.總結 D.都不正確 (18)下述關于數據庫系統的敘述中正確的是(A) A.數據庫系統減少了數據冗余 B.數據庫系統避免了一切冗余 C.數據庫系統中數據的一致性是指數據類型的`一致 D.數據庫系統比文件系統能管理更多的數據 (19)關系表中的每一橫行稱為一個(A) A.元組 B.字段 C.屬性 D.碼 (20)數據庫設計包括兩個方面的設計內容，它們是(A) A.概念設計和邏輯設計 B.模式設計和內模式設計 C.內模式設計和物理設計 D.結構特性設計和行為特性設計 (21)下列敘述中正確的是(A) A.線性表是線性結構 B.棧與隊列是非線性結構 C.線性鏈表是非線性結構 D.二叉樹是線性結構 (22)下列關于棧的敘述中正確的是(D) A.在棧中只能插入數據 B.在棧中只能刪除數據 C.棧是先進先出的線性表 D.棧是先進后出的線性表 (23)下列關于隊列的敘述中正確的是(C) A.在隊列中只能插入數據 B.在隊列中只能刪除數據 C.隊列是先進先出的線性表 D.隊列是先進后出的線性表 (24)對建立良好的程序設計風格，下面描述正確的是(A) A.程序應簡單、清晰、可讀性好 B.符號名的命名要符合語法 C.充分考慮程序的執行效率 D.程序的注釋可有可無 (25)下面對對象概念描述錯誤的是(A) A.任何對象都必須有繼承性 B.對象是屬性和方法的封裝體 C.對象間的通訊靠消息傳遞 D.操作是對象的動態性屬性 (26)下面不屬于軟件工程的3個要素的是(D) A.工具 B.過程 C.方法 D.環境 (27)程序流程圖(PFD)中的箭頭代表的是(B) A.數據流 B.控制流 C.調用關系 D.組成關系 (28)在數據管理技術的發展過程中，經歷了人工管理階段、文件系統階段和數據庫系統階段。其中數據獨立性最高的階段是(A) A.數據庫系統 B.文件系統 C.人工管理 D.數據項管理 (29)用樹形結構來表示實體之間聯系的模型稱為(B) A.關系模型 B.層次模型 C.網狀模型 D.數據模型 (30)關系數據庫管理系統能實現的專門關系運算包括(B) A.排序、索引、統計 B.選擇、投影、連接 C.關聯、更新、排序 D.顯示、打印、制表 【計算機vb試題及答案】相關文章： 1.二級vb試題及答案 2.計算機二級VB考試題及答案 3.計算機試題及答案 4.計算機二級VB語言程序設計考試題及答案 5.計算機知識試題及答案 6.小學計算機試題及答案 7.計算機筆試題及答案 8.計算機原理試題及答案 VB程序設計試題及答案 （一）一、單選題 1.VB6.0是一種面向 B 的編程環境。 (A)機器(B)對象 (C)過程(D)應用 2.要使FormI窗體的標題欄顯示“歡迎使用VB”，以下 D 語句是正確的。 (A)Forml.Caption=“歡迎使用VB” (B)Forml.Caption='歡迎使用VB' (C)Forml.Caption=歡迎使用VB (D)Forml.Caption=“歡迎使用VB” 3.若要使命令按鈕不可操作，要對 A 屬性進行設置。 (A)EnabIed(B)Visible (C)Backcolor(D)Caption 4.如果在窗體上已經創建了一個文本框對象TextI，可以通過 C 事件獲得輸入鍵值的ASCII碼。 (A)Change(B)LostFocus (C)KeyPress(D)GotFocus 5.下面 A 是合法的變量名。 (A)X_yz(B)123ab。(C)integer(D)X-Y 6.以下關系表達式 中，其值為False的是 A。 (A)“ABC”>“AbC”(B)“女”>“男” (C)“BASIC”=UCase(“basic)(D)”123“<”23“ 7.為了給x、y、z三個變量賦初值1，下面正確的賦值語句是 A。 (A)x=1:y=1:z=1(B)x=1,y=1,z= 1(C)x=y=z=1(D)xyz=1 8.VB提供了結構化程序設計的三種基本結構，三種基本結構是 D。 (A)遞歸結構、選擇結構、循環結構 (B)選擇結構、過程結構、順序結構 (C)過程結構、輸入輸出結構、轉向結構 (D)選擇結構、循環結構、順序結構 9.下面If語句統計滿足性別為男、職稱為副教授以上、年齡小于40歲條件的人數，不正確的語句是 D。 (A)If sex=”男“ And age=4O And InStr(duty，”教授“)>O Then n=n+l (B)If sex=”男“ And age=4O And(duty=”教授“ Or duty=”副教授“)Then n=n+l (C)If sex=”男“ And age=4O And Right(duty，2)=”教授“ Then n=n+l (D)If sex=”男“ And age=4O And duty=”教授“ And duty=”副教授“ Then n=n+l 10.下列關于Do…Loop循環結構執行循環次數的描述正確的是 D。(A)Do While…Loop循環和Do…Loop Until循環至少都執行一次(B)Do While…Loop循環和Do…Loop Until循環可能都不執行 (C)Do While…Loop循環至少執行一次和Do…Loop Until循環可能不執行 (D)Do While…Loop循環可能不執行和Do…Loop Until循環至少執行一次 11.以下 B 是正確的For…Next結構。 (A)For x=1 To Step 10(B)For x=3 To-3 Step-3 … … Next x Next x(C)For x=1 To 10(D)For x=3 to 10 step re: … … Next x Next y If i=10 Then GoTO re 12.如下數組聲明語句，B 是正確的。 (A)Dim a[3,4] As Integer (B)Dim a(3,4)As Integer (C)Dim a(n,n)As Integer (D)Dim a(3 4)As Integer 13.下列語句中（假定變量n有值），能正確聲明可變長數組的是 A。 (A)Dim a()As Integer(B)Dim a()As Integer ReDim a(n)ReDim a(n)As String (C)Dim a()As Integer(D)Dim a(10)As Integer ReDim a(3, 4)ReDim a(n+10) ReDim Preserve a(4, 4) 14.要想從子過程調用后返回兩個結果，下面子過程語句說明合法的是 C。 (A)Sub f2(ByVal n%, ByVal m%)(B)Sub f1(n%, ByVal m%) (C)Sub f1(n%, m%)(D)Sub f1(ByVal n%, m%) 15.設有如下程序段： Public Sub F1(n%) … n=3*n+… End Sub Private Sub Command1_Click() Dim n%, m% n=3 m=4 … ‘調用F1語句 … End Sub 則在Command1_Click事件中有效的調用語句是 B。(A)Call F1(n+m)(B)Call F1(m)(C)Call F1(5)(D)Call F1(m+5) 16.用來設置粗體字的屬性是 C。 (A)FontItalic(B)FontName(C)FontBold(D)FontSize 17.假定定時器的Interval屬性為1000，Enabled屬性為True，調用下面的事件過程，程序運行結束后變量x的值為 D。 Dim x As Integer Sub Timer1_Timer() For i=1 to 10 x=x+Next i End Sub (A)1000(B)10000(C)10(D)以上都不對 18.在下列關于通用對話框的敘述中，錯誤的是 B。 (A)CommonDialog1.ShowFont顯示“字體”對話框 (B)在“打開”或“另存為”對話框中，用戶選擇的文件名可以經FileTitle屬性返回 (C)在“打開”或“另存為”對話框中，用戶選擇的文件名機器路徑可以經FileName屬性返回 (D) 19.當用戶按下并且釋放一個鍵后會觸發KeyPress、KeyUp和KeyDown事件，這三個事件發生的順序是 C。 (A)KeyPress、KeyDown、KeyUp(B)KeyDown、KeyUp、KeyPress(C)KeyDown、KeyPress、KeyUp (D)沒有規律 20.在下面關于順序文件的描述中，正確的是 C。(A)順序文件中每行的長度都是相同的。(B)可以通過編程對文件中的某行方便地進行修改 (C)數據以ASCII碼的形式存放在文件中，所以可通過記事本打開(D)文件的組織結構復雜 21.隨機文件是因為 C。 (A)文件中的內容是通過隨機數產生的(B)文件中的記錄號通過隨機數產生的(C)可對文件中的記錄根據記錄號隨機地讀/寫(D)文件的每條記錄的長度是隨機的 22.從磁盤上讀入一個文件名為“c:t1.txt”順序文件，如下 A 正確。 (A)F=“c:t1.txt” Open F For Input As #1(B)F=“c:t1.txt” Open “F” For Input As #2(C)Open “c:t1.txt” For Input As #1 (D)Open c:t1.txt For Input As #2 23.坐標度量單位可由通過來 D 改變。 (A)Drawstyle屬性(B)DrawWidth屬性 (C)Scale方法(D)ScaleMode屬性 24.指令“Circle(1000, 1000), 500, 8,-6,-3”將繪制 A。(A)畫圓(B)橢圓(C)圓弧(D)扇形 25.用ADO數據控件建立與數據源的鏈接，設置操作過程按 A 順序進行。 ①選擇數據源連接方式；②選擇數據庫類型；③指定數據庫文件名；④指定記錄源 (A)① ② ③ ④(B)② ③ ④ ① (C)③ ① ② ④(D)① ③ ② ④ 二、填空題 1．VB是建立在BASIC語言基礎上的可見 化編程語言或編程環境。 2．在窗體上已建立多個控件如Text1、Label1、Command1，若要程序一運行時焦點就定位在Command1控件上，應對Command1控件設置 TabIndex 屬性的值為 0。 3．在VB中，1234、123456&、1.2346E+5、1.2346D+5這4個常數分別表示 整形、長整形、單精度、雙精度 類型。4．表示x是5的倍數或是9的倍數的邏輯表達式為 x mod 5 = 0 or x mod 9=0。 5．數組聲明時下標下界默認為0，利用 Opation Base 1 語句可以使下標為1。 6．傳地址方式是當過程被調用時，形參和實參共享 存儲單元。7．窗體中的模塊級變量應在 窗口模塊 段聲明，它作用于該窗體的全局范圍。 8．當用戶單擊滾動條的空白處時，滑塊移動的增量值由 LargeChange 屬性決定。 9．如果菜單標題的某個字母前輸入一個“&”符號，那么該字母就成了熱鍵字母；如果建立菜單時在標題文本框中輸入一個“1) x(0)= 1 x(1)= 1 For i = 2 To n1)+ x(i1 Print x(i)，If(i + 1)Mod 5 = 0 Then Print Next End Sub 輸出結果： 1 2 3 8 13 21 34(2)Public Function f(m%, n%) Do While m< >n Do While m> n: m=m-n: Loop Do While m< n: n=n-m: Loop Loop f=m End Function Print f(24, 18) End Sub 輸出結果：6(3) Public x as Integer Private Sub Fomr_Click() Dim x as Integer x=10 print ＂x=＂;x End Sub 輸出結果: x=10 2.補充程序 (1)以下是冒泡法排序的程序，要求將數組里的數按升序排列，將其補充完整。 Private Sub Command1_Click() Dim a(), iMin%, n%, i%, j%, t% a = Array(8, 6, 9, 3, 2, 7) n = ubound(a)' 獲得數組的下標上界 For i = 0 To n-1 For j = 0 To n-i-1 If a(j)>a(i)Then t = a(j): a(j)= a(j + 1): a(j + 1)= t End If Next j Next i For i = 0 To n Print a(i);Next i End Sub (2)用遞歸的方法求n!Private Sub Command1_Click()Print ”fac(4)=“;fac(4)End Sub Public Function fac As Integer If n = 1 Then fac = 1 Else Fac=fac*n End If End Function VB程序設計試題及答案 （三）一、單選題 1.Visual Basic是一種面向對象的可視化程序設計語言，采取了 A 的編程機制。 (A)事件驅動(B)按過程順序執行(C)從主程序開始執行(D)按模塊順序執行 2.若要使標簽控件顯示時不覆蓋其背景內容，要對 D 屬性進行設置。 n=n*j n=n*j Next j Next j Print n Print n Next I Next i(C)n=1(D)n=1(A)Backcolor(B)BorderStyle(C)Forecolor(D)Backstyle 3.在Visual Basic中最基本的對象是 C，它是應用程序的基石，是其他控件的容器。 (A)文本框(B)命令按鈕(C)窗體 (D)標簽 4.要判斷在文本框是否按下Enter鍵，應在文本框的 D 事件中判斷。(A)Change(B)KeyDown(C)Click(D)KeyPress 5.數學表達式3≤x (A)3<=x<10(B)3<=x AND x>10(C)x>=3 Or x<10(D)x>=3 AND x<10 6.Rnd函數不可能為下列 B 值。 (A)0(B)1(C)0.1234(D)0.0005 7.賦值語句:a=123+Mid(”123456“，3，2)執行后，a變量中的值是 D。 (A)”12334“(B)123(C)12334(D)157 8.對于語句If x=l Then y=l，下列說法正確的是 C。 (A)x=l和y=l均為賦值語句 (B)x=l和y=l均為關系表達式 (C)x=l為關系表達式，y=l為賦值語句 (D)x=l為賦值語句，y=l為關系表達式 9.下面程序段表示求兩個數中的大數，D 不正確。 (A)Max=IIf(x>y，x，y)(B)If x>y Then Max=x Else Max=y(C)Max=x(D)Ify>=x Then Max=y If y>=x Then Max=y Max=x 10.當在文本框中輸入“ABCD”4個字符時，窗體上顯示的是 C。 Private Sub Text1_Change()Print Text1;End Sub(A)ABCD(B)A(C)AABABCABCD(D)A B AB C ABC D ABCD 11.下列哪個程序段不能分別正確顯示1！、2！、3！、4！的值 B。(A)For i=1 to 4(B)For i=1 to 4 n=1 For j=1 to i For j=1 to I n=1 For j=1 to4 j=1 n=n*j Do While j<=4 Print n n=n*j Next j Print n j=j+1 Loop 12.如下數組聲明語句，則數組a包含元素的個數有 A。 Dim a(3,-2 to 2, 5) (A)120(B)75(C)60(D)13 13.以下程序的輸出結果是 D。 Dim a a=Array(1, 2, 3, 4, 5, 6, 7)For i=Lbound(a)to Ubound(a) a(i)=a(i)*a(i)Next i Print a(i) (A)49(B)0(C)不確定(D)程序出錯 14.在過程中定義的變量，若希望離開該過程后，還能保存過程中局部變量的值，則應使用關鍵字 D 在過程中定義局部變量。 (A)Dim(B)Private(C)Public(D)Static 15.如下程序，運行的結果是 B。 Dim a%, b%, c% Public Sub p1(x%, y%) Dim c% x=2*x: y=y+2: c=x+y End Sub Public Sub p2(x%, ByVal y%) Dim c% x=2*x: y=y+2: c=x+y End Sub Private Sub Command1_Click() a=2: b=4: c=6 Call p1(a, b) Print “a=”;a;“b=”;b;“c=”;c Call p2(a, b) Print “a=”;a;“b=”;b;“c=”;c End Sub (A)a=2 b=4 c=6(B)a=4 b=6 c=10 a=4 b=6 c=10 a=8 b=8 c=16(C)a=4 b=6 c=6(D)a=4 b=6 c=14 a=8 b=6 c=6 a=8 b=8 c=6 16.復選框的Value屬性為1時，表示 B。 (A)復選框未被選中(B)復選框被選中 (C)復選框內有灰色的勾(D)復選框操作有誤 17.下面關于菜單的說法中，錯誤的是 B。 (A)每個菜單項都是一個控件與其他控件一樣也有自己的屬性和事件 (B)除了Click事件之外，菜單項還能響應其他的，如DbClick事件 (C)菜單項的快捷鍵不能任意設置 (D)在程序執行時，如果菜單項的Enabled屬性為False，則該菜單項變成灰色，不能被用戶選擇 18.下面關于多重窗體的敘述中，正確的是 B。(A)作為啟動對象的Main子過程中能放在窗體模塊中(B)如果啟動對象是Main子過程，則程序啟動時不加載任何窗體，以后由該過程根據不同情況決定是否加載或加載哪一個窗體 (C)沒有啟動窗體，程序不能執行(D)以上都不對 19.當用戶將焦點移到另一個應用程序時，當前應用程序的活動窗體將 D。(A)發生DeActivate事件(B)發生LostFocus事件 (C)發生DeActivate和LostFocus事件(D)DeActivate和LostFocus事件都不發生 20.順序文件是因為 D。 (A)文件中的數據按每行的長度從小到大排序好的(B)文件中的數據按某個關鍵數據項從大到小進行排序(C)文件中的數據按某個關鍵數據項從小到大進行排序(D)數據按進入的先后順序存放的，讀出也是按原寫入的先后順序讀出 21.文件號最大可取值為 B。 (A)255(B)511(C)512(D)256 22.Print #1, STR$1中的Print是 A。 (A)文件的寫語句(B)在窗體上顯示的方法 (C)子程序名(D)以上均不是 23.以下的屬性和方法中 C 可重定義坐標系。(A)Drawstyle屬性(B)DrawWidth屬性 (C)Scale方法(D)ScaleMode屬性 24.封閉圖形的填充方式由下列 C 屬性決定。(A)DrawStyle, DrawMode(B)AutoRedraw, ClipControls (C)FillStyle, FillColor(D)ForeColor, BorderColor 25.下列字符串中，D 不包含在ADO數據控件的ConnectionString屬性中。(A)Microsoft Jet 4.0 OLE DB Provider(B)Data Source=C:Mydb.mdb(C)Persist Security Info=False(D)2-adCmdTable 二、填空題 1．在代碼窗口對窗體的BorderStyle、MaxButton屬性進行了設置，但運行后沒有效果，原因是這些屬性 在運行時設計是無效的。 2．在文本框中，通過 SelStart 屬性能活得當前插入點所在的位置。 3．表達式Ucase(Mid(“abcdefgh”, 3, 4))的值是 CDEF。4．已知a=3.5，b=5.0，c=2.5，d=True，則表達式：a>=0 And a+c>b+3 Or Not d的值是 False。 5．要獲得動態數組的上界通過 UBound 函數，下界通過 LBound 函數。 6．由Array函數建立的數組，其變量類型必須是 variant 類型。 7．VB中的變量按其作用域分為全局變量、模塊變量和 局部變量 變量。 8．復選框的 Value 屬性設置為2——Grayed時，變成灰色，禁止用戶選擇。 9．滾動條響應的重要事件有 Scroll 和Change。10．假定有一個通用對話框控件CommonDialog1，除了用COmmonDialog1.Action=3顯示顏色對話框之外，還可以用 showcolor 方法顯示。 11．窗體Form1的左上角坐標為(-200, 250)，窗體Form1的右下角的坐標為(300,-150)，則X軸的正向向 右，Y軸的正向向 上。 12．使用Circle方法畫扇形，起始角、終止角取值范圍為 0~2π。 13．在運行狀態改變ADO數據控件的數據源連接屬性后，必須使用 Refresh 方法激活這些變化。14．VB中工程文件的擴展名為 vbg。 15．如果在窗體上已經創建了一個文本框對象Text1，可以通過 Keypress 事件獲得輸入鍵值的ASCII碼。16．VB中對象的三要素是 屬性、事件 和 方法。 三、編程應用題 1.程序閱讀 (1)Private Sub Command1_Click() Dim s as String, i% s=＂abcd＂ For i=Len(s)to 1 step-1 Print Mid(s, i, 1)Next i End Sub 輸出結果： d c b a(2)Sub Swap1(ByVal x%, ByVal y%)Dim t% t = x: x = y: y = t End Sub Sub Swap2(ByRef x%, ByRef y%)Dim t% t = x: x = y: y = t End Sub Sub Command1_Click() Dim a%, b% a = 10: b = 20 Print ”調用Swap1前 a和b的值為：“;a;b Call Swap1(a, b)Print ”調用Swap1后按傳值方式 a和b的值為：“;a;b a = 10: b = 20 Call Swap2(a, b)Print ”調用Swap2后按傳地址方式 a和b的值為：“;a;b End Sub 輸出結果 調用Swap1前 a和b的值為：10 20 調用Swap1后按傳值方式 a和b的值為：10 20 調用Swap2后按傳地址方式 a和b的值為： 20 10(3)Private Sub Command1_Click() Dim x%, y%, z% x=242: y=44 z=x*y Do Until x=y If x>y Then x=x-y Else y=y-x Loop Print x, z/x End Sub 輸出結果: 22 484 2.補充程序 (1)以下是求1～18之間某個數的階乘的程序，具體的數值n由滾動條HScroll1獲得，結果顯示在窗體下部的兩個Label標簽里。補充完整如下程序。 Private Sub HScroll1_Change()Dim i As Integer, s As Double s = 1 n = Hscroll1.Value If n <> 0 Then For i = 1 To n s = s*i Next i End If Label2.Caption = n & ”!= " Label3.Caption = s End Sub (2)以下程序的功能是：已知數組a，刪除數組中某個元素。 Private Sub Command1_Click() Dim a(), key%, i%, j% a=Array(1, 6, 8, 3, 5, 9, 10, 2, 4, 7) key=9 For i=0 to UBound(a)If a(i)=9 Then For j=i+1 to UBound(a)a(j)=a(j+1) Next j ReDim a(j)=a(i) MsgBox(＂刪除完成＂) Exit Sub End If Next i MsgBox(＂找不到要刪除的元素＂)End Sub 讀程序并填空 1．給定程序的功能是輸出一組數的最大值和最小值，在畫線處填入適當內容，將程序補充完整。 Private Sub End Function 4．給定程序的功能是建立并輸出除主、副對角線上的元素為5外，其余元素都為1的方陣，在畫線處填入適當內容，將程序補充完整。Command1_Click() X=Array(-112, 18, 20,-5,-100, 82, 91, 56, 78, 99, Private Sub Command1_Click()100) Max=x(0) Min=x(0) For I=1 To 10 If x(I)>Max Then _____________ End if If x(I)>Min Then _____________ End if Next I Print “MAX=”;Max , “MIN=”;Min End Sub 2．若A2+B2+C2 , 則A，B，C稱為一組勾股數，如下程序是找出100以內的所有勾股數，并按A，B，C順序輸出。請在畫線處填入適當內容。 Private Sub Command1_Click() For A=2 To 99 For B=A+1 To 100 C=_____________ If ____________ And C<=100 Then Print A, B, C End If Next B Next A End Sub 3．本程序的功能是計算輸入數的階乘，請在畫線處填上適當的內容使程序完整。 Private Sub form_Click() Do N=Val(InputBox(“請輸入一個大于0的整數：”)) Loop Until N>0 Print Fact(N) End Sub Private Function Fact(M) Fact= _______________（1分） For I=2 To ____________（2分） Fact = ______________（2分） Next I Dim A(10,10) For I=1 To 10 For J=_______________（2分） If __ _____________ Then A(I, J)=5 Else A(I, J)=1（1分）Next J Next I For I=1 To 10 For J=1 To 10 Print A(I, J);Next J __ __________ （2分）Next I End Sub 編寫一個程序，在程序運行時輸入一個0—99999之間的整數，判斷輸入的是幾位數，并在窗體輸出結果。 編寫一個程序，在窗體上添加兩個命令按鈕，運行程序時，單擊[開始]按鈕，在窗體輸出1~100之間所有能被3整除的數。單擊[結束]按鈕，結束程序。 VB類計算機專業畢業設計題目 第1-100個題目 1.醫院住院管理系統 2.人事管理系統 3.停車場管理系統 4.教師管理系統 5.學生信息管理系統 6.學籍管理系統 7.工資管理系統 8.醫院門診管理系統 9.員工請假管理系統 10.電腦公司進銷存 11.學生宿舍管理系統 12.圖書采購管理系統 13.企業進銷存管理系統 14.商品銷售管理系統(進銷存)15.車輛管理系統 16.房地產銷售(售樓)管理系統 17.小區物業管理系統 18.書店圖書管理系統 19.珠寶首飾進銷存管理系統 20.學生信息管理系統 21.圖書管理系統 22.學校信息管理系統 23.人事工資管理系統 24.電子教務管理系統 25.智能試卷生成系統 26.多媒體教學演示系統 27.倉庫管理管理系統 28.商場財務管理系統 29.教師管理系統 30.學生信息管理 31.圖書管理系統 32.人事管理系統[人力資源管理] 33.鐵路交通查詢 34.學校信息管理系統 35.企業人事管理系統 36.圖書管理系統 37.學籍管理系統 38.交通事故檔案管理系統 39.車輛查詢系統 40.航空公司管理系統 41.物業租賃管理系統 42.賓館客房管理系統 43.教師管理系統(2)44.人事管理系統(3)45.人事管理系統(4)46.學生成績管理系統 47.人才檔案管理系統 48.圖書借閱管理系統 49.排課系統 50.圖書館管理系統 51.學生檔案管理系統 52.客運售票系統 53.汽車修配管理系統 54.洗衣店管理系統 55.電氣設備管理系統 56.橡膠管理系統 57.火車訂票系統 58.家庭管家系統 59.車輛調度管理系統 60.工傷事故管理系統 61.城市交通查詢系統 62.電動車配件管理系統 63.人才管理系統 64.公用房信息系統 65.水費管理系統 66.設備管理系統 67.多媒體播放器 68.戶籍管理系統 69.超市管理系統 70.商場管理系統 71.中小型飯店餐飲管理系統 72.固定資產管理系統 73.學籍管理系統 74.流動資金貸款業務管理系統 75.失業保險管理系統 76.學生宿舍管理系統 77.旅游資源及線路管理系統 78.圖書查詢系統 79.儀器設備管理系統 80.汽車租憑管理系統 81.Excel文檔屬性提取與自動閱卷系統研究 82.高校學籍管理系統 83.流動資金貸款業務系統 84.超市管理系統 85.家庭財務管理系統 86.考試管理系統 87.通用成績查詢系統 88.通用成績查詢系統 89.智能公交查詢系統 90.人力資源管理系統 91.倉庫管理系統 92.收支管理系統 93.圖像管理系統 94.客房管理系統 95.人事管理系統 96.商品銷售管理系統 97.圖書館查詢管理系統 98.學生信息管理系統 99.工資管理系統 100.人事管理系統 第101-200個題目 101.小區電費管理系統 102.商場商品管理系統 103.進銷存管理系統 104.車輛管理系統 105.影碟租借管理系統 106.多媒體播放器 107.電腦商城銷售管理系統 108.家庭理財管理系統 109.網絡俄羅斯方塊 110.物資流通管理系統 111.圖書館管理系統 112.交通(鐵路)查詢系統系統 113.火車售票管理系統 114.辦公管理系統 115.進銷存管理系統 116.物流管理系統 117.企業營銷管理系統 118.客戶管理系統 119.工資管理系統 120.圖書管理系統 121.小區物業管理系統 122.小區物業管理系統 123.工資管理系統 124.學生成績管理系統 125.酒店客房管理系統 126.交換機管理系統 127.車輛調度管理系統 128.酒店倉庫管理系統 129.企業銷售管理系統 130.汽車美容管理系統 131.公司信息管理系統 132.學生成績管理 133.實驗室設備管理系統 134.停車場管理系統 135.物資管理系統 136.學生綜合評價系統 137.超市管理系統 138.企業倉庫管理系統 139.飛機售票系統 140.客房信息管理系統 141.學生成績查詢系統 142.賓館客房管理系統 143.物流管理系統 144.超市管理系統 145.城市公交查詢系統 146.公司事務管理系統 147.企業ERP管理系統 148.客戶管理系統 149.文件加解密系統 150.物業管理系統 151.抽獎系統 152.學生檔案管理系統 153.高校排課管理系統 154.人事管理系統 155.圖書管理系統 156.企業實力評估系統 157.教材管理系統 158.進銷存管理系統 159.小型超市管理系統 160.員工培訓管理系統 161.學生社團管理系統 162.VCD租借管理系統 163.兼職中介管理系統 164.工資管理系統 165.退稅管理系統 166.期刊信息管理系統 167.合同管理系統 168.報警系統 169.交互式cad系統 170.音像管理系統 171.自動排課系統 172.戶籍管理系統 173.銷售管理系統 174.自動點歌系統 175.宿舍管理系統 176.貿易公司信息管理系統 177.企業人事工資管理系統 178.企業人事管理系統 179.俄羅斯方塊游戲 180.員工管理系統 181.設備管理系統 182.題庫管理系統 183.高校題庫管理系統 184.班級管理系統 185.企業工資管理系統 186.倉庫管理系統 187.高速公路票據管理系統 188.通訊錄管理系統 189.超市進銷存管理系統 190.評語管理系統 191.題庫自動組卷系統 192.自動出卷系統 193.藥品管理系統 194.電表管理系統 195.教師管理系統 196.文檔管理系統 197.庫存管理系統 198.工資管理系統 199.工資管理系統 200.地籍管理系統 第201-300個題目 201.圖書管理系統 202.圖書管理系統 203.庫存管理系統 204.公交查詢系統 205.人事管理系統 206.IC卡管理系統 207.考勤管理系統 208.家庭財務管理系統 209.基于VB和XML的個人資料編輯器的實現 210.長途汽車信息管理系統 211.系統輔助管理程序的設計與實現 212.Excel條件格式化工具的設計與實現 213.模擬ATM機系統軟件的設計與開發 214.一個編譯原理語法分析器的設計與實現 215.WORD文檔分類管理插件的設計與實現 216.學生注冊管理系統 217.掃雷游戲的設計與開發 218.科研項目管理系統論文 219.物流配送信息系統論文 220.營養信息管理系統論文 221.百貨公司業務管理系統論文 222.房地產銷售管理信息系統論文 223.通訊錄管理系統論文 224.圖書租借管理系統論文 225.物資管理系統論文 226.期刊信息管理系統論文 227.企業生產管理系統 228.WORD題庫插件 229.采購系統 230.會員管理系統 231.病歷管理系統 232.庫存管理系統 233.病歷管理系統 234.公費醫療管理系統 235.設備管理系統 236.光盤管理系統 237.倉庫管理系統 238.汽車銷售系統 239.藥品供銷存系統 240.通訊錄管理系統 241.簡單小游戲設計 242.教材管理系統 243.打字練習系統 244.網絡計時管理系統 245.旅游資源及線路管理系統 246.績效評價系統 247.保險單管理系統 248.車間調度系統 249.酒店管理系統 250.自動組卷系統 251.CTI電話語音應答系統 252.商場管理系統 253.煙花爆竹經銷管理 254.城市公交查詢系統 255.進銷存管理系統 256.醫療糾紛檢索系統 257.連鎖店管理系統 258.點對點聊天文件傳輸系統 259.服裝專賣店管理系統 260.畢業論文管理系統 261.學生交費管理系統 262.電腦租賃系統 263.學校田徑運動會管理系統 264.醫院血庫管理系統 265.停車場管理系統 266.學校工資管理系統 267.銀行代扣代發工資系統 268.運輸公司信息管理系統 269.IC卡管理系統 270.建材銷售管理系統 271.社會福利保障系統 272.招生管理系統 273.學校用電收費管理系統 274.設備信息管理系統 275.人口管理系統 276.科研項目管理系統 277.超市管理系統 278.住院信息管理系統 279.藥品公司進銷存管理系統 280.學生成績管理系統 281.物流管理系統 282.網吧計費系統 283.考試分析評價系統 284.固定資產管理系統 285.干部檔案管理系統B 286.機房學生上機管理系統 287.計算機維修管理系統 288.車輛管理系統 289.個人郵件處理系統 290.身份證管理系統 291.餐飲管理系統 292.醫院門診管理系統 293.圖書借閱管理系統 294.書店管理系統 295.期刊信息管理系統 296.酒店客房管理 297.計算機等級考試管理系統 298.光盤信息管理系統 299.小區物業管理系統 300.無紙化考試系統 301.售樓管理系統 302.銷售管理系統 303.防火墻的設計與實現 304.簡單遠程控制系統被控端實踐 305.簡單遠程控制系統主控端實踐 306.文檔分類管理插件的設計與實現 VB.NET類計算機專業畢業設計題目 1.酒店管理系統 2.小區物業管理系統 3.電子郵件客戶端系統 4.賓館管理系統 5.電子郵件服務器 6.學生舊貨信息系統 7.旅游業務管理系統 8.人力資源管理系統 9.學生舊貨信息系統 10.酒店餐飲管理系統 11.車輛檔案管理系統 12.訂單管理系統 13.媒體播放器 14.門診就診系統的設計與實現 15.家庭理財系統的設計與實現 PaperTime論文檢測平臺支持全文查重、在線改重、機器人降重等，其中在線改重是針對論文重復率高，可以在線邊修改進行實時查重，實現論文內容修改與實時報告查重展現在同一界面上，修改一句實時查重就能快速的查看到改重后的效果，提高論文降重的效果。http://www.tmdps.cn 試卷編號：8486 一、填空 共5題（共計5分）第1題（1.0分）題號:1120 A和B同為正整數或同為負整數的VB表達式為【1】.=======(答案1)======= A=INT(A)AND B=INT(B)AND A*B>0 第2題（1.0分）題號:1490 如果將框架的【1】屬性設置為False,則表示框架內的對象均被屏蔽.=======(答案1)======= Enabled 第3題（1.0分）題號:1363 數學表達式如圖的VB算術表達式為【1】.=======(答案1)======= Sin(15*3.14/180)+ Sqr(x + Exp(3))/Abs(xLog(3 * x)第4題（1.0分）題號:1374 下面程序運行后輸出的結果是【1】.Private Sub Command1_Click()a$=“*”::B$=“$” For i=1 To 4 If i Mod 2=0 Then x$=String(Len(a$)+i,B$)Else x$=String(Len(a$)+i,a$)End If Print x$ Next i End Sub =======(答案1)======= ** $$$ **** $$$$$ 第5題（1.0分）題號:245 聲明單精度常量g(重力加速度)代表9.8可寫成【1】.=======(答案1)======= const g=9.8 =========或========= const single g=9.8 二、判斷 共5題（共計5分）第1題（1.0分）題號:332 在MsgBox 函數中 prompt 參數是必須的.答案：Y 第2題（1.0分）題號:352 在過程中用Dim和Static定義的變量都是局部變量.答案：Y 第3題（1.0分）題號:1123 使用Print方法只能在窗體中輸出,不能在圖片框中輸出.答案：N 第4題（1.0分）題號:342 在VB中,可以將在Picture控件中繪制的圖形以文件的形式保存 在磁盤上.答案：Y 第5題（1.0分）題號:270 當窗體的ScaleTop=0,ScaleLeft=0時,這個窗體Top和Left值也是0.答案：N 三、單項選擇 共5題（共計5分）第1題（1.0分）題號:3173 當一個窗體被卸載時,最后引發的一個事件是.A:Deactivate B:QueryUnload C:Unload D:terminate 答案：D 第2題（1.0分）題號:3182 記錄長度最大可取的值是______字節.A:32767 B:32768 C:65535 D:65536 答案：A 第3題（1.0分）題號:869 要清除已經在圖片框Picture中打印的字符串而不清除圖片框中的 圖像,應使用語句().A:A.P1.Cls B:P1.picture=LoadPicture(“")C:P1.Print”“ D:P1.piture”“ 答案：A 第4題（1.0分）題號:3234 執行下面程序段后,變量a的值為______.For I=1 To 3 For j=1 To I For k=j To 3 a=a+1 Next k Next j Next I A:3 B:9 C:14 D:21 答案：C 第5題（1.0分）題號:2231 Rnd函數不可能是下列()值.A:0 B:1 C:0.1234 D:0.0005 答案：B 四、多項選擇 共5題（共計5分）第1題（1.0分）題號:276 下列語句哪些是錯誤的語句（）？ A:Const Imax As Integer=&o155 B:Const _Ga As String=”abc“ C:Dim aa,bb As Integer,cc As String D:yy=8,uu=9 答案：BD 第2題（1.0分）題號:278 下列哪些標識符不符合變量的命名規則（）？A:hyu B:$abc C:4w D:y.u E:ty% F:_n8 答案：BCDEF 第3題（1.0分）題號:284 設A=”abcdefghijklm“，下列（）的函數值為”jklm“。A:Mid(A,10,4)B:Left(A,4)C:Right(A,4) D:Mid(A,10,14)答案：ACD 第4題（1.0分）題號:275 下列說法中哪些是正確的（）？ A:邏輯型數據占1個字節 B:長整型數據占4個字節 C:單精度型數據占4個字節 D:一個漢字在Visual Basic中占1個字節 答案：BCD 第5題（1.0分）題號:277 下列說法哪些是正確的（）？ A:不能對符號常量重新賦值 B:Label控件用來在窗體中顯示文本，其中的文本用戶不能直接修改 C:TAB()函數用于在輸出表達式前將輸出點定位在第N-1個字符位置 D:格式輸出函數Format()可以使數值、日期或字符串按用戶指定的格式輸出 答案：ABD 五、程序填空 共1題（共計10分）第1題（10.0分）題號:491 '-------'【程序填空】 '-------'功能：以下程序的功能為，單擊窗體后如果輸入的數據分別為”W“，”8“和”？“時，' 窗體上顯示的內容分別是：W is Alpha Character、8 is Numeral Character、' ？is Other Character '-------Private Sub Form_Click()Dim strC As String * 1 strC = InputBox(”請輸入數據“)'**********SPACE********** Select Case 【?】 '**********SPACE********** Case ”a“ To ”z“ 【?】 Form1.Print strC + ” Is Alpha Character“ Case ”0“ To ”9“ Form1.Print strC + ” Is Numeral Character“ '**********SPACE********** 【?】 Else Form1.Print strC + ” Is Other End Sub Character“ End Select End Sub =======(答案1)======= strC =======(答案2)======= , ”A“ To ”Z“ =======(答案3)======= Case 六、程序改錯 共1題（共計10分）第1題（10.0分）題號:455 '-------'【程序改錯】 '-------'題目：猜數游戲：程序啟動后Lable1和Lable2滾動顯示 ' 屬于[1，100]的隨機整數，當用戶單擊”左大“或 ' ”右大“按鈕時，滾動停止，如果用戶猜對了，' 在Lable3中顯示”猜對了“，否則顯示”猜錯了“。 '-------Private Sub Command1_Click()Timer1.Enabled = False '**********FOUND********** If Val(Label1.Caption)< Val(Label2.Caption)Then Label3.Caption = ”猜對了“ Else Label3.Caption = ”猜錯了“ End If End Sub Private Sub Command2_Click()Timer1.Enabled = False If Val(Label1.Caption)< Val(Label2.Caption)Then '**********FOUND********** Label3.Caption = ”猜錯了“ Else '**********FOUND********** Label3.Caption = ”猜對了“ End If Private Sub Timer1_Timer()Randomize Label1.Caption = Int(Rnd()* 100 + 1)Label2.Caption = Int(Rnd()* 100 + 1)End Sub 答案： =======(答案1)======= If Val(Label1.Caption)> Val(Label2.Caption)Then =========或========= If Val(Label2.Caption)< Val(Label1.Caption)Then =======(答案2)======= Label3.Caption = ”猜對了“ =======(答案3)======= Label3.Caption = ”猜錯了" 七、程序設計 共1題（共計20分）第1題（20.0分）題號:156 '-------'【程序設計】 '-------'題目：(事件)雙擊窗體。 '(響應)求3+6+9+12+15+18+??+300的和，并將結 ' 果輸出到窗體上。將結果存入變量 SUM中。 '-------答案：----------------------Dim i As Integer For i = 3 To 300 If i Mod 3 = 0 Then sum = sum + i End If Next Print sum ---------------------- 八、VB窗體設計 共2題（共計40分）第1題（20.0分）題號:36 --------【窗體設計】 --------題目：請按照題目要求設計指定的窗體。 建立如(圖1)所示界面。 ---------------- 1、窗體設置 1）名稱設置為“Game”。2）標題內容為“游戲控制器”。3）邊框樣式設置為1。4）隱藏控件菜單欄。 2、在窗體中的最上面添加標簽（Label）1）名稱設置為“lblTiShi”。2）標題內容為“這些設置幫助您配置安裝在計算機上的游戲控制器。”。3）自動調整大小。 3、在標簽下面添加框架（Frame）1）名稱設置為“fraKongZhiQi”。2）標題內容為“安裝游戲控制器”。 4、在框架“fraKongZhiQi”內添加如下控件 1）添加列表試圖（ListView） 名稱設置為“lvwKongZhiQi”； 查看設置為3； 添加2個列首； 列首1文本為“控制器”； 列首2文本為“狀態”。2）添加命令按鈕（CommandButton） 名稱設置為“cmdTianJia”； 標題內容為“添加(A)...”； 窗體快捷鍵設置為“ALT + A”。3）添加命令按鈕（CommandButton） 名稱設置為“cmdShanChu”； 標題內容為“刪除(R)”； 窗體快捷鍵設置為“ALT + R”。4）添加命令按鈕（CommandButton） 名稱設置為“cmdShuXing”； 標題內容為“屬性(P)”； 窗體快捷鍵設置為“ALT + P”。 5、在框架下面添加如下3個命令按鈕（CommandButton） 1）名稱設置為“cmdGaoJi”； 標題內容為“高級(D)...”； 窗體快捷鍵設置為“ALT + D”。2）名稱設置為“cmdYiNan”； 標題內容為“疑難解答(T)...”； 窗體快捷鍵設置為“ALT + T”。3）名稱設置為“cmdQueDing”； 標題內容為“確定”。第2題（20.0分）題號:77 【窗體設計】 --------題目：在窗體上放一文本框，一菜單，各菜單項內容如圖 所示，編寫菜單程序實現大小寫字母轉換的功能，程序運行界面如圖2所示 菜單項屬性如下表。 菜單項 名稱 快捷鍵 大小寫轉換 Change ....大寫轉小寫 L_S Ctrl+A....小寫轉大寫 S_L Ctrl+B 退出 Exit 各控件屬性設置如下表： 對象名稱 Name屬性 Caption屬性 text屬性 窗體 默認 默認 文本框 text1（MultiLine=True ScrollBars=2）空 --------第二篇：計算機vb試題及答案
第三篇：VB程序設計試題及答案(一)
第四篇：VB類計算機專業畢業設計題目
第五篇：西華師范大學計算機VB試題及答案8
點擊咨詢 