VisualBasic程序设计复习题及参考答案1

中南大学网络教育课程（专科）考试复习题及答案《VisualBasic程序设计与应用》一、选择题：在每小题给出的四个选项中，只有一项是符合题目要求的，请把所选项前的字母填在题后的括号内。1.VisualBasic程序中分隔一行中各语句的字符是（）。[]A)‘B):C)\D)_2.下列可作为VisualBasic的变量名的是（）。[]A:FilenameB:A（A＋B）C:A%DD:Print3.要让菜单项无效，应将（）属性值设置为False。[]A.VisibleB.EnabledC.MoveableD.Checked4.以下过程是（）事件。PrviateSubForm_Load()……EndSub[]A:命令按钮的单击B:命令按钮的装载C;窗体的装载D:窗体的单击5.Vb中描述文件扩展名的是（）属性。[]A:DriveB:PatternC:FileNameD:Path6.关于VisualBasic中事件的说法中，不正确的为（）。[]A)事件是由VisualBasic预先定义好的，能够被对象识别的动作B)DblClick（双击）是VisualBasic中的一种事件C)一个对象可以识别一个或多个事件D)对于一个系统提供的对象可以识别哪些事件，需要程序员自己定义7.下列控件中可设置滚动条是（）。[]A.检查框（复选框）B.框架C.文本框D.标签框8.在VisualBasic中建立一个空窗体，()不会是其默认名。[]A.Form1B.Form2C.FormxD.Form109.ConstOne&=1，则One为（）类型的常数。[]A)整型B)字节型C)长整型D)单精度型10.关于逻辑型数据，下列说法错误的是（）。[]A.逻辑型数据只有两种可能值：True或者FalseB.当把逻辑值转换为数值时False转为0，True转为1C.当把其他类型数据转换为逻辑数据时，非0数转换为True，0转换为FalseD.逻辑型数据以2个字节存储11.以下（）不是VisualBasic的特点。[]A:结构化程序设计B:集成可视化程序开发环境C:事件驱动编程机制D:可将用户的编程思想自动转换成程序代码12.窗体的load事件可以被用来实现的功能为（）。[]A:确定窗体的位置B:从内存中清楚一个窗体C:在程序启动时对属性和变量初始化D:重画窗体13.单复选框的控件名称为（）。[]A.OptionBottonB.CheckBoxC.PictureBoxD.Image14.若要禁止窗体被移动，可设置窗体的（）属性为False。A．MoveableB:MoveC:MinButtonD:ControlBox15.若要设置定时器的定时间隔设为10秒，应将（）属性值设为10000。[]A.IntervalB.ValueC.EnabledD.Text16.以下（）是文件夹列表框。A.DirListBoxB.DriveListBoxC.FileListBoxD.ComboBox17.以下（）可从通用对话框的“字体”对话框中返回用户选择的字体名。A.FileNameB.PathC.FontNameD.Color18.下列哪个操作可以清除文本框对象Text1的内容（）。A.Text1.Text=B.Text1.clsC.Text＝D.cls19.要想通过单击Command1弹出Form2窗体，则可在Command1的单击事件中，使用（）命令。A.LoadForm2B.Form2.ShowC.Form2.SetFocusD.Form2.PopupMenu20.以下属性中只在运行时起作用的为（）。A.Caption属性B.Visible属性C.BorderStyle属性D.Picture属性21.在运行时，若要使文本框获得输入焦点，可调用文本框对象的（）方法来实现。A.RefreshB.GetFocusC.SetFocusD.Tab22.在窗体中利用Print方法输出文本信息时，信息的输出位置由（）属性设置。A.LeftB.TopC.x,yD.CurrentX,CurrentY23.语句：Dimstudent(10,5to100)定义的是一个（）维数组。A.2B.3C.5D.1024.默认情况下，语句：Dimstudent(10to11,4)定义的数组有（）个元素。A.20B.22C.10D.1125.已知Eng(1)=90，Math(1)=80，Comp(1)=95Total(1)=Eng(1)+Math(1)+Comp(1)，则Total(1)=（）。A.265B.90C.80D.9526.已知在“通用”代码有以下语句：DimA()AsInteger则，在某一事件代码中使用（）是正确的。A.ReDimA(30,4)B.ReDimA(4)AsC.ReDimA(100)D.ReDimA()27.Int（-23.512）的值为（）。A.-23B.-24C.24D.2328.将ASCII码转换成字符串的函数是（）。A.Chr$B.Str$C.AscD.Val29.表达式Mid(Beijing2008,4,4)的值是（）。A.BeijB.jingC.inj2D.200830.A$=+3.14+2，则Val（A$）的值为（）。A.+3.14+2B.+5.14C.3.14D.5.14二、填空题：请把答案填在题中横线上。1.VisualBasic中有一种控件组合了文本框和列表框的特性,这种控件是_______。2.VisualBasic提供的对数据文件的三种访问方式为随机访问方式,__________和二进制访问方式。3.为了能在运行时把d:\pic文件夹下的图形a.jpg装入图片框Picture1,所使用的语句为___________。4.计时器控件能有规律的以一定时间间隔触发_______事件,并执行该事件过程中的程序代码。5.VisualBasic应用程序中标准模块文件的扩展名是____________。6.与数学表达式cos2(a+b)÷(3+x)+5对应的VisualBasic表达式是_____________.7.要同时选定窗体上的多个控件,可以按住______或_______键,然后依次单击窗体上的各控件.8.在VisualBasic中最基本的对象是__________.9.要在VisualBasic工程中添加一个新的窗体,可以在主窗口的工具栏中选择_______按钮.10.在代码窗口中,输入某行代码并按回车键之后,如果代码变成______颜色,说明该行代码有语法错误.三、程序改错：1.程序功能：已知24有8个正整数因子(即：1,2,3,4,6,8,12,24)，而24正好被其因子个数8整除。问[100,300]之间有多少个这样的数。程序中有两行有错误。改正错误，使它能输出正确的结果。PrivateSubCommand1_Click()Dimn1AsInteger,n2AsIntegerDimxAsIntegerDimiAsIntegern2=0Forx=100To300n2=0Fori=1To100IfxModi=0Thenn1=n1+1EndIfNextiIfxModn1=0Thenn2=n2+1EndIfNextxPrintn2Endsub2.程序功能：利用函数pd计算1~5000之间能被17和37整除的数的个数。程序中有错误，改正错误，使程序能输出正确的结果。PrivateSubCommand1_Click()DimiAsIntegerDimsAsIntegers=0Fori=1To5000Ifpd(i)Thens=s+1NextiPrintsEndSubPrivateFunctionpd(xAsInteger)AsBooleanIfxMod17=0OrxMod37=0Thenpd=TrueElsepd=FalseEndIfEndFuction3.程序功能：根据整型参数m，计算100-999的平方根的倒数之和。程序的函数fun()中有一行有错误，改正错误，使它能输出正确的结果。PrivateSubCommand1_Click()PrintFormat(fun(100,999),#.######)EndSubPrivateFunctionfun(mAsInteger,nAsInteger)AsSingley=0Fori=mTont=1/Sqr(i)y=y+tNextifun=tEndFunction四、程序填空题。1.士兵在演练过程中，队伍变换成10、21、35、60行时，队形都能成为矩形。问参加演练的士兵最少有多少人？PrivateSubForm_Click()Dima%,b%,c%,d%,n%a=10b=21c=35d=60n=60DoWhile________________________________n=n+1LoopPrintnEndSub2.用cos(x)≈1－x^2/2!+x^4/4!-……+(-1)^(n)*(x^(2n))/(2n)!的公式求近似值，直到最后一项绝对值小于0.00001为止。设x＝7。PrivateSubForm_click()DimxAsInteger,iAsIntegerDimxpowerAsSingleDimyAsSinglex=Val(InputBox(请输入x：))i=0z=1y=1DoWhileAbs(z)0.00001factor=1i=i+1Forj=1To2*ifactor=factor*jNextjxpower=x^(2*i)________________________________y=y+zLoopPrintformat(y,0.######)EndSub3.已知一个数列的前3项为0，0，1，从第4项开始，每项为前3项的和，编程求此数列的第39个数。PrivateSubForm_Click()Dimi%,f0&,f1&,f2&,f3&FontSize=14:FontBold=Truef0=0f1=0f2=1Fori=4to39________________f0=f1f1=f2f2=f3NextiPrintf3EndSub五、编程题：1、编写程序，验证输入的3位正整数是否为同构数。X若出现在自己的平方数的末3位，则X是同构数。如625的平方是390625，则625为同构数。2.设有如下两组数据：A:1，2，3，4，5，6，7，8,9,10B:100,99,98,97,96,95,94,93,92,91,编写一个程序，把上面两级数据分别读入两个数组中，然后把两个数组中对应的元素相加，即1+100……10＋91。并把相应的结果放入三个数组中，最后输出第3个数组的值。3.用Circle方法画圆弧和椭圆弧。如下图所示。要求：中心点相同，圆弧长度和角度随机，颜色随机，圆弧数为20。4.在图片框中用PSet方法随机地产生若干个彩色的点。窗体上有3个命令按钮：“画点”、“清除”、和“退出”。如下图所示。PSet方法：［对象名.］Pset［Step］（x,y）［，颜色］六、问答题（15分）1.简述多文档及其特性。简述对话框的分类和特点。《VB程序设计与应用》答案一、选择题：在每小题给出的四个选项中，只有一项是符合题目要求的，请把所选项前的字母填在题后的括号内。12345BABCB678910DCCCD1112131415DCAAA1617181920ACAAB2122232425CDACA2627282930CBABC二、填空题：请把答案填在题中横线上。1.组合框2.顺序访问方式3.Picture1.picture=LoadPicture(“d:\pic\a.jpg”)4.Timer5..bas6.(cos(a+b)）^2/(3*x)+57.ShiftCtrl8.窗体9.添加窗体10.红色三、程序改错题1.第七行n2=0改成n1=0第八行Fori=1To100改成Fori=1Tox2.第十一行Or改成And3.第十行fun=t改成fun=y四、程序填空题1.(a*1000+b*100+c*10+d)*e