【正文】 ，并統(tǒng)計其中5的倍數所占比例，請在指定位置填上正確代碼將程序補充完整。請在指定位置填上正確代碼將程序補充完整。Dim x As IntegerX = 1Dox = x+2Print xLoop Until【7】（Combo1）、一個列表框（List1）和一個命令按鈕（Command1）。Private Sub Form_Load()”交通大學””理工大學””財經大學””外貿大學”End SubPrivate Sub Command1_Click()【8】Flag=FlaseFor i=0 to【9】If (i)= Thenflag=True : Eixt ForEnd IfNext iIf Not flagThen【10】End Sub，請在指定位置填上正確代碼將程序補充完整。程序運行后，如果單擊命令按鈕，則可打開磁盤文件c:，并將文件中的內容（多行文本）顯示在文本框中。Private Sub Command1_Click()Text1=””O(jiān)pen”c:” For Input As 1Do While Not【13】Line Input1,S=+【14】+chr(13)+chr(10)Loop【15】End Sub答案： +a(I,j) 0 = S(Rnd*99)(i)mod 5=0(S1)=7 (j)imax(i)=ia(imax) 1三，單擊命令按鈕，寫出程序的運行結果。 tEnd Sub ，并編寫如下程序：Private Sub Command1_Click()X =InputBox(x)If x^2If x^29 Then y= x^2+1If(x^2)7=9 Then y=xPrint “y=”amp。并編寫以下事件過程和子過程：Private Sub Command1_Click()Dim x As Integer, y As Integerx =12 : y = 20Call Value(x,y)Print “x=”amp。yEnd SubPrivate Sub Value(ByVal m As Integer, n As Integer)m=m*2：ｎ=n5End Sub程序運行后，單擊命令按鈕，寫出程序的輸出結果。答案： ；15 0 4；0 4 0；4 0 6 5蘭州；大學四答案：Private Sub Form1_Click()Dim s%,c%For i=1 to 100If i Mod 5=0 And i Mod 7=0Thens = s+1c = c +iEnd IfNext iPrint s, cEnd Sub第二篇：vb選擇題及答案（）。(A).cls(B).frm(C).bas(D).rec(答案：C)（）。(A)VB是可視化程序設計語言(B)VB采用事件驅動編程機制(C)VB是面向過程的程序設計語言(D)VB應用程序可以以編譯方式執(zhí)行(答案：C)（）。(A)x!(B)x(C)x%(D)x$(答案：C)： Dim S1 As String*5 S1 = “VB Test” 則S1的值為（）。(A)x_y(B)xy(C)2x(D)and(答案：A)（）為單精度變量。(A)Dim(B)Public(C)Static(D)Private(答案：C)，該變量為（）變量。(A)x%y(B)xy%(C)2x(D)Or(答案：B)（）作為界定符。(答案：C)=6，b=5，c=2；執(zhí)行語句Print a b c后，窗體上顯示的是（）。(A)2 3(B)2 / 3(C)2 mod 3(D)3 mod 2(答案：C)，優(yōu)先級最低的是（）。(A)0(B)1(C)True(D)False(答案：C)（）。(A)x Mod 2 0(B)x Mod 2!= 0(C)x Mod 2 ≠ 0(D)x Mod 2 ＝ 0(答案：A)（）。(A)0(B)4(C)6(D)8(答案：B)（）。(A)0(B)1(C)1(D)出錯(答案：A)(x)的值為1，整型變量x的值是（）。(A)Left()(B)Trim()(C)Ltrim()(D)LeftTrim()(答案：C)（）。y。y = 2(答案：D)，可以使用空格加（）續(xù)行。(A)80 50 30(B)80 30 30(C)50 30 80(D)50 30 30(答案：B)，x的值是（）。完成該要求的單行條件語句是（）。(A)6(B)9(C)10(D)16(答案：C)（）。Next I(A)1 2(B)2 1(C)2 2 12(D)1 2 12(答案：D)： m = 0 For i = 1 To 3 For j = 1 Toi m = m + j Next j, i 執(zhí)行以上的循環(huán)后，i和m的值分別為（）。Dim m%, n% For m = 1 To 3 For n = 1 To 6 Step 2 n = n + 1 Print n Next Next(A)3(B)6(C)9(D)18(答案：B) Base 1語句，則數組a包含（）個元素。Dim a(3,2 To 1, 5)(A)96(B)75(C)60(D)13(答案：A)，單擊窗體后輸出的結果是（）。A、.frx B、.basC、.vbp D、.frm 2．以下4個選項中，屬性窗口未包含的是。A、屬性 B、方法 C、事件 D、函數4．在設計模式雙擊窗體中的對象后，Visual Basic將顯示的窗口是。A、F2B、F5 C、Alt+F3D、F8 6．改變控件在窗體中的上下位置應修改該控件的屬性。A、.exeB、.bas C、.frx D、.frm 8．窗體的FontName屬性的缺省值是。A、5B、9 C、12D、16 10．在Visual Basic中，稱對象的數據為。A、Dblclick B、Load C、ShowD、KeyUp 12．將Visual Basic編制的程序保存在磁盤上，至少會產生何種文件。A、275 B、2151C、216D、2161 2．貨幣類型數據小數點后面的有效位數最多只有。A、字符串 B、整數 C、浮點數 D、長整數4．運算符“”兩邊的操作數若類型不同，則先再運算。A、[0，100]B、[1，99]C、[0，99]D、[1，100] 6．下列程序段的輸出結果是。x A、lg(10000)=5B、lg(10000)=4 C、4D、57．返回刪除字符串前導和尾隨空格符后的字符串，用函數。A、DateB、MonthC、TimeD、Now ”5*5“ 的顯示結果是。”“”的作用是在窗體當前輸出行。A、只能是變量名 B、可以是整型 C、可以是字符型 D、可以是浮點類型 2．下列關于Select Case的敘述中，錯誤的是。A、4 B、5 C、6 D、7 4．若i的初值為8，則下列循環(huán)語句的循環(huán)次數為次。A、4 B、5 C、6 D、0 6．窗體通用部分的語句“OptionBase 1”，決定本窗體中數組下標界。A、WordWrap B、AutoSize C、AlignmentD、Style 2．將命令按鈕Command1設置為窗體的取消按鈕，可修改該控件的屬性。A、TextB、Caption C、LeftD、Name 4．將焦點主動設置到指定的控件或窗體上，應采用方法。A、IndexB、TabIndex C、TabStop D、SetFocus 6．下列屬性用來表示各對象（控件）的位置。A、EnabledB、Locked C、VisibleD、MultiLine 8．要使文本框顯示滾動條，除了設置ScrollBars屬性外還必須設置屬性。A、Text4B、”Text4“ C、LockedD、Name10．文本框中選定的內容，由下列屬性來反映。A、TrueB、FalseC、0D、1 12．要使復選框控件不響應Click事件，可設置復選框的屬性。A、文本框 B、框架 C、列表框 D、組合框14．列表框的屬性返回或設置列表框中各列表項的文本。A、方法 B、對象 C、屬性 D、事件16．以下語句將刪除列表框List1中的最后一項。A、 ”XXX“, 3B、 ”XXX“, 2 C、 3,”XXX“D、 2,”XXX 18．滾動條的屬性用于指定用戶單擊滾動條的滾動箭頭時，Value屬性值的改變量。A、KeyDown B、Change C、ScrollD、Click 20．設計動畫時通常用定時器控件屬性來控制動畫速度。A、BackStyle B、FillColor C、FillStyle D、BorderStyle 2．將圖片框的屬性設置成True時，可使圖片框根據圖片調整大小。A、DrawStyle屬性 B、Cls方法 C、ScaleMode屬性 D、DrawWidth屬性 4．Visual Basic用以下哪一條指令來繪制直線。A、BorderStyle B、BorderWidth C、DrawWidth D、FillColor 6．屬性可以用來設置所繪線條寬度。A、Circle方法B、Pset方法 C、Line屬性 D、Point屬性8．描述以（1000，1000）為圓心、以400為半徑畫1/4圓弧的語句，以下正確的是。A、弧B、橢圓 C、扇形 D、同心圓 10．語句“Circle(1000,1000),800，2”繪制的是。A、橢圓的縱軸和橫軸長度比 B、橢圓的橫軸和縱軸長度比 C、同心圓的半徑比 D、圓弧兩半徑間的夾角 12．RGB函數中的3個數字分別表示。A、圖片大小隨影像框的大小進行調整 B、影像框的大小隨圖片大小進行調整 C、圖片框的大小隨圖片大小進行調整 D、圖片大小隨圖片框的大小進行調整 14．BorderStyle屬性是用來表示線條的。A、框架 B、圖片框 C、影像框D、窗體第三篇：VB試題及答案VB試題及答案一、基本概念及基本操作如果要向工具箱中加入控件和部件，可以利用“工程”菜單中的______命令。A、進入設計模式 B、進入運行模式 C、進入中斷模式 D、不用進入任何模式系統(tǒng)符號常量的定義可以通過______獲得。A、工程資源管理器窗口 B、工具箱窗口 C、代碼窗口 D、屬性窗口以下敘述中錯誤的是______。A、在工程資源管理器窗口中只能包含一個工程文件及屬于該工程的其他文件 B、 C、窗體文件包含該窗體及其控件的屬性 D、一個工程中可以含有多個標準模塊文件以下不屬于Visual Basic系統(tǒng)的文件類型是______。A、VBP B、FRM C、VBW D、PDM以下敘述中錯誤的是______。A、一個工程可以包括多種類型的文件 B、Visual Basic應用程序既能以編譯方式執(zhí)行，也能以解釋方式執(zhí)行 C、程序運行后，在內存中只能駐留一個窗體D、對于事件驅動型應用程序，每次運行時的執(zhí)行順序可以不一樣在Visual Basic工程中，可以作為“啟動對象”的程序是______。為了保存該應用程序，以下正確的操作是。A、打開一個工程文件時，系統(tǒng)自動裝入與該工程有關的窗體、標準模塊等文件 B、當程序運行時，雙擊一個窗體，則觸發(fā)該窗體的DblClick事件 C、Visual Basic應用程序只能以解釋方式執(zhí)行 D、事件可以由用戶引發(fā)，也可以由系統(tǒng)引發(fā)1要顯示當前過程中的所有變量及對象的取值，可以利用______窗口。A、語法錯誤 B、編譯錯誤 C、運行錯誤 D、邏輯錯誤1Microsoft Visual Basic ，其中不包括______。A、建立用戶界面 B、編寫源程序代碼 C、畫圖 D、顯示文字1以下關于Visual Basic特點敘述中，錯誤的是______。A、一個Visual Basic應用程序可以含有多個標準模塊文件 B、一個Visual Basic工程可以含有多個窗體文件 C、標準模塊文件可以屬于某個指定的窗體文件 D、1以下敘述中錯誤的是______。B A、— B、= C、AND D、+ Basic規(guī)定工程文件的擴展名是CA、.forB、.frmC、.vbpD、.bas 。D A、Caption B、Name C、Font D、Text 。C A、AND、NOT、OR B、NOT、OR、AND C、NOT、AND、OR D、OR、NOT、AND ，下列那一項敘述是正確的。B A、匯編程序 B、編譯程序 C、解釋程序以上皆可。A A、名稱 B、Caption C、Font D、Interval 。D A、對象，屬性，事件，方法 B、對象，屬性，方法，事件 C、屬性，對象，方法，事件 D、屬性，對象，事件，方法 A、data$B、time$C、date$D、gettime$ ―控件‖的方法正確的是（）B A、單擊控件圖標，將指針移到窗體上，雙擊鼠標 B、雙擊工具箱中的控件，即在窗體上出現(xiàn)該控件 C、單擊工具箱中的控件，將指針移到窗體上，再單擊 D、用鼠標左鍵拖動工具箱中的某控件到窗體的適當位置 ，Visual Basic將顯示的窗口是C A、項目（工程）窗口B、工具箱C、代碼窗口D、屬性窗口 …next 語句的說法正確的是（）A A、循環(huán)變量、初值、終值和步長都必須為數值型 B、step后的步長只為正數 C、初值必須小于終值 D、初值必須大于終值，整個工程以_____（工程文件）儲存。B A、Picture1．Clear B、Picture1．Cls C、Picture1．Delete D、Picture1．UnLoad ：B A、Dim Test，as Integer B、D