山东理工VISUALBASIC程序设计在线考试复习题.docx

《山东理工VISUALBASIC程序设计在线考试复习题.docx》由会员分享，可在线阅读，更多相关《山东理工VISUALBASIC程序设计在线考试复习题.docx（36页珍藏版）》请在课桌文档上搜索。

1、VISUALBASlC程序设计在线考试复习题一单选题1 .关于语句IfX=ITheny=l,下列说法正确的是（）A. X=I和y=l均为赋值语句B. X=I和y=l均为关系表达式C.x=l为关系表达式，y=l为赋值语句Dx=l为赋值语句，y=l为关系表达式2 .以下选项中，不是VisualBaSiC控件的是（）。A.窗体B.定时器C.单选框D.命令按钮3 .选拔身高T超过1.7米且体重W小于62.5公斤的人，表示该条件的布尔表达式为（）。A. T=1.7AndW1.7AndW62.5C. T=62.5D. T=1.7OrW62.54 .要清除列表框中所有的列表项时，应使用（）方法。A. Rem

2、oveB. ClearC. RemoveitemD. Move5 .窗体Fornll的NamC属性是FrnIl,它的单击事件过程名是（）。A. Forml_ClickB. Form_ClickC. Frml_ClickD. Me_Click6 .设置个单选按钮（OptionButton）所代表选项的选中状态，应当在属性窗口中改变的属性是（）OA. CaptionB. NameC. TextD. Value7 .SQL语句Select*Formstudent中的*表示(A.所有记录B.所有字段C.所有表D.都不对8 .要给代码加注释，可以在注释内容前面加上()符号。A.,B.:CD.“9 .在窗

3、体上画一个名称为TXtA的文本框，然后编写如下的事件过程：PrivateSubTxta_KeyPress(keyasciiasinteger)EndSub若焦点位于文本框中，则能够触发KeyPreSS事件的操作是()。A.单击鼠标B.双击文本框C.鼠标滑过D.按键盘上的某个键10 .下列叙述中，错误的是()A.标签和文本框都有Caption属性B.标签和文本框的主要区别在于能否编辑其内容C.标签具有AUtOSiZe属性，而文本框没有D.文本框具有SCrOlIBar属性，而标签没有11 .下面程序的运行结果不同是()。A. For1=100To200Pset(100,I)NextIB. 1.in

4、e(100,100)-(100,200)C. 1.ine(100,100)-Step(0,100)D. 1.ineStep(100,100)-Step(100,200)12 .Int(Rnd*100)表示的是()范围内的一个整数。A. 0,100B. 1,99C. 0,99D. 1,10013 .如果要在文本框中键入字符时只显示某个字符如星号(*),应设置文本框的()属性。A.CaptionB. TextC. CharD. PasswordChar14 .执行下面的程序段后，a的值为（）。a=1Fori=1To12Step2a=a+iMod8NextiA. 1B. 5C. 17D. 2115

5、.设有如下语句：Strl=InputBox（输入，“，练习）从键盘上输人字符“示例”后，Strl的值是（）。A.输入B.”C.练习”D.“示例16 .在ViSUalBaSiC程序中实现复制文件“c:ConI”到d:盘根目录下的语句为（）。A. Copy,B. FiIeCopy,C. FiIeCopycxommand,dxommandD.以上都不对17 .若要设置定时器控件的定时时间，需设置的属性是（）。A. EnabledB. ValueC.IntervalD.Text18 .可决定窗体的左上角是否有控制菜单的属性是（）。A. ControIBoxB. MinButtonC. MaxButto

6、nD. BorderStyIe19 .若要求从文本框中输入密码时在文本框中只显示*号，则应用在此文本框的属性窗口中设（）。A. Text属性值为*B. Caption属性值为*C. Password属性值为D. PasswordChar属性值为*20 .语句Print”TheanSWeris:;20/4-2的结果为（）。A. Theansweris20/4-2B. Theansweris3C. Theansweris20/4-2D.非法语句21 .数学表达式Sin25写成VB表达式是（）。A. Sin（25*3.14180）B. Sin25C. Sin（25）D. Sin（25o）22 .下列

7、符号不能作为VB中变量名的是（）。A. P3ABCDEFGB.P00000C. 89YWDDFD. yz23 .下列符号中哪个是VB程序中合法的变量名（）。A. ab7B. 7abC. IfD. a*bc24 .下列不属于ViSUaIBaSiC数据文件的是（）。A.顺序文件B.随机文件C.二进制文件D.数据库文件A. .下列控件中既可用于接受用户输入文本，又可用于显示文本的是（）.B. 1.abel控件C. TextBox控件D. Timer控件E. CommandButton控件25 .语句PrintTheansweris:;20/4-2的结果为（）A. Theansweris20/4-2B

8、. Theansweris3C. Theansweris20/4-2D.非法语句27.下列（）不是ViSUal BaSiC的关键字。A. NumB. PublicC. DimD. Const28 .下列赋值语句（）是有效的。A. sum=sum-sumB. x+2=x+2C. x+y=sumD. last=y/029 .下列关于VB列表框的叙述中错误的是（）A.可通过属性Item”，返回列表框中的项目。B.可通过属性叮ext，得到当前选中的列表项的内容。C.可通过属性Listindex”返回当前选中的列表项的索引。D.可通过属性ListCount返回列表框中项目的数目。30 .下面不是VB工作

9、模式的是（）A.设计模式B.设计模式C.汇编模式D.中断模式31 .将通用对话框COnlmOnDialOg的类型设置成“颜色”对话框，可调用该对话框的（）方法。A. ShowOpenB. ShowSaveC. ShowCoIorD. ShowFont32 .以下选项中，不属于标签的属性是（）。A. EnabledB. CaptionC. DefaultD. Font33 .双击窗体中的对象后，VisualBaSiC将显示的窗口是（）。A.代码窗口B.工具箱C.项目（工程）窗口D.属性窗口34 .要求改命令按钮显示的文本，应当在属性窗口中改变的属性是（）。A. CaptionB. NameC.

10、TextD. 1.abel35 .允许在菜单项的左边设置打勾标记，下面哪种论述是正确的？（）。A.在标题项中输入&,然后打勾B.在索引项中打勾C.在有效项中打勾D.在复选项中打勾36 .窗体的hide属性的含义是（）。A.隐藏B.展现C.装入D.卸载37 .在ViSUalBaSiC中，按文件的访问方式不同，可以将文件分为（）。A.顺序文件、随机文件和二进制文件B.文本文件和数据文件C.数据文件和可执行文件D.ASCn文件和二进制文件38 .标准模块文件的扩展名是（）。A. frmB. vbpC. basD. vbg39 .SUb过程与FUnCtion过程最根本的区别是（）。A. Sub过程的过

11、程名不能返回值，而Function过程能够通过过程名返回值B. Sub过程可以使用Call语句或直接使用过程名调用，而FUnCtiOn过程不可以C. Function过程可以有参数，SUb过程不可以D.两种过程参数的传递方式不同40,下列哪个控件是容器控件（）。A. ImageB. PictureC. ComboBoxD. FiIeListBox41.在程序运行过程中，单击窗体时，以下程序的输出结果为（）。PrivateSubFormClick（）DimxX=Array(wBasicw,wPascalw,Foxprow,”Database)PrintUcase(Mid(x(2),Len(x(2

12、)-3)EndSubA.sealB.SCALC.proD.XPRO42 .表达式2*3-2+2*84+3-2的值为()。A. 64B. 31C. 49D. 4243 .执行MSgBoX”除数不能为0!”,VbEXClanlation,数据出错，在弹出的消息框中显示的图标是()A.停止图标B.问号图标C.感叹号图标D.消息图标44 .菜单控件只包括一个事件，即()，当用鼠标单击或键盘选中后按“回车”键时触发该事件，除分隔条以外的所有菜单控件都能识别该事件。A. GotFocusB. 1.oadC. ClickD. KeyDown45 .表达式Inid(abcdefg,3,2)的值是()。A. a

13、beB. cdC. bedD.abcde46 .若要将窗体从内存中卸载出去，其实现的方法是()0A. ShowB. HideC.LoadD.UnLoad47 .下列关于VB列表框的叙述中错误的是（）。A.可通过属性Item”,返回列表框中的项目。B.可通过属性WTeXt，得到当前选中的列表项的内容。C.可通过属性Listindex返回当前选中的列表项的索引。D.可通过属性ListCount”返回列表框中项目的数目。48.在窗体上放置一个文本框，程序运行后，在文本框中输入abc,但显示的却是*,可能的原因是该文本框的（）属性值已经被设置为*A.FontB.TextC.NameD.Password

14、Char二多选题49 .下列对象能响应CIiCk事件的是（）。A.列表框B.图片框C.窗体D.计时器50 .以下选项中，属于VisualBaSiC控件的是（）。A.窗体B.定时器C.单选框D.命令按钮51 .不能改变夏选框中背景颜色的属性是（）。A. ValueB. FontCoIorC. BackCoIorD. Font52 .窗体不能响应的事件是（）。A. ActiveFormB. 1.oadC. DriveD. Change三判断题53 .除框架外，标签是能对单选按纽分组的控件（）54 .SUm和int.sum都可以作为VB的变量名。（）55 .在ViSaUIBaSiC中，常量分为直接常

15、量和符号常量两种。（）56 .三种方式的组合框都允许用户输入那些不在列表框中的选项。（）57 .代码COnStNUmberl=15：NUmberl=IO是正确的。（）58 .Private过程可以被本工程中的所有其它过程调用。（）59 .定义数组语句Dima（b）AsInteger是错误的。（）60 .通过改变属性窗口中的Name属性，来改变窗体的标题。（）61 .工程文件的扩展名是.vbg。（）62 .在过程调用中，“实参表”和“形参表”中对应的参数个数必须相等，实参的类型不必与相应形参的类型相符。（）63 .在VB中，对象的事件可以通过用户的操作触发。（）64 .文本框控件中没有Capti

16、on属性。（）65 .要是某个命令按钮不起作用，应将该按钮的Enabeld属性设置为False。（）66 .VisaulBaSie中，当一个工程含有多个窗体时，默认的启动窗体是最后一个添加的窗体。（）67 .代码ConstNumberl=15：Numberl=IO合法。（）68 .在ViSaUlBaSiC中，一个工程可以有多个窗体模块。（）69 .如果在一行中输入多条语句，各语句之间使用分号；分隔。（）70 .变量是指在程序运行过程中其值可以改变的那些量，而值不能改变的是常量。（）四填空题),而 FUnCtiOn 过程）属性为TrUe来实现。71 .SUb过程与FUnCtion过程最根本的区别

17、是SUb过程（）O72 .VB6共有三个版本,按功能从弱到强的顺序排列应是（73 .写出整数n能同时被3和7整除的表达式_（74 .要使标签的大小自动与所显示的文本相适应，可以通过设置（75 .能响应CIiCk事件的对象有列表框、（）、（）。76 .选拔身高T超过L7米且体重W小于62.5公斤的人，表示该条件的布尔表达式为（）。77 .设置窗体的绘图方式是否在Paint事件中重绘整个窗体内容利用（）属性。78 .将数学表达式a2+2ab+b2转换为VB表达式，应写成（）。79 .若要求从文本框中输入密码时在文本框中只显示*号，则应用在此文本框的属性窗口中设置（）O80 .确定一个控件在窗体上的

18、位置的属性是（）和（）。81 .浮点类型数据包括单精度型和（）数据。82 .VB提供了结构化程序设计的三种基本结构，三种基本结构是（）、（）、顺序结构。83 .表达式2*3.2+2*84+3,2的值为（）。84 .在VB中，修改窗体的（）和（）属性值，可改变窗体的大小。85 .日期表达式#2/24/02#-#2/12/02#的值为（）O86 .为了把焦点移到某个指定的控件，所使用的方法是（）O87 .将通用对话框ConlmonDialOg的类型设置成“颜色”对话框，可调用该对话框的（）方法。88 .在ViSUalBaSiC程序中实现复制文件c:”到d:盘根目录下的语句为（）O89 .用来返回或

19、设置图片控件中显示的图形的属性是（）。90 .若要在一行书写多条语句，则各语句之间应使用（）相分隔。91 .在VB中，数值型变量的初值为（），布尔型变量的初值为（）。92 .VisualBaSiC应用程序的运行是从（）开始执行。93 .控件中可以改变大小的有PiCtUreBox、（）、（）。94 .PiCtUreBoX控件可通过设置其()属性为TrUe使之可自动调整大小。95 .数学表达式Sin25写成VB表达式是()。96 .已知a=3,b=4,c=5,表达式abandNotcaOrcbAndc0Then运行结果为：=y-3日Sey=+3EndIfPrintx,y105 .DimA(IO)运

20、行结果为：Fork=1To10A(k)=kNextkPrintA(2)+A(4)+A(6)运行结果为:106 .2、Forx=-lTo1Step2SelectCase+2Print,y=;2+lzCase 2Printy=；x-4,Case 3Printy=;3+100,EndSelectNextx107 .Subproc1(x,y,z)单击命令按钮COmmandl后的运行结果为:x=x+3:y=yMod10:z=x+y+zEndSubPrivateSubCommand1_C1ick()x=1:y=31:z=40Callprocl(x,y,z)Printx;y;ZEndSub108 .X=5:

21、Y=-20运行结果为：IfNotx0Thenx=y-3Elsey=x+3Printx-y,y-xEndIf109 .PrivateSubForm_Click()运行结果为：SUM=0DoWhilek=60Print”及格”Case 16 =75Print”良好,Case 17 =90Print”优秀”CaseElsePrint”不及格”EndSelect111 .x=InputBox(,enterx:)X的输入值为-8,则结果为:SelectCaseSgn(x)+2Case 1Printy=;xA2+lCase 2Print,y=j-4Case 3Print,y=;x3+100EndSelec

22、t六编程题113 .利用随机函数生成一个4X4的矩阵（即二维矩阵），范围是20,50内的整数,输出该矩阵所有数据之和。114 .随机产生一个三位正整数，然后逆序输出，产生的数与逆序数同时显示。例如，产生246,输出是642。115 .输入一年份，判断它是否为闰年，并显示有关信息。（判断闰年的条件是：年份能被4整除但不能被100整除，或者能被400整除）。116 .编程求200400范围内5的倍数或7的倍数之和。（一个数如果同时是7和5的倍数，则只能加一次）。117 .随机产生10个30,100内的整数，求最小值及所对应的下标。118 .写程序实现如下功能：单击屏幕时产生10个0,99之间的随机

23、整数并显示在屏幕上，求出其中的最大数并显示在屏幕上。119 .写程序实现如下功能：单击屏幕时产生10个0,99之间的随机整数并显示在屏幕上，求出其中的最小数并显示在屏幕上。120 .分别统计ITOO中，满足3的倍数、7的倍数的数各有多少。121 .编写程序：给出一个数字形式的星期几，要求输出对应的英文。数字在文本框1中输入，英文在文本框2中显示，设计及运行界面如下两图所示，请写出转换按钮的单击事件代码。n星期几的转换X数字:Sunday英文:122 .有一元二次方程：aX2+bX+c=0,依次输入a,b,c,判断此方程是否有实根。123 .某次歌曲大奖赛，有7个评委。如果分别输入7个评委对某个

24、参赛者的打分数，按照去掉一个最高分和一个最低分的计算办法，求出该参赛者的平均得分。124 .编写程序：给出一个百分制的成绩，要求输出成绩的相应等级。转换规则为：90分以上为“A”,8089分为“B”，7079分为iiCfr,6069分为“D”，60分以下为iiEffo分数在文本框1中输入，等级在文本框2中显示，设计及运行界面如下两图所示，请写出转换按钮的单击事件代码。125 .工程的运行界面如右图所示，设三个文本框的Name属性值依次是Texll、Texl2和TeXI3。要求根据TeXtI中输入的数字，在Text2和Text3中显示相应的输出结果。请写出命令按钮控件判断的CliCk事件代码。T

25、extl1234567Text2二三四五六0ext3英语数学语文自然画图体育休息126 .输入学生的百分制成绩，转换输出为五级制成绩，90100分转换为优秀，8089转换为良好，7079转换为中等，6069转换为及格，060转换为不及格。127 .设在窗体FOrml上有一个命令按钮Command1。要求单击Commandl时，产生20个0,99之间的随机整数，并显示到窗体上；然后按从小到大的顺序排序，并显示到窗体上。128 .随机产生10个1100之间的正整数并保存在数组中，在屏幕上显示产生的数，计算并输出其中的最大值、最小值、平均值。129 .输入3个数，编程输出最大的数。参考答案一单选题1

26、 .答案：C2 .答案：A3 .答案：B4 .答案：B5 .答案：C6 .答案：D7 .答案：B8 .答案：C9 .答案：D10 .答案：A11 .答案：D12 .答案：C13 .答案:D14 .答案：B15 .答案：D16 .答案：B17 .答案：C18 .答案：A19 .答案：D20 .答案:B21 .答案：A22 .答案：C23 .答案：A24 .答案：D25 .答案：B26 .答案：B27 .答案：A28 .答案：A29 .答案：A30 .答案：C31 .答案：C32 .答案:C33 .答案：A34 .答案：A35 .答案：D36 .答案：A37 .答案：A38 .答案：C39 .答案

27、：A40 .答案：B41 .答案：D42 .答案：B43 .答案：C44 .答案：C45 .答案：B46 .答案：D47 .答案：A48 .答案：D二多选题49 .答案：A,B,C50 .答案：B,C,D51 .答案：,B,D52 .答案：A,C,D三判断题53 .答案：错54 .答案：错55 .答案：对56 .答案：错57 .答案：错58 .答案：错59 .答案：对60 .答案：对61 .答案：对62 .答案：错63 .答案：对64 .答案：对65 .答案：对66 .答案：错67 .答案：错68 .答案：对69 .答案：错70 .答案：对四填空题71 .答案：过程名不能返回值能够通过过程名返

28、回值72 .答案：学习版,专业版和企业版73 .答案：nMod3=0AndnMod7=074 .答案：AutoSize75 .答案：图片框窗体76 .答案：T1.7AndW62.577 .答案：AutoRedraw78 .答案：a*a+2*a*b+b*b或者a2+2*a*b+b279 .答案：PassworclChar属性值为*80 .答案：Left、Top81 .答案：双精度82 .答案：选择结构、循环结构83 .答案：3184 .答案：高度(Height)宽度(Width)85 .答案：1286 .答案：SetFocus87 .答案：ShowColor88 .答案：FileCopyc:,r

29、d89 .答案：Picture90 .答案：冒号(：)91 .答案：0False92 .答案：建立的窗体模块93 .答案：TeXtBoXLabel94 .答案：AutoSize95 .答案：Sin(25*3.14/180)96 .答案：TrueFalse97 .答案：SetFocus98 .答案：6五综合题99 .答案：aaabbbddd100.答案：1697101.答案：1012102.答案：2103.答案：1、234104.答案：20161284105.答案：58106.答案：12107.答案：y=2y=101108.答案：4145109.答案：-33110.答案：55111.答案：及格1

30、12.答案：y=65六编程题113 .答案：PrivateSubCommandlClickODima%(4,5),sumFori=1To4Forj=ITo4a(ij)=IntfRnd*31)+20Printa(i,j);sum=sum+a(izj)NextjPrint换行NextiPrintsum=;sumEndSub114 .答案：PrivateSubCommandl_Click()Dimx%zxl%z2%z3%=Textl1=xMod102=(xMod100)103=x1001.abell=1*100+2*10+3EndSub115 .答案：PrivateSubCommandlClickO

31、Dimy%y=InputBoxC请输入年份”)IfyMod4=0AndyMod1000OryMod400=0ThenVal(MSgBOx(“闰年！”)日SeVal(MSgBOx(“平年！”)EndIfEndSub116 .答案：PrivateSubCommandl_Click()Fori=200To400IfiMod5=OOriMod7=0ThenSum=Sum+iEndIfNextiFori=200To400IfiMod5=0AndiMod7=0ThenSum=Sum-iEndIfNextiPrint“倍数之和=;SumEndSub117 .答窠：PrivateSubCommandlClic

32、kODima(lTo10),mRandomizeForI=1To10a(l)=IntfRnd*71)+30Printa(l)NextIMin=a(l)ForI=2To10Ifa(l)MaxThenMax=a(i)EndIfNextPrintMax=&Max119 .答案：Dima(lTo10)AsIntegerRandomizeFori=1To10a(i)=Int(Rnd*100)Printa(i)Nextmin=a(l)Fori=2To10Ifa(i)=0Then1.abel4=方程有根”日Se1.abel4=方程无根”EndIfEndSub123 .答窠：PrivateSubCommand

33、lClickODimmax,a(lTo7),min,sFori=1To7a(i)=VaI(InPUtBOX(U输入第“&i&”个数,)Nextimax=a(l)min=a(l)S=aIfa(i)maxThenmax=a(i)Ifa(i)=9()Text2.Text=,A,CaseIs=80Text2.Text=,BCaseIs=70Text2.Text=,CCaseIs=60Text2.Texl=,DCaseElseText2.Text=EEndSelect125.答案：PrivateSubCommandl_Click()DimaAsIntegera=Val(TextLText)SelectC

34、aseaText2.Text=一Text3.Text=英语”Case 1Text2.Text=二Text3.Text=数学”Case 2Text2.Text=三Text3.Text=语文”Case 3Text2.Text二四Text3.Text=自然”Case 4Text2.Text=五TexBText=画图”Case 5Text2.Text=AText3.Text=体育”Case 6Text2.Text=,0nText3.Text=休息EndSelectEndSub126 .答案：PrivateSubCommandlClickOa=Val(InPUtBOx(”请输入成绩”)lfa100The

35、nPrint”超出范围”Ifa=90Anda=80Anda=70Anda=60Anda70ThenPrint及格Ifaa(j)Thent=a(i):a(i)=a(j):a(j)=tEndIfNextjNextiFori=1To20Printa(i);NextiEndSub128 .答案：PrivateSubCommand1ClickOFori=1To10a(i)=lnt(Rnd*101)+1Printa(i)NextiMax=a(l)Min=a(l)Avg=a(l)Fori=2To10Ifa(i)MaxThenMax=a(i)Ifa(i)maxThenmax=nEndIfNextPrint三个数中最大的数是；maxEndSub