2024年VB試題庫及答案

最新VB題庫及答案一、選擇題第1部分1、在窗體（名稱為Form1）上畫一種名稱為Text1的文本框和一種名稱為Command1的命令按鈕，然後編寫一種事件過程。程序運行後，假如在文本框中輸入一種字符，則把命令按鈕的標題設置為“計算機等級考試”。如下能實現(xiàn)上述操作的事件過程是A、PrivateSubText1_Change()Command1.Caption="計算機等級考試"EndSubB、PrivateSubCommand1_Click()Caption="計算機等級考試"EndSubC、PrivateSubForm_Click()Text1.Caption="計算機等級考試"EndSubD、PrivateSubCommand1_Click()Text1.Text="計算機等級考試"EndSub2、在一行內寫多條語句時，每個語句之間用（

）符號分隔。A、,

B、：

C、.

D、；3、下面（

）是合法的變量名。A、X_YZ

B、123ABC

C、INTEGER

D、X-Y4、下面（

）是合法的字符常量。A、ABC$

B、“ABC”

C、‘ABC’

D、ABC5、體現(xiàn)式16/4-2^5*8MOD5\2的值為（

）。A、14

B、4

C、20

D、26、設a=”MicrosoftVisualBasic”，則如下使變量的b值為”VisualBasic”的語句是A、b=Left(a,10)B、b=Mid(a,10)C、b=Right(a,10)D、b=Mid(a,11,10)7、設a="a"，b="b"，c="c"，d="d"，執(zhí)行語句x=IIf((a<b)Or(c>d),"A","B")後，x的值為A、"a"B、"b"C、"B"D、"A"8、在窗體上畫一種文本框，然後編寫如下事件過程：PrivateSubForm_Click()x=InputBox("請輸入一種整數(shù)")Printx+Text1.TextEndSub程序運行時，在文本框中輸入456，然後單擊窗體，在輸入對話框中輸入123，單擊“確定”按鈕後，在窗體上顯示的內容為A、123B、456C、5799、在BASIC中，三個邏輯運算符NOT，AND，OR在運算過程中，優(yōu)先級從高到低的次序是（

）。A、AND->NOT->OR

B、NOT->AND->ORC、OR->NOT->AND

D、NOT->OR->AND10、下面程序段運行時內層循環(huán)的循環(huán)總次數(shù)（

）。FORX=1TO2FORY=1TOXNEXTYNEXTXA.、1B、2C、311、在VB中，復寫框（Check）的Value值有三種，分別是（）。A、-1，0，1B、0，1，2C、1，2，3D、True，F(xiàn)alse，012、若要退出For循環(huán)，可使用的語句為（）。A、ExitB、ExitDoC、TimeD、ExitFor13、運用VB設計程序的基本環(huán)節(jié)可分四步：（1）設計顧客界；（2）（）；（3）運行調試程序；（4）生成執(zhí)行文獻。A、編寫代碼B、設計算法C、信息反饋D、系統(tǒng)集成14、在代碼窗口內將表單Form1的“Caption”屬性設置為“時鐘”,對的的書寫形式是()A、Form1.Caption“時鐘”B、Form1.Caption=“時鐘”C、Caption=“時鐘”D、Fopm1.Caption(“時鐘”)15、保留文獻時，窗體的所有數(shù)據(jù)存儲格式為()A、*．PRGB、*．FRMC、*．VBPD、*．EXE16、在窗體上畫一種文本框和一種計時器控件，名稱分別為Text1和Timer1，在屬性窗口中把計時器的Interval屬性設置為1000，Enabled屬性設置為False。程序運行後，假如單擊命令按鈕，則每隔一秒中在文本框中顯示一次目前的時間。如下是實現(xiàn)上述操作的程序：PrivateSubCommand1_Click()Timer1._______EndSubPrivateSubTimer1_Timer()Text1.Text=TimeEndSub在_____處應填入的內容是A、Enabled=TrueB、Enabled=FalseC、Visible=TrueD、Visible=False17、把窗體的KeyPreview屬性設置程為True，然後編寫如下事件過程PrivateSubForm_KeyPress(KeyAsciiAsInteger)DimchAsStringch=Chr(KeyAscii)KeyAscii=Asc(UCase(ch))PrintChr(KeyAscii+2)EndSub程序運行後，按鍵盤上的“A“鍵，則在窗體上顯示的內容是A、AB、BC、CD、D18、VB中的變量假如沒有顯示申明其數(shù)據(jù)類型，則默認為（）A、曰期型B、數(shù)據(jù)型C、字符型D、變體型19、在VB中，通過變化列表框（）屬性的值，可認為列表框添加項目。A、ListB、（名稱）C、CaptionD、Text20、已知A$=”12345678”，則體現(xiàn)式Val(left$(a$,4)+Mid$(a$,4,2))的值為（

