vb题库及答案

最新VB 题 快递公司问题件快递公司问题件货款处理关于圆的周长面积重点题型关于解方程组的题及答案关于南海问题 库及答案一、选择题第1部分1、在窗体（名称为Form1）上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写一个事件过程。程序运行后，如果在文本框中输入一个字符，则把命令按钮的标题设置为“计算机等级考试”。以下能实现上述操作的事件过程是A、PrivateSubText1_Change()="计算机等级考试"EndSubB、PrivateSubCommand1_Click()Caption="计算机等级考试"EndSubC、PrivateSubForm_Click()="计算机等级考试"EndSubD、PrivateSubCommand1_Click()="计算机等级考试"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+EndSub程序运行时，在文本框中输入456，然后单击窗体，在输入对话框中输入123，单击“确定”按钮后，在窗体上显示的内容为A、123B、456C、579D、1234569、在BASIC中，三个逻辑运算符NOT，AND，OR在运算过程中，优先级从高到低的顺序是（?????）。A、AND->NOT->OR?B、NOT->AND->ORC、OR->NOT->AND?D、NOT->OR->AND10、下面程序段运行时内层循环的循环总次数（?????）。FORX=1TO2FORY=1TOXNEXTYNEXTXA.、1B、2C、3D、411、在VB中，复写框（Check）的Value值有三种，分别是（）。A、-1，0，1B、0，1，2C、1，2，3D、True，False，012、若要退出For循环，可使用的语句为（）。A、ExitB、ExitDoC、TimeD、ExitFor13、利用VB 设计 领导形象设计圆作业设计ao工艺污水处理厂设计附属工程施工组织设计清扫机器人结构设计 程序的基本步骤可分四步：（1）设计用户界；（2）（）；（3）运行调试程序；（4）生成执行文件。A、编写代码B、设计算法C、信息反馈D、系统集成14、在代码窗口内将表单Form1的“Caption”属性设置为“时钟”,正确的书写形式是(　)A、“时钟”B、=“时钟”C、Caption=“时钟”D、(“时钟”)15、保存文件时，窗体的所有数据存储格式为()A、*．PRGB、*．FRMC、*．VBPD、*．EXE16、在窗体上画一个文本框和一个计时器控件，名称分别为Text1和Timer1，在属性窗口中把计时器的Interval属性设置为1000，Enabled属性设置为False。程序运行后，如果单击命令按钮，则每隔一秒中在文本框中显示一次当前的时间。以下是实现上述操作的程序：PrivateSubCommand1_Click()EndSubPrivateSubTimer1_Timer()=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?D、显示出错信息22、用来测试指定文件结束状态的函数是（）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*jNextjNexti=Str(arr(2,2)+arr(3,3))EndSub程序运行后，单击窗体，在标签中显示的内容是A、12B、13C、14D、1527.在窗体上画一个名称为List1的列表框，一个名称为Label1的标签，列表框中显示若干个项目，当单击列表框中某个项目时，在标签中显示被选中项目的名称。下列能正确实现上述操作的程序是A、PrivateSubList1_Click()=EndSubB、PrivateSubList1_Click()=EndSubC、PrivateSubList1_Click()=EndSubD、PrivateSubList1_Click()=EndSub28、设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、6D、83、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，2C、1，2，3D、True，False，07、若要退出For循环，可使用的语句为（）。A、ExitB、ExitDoC、TimeD、ExitFor8、利用VB设计程序的基本步骤可分四步：（1）设计用户界；（2）（）；（3）运行调试程序；（4）生成执行文件。A、编写代码B、设计算法C、信息反馈D、系统集成9、在代码窗口内将表单Form1的“Caption”属性设置为“时钟”,正确的书写形式是(　)A、aption“时钟”B、=“时钟”C、Caption=“时钟”D、(“时钟”)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　　NEXTYNEXTX　A、1?B、2?C、3D、418、正确的算术表达式是（?????）。A、-3/8+5\?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、VisualBasic中缺省的 参数 转速和进给参数表a氧化沟运行参数高温蒸汽处理医疗废物pid参数自整定算法口腔医院集中消毒供应 传递机制是（）。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()="VB程序设计"EndSubPrivateSubText1_Change()"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，然后编写如下的事件过程：以下程序的功能是，把磁盘文件的内容读到内存并在文本框中显示出来，然后把该文本框中的内容存入磁盘文件。PrivateSubForm_Click()Open"d:\test\"ForInputAs#1DoWhileNoteof(1)LineInput#1,aspect$whole$=whole$+aspect$+Chr$(13)+Chr$(10)Loop=whole$Close#1Open"d:\test\"ForOutputAs#1Print#1,Close#1EndSub三、程序设计题1、编写一个函数计算1*2*…*n的值，函数名为fact()PrivateFunctionfact(nAsInteger)AsIntegerDimiAsIntegerDimrAsIntegerr=1Fori=1Tonr=r*iNextifact=rEndFunctionEndSub2、编写一个过程,求成1*2*3*…*N的值，过程名为NA。3、新建一个窗体，程序运行时，当用鼠标单击窗体任一地方，程序弹出Inputbox()函数输入框。当输完15个整数后，程序把刚输入的15个整数分3行在窗体上显示，每行5个整数。提问：（1）、应该对窗体的什么事件进行编程（2）、编写程序代码，实现上述功能。应该对窗体的单击（Click）事件进行编辑PrivateSubCommand1_Click()Dima(15),iAsIntegerFori=1To15a(i)=InputBox("请输入15个整数，单击确定按钮.","","")NextFori=1To15Printa(i);"";IfiMod5=0ThenPrintNextiEndSub4、已知三角形的三条边，编写一个函数求其面积，函数名自命名。PrivateSubCommand1_Click()Dima,b,c,l,Sa=Val(InputBox("请输入第一条边的长："))b=Val(InputBox("请输入第二条边的长："))c=Val(InputBox("请输入第三条边的长："))l=(a+b+c)/2Ifl<=aOrl<=bOrl<=cThenMsgBox"输入的数据不能组成三角形!"ExitSubEndIfS=Sqr(l*(l-a)*(l-b)*(l-c))PrintSEndSub