程序设计基础模拟试题

1、VB程序设计模拟试题?填空题1?窗体模块的文件扩展名为FRM、标准模块的文件扩展名为BAS、类模块文件的扩展名为CLSoVisualBasic中数据类型可分为标准数据类型和用户自泄义数据类型两大类，前者根据其取值的不同，可分为整型、长整型、布尔型和一字符型oAbs(-6.5)=6.5：Int(-9.1)=-10。程序&设计运算结果为一程序设计一-Dima,basBoolean语句显式声明变量a是变体变呈：，b是_布尔_变量。MsgBox函数的返回值中，VBRetry表示单击了一重试换钮，VBYes表示单击了一是按钮，vB&a示单击了否一按钮。要加载窗体，可以在代码中使用语句，要显示窗体，可以在

2、代码中使用方法，要隐藏窗体，可以在代码中使用Hide方法，要卸载窗体，可以在代码中使用方法。对话框分为对话框和对话框两种类型，其中对话框最对象是VisualBasic应用程序的基本单元，它是由类一创建的。在VisualBasic中可以用属性、一方法一、一事件一来说明和衡量一个对象的特性。条件判断语句可以使用一If-then语句、If-Then-Else语句和If?Then?Elself语句。Selectcasei1句声明一个值为3.14的常疑Pi的语句为一Constpi=3.14。DoLoopUntil循环结构中，当条件为真_时结束循环。要显示弹出菜单，可以在代码中使用事件。参数传递有方式、方

3、式和命名传递方式，常量默认采用方式：变量默认采用方式；表达式默认采用方式。名称属性必须以一个一字母标点一开始弁且最长可达40个字符，不能包括一符号一和一空格一。VisualBasic的程序模块有3种：一窗体模块一、标准模块和一类模块一.VisualBasic程序，按其语句代码执行的先后顺序，可以分为一顺序_结构、选择一结构和一循环结构。数组元素下标的下界默认为是,如果要改变其默认值，应使用o?判断题()1.VisualBasic运行程序的方法只有编译模式。()2.语句Commandl.visible二false与Command!,enabled二false是等价的。()3.InputBox函数

4、和MsgBox函数一样，返回的是字符串。()4.通过类模块，我们不可以根据需要建立自己的控件。(X)5.2.1E+5是合法的VisualBasic数据。()6.根拯占用内存方式的不同，可将数组分为常规数组和动态数组两种类型。V)7.x2是合法的变量名()8.按照文件的存取方式及其组成结构可以分为两种类型：文本文件和随机文件。V)9.Do-LoopUntil语句实现循环时，不管条件真假，首先无条件地执行一次循环。(X)10.标签没有change事件和setFocus方法(X)11.VB对象就是窗体和控件。(X)12.要实现同样的循环控制，在DoWhile-Loop和D0?LoopWh订e循环结构

5、中给上的循环条件是一样的。X)13.文本框和标签通过同一属性在窗体上显示文字。()14.能够改变复选框背景颜色的属性是BackColoro()15.当图片框Picturebox控件的Autosize属性为true时，超过图片框尺寸的图片其超过部分会被图片框截去。X)16.所有对象的属性都可以在属性窗口中设泄。(X)17.Msgbox函数建立的信息框既能显示信息又能输入用户的信息。)18.使用Open语句可以创建新的顺序文件。X)19.要在窗体上添加控件，不能通过双击工具箱中对应的控件图标实现。X)20.TextBox与Label有许多共同的特点，它们都能显示和输入文字。(V)21.方法Form

6、l.show与Forml.vis让le=True是等效的V)22.Do-LoopUnti1语句实现循环时，不管条件真假，首先无条件地执行一次循环。(X)23.函数Str(26)与Str(-26)的值的长度相同。(V)24.每个Vb对象都有name属性。)25.在VisualBasic中，向过程传递参数时，按地址传递参数是缺省的。(V)26.Do-Loopunti1语句实现循环时，只要条件是假，循环将一直进行下去。X)27.文本框和标签通过同一属性在窗体上显示文字。(X)2&要实现同样的循环控制，在DoWhile-Loop和D0?LoopWhile循环结构中给左的循环条件是一样的。(V)29.将

7、焦点主动设置到指泄的控件或窗体上，应采用Setfocus方法。(X)30?使用Open语句可以创建新的顺序文件。?写出下面的程序运行结果.程序1PrivateSubForm_load()MsgBox你好EndSub运行结果：弹出消息框，提示为你好”。.程序2DimNumberNumber=8SelectCaseNumberCase1To5PrintBetween1and5Case6To10PrintBetween6and10CaseElsePrintNotbetween1and10EndSelect运行结果：Between6and10O.程序3DimSubCommand1_C1ick()Tex