）。A、12345

B、123445

C、8

D.621、下面程序段顯示的成果是（

）。DimxIfxthenprintxelseprintx+1A、1B、0C.、-1

D22、用來測試指定文獻結束狀態(tài)的函數(shù)是（）A、EofB、FreeFileC、Loc

D、Open23、當Long類型數(shù)據(jù)與Single類型運算時,運算成果的類型為（

）。

A、Integer

B、Long

C、Single

D、Double24、某一VB工程含F(xiàn)1、F2兩個窗體，執(zhí)行“F1．Show：F2．Hide”語句後，F(xiàn)1、F2窗體顯示的成果為（）。A、都顯示B、都不顯示C、僅顯示F1窗體D、僅顯示F2窗體25、數(shù)學關系3=〈x〈10表到達對的的VB體現(xiàn)式為（）A、3〈=x〈10B、3=〈xANDx〈10C、x〉=3ORx〈10D、3〈=xAND〈1026.在窗體上畫一種名稱為Label1的標簽，然後編寫如下事件過程：PrivateSubForm_Click()Dimarr(10,10)AsIntegerDimiAsInteger,jAsIntegerFori=2To4Forj=2To4arr(i,j)=i*jNextjNextiLabel1.Caption=Str(arr(2,2)+arr(3,3))EndSub程序運行後，單擊窗體，在標簽中顯示的內容是A、12B、13C27.在窗體上畫一種名稱為List1的列表框，一種名稱為Label1的標簽，列表框中顯示若干個項目，當單擊列表框中某個項目時，在標簽中顯示被選中項目的名稱。下列能對的實現(xiàn)上述操作的程序是A、PrivateSubList1_Click()Label1.Caption=List1.ListIndexEndSubB、PrivateSubList1_Click()Label1.Name=List1.ListIndexEndSubC、PrivateSubList1_Click()Label1.Name=List1.TextEndSubD、PrivateSubList1_Click()Label1.Caption=List1.TextEndSub28、設a=5，b=4，c=3，d=2，下列體現(xiàn)式的值是3>2*bOra=cAndb<>cOrc>dA、1B、TrueC、FalseD、230、下列操作不能打開代碼窗口的是()A、選中對象,單擊鼠標右鍵,在彈出的快捷菜單中選擇“查看代碼”命令B、選中對象,雙擊鼠標左鍵C、按F7鍵D、按F4鍵第2部分1、VB語言的語法規(guī)定，多條語句放在同一行中，語句之間用（）分隔。A、逗號B、冒號C、分號D、單引號2、在VB中，執(zhí)行“A=18MOD4”語句後，A的值為（）。A、2B、4C、63、A為True，B為False，則“AandB”和“AOrB”的值分別是（）。A、TrueTrueB、TrueFalseC、FalseTrueD、FalseFalse4、在VB中，執(zhí)行“DimA,BAsString”語句後，A，B的數(shù)據(jù)構造為（）。A、整型數(shù)B、實型數(shù)C、字符型D、字節(jié)型5、在VB中，執(zhí)行“A=123：B=Str$(A)”語句後，B的數(shù)據(jù)構造為（）。A、整型數(shù)、B、字節(jié)型C、實型數(shù)D、字符型6、在VB中，復寫框（Check）的Value值有三種，分別是（）。A、-1，0，1B、0，1，2C7、若要退出For循環(huán)，可使用的語句為（）。A、ExitB、ExitDoC、TimeD、ExitFor8、運用VB設計程序的基本環(huán)節(jié)可分四步：（1）設計顧客界；（2）（）；（3）運行調試程序；（4）生成執(zhí)行文獻。A、編寫代碼B、設計算法C、信息反饋D、系統(tǒng)集成9、在代碼窗口內將表單Form1的“Caption”屬性設置為“時鐘”,對的的書寫形式是()A、Form.Caption“時鐘”B、Form.Caption=“時鐘”C、Caption=“時鐘”D、Fopm.Caption(“時鐘”)10、保留文獻時，窗體的所有數(shù)據(jù)存儲格式為（）。A、*．PRGB、*．FRMC、*．VBPD、*．EXE11、窗體初始化程序應寫在()事件中。A、LoadB、UnloadC、ActivateD、GotFocus12、某一VB工程含F(xiàn)1、F2兩個窗體，執(zhí)行“F1．Show:F2．Hide”語句後，F(xiàn)1、F2窗體顯示的成果為（）。A、都顯示B、都不顯示C、僅顯示F1窗體D、僅顯示F2窗體13、VB的數(shù)據(jù)類型分為（）A、數(shù)值型、字符型、布爾型、曰期型B、數(shù)值型、字符型、對象型、曰期型C、基本類型、擴展類型D、整型、實型、字符型、曰期型、布爾型14、VB中的變量假如沒有顯示申明其數(shù)據(jù)類型，則默認為（）A、曰期型B、數(shù)據(jù)型C、字符型D、變體型15、在VB中，通過變化表框（）屬性的值，可認為列表框添加項目。A、ListB、（名稱）C、CaptionD、Text16、在VB中，三個邏輯運算符NOT，AND，OR在運算過程中，優(yōu)先級從高到低的次序是（

