2024年VB试题库及答案

最新VB題库及答案一、选择題第1部分1、在窗体（名称為Form1）上画一种名称為Text1的文本框和一种名称為Command1的命令按钮，然後编写一种事件過程。程序运行後，假如在文本框中输入一种字符，则把命令按钮的標題设置為“计算机等级考试”。如下能实現上述操作的事件過程是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、体現式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"，执行語句x=IIf((a<b)Or(c>d),"A","B")後，x的值為A、"a"B、"b"C、"B"D、"A"8、在窗体上画一种文本框，然後编写如下事件過程：PrivateSubForm_Click()x=InputBox("請输入一种整数")Printx+Text1.TextEndSub程序运行時，在文本框中输入456，然後單击窗体，在输入對话框中输入123，單击“确定”按钮後，在窗体上显示的内容為A、123B、456C、5799、在BASIC中，三個逻辑运算符NOT，AND，OR在运算過程中，优先级從高到低的次序是（

）。A、AND->NOT->OR

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

D、NOT->OR->AND10、下面程序段运行時内层循环的循环總次数（

）。FORX=1TO2FORY=1TOXNEXTYNEXTXA.、1B、2C、311、在VB中，复写框（Check）的Value值有三种，分别是（）。A、-1，0，1B、0，1，2C、1，2，3D、True，False，012、若要退出For循环，可使用的語句為（）。A、ExitB、ExitDoC、TimeD、ExitFor13、运用VB设计程序的基本环节可分四步：（1）设计顾客界；（2）（）；（3）运行调试程序；（4）生成执行文献。A、编写代码B、设计算法C、信息反馈D、系统集成14、在代码窗口内将表單Form1的“Caption”属性设置為“時钟”,對的的書写形式是()A、Form1.Caption“時钟”B、Form1.Caption=“時钟”C、Caption=“時钟”D、Fopm1.Caption(“時钟”)15、保留文献時，窗体的所有数据存储格式為()A、*．PRGB、*．FRMC、*．VBPD、*．EXE16、在窗体上画一种文本框和一种计時器控件，名称分别為Text1和Timer1，在属性窗口中把计時器的Interval属性设置為1000，Enabled属性设置為False。程序运行後，假如單击命令按钮，则每隔一秒中在文本框中显示一次目前的時间。如下是实現上述操作的程序：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中的变量假如没有显示申明其数据类型，则默认為（）A、曰期型B、数据型C、字符型D、变体型19、在VB中，通過变化列表框（）属性的值，可认為列表框添加项目。A、ListB、（名称）C、CaptionD、Text20、已知A$=”12345678”，则体現式Val(left$(a$,4)+Mid$(a$,4,2))的值為（

）。A、12345

B、123445

C、8

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

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

D22、用来测试指定文献結束状态的函数是（）A、EofB、FreeFileC、Loc

D、Open23、當Long类型数据与Single类型运算時,运算成果的类型為（

）。

A、Integer

B、Long

C、Single

