VB1-5章练习题

VB1~5章练习题第一章一、单选题1.VB6.0集成开发环境可以（）A)编辑、调试、运行程序，但不能生成可执行程序B）编辑、生成可执行程序、运行程序，但不能调试程序C）编辑、调试、生成可执行程序，但不能运行程序D）编辑、调试、运行程序，也能生成可执行程序2.英文“Visual”的含义是（）A）可视化B）集成C）结构化D）调试3.标准模块文件的扩展名是（）A）.frmB）.vbpC）.basD）.vbg4.与传统的程序设计语言相比，VB最突出的特点是（）A）结构化程序设计B）程序开发环境C）事件驱动编程机制D）程序调试技术5.VB6.0是（）应用程序的开发工具A）8位B）16位C）32位D）64位6.英文缩写“OOP”的含义是（）A）时间驱动的编程机制B）结构化程序设计语言C）面向对象的程序设计D）可视化程序设计二、简答题1.什么是对象的属性、事件和方法？三、编程题1.编写程序，并且有三个功能：①显示“欢迎使用VB6.0中文版”②清除之前显示的“欢迎使用VB6.0中文版”③退出此程序第二章一、单选题1.在VisualBasic中，下列优先级最高的运算符是（）A）*B）\C）D）Not2.以下关系表达式中，其值为假的是（）A）”XYZ””XYz”B）”VisualBasic”=”visualbasic”C）”the””there”D）”Integer””Int”3.在窗体上画一个命令按扭（名称为Command1），然后编写如下事件过程：PrivateSubCommand1_click()DimbAsIntegerb=b+1EndSub运行程序，第3次单击命令按扭后，变量b的值为（）A）0B）1C）2D）34.在窗体上画一个命令按扭（名称为Command1），然后编写如下事件过程：PrivateSubCommand1_click()StaticaAsIntegera=a+1EndSub运行程序，第3次单击命令按扭后，变量a的值为（）A）0B）1C）2D）35.在VisualBasic中，数值1234&的类型是（）A）整型B）长整型C）字符串型D）双精度型6.从键盘上输入2个字符串，分别保存在变量str1、str2中，则确定第2个字符串在第1个字符串中起始位置的函数是（）A）LeftB）MidC）StringD）InStr7.设a=”VisualBasic”，则以下使b=“Basic”的语句是（）A）b=Left(a,8,12)B）b=Mid(a,8,5)C）b=Right(a,8,5)D）b=Left(a,8,5)8.设a=5,b=10，则执行c=Int((b-a)*Rnd+a)+1后，c的值为（）A）5~10B）6~9C）6~10D）5~99.以下声明语句中错误的是（）A）Constvarl=123B）Dimvar2=‘ABC’C）DefInta-zD）Staticvar3AsInteger二、简答题1.下列哪些可作为VisualBaisc的变量名，那些不行？4*DeltaAlpha4ABCABπReadDataFilenameA(A+B)C254DRead2.VisualBasic中是否允许出现下列形式的数？±25.743.457E-10.3681.87E+5010^(1.256)D322.5E12E38.75D+60.2583.把下面的数写成普通的十进制数：（1）2.65358979335278D-006（2）1.21576654590569D+019（3）8.6787E+8（4）2.567E-124.指出下列VisualBasic表达式中的错误，并写出正确的形式。（1）CONTT.DE+COS(28º)（2）(-3)/8+8.INT(24.8)（3）(8+6)^(4÷-2)+SIN(2*π)（4）[(x+y)+z]×80-5(C+D)5.设a=2,b=3,c=4,d=5,求下列表达式的值（是True还是False）：（1）abANDc=dOR2*ac（2）32*bORa=cANDbcORcd（3）NOTa=cOR4*c=b^2ANDba+c6.将下列数学式写成VisualBasic表达式：（1）cos2(c+d)（2）5+(a+b)2（3）cos(x)(sin(x)+1)（4）e2+2（5）2a(7+b)（6）8e3ln2第三章一、单选题1.在窗体上画一个命令按扭（名称为Command1），然后编写如下事件过程PrivateSubCommand1_Click()b=5c=6Printa=b+cEndSub程序运行后，单击命令按扭，其结果为（）A）a=11B）a=b+cC）a=D）False2.在窗体上画一个命令按扭（名称为Command1），然后编写如下事件过程PrivateSubCommand1_Click()a=11b=5c=6Printa=b+cEndSub程序运行后，单击命令按扭，其结果为（）A）a=11B）a=b+cC）a=D）True3.以下语句的输出结果是a=Sqr(3)PrintFormat(a,”$$####:###”)A）$1.732B）$$1.732C）$1732D）$$00001.7324.以下程序段的输出结果是a=Sqr(3)b=Sqr(2)c=abPrintcA）-1B）0C）FalseD）True5.以下语句的输出结果是PrintFormat$(32548.5,”000,000.00”)A）32548.5B）32,548.5C）032,548.50D）32,548.506.假定有如下语句：answer$=MsgBox(“String1”,,“String2”,“String3”,2)执行该语句后，将显示1个信息框，此时如果单击“确定”按扭，则answer$的值为（）A）String1B）String2C）String3D）17.InputBox函数返回值的类型为（）A）数值B）字符串C）变体D）数值或字符串（视输入的数据而定）8.在窗体上画1个名为Command1的命令按扭，然后编写如下事件过程。PrivateSubCommand1_Click()a=InputBox(“EntertheFirstinteger”)b=InputBox(“EntertheSecondinteger”)Printb+aEndSub程序运行后，单击命令按扭，先后在2个输入对话框中输入456和123，则输出结果是（）A）579B）123C）456123D）1234569.执行下面的语句后，所产生的信息框的标题是（）a=MsgBox(“AAAA”，，”BBBB”,””,5)A）BBBBB）空C）AAAAD）出错，不能产生信息框10.在窗体上画1个名为Command1的命令按扭，然后编写如下事件过程PriveteSubCommand1_Click()MsgBoxStr(123+321)EndSub程序运行后，单击命令按扭，则在信息框中显示的提示信息为（）A）123+321B）字符串”444”C）数值444D）空白11.MsgBox函数的反回值的类型为（）A）整型B）字符串C）变体D）整数或字符串（视选择的按扭而定）二、填空题1.假设有如下程序，程序运行后，单击窗体输出结果是__________PrivateSubForm_Click()a=32548.56PrintFormat(Int((a*10+0.5))/10,”000,000.00”)EndSub2.以下程序段的功能是x=8.6功能：___________y=Int(x+0.5)功能：___________Printy功能：___________3.假设有如下程序，程序运行后，单击窗体输出结果是__________PrivateSubForm_Click()a=25Mod(1-2^3)PrintaEndSub4.以下语句的输出结果是__________s$=”China”s$=”Beijing”Prints$5.以下语句的输出结果是__________a%=3.14156Printa%6.设a=Sqr(2)*Sqr(3)，下列语句的输出结果分别是PrintFormat$(a,”000.00”)输出结果：_____________PrintFormat$(a,”###.#00”)输出结果：_____________PrintFormat$(a,”00.00E+00”)输出结果：_____________PrintFormat$(a,”-#.####”)输出结果：_____________三、编程题1.编写求以10为底，求10000的对数值的源程序。2.编写求任意数的平方根的源程序，数由键盘输入。3.求任意半径和高的圆柱的表面积。4.编写程序，在文本框中输入英文字符，单击“大写”按钮把英文字符转换为大写，单击“小写”按钮把英文字符转换为小写。5.从键盘上输入小时，分和秒，把它转换为秒并输出。第四章一、单选题1.假定有如下语句：PrivateSubForm_Click()Dima,b,xAsIntegera=InputBox(“a=?”)b=InputBox(“b=?”)x=a+bIfabThenx=a-bPrintxEndSub运行时从键盘输入3和4，输入x的值是（）A）3B）5C）7D）92.假定有如下语句：PrivateSubForm_Click()b=1:a=2PrintIIf(a=b,a,b)EndSub运行后输出的结果是（）A）0B）1C）2D）33.假定有如下语句：PrivateSubForm_Click()s=Val(InputBox(“InputValueofs:”))SelectCasesCaseIs6f=s+1CaseIs5f=s+2CaseIs4f=s+3CaseElsef=s+4EndSelectPrints;fEndSub运行时从键盘输入6，输出结果是（）A）67B）68C）69D）6104.假定有如下语句：PrivateSubForm_Click()score=Int(Rnd*10)+80SelectCasescoreCaseIs60a$=“F”Case60To69a$=“D”Case70To79a$=“C”Case80To89a$=“B”CaseElsea$=“A”EndSelectPrinta$EndSub运行时输出的结果是（）A）AB）BC）CD）D5.假定有如下语句PrivateSubForm_Click()a=Val(InputBox(“请输入a”))b=Val(InputBox(“请输入b”))x=a*a+bIfbaThenx=b*b+aPrintxEndSub运行时从键盘输入3和4，输出X的值是（）A）12B）13C）19D）206.假定有如下语句PrivateSubForm_Click()K=2IfK=1ThenA=3IfK=2ThenA=2IfK=3ThenA=1PrintAEndSub运行时，输出的结果是（）A）1B）2C）3D）出错7.假定有如下语句PrivateSubForm_Click()k=Val(InputBox(“请输入一个数”))Ifk=0ThenAbc=4:GoToaIfk=1ThenAbc=3:GoToaIfk=2ThenAbc=2:GoToaIfk=3ThenAbc=1a:Printk;AbcEndSub运行时输入3，输出的结果是（）A）31B）343C）3432D）343218.设有函数r=1x02x=0则下列能正确计算该函数值的语句是（）A）Ifx0Thenr=1ElseIfx=0Thenr=2EndIfB）Ifx0Thenr=1ElseIfx=0Thenr=2Elser=1EndIfC）Print(IIf(x0,1,2))D）r=IIf(x0,1,2)二、编程题1.给定三角形的三条边长，计算三角形的面积。编写程序，首先判断给出的三角形能否构成三角形，如果可以构成，则计算并输出该三角形的面积，否则要求重新输