）。A、AND->NOT->OR

B、NOT->AND->ORC、OR->NOT->AND

D、NOT->OR->AND17、下面程序段運行時內層循環(huán)的循環(huán)總次數(shù)（

）。FORX=1TO2

FORY=0TOX-1

NEXTY

NEXTX

A、1

B、2

C、3D、418、對的的算術體現(xiàn)式是（

）。A、-3/8+5\INT24.6

B、8*3/5

C、[(X+Y)*Z]/30

D、(X^2+Y/3)*X319、若A=2,B=3,C=4,則值為真的關系式是（

）。A.12/A+2=B^2

B、3>2*BORA=CANDB>CORA>BC、A>BANDB<=COR3*A>C

D、A*B>C+320、當Long類型數(shù)據(jù)與Single類型運算時,運算成果的類型為（

）。

A、Integer

B、Long

C、Single

D、Double21、下面有關次序文獻的描述對的的是（

）。A.每條記錄長度必須相似B.可通過編程對文獻中的某條記錄以便的修改。C.數(shù)據(jù)只能以ASCII碼形式寄存在文獻中，因此可通過文本編輯軟件顯示。D.文獻的組織構造復雜。22、下列（）不屬于VB的控件。A、窗體B、數(shù)據(jù)C、形狀D、直線23、下面（

）是合法的變量名。

A、X_YZ

B、123+ABC

C、INTEGER