8、tl.Text=07EndSubDimSubCommand2_Click()Textl.Text=秋季EndSub单击Command额钮后，再单击Command按钮，在文本框中显示：_07一。.程序4PrivateSubForm_Click()For1=1To100Sum=Sum+INextIPrintSumEndSub运行结果：5050.程序5PrivateSubForm_load()MsgBoxVB程序EndSub运行结果：一弹出消息框，提示为“VB程序”。.程序6PrivateSubForm_Activate()DimSAsSingleDimIAsIntegerS=1For1=1To5S

9、=S*INextPrint5!=;SEndSub运行结果：120o.程序7PrivateSubForm_Activate0Dim?sAsLongDim?IAsIntegerS=0ForI=lTo6S=S+I2NextPrintS=;SEnd?Sub运行结果：91VB程序设计基础模拟试一?判断题（正确的划错误的划X,每小题1分，共10分）（V）K而向对彖程序设讣是一种以对象为基础，由事件驱动对象来执行的设计方法。（X）2、所有对象的属性都可以在属性窗口中设泄。(V)3x把当前窗体forml隐藏，用forml.hide和me.hide语句均可。(V)4.变量的声明有两种方法，即使用“类型说明符”和

10、使用“类型说明词”均可。(X)5、判断数值X是否在0,100范围可用关系表达式：0=X=10(?V)6、文本框控件没有Caption性。(X)7、Dimal,a2AsInteger语句表示声明的变量el和a2都为整型变虽：。(7)8.执行Do-LoopWHle语句时，不管条件真假，首先会无条件地执行一次循环。(X)9、Rnd(x)产生0,1之间的随机数。(V)10.每个VisualBasic对象都有NameS性。二选择题(以下只有一项是正确的，每题2分，共40分)()1、不是VisualBasic的特点的选项是：A.可视编程B?面向过程C事件驱动D.而向对象()2、如果把一个人当作对象，那么“

11、身高”相当于这个对象的：A.属性B?方法C?事件D.特征()3、以下哪项不是合法的变量名？A.file.lB?filelC.file-1D.file_l_12)4、求从文本框中输入密码时在文本框中只显示*号，则应在此文本框的属性窗口中设置：A.Text属性值为*B.Caption属性值为*C.Password属性值为空D.Passwordchar属t生值为*)5、哪个是算术运算符：A.ImpB?ModC.Not)6.Integer类型的变量可存的最大整数为：A.255B.256C.32768D.32767)7、下列哪一个是日期型常量：A.”2/1/99B?2/1/99C.#2/1/99#D.2

12、/1/99)8、用于获得字符串S从第5个字符开始的3个字符的函数是：A.Mid(S,5,3)b.Middle(s,5,3)C?Right(S,5,3)D?Left(S,5,3)9、为使计时器对象每隔5秒钟产生一个时钟事件(Timer事件),则其Interval属性值应设置为：5B.300C.500D.5000)10对一个窗体对象，其最先发生的事件是：、A.B.DbdickC?LoadD.UnLoadA.对象名？属性名C.对象需？事件名)12、若x是一个正实数,A. 0. 01*Int (x+0. 005)C. 0. 01*Int(100*(x+0. 05)13、下列表达式中，合法的( b+sq

13、r(b*b+4a*c) ) /2/aCos(a 厂 2-Atn(a)Sqr(Y A3+3*(A*A+6B*B)11、下列4个选项中，可以单独的构成一条语句的选项是：B.对象名？方法名D.对象名？控件需将千分位四舍五入，保留两位小数的VB表达式为：0.01*Int(100*(x+0.005)D.0.01*Int(x+0.05)VisualBasic表达式有：D.1/(X+1/Y+5A)14、在一个语句行内写多条语句时，语句之间应该用什么符号分隔?A.逗号B.分号C?顿号D.冒号)15、计算结果为0的表达式是：A.Int(3.4)+Int(-3.8)B?Int(3.4)+Fix(-3.8)C.Fi

14、x(3.4)+Fix(-2?8)D.Fix(3.4)+Int(-3.8)16、下列程序段执行后输出的结果是：x=int(Rnd+4)SleetCasexCase5Print优秀Case4Print良好Case3Print及格”CaseElsePrint不及格”EndSelectA.优秀B.良好c.及格D.不及格)17、循环结构Fori二0to10Step2的执行次数是：4B?5C.6D.7)18、“x是小于100的非负数S用VB表达式表示，正确的是：A.x100B-0=xAndx100C.0=x100D.OWxOrx100)19、要判断两个整型变量A和B中有且只有一个为0,不能使用下而哪一个逻

15、辑表达式AndBOOorAOOandB=0A二XorA*AndAOBA*BAnd(A=0OrB=0)20、下列程序段循环结构执行后，i的输出值是：A.25B.10C?11D.因为y的初值不知道，所以不确定Fori=lto10Step2y=y+iNextiPrinti三然空题(每空2分，共20分)1.语句optionexplicit的作用是2?把条件10WXV12写成Visualbasic表达式为：10=xandx1.7and收62.5o.声明一个值为3.14的常量Pi的语句为Constpi=3.14.7?在过程中怎义Dimx(9,1to10)asInteger,则数组中共拥有个元素。8?要使一