D、Double24、某一VB工程含F1、F2两個窗体，执行“F1．Show：F2．Hide”語句後，F1、F2窗体显示的成果為（）。A、都显示B、都不显示C、仅显示F1窗体D、仅显示F2窗体25、数學关系3=〈x〈10表到达對的的VB体現式為（）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的標签，列表框中显示若干個项目，當單击列表框中某個项目時，在標签中显示被选中项目的名称。下列能對的实現上述操作的程序是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，下列体現式的值是3>2*bOra=cAndb<>cOrc>dA、1B、TrueC、FalseD、230、下列操作不能打開代码窗口的是()A、选中對象,單击鼠標右键,在弹出的快捷菜單中选择“查看代码”命令B、选中對象,双击鼠標左键C、按F7键D、按F4键第2部分1、VB語言的語法规定，多条語句放在同一行中，語句之间用（）分隔。A、逗号B、冒号C、分号D、單引号2、在VB中，执行“A=18MOD4”語句後，A的值為（）。A、2B、4C、63、A為True，B為False，则“AandB”和“AOrB”的值分别是（）。A、TrueTrueB、TrueFalseC、FalseTrueD、FalseFalse4、在VB中，执行“DimA,BAsString”語句後，A，B的数据构造為（）。A、整型数B、实型数C、字符型D、字节型5、在VB中，执行“A=123：B=Str$(A)”語句後，B的数据构造為（）。A、整型数、B、字节型C、实型数D、字符型6、在VB中，复写框（Check）的Value值有三种，分别是（）。A、-1，0，1B、0，1，2C7、若要退出For循环，可使用的語句為（）。A、ExitB、ExitDoC、TimeD、ExitFor8、运用VB设计程序的基本环节可分四步：（1）设计顾客界；（2）（）；（3）运行调试程序；（4）生成执行文献。A、编写代码B、设计算法C、信息反馈D、系统集成9、在代码窗口内将表單Form1的“Caption”属性设置為“時钟”,對的的書写形式是()A、Form.Caption“時钟”B、Form.Caption=“時钟”C、Caption=“時钟”D、Fopm.Caption(“時钟”)10、保留文献時，窗体的所有数据存储格式為（）。A、*．PRGB、*．FRMC、*．VBPD、*．EXE11、窗体初始化程序应写在()事件中。A、LoadB、UnloadC、ActivateD、GotFocus12、某一VB工程含F1、F2两個窗体，执行“F1．Show:F2．Hide”語句後，F1、F2窗体显示的成果為（）。A、都显示B、都不显示C、仅显示F1窗体D、仅显示F2窗体13、VB的数据类型分為（）A、数值型、字符型、布尔型、曰期型B、数值型、字符型、對象型、曰期型C、基本类型、扩展类型D、整型、实型、字符型、曰期型、布尔型14、VB中的变量假如没有显示申明其数据类型，则默认為（）A、曰期型B、数据型C、字符型D、变体型15、在VB中，通過变化表框（）属性的值，可认為列表框添加项目。A、ListB、（名称）C、CaptionD、Text16、在VB中，三個逻辑运算符NOT，AND，OR在运算過程中，优先级從高到低的次序是（

）。A、AND->NOT->OR

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

D、NOT->OR->AND17、下面程序段运行時内层循环的循环總次数（

）。FORX=1TO2

FORY=0TOX-1

NEXTY

NEXTX

A、1

B、2

C、3D、418、對的的算术体現式是（

）。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类型数据与Single类型运算時,运算成果的类型為（

）。

A、Integer

B、Long

C、Single

D、Double21、下面有关次序文献的描述對的的是（

）。A.每条记录長度必须相似B.可通過编程對文献中的某条记录以便的修改。C.数据只能以ASCII码形式寄存在文献中，因此可通過文本编辑软件显示。D.文献的组织构造复杂。22、下列（）不属于VB的控件。A、窗体B、数据C、形状D、直线23、下面（

）是合法的变量名。

A、X_YZ

B、123+ABC

C、INTEGER

D、X-Y24、下面的程序段，输入9後，输出成果是（）。X=inputbox(“输入一种数”)SelectcasexCase1to5Y=-1Case5to10Y=0Case10to15Y=1EndselectA、0B、1C、-1D、225、下列說法中對的的是（）。A、数组只具有数组名，而没有数组类型B、数组只具有数组类型，而没有数组名C、数组的类型和数组元素的类型不一样D、数组和变量同样，均有名称和类型這两种属性26、创立公用数组的措施是（）。A、在模块中用Private語句申明B、在模块中用Public語句申明C、在過程中用Private語句申明D、在過程中用Public語句申明不是B就是D27、VisualBasic6.0中缺省的参数传递机制是（）。A、传值B、传地址C、传值和传地址D、從实参到形参28、已知A$=”12345678”，则体現式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、要保留動态数组原有的内容，应當使用（）語句。A、RedimPreserveB、RedimC、DimC、Public不是A就是B二、填空題（每空2分，共20分）1、下面的程序是求100以内奇数和s的值（S=1+3+5+7...+99）。請在有（）的地方填上合适的語句或体現式。(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、写出下列程序的执行成果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函数建立一种具有8個元素的数组，然後查找并输出该数组中各元素的最小值。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