D、X-Y24、下面的程序段，輸入9後，輸出成果是（）。X=inputbox(“輸入一種數(shù)”)SelectcasexCase1to5Y=-1Case5to10Y=0Case10to15Y=1EndselectA、0B、1C、-1D、225、下列說法中對的的是（）。A、數(shù)組只具有數(shù)組名，而沒有數(shù)組類型B、數(shù)組只具有數(shù)組類型，而沒有數(shù)組名C、數(shù)組的類型和數(shù)組元素的類型不一樣D、數(shù)組和變量同樣，均有名稱和類型這兩種屬性26、創(chuàng)立公用數(shù)組的措施是（）。A、在模塊中用Private語句申明B、在模塊中用Public語句申明C、在過程中用Private語句申明D、在過程中用Public語句申明不是B就是D27、VisualBasic6.0中缺省的參數(shù)傳遞機制是（）。A、傳值B、傳地址C、傳值和傳地址D、從實參到形參28、已知A$=”12345678”，則體現(xiàn)式Val(left$(a$,4)+Mid$(a$,4,2))的值為（

）。A、12345

B、123445

C、8

D、629、下面對的的賦值語句是（）A、x+y=30B、y=*r*rC、y=x+30D、3y=x30、要保留動態(tài)數(shù)組原有的內容，應當使用（）語句。A、RedimPreserveB、RedimC、DimC、Public不是A就是B二、填空題（每空2分，共20分）1、下面的程序是求100以內奇數(shù)和s的值（S=1+3+5+7...+99）。請在有（）的地方填上合適的語句或體現(xiàn)式。(8分)PrivateSubCommand1_Click()DimsAsSingleDimiAsSingles=（0）Fori=1to100（step2）S=（s+i）(nexti)PrintsEndSub2、在下列程序的（）內寫上合適的內容，使能輸出如下圖形。*********************程序如下：PrivateSubCommand1_Click()Fori=1to（6）Forj=1to（i-6）Print（“*”）Nextj（PrintString(i,"*")）NextiEndSub3、寫出下列程序的執(zhí)行成果PrivateSubForm_Click()Dima(1To10)AsIntegerDimb(1To10)AsIntegerDimc(1To10)AsIntegerFori=1To10a(i)=iNextib(1)=10Forj=9To1Step-1b(10-j+1)=jNextjFork=1To10c(k)=a(k)+b(k)NextkForl=1To10Printc(l);Ifl=5ThenPrintEndIfNextlEndSub成果：111111111111111111114、在窗體上畫一種文本框和一種圖片框，然後編寫如下兩個事件過程：PrivateSubForm_Click()Text1.text="VB程序設計"EndSubPrivateSubText1_Change()Picture1.Print"VBProgramming"EndSub程序運行後，單擊窗體，在文本框顯示的內容是__VB程序設計____，而在圖片框顯示的內容是__VBProgramming____。5、下列程序輸出的值是多少？PrivateSubCommand1_Click()s=0Fori=9To42Step11s=s+iNextiIfi>50Thens=s+iElses=s-iEndIfPrintsEndSub成果是：_______155_________。6、設有如下程序：PrivateSubForm_Click()DimaAsInteger,sAsIntegern=8s=0Dos=s+nn=n-1LoopWhilen>0PrintsEndSub以上程序的功能是計算1到8的累加。程序運行後，單擊窗體，輸出成果為_36___。7、設有如下程序：用Array函數(shù)建立一種具有8個元素的數(shù)組，然後查找并輸出該數(shù)組中各元素的最小值。OptionBase1PrivateSubCommand1_Click()Dimarr1DimMinAsInteger,iAsIntegerarr1=Array(12,435,76,-24,78,54,866,43)Min=arr1(1)Fori=2To8Ifarr1(i)<MinThenmin=arr1(i)NextiPrint"最小值是：";minEndSub8、在名稱為Form1的窗體上畫一種文本框，其名稱為Text1，在屬性窗口中把該文本框的MultiLine屬性設置為True，然後編寫如下的事件過程：如下程序的功能是，把磁盤文獻smtext1.txt的內容讀到內存并在文本框中顯示出來，然後把該文本框中的內容存入磁盤文獻smtext2.txt。PrivateSubForm_Click()Open"d:\test\smtext1.txt"ForInputAs#1DoWhileNoteof(1)LineInput#1,aspect$whole$=whole$+aspect$+Chr$(13)+Chr$(10)LoopText1.Text=whole$Close#1Open"d:\test\smtex