16、个按钮无效，则可把它的Enable属性设为_False_(True.False)o9?设X是大于300且能被3整除的奇数，关于X的表达式为：(x300)and(xMod3=0)and(xMod20)10.泄时器控件的Interval属性值是指时间间隔，单位为亳秒；当每隔此间隔的时间，龙时器会触发一次计时器事件。四?程序填空题：(每空3分，共12分).如下程序运行后，变量s的值为120,i的值为_oOptionExplicitPrivateSubCommand1_Click()DimiAsIntegerStaticSAsIntegerS二1Fori=1To5S=S*iNextiPrintSEnd

17、Sub.以下程序是求1100之间所有的“偶数”之和。请填空。DimsasintegerDimiasintegerS=0Fori=2to100step2S二S+iNextiPrintS五？程序阅读题(每小题2分，共4分)在窗体上画一个需称为Commandl的命令按钮，然后编写如下事件过程：PrivateSubcommand1_C1ick0Forn=lTo5IfnMod30Thenm=m+n3NextnPrintnPrintmEndSub程序运行后，如果单击命令按钮，则窗体上显示：n=6_;m=2六.程序设计题，请将以下横线中的代码补充完整。(每空2分，共14分)1.假设某班共有学生N人，编写程序

18、统计该班学生的VisualBasic考试成绩，弁显示出60分以下、60-70.70-80.80-90以及90分以上的学生人数各是多少？程序代码如下：Privatesubfornuclick0Dim score as singleDim xl%, x2%, x3%, x4%? x5%Dim I as integerDim N as integerN=val (inputbox ( “请输入参考总人数For I =1 to4score 表示考生的实际分数xl, x2, x3, x4, x5 分别表示各个分数段的人数T 表示循环变量N 表示参考总人数)Score=val(inputbox(请输入成绩

19、:)SelectcaseScoreCaseis=90Xl=xl+1Caseis=80X2=x2+1Caseis=70X3=x3+1Caseis=60X4=x4+1CaseelseX5=x5+1En(1SelectNext1Print“90分以上xl:Print“8090 x2:Print分7080 x3:Print分:“60=70分x4:Print“60分以x5:Endsub下：:实验六思考题：设s,m,n均为String类型的变量，编程实现：如果s中包含字串m,则将s中的字串m部分替换为n后生成一个新串并输出.要求s,m,n的值均由用户输入.PrivateSubCommand1_C1ick(

20、)DimsAsStringDimmAsStringDimnAsStringDimIsAsStringDimiAsIntegerDimkAsIntegers=InputBox(请输入S字符串”)Text2?Text=sm=InputBox(，z请输入m字符串”)Text3?Text=mn=InputBoxC请输入n字符串”)Text4.Text=ni=InStr(s,m)k=i+Len(m)Is=Left(s,i-1)Textl?Text二Is+n+Mid(s,k)textl?Text二left(s,i-l)+n+mid(s,k)EndSubPrivateSubForm_Click()Dima%

21、,b%c%tempAsDoublea=Vai(InputBoxC请输入a)b=Vai(InputBoxC请输入b)c=Vai(InputBoxC请输入c)IfabThentemp=aa=bb=tempEndIfIfacThentemp=aa=cc=tempEndIfIfbcThentemp=bb=cc=tempEndIfPrinta;b;cEndSubPrintResult或者PrivateSubcmdselect_Click()DimxAsSingle,yAsSingleDimOperatorAsStringDimresultAsSinglex=Val(InputBox(输入第一个数：”，0

22、)Operator=InputBox(输入运算法：y=Vai(InputBox(z/输入第二个数：，0)SelectCaseOperatorCase+：resultx+yCase“-：result=x-yCaseresult二x*yCase/：resultx/yEndSelectPrintresultEndSub1、PrivateSubForm_Click()Dimx%y%z%X=Val(InputBox(A请输入第一门课程成绩)y=Val(InputBox(A请输入第二门课程成绩)z=Val(InputBox(A请输入第三门课程成绩) 该同学获得 该同学获If(x+y+z)/3)95Or(x

23、=100Andy=100Andz=80)Or(x=100Andz=100Andy=80)Or(y=100Andz=100Andz=80)ThenPrint一等奖Elself(x+y+y)/390Or(x=100Andy=75Andz=75)Or(y=100Andx=75Andz=75)Or(z=100Andx=75Andz=75)ThenPrint得二等奖Elselfx=70Andy=70Andz=70ThenPrint该同学获得三等奖ElsePrint该同学没有奖项EndIfEndSub2、评优If语句PrivateSubcmdCheck_Click()Dima%a=Val(InputBox(A请输入一门课程的百分之成绩)Ifa=90ThenP