VB期末练习题库.pdf

《VB期末练习题库.pdf》由会员分享，可在线阅读，更多相关《VB期末练习题库.pdf（197页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、1.参与运算的两个表达式均为True,运算结果也为True,则该逻辑运算符为:C.AND2.为了能在列表框中利用Ctrl和Shift键进行多个列表项的选择，则应将列表框的Multiselect属性设置为().C.23.要使标签能够显示所需要的东西很在程序中应设置其哪一属性的值().D.Caption4.能够获得一个文本框中被选取文本的内容的属性是().C.SelText5.任何控件都具有的属性是().B.NAME6.为了使列表框中的项目按字母顺序排列，应设置哪个属性？B.Sorted7.在窗体上画一个名称为Commandl的命令按钮，然后编写如下事件过程：Private Sub Command

2、l_Click()Static x As IntegerCisy=y+2x=x+2Print x,yEnd Sub程序运行后,连续四次单击Commandl按钮后，窗体上显示的是B.828.货 币 型 辘 需()字节.A.89.执行以下程序段后，变量c的值为()a=Visual Basic Programing:b=Quickc=b&UCase(Mid(a,7,6)&Right(a,ll)D.Quick BASIC Programing10.要强制显示声明变量，可在窗体模块或标准模块的声明段中加入语句().C.OptionExplicit11.下列对象不具有KeyPress事件的是D标签12.菜

3、单能够响应的事件是A.CI 汰13.在Visual Basic中，松开鼠标键触发的事件是B.Mousellp14.将图片框的 属性设置成True时，可使图片框根据图片调整大小。A.AutoSize15.当Stretch属性值为False时,。C.影像框的大小随图片大小进行调整16.在窗体上画出一个命令按钮，然后编写如下程序：Function Func(m As Integer,n As Integer)As IntegerFunc=IIf(m 2=0Factor=Factor+1学生答案：Dim n As Integer,Factor As IntegerDim First As Boolea

4、nDon=InputBox（请输入一个大于2的整数）If n 2Factor=2First=TrueDoDo While n Mod Factor?0If First ThenTextl.Text=Str(n)+Space +=n+Str(Factor)First=False日seTextl.Text=Textl.Text+Space(l)+Str(Factor)End Ifn=n/FactorLoop1?Factor=Factor+1Loop Until Factor n【控件属性评分】错误【控件】VB.CommandButton_Cmdl标准答案：Caption=产生可变正方形图案学生答案

5、:Caption=Cmdl【控件属性评分】错误【控件】VB.CommandButton_Cmdl标准答案：Left=300学生答案：Left=120【事件评分】错误【事件】Private Sub Cmdl_Click()标准答案：ka(i,j)；Print学生答案：Dim a()n=InputBox(请输入控制正方形图案层数的可变数”)ReDim a(n,n)For k=1 To(n+1)2For i=kT o n-k+lFor j=?k lo n-k+1a(i,j)=?kNext jNext iNext kFor i=1 To nFor j=1 To n,Print Tab（j*3）;?a（

6、lz j）Next j1?Print iNext1.除了系统默认的工具箱布局外，在VisualBasic中还可以通过（）方法来定义选项卡组织安排控件。A.在工具箱单击鼠标右键执行快捷菜单中的 添加选项卡命令2.（）属性决定了按Tab键时焦点在各个控件之间移动的顺序。C.Tablndex3.简单组合框的style值 为（）。B.14.下面4项中合法的变量名是（）.A.X_yz5.在下面关于窗体的叙述中，错误的是（）。D.每当窗体需要重画时，肯定会触发Paint事件6.组合框有三种风格，它们由Style属性所决定，其中为下拉列表框时,Style属性值应为（）。C.27.要分配存放如下方阵的数据：1

7、.1 2.2 3.34.4 5.5 6.67.7 8.8 9.9数组声明语句能实现（不能浪费空间）的是A.Dim a（-1 To 1,-5 To-3）As Single8.设a:6,则执行x=Uf（a5,-l,0）后,x 的值为（）。D.-l9.下面关于顺序文件的描述正确的是（）.D.记录按进入的先后J II页序存放，读出也是按原写入的先后顺序读10.不能正确表示条件.两个整型变量A和B之一为0,但不能同时为0的布尔表达式（）.D.A*B=0AND(A=0ORB=0)11.输入对话框(InputBox)的 返 回 值 的 类 型 是 C.字符串12将(：(皿。门)21。9通用对话框以“打开文件

8、对话框方式打开，可选 方法。B.ShowOpen13.在窗体上画一个名称为Textl的文本框，然后编写如下事件过程：Private Sub Textl_KeyPress(KeyAscii As Integer)Dim char As StringKeyAscii=KeyAscii+1char=Chr(KeyAscii)KeyAscii=Asc(UCase(char)Textl.Text=String(4,KeyAscii)End Sub程序运行后，在文本框中输入字母b,则文本框显示的内容是C.CCCCC14.BorderStyle属性 是 用 来 表 示 线 条 的.B线形15.RGB函数中的

9、3个数字分别表示 oB.红、绿、蓝16.有一如下过程：Sub fact(n As Integer,result As Long)result=1For i=1 To nresult=result*iNext iEnd Sub在窗体上画一个名称为Command1的命令按钮，并编写如下事件过程：Private Sub Commandl_Click()Dim res As Longfact 5,resPrint resEnd Sub程序运行后，单击命令按钮，则 输 出 的 结 果 是.A.12017.有如下程序:Sub MySub(ParamArray a()s=1For Each x In as=

10、s+xNext xPrint sEnd SubPrivate Sub Commandl_Click()MySub 2,3,6,18End Sub程序运行后,单击命令按钮，则 输 出 的 结 果 是.A.3018.定义一个如下的过程：Sub Sum(x As Integer,y As Integer,z As Integer)Print x+y+zEnd Sub下列调用方式与Call Sum(3,4,5)语句不等 价的是.A.Sum y:=3,x:=4,z:=519.执行语句Write#1,234;-34.56,-hello;Date后，相 应 文 件 内 被 写 入.D.234,-34.56,

11、hello,#2001-08-03#2O.Visual Basic的过程有三种，它们是.B.事件过程、函数过程和子程序过程【程序 削】题 目：编写函数fun其功能是：根据整型形参m,计算如下公式的值：y=l/2+1/4+1/6+.+l/2m例如:若m=9,则应输出：1.41448412698413【参考代码】Dim y As DoubleDim i As IntegerFor i=1 To my=y+1/(2*i)Nextfun=y*林*工*01型解图嚼静撤瞌翻枷荐金时，将文件保存至考生文件夹下，且窗体文件名为s jtl.f r m 工程文件名为sjtl.vbp*林*4*名标在.在的只示注时名

12、S存文1,解中rm编F0谓电为.体求ff显过可变一翟在量BJ1篇语画不羹尸位一打时标写只尊限中i-s堡显过名看名任挫个下身瞽标为也。n,所be槐困La焉,将文件保存至考生文件夹下，且窗体文件名为s j t Z f r m,工程为cjt2.vbp。【控件属性评分】错误【控 彳 牛】VB.Label_Labell标准答案：Name=Labell学生 答 案：Name=【控件属性评分】错误【控件】VB.Label_Labell标准 答 案：BorderStyle=l Fixed Single学生 答 案：Borderstyle=【控件属性评分】错误【控件】VB.LabeLLabell标 准 答案:C

13、叩tion二VB程序学生答案：Caption=【控件属性评分】错误【控件】VB.LabeLLabell标准答案：（:叩tion二程序设计学生 答 案：Caption=【控件属性评分】错误【控件】VB.LabeLLabell标 准 答 案：C叩tion二等级考试学生 答 案：Caption：【控件属性评分】错误【控件】VB.LabeLLabell标准 答 案：Name=Labell学生 答 案：Name=【窗体属性评分】正确【窗体】sjt2.frm标 准 答案：Name=Forml学生 答 案：Name=Forml【窗体属性评分】错误【窗体】sjt2.frm标准答案：Caption;显示鼠标的横

14、坐标学生 答 案：C叩tion=Forml【事件评分】错误【事件】Private Sub Form_MouseMove(Button As Integer,Shift As Integer,X As Single,Y As Single)标准答案：Labell.Caption=X学生答案：)1C主Ad框当入项的看个编盘“。个你一。楝一糅一名类.然1妣框匕项由令.，表体单一如命4窗皆，”个从在rwnn三其*赊|1项于将,两卿ex加少，.VI它和於“，项t3，”贸治的件em项屉聿娜文It加臃如量售添,工称“个名为名整件元文充体补封匕的把应清相，1整标完,vk不t3序轴件个文这有”分不售能注下目下功

15、的夹项标st。表则图至中.件“Li蜀，如件上f f次为te为过到令况文现程生项le殍加养生笑3De名囊”在需1的要目运在可要frm个数整.f四使完t4在可不J*1aj文岑。15.)窗。击示的序需应曹2I升，如.V组至M需出.前1示。件rt图显行文so如中运碗正个瞿文能一训个在并豆一并，下作，整夹iwgHh完羹文功簧椎升它使件文考，本至一鲁2)图 2别1.盘一4-1。图 2 搂2y【事件评分】错误【事件Private Sub Add_ClickO标 准 答 案：Textl.Text学生答案：【事件评分】错误【事件】Private Sub Delete_Click()标准答案:ListllistC

16、ount-1Textl.Texti学生答 案：【控件属性评分】错误【控件】VB.ListBox.Listl标准 答 案：Name=Listl学生 答 案：Name=【控件属性评分】错误【控件】VB.TextBox.Textl标准 答 案：Name=Textl学生 答 案：Name=【控件属性评分】错误【控件】VB.MenuJtem标准 答 案：Name=Item学生 答 案：Name=【控件属性评分】错误【控件】VB.MenuJtem标准 答 案：C叩tion二 项目学生 答 案：Caption=【控件属性评分】错误【控件】VB.Menu_Add标准 答 案：Name=Add学生 答 案：Na

17、me=【控件属性评分】错误【控件】VB.Menu_Add标准答案：(:叩血廿添加项目学生 答 案：Caption=【控件属性评分】错误【控件】VB.Menu_Delete标准 答 案：Name=Delete学生 答 案：Name=【控件属性评分】错误【控件】VB.Menu_Delete标准答案：C叩节。班删除项目学生答案：Caption=下列不能打开属性窗口的操作是().D.按Ctrl+T设有如下程序：Private Sub Command1_C1i ck()Dim sum As Double,x As Doublesum 二 0n=0For i=1 To 5x=n/in=n+1sum=sum

18、+xNextEnd Sub该程序通过For循环计算一个表达式的值,这个表达式是B.1/2+2/3+3/4+4/5下面4项中不属于面向对象系统三要素的是().A.变量在下列说法中，正确的是D.框架也有Click和DbICIick事件以下程序输出的结果是：Private Sub Form_Activate()Dim aa=Array(1,2,3,4,5)For i=Lbound(A)To Ubound(A)A(i)=i*a(i)Next iPrint i,Lbound(A),Ubound(A),a(i)End SubA.程序出错每个窗体对应一个窗体文件,窗体文件的扩展名是().A.frmVB的过程

19、有三种,它们是().C.事件过程、子过程和函数过程指令C ircle(1000,1000),500,8,-6,-3”将绘制 B.扇形标签的()属性设置为True时,标签控件的大小随标题文字自动调整.C.AutoSizeVB提供了结构化程序设计的3种基本结构,这3种基本结构是A.选择结构，循环结构，顺序结构将CommonDialog通用对话框以“打开文件对话框”方式打开，可选 方法。B.ShowOpen用户可以通过设置菜单项的 属性值为False来使该菜单项失效。D.Enabled要 动 态 显 示 鼠 标 光 标 的 当 前 位 置，最 好 用 来 实 现 这 种 功 能 的 鼠 标 事 件

20、是A.MouseMoveRGB函数中的3个 数 字 分 别 表 示。B.红、绿、蓝对象的边框类型由属性 设置。A.BorderStyle如果在定义Sub过程时没有使用Private、Public和Static关键字，则所定义的过程是.B.公有的下列函数不能实现一个自然数N的阶乘的是.Function f(n As Integer*A_定义一个如下的过程：Sub Sum(x As Integer,y As Integer,z As Integer)Print x+y+zEnd Sub下列调用方式与Call Sum(3,4,5)语句不等价的是.A.Sum y:=3,x:=4,z:=5下列 方法或函

21、数可以调用外部的可执行文件。A.Shell执行语句Print#1,234;-34.56,hello;Date”后，相 应 的 文 件 内 被 写 入。C.234-34.56 hello01-08-03【程序设计】题目：(事件)单击窗体。(响应)已知sum=lT/4+l/9T/16+l/25.一 T/100,请将sum结果值输出到窗体上。使用for.next语句完成程序【参 考 代 码】Dim i As Integerfor i=1 to 10sum=sum+(-1)A(i-1)/(i*i)nextPrint sum*通根超以下各小题的署丕谀计Visual Basic应 用 程 厅 口 指 境名

22、舜为For向南畚底上画1个名整为Labell的 标 签 嫄，下标从。开 藏 外 观 如 图 所 等 标 密 上 的 因 容（技下标喔序）级考试”，耀 序 也 计 ，VB椁序。成行后品窗?本如图函示。下标.里翠耀啤注章.荐我时，将文件保存至考生文件夹下，且窗体文件名为s jt l.f r m,工程文件名为s jtl.vbp*林*H，所be糙图La裔为鼠。莺标名任坐。个下身E1篇语直不基匕，位一计时标写)匕匕拯董中坐运一露空显过的得上件两签事曲乐一款在毫显过可变就算用页J事，侵敏不F O请电为。体求梦窗要程f rm,保bp件.V文t2将SJ，为.盘件名标在。意存文在的只示注2）显示鼠标的横坐标【控

23、件属性评分】错误【控件】VB.Label_Labell标准答案：Name=Labell学生答案：Name=【控件属性评分】错误【控件】VB.Label_Labell标准答案：BorderStyle=l Fixed Single学生答案：BorderStyle=【控件属性评分】错误【控件】VB.Label_Labell标准答案：Caption=VB程序学生答案：Caption=【控件属性评分】错误【控件】VB.Label_Labell标准答案：Capti。n=程序设计学生答案：Caption=【控件属性评分】错误【控件】VB.Label_Labell标准答案：Caption二等级考试学生答案：C

24、aption=【控件属性评分】错误【控件】VB.Label_Labell标准答案：Name=Labell学生答案：Name=【窗体属性评分】正确【窗体】sjt2.frm标准答案：Name=Forml学生答案：Name=Forml【窗体属性评分】错误【窗体】时2.frm标准答案：(:叩tion二显示鼠标的横坐标学生答案：C叩tion二Forml【事件评分】错误【事件】Private Sub Form_MouseMove(Button As Integer,Shift As Integer,X AsSingle,Y As Single)标准答案：Labell.Caption 二 X学生答案：1”不

25、后的钮目图目，按项如项意，程选除，加任钮。单删除个“tl“内选删两和ex:o-画“折选目”框上目初果项目表-anr-3 J体项密如的项列，加除从在添框后添删其请“林行要“将，为讣运入择，bp题目.V&程上果项t3题L。盘如的.，除件，m从中删文n2st件则框要程ioLi事，穴工pt为k体列输个O0称ic哥上t3序.S件个文这。蕾一m名C1击加盘示工。有onl的单能下ti蕊后女2下功夹用氯，则图蠢将列写，如件上文别个编钮个体况文现中。用刀，其您释中IO中改生分一。技三目生实_考称，示选喜行慎番但.亲在名单运在可要图2“图“f程命，M。击示为文后2名该然图件入，如文装体请一篥窗，所出。的序1示行应

26、排图显运翼如：I降1框正饕数本能.V组整文并的数个在，露一塞件IX，完文so*充.各第工过&【程序设计】题目：(事件)单击窗体。(响应)已知sum=1-1/4+1/9-1/16+1/25.T/100,请将sum结果值输出到窗体上。使用fo r.next语句完成程序【参考代码】Dim i As Integerfor i=1 to 10sum=sum+(-1)A(i-1)/(i*i)nextPrint sum通根酗下各小题的襄圣设计Visual Basic应用程厅（包有身%）%名部为Fum i南畲底上画1个名称为Labell的 标 签 麴宠 鳖 如 开 崛 修 惚 附 图 瀛 雷 鎏 图 裔 W匐

27、 酒2级 考 试，程序设计，VB程 序 运行后的窗体如图H界面和代码）o2,含3个标/控电题序）分别是：”辫注章.荐我时，将文件保存至考生文件夹下，且窗体文件名为s jt l.f r m,工程文件名为s jtl.vbp。f名标在。意存文在的只示注2)梦窗要为。体求ro清点，为.盘件的得上件整签事鼠标，一露在量显过可变鼠事，使金鼠不尊鼠中瞿显过匕，位一上时标写E1篇语名任坐。个下身H，所be键图La裔为鼠。榕标将文件保存至考生文件夹下，且窗体文件名为s jt2.frm,工程sjt2.vbp。【控件属性评分】错误【控件】VB.Label_Labell标准答案：Name=Labell学生答案：Nam

28、e=【控件属性评分】错误【控件】VB.Label_Labell标准答案：BorderStyle=l Fixed Single学生答案：BorderStyle=【控件属性评分】错误【控件】VB.Label_Labell标准答案：Caption=VB程序学生答案：Caption=【控件属性评分】错误【控件】VB.Label_Labell标准答案：Caption/呈 序设计学生答案：Caption=【控件属性评分】错误【控件】VB.Label_Labell标准答案：Caption=级考试学生答案：Caption=【控件属性评分】错误【控件】VB.Label_Labell标准答案：Name=Label

29、l学生答案：Name=【窗体属性评分】正确【窗体】#2.frm标准答案：Name=Forml学生答案：Name=Forml【窗体属性评分】错误【窗体】sjt2.frm标准答案：Caption=显示鼠标的横坐标学生答案：C叩tion=Forml【事件评分】错误【事件】Private Sub Form_MouseMove(Button As Integer,Shift As Integer,X AsSingle,Y As Single)标准答案：Labell.Caption=X学生答案：I“1”不后的钮目图目按项如项意，程选赊，加任钮。单删除个“tl“内选删两和ex等野划漕”雁上目劭果项目表-T4

30、1-3J体项臼如的项列，加除从在添恒后添删其请“腕行要“将，为办运入择，bp.15t目.V夕程上果项t3题P-。盘如的力标除件，目从中删文n2st件则把要程ioLi事，炎工pt为k体列输I整bp完.V不t3序件个文这个Do称ic哥上OS-林名cl击加盘示工。有ml的单富方能下ti聋后女2下功夹蜃，则图蚕等列写，如件上文别个编钮个体况文现I生分一。按三WE生实：掉不考称，示选喜行言番但在名单运在可要1X2图r:d.f程命，t4。击示为文后2名该然图口，如文体请一来窗，所出。的序工不行应排图显运述名图翼如果正把降c函数 U case (M i d (vi sual basi c”,8,8)的值为(

31、).D.BASIC为了在运行时能显示窗体左上角的控制框(系统菜单)，必须().B.把窗体的ControlBox属性设置为True,并且把BoderStyle属性设置为1-5已知有数组声明:D i m a(-l T o 3,2 T o 5)A s i n te g er,如下引用数组中的元素，正确的是B.a(-lz2)在窗体上画一个名称为C o m m an dl的按钮，并有下面程序，当按下C o m m an dl按钮后，程序输出的结果是P r i vat e S u b C o m m an dl C l i ck()D i m a%,b%a=50:b=100P r i n t 调 用 前

32、，A=；a,B=；bS w ap a,bP r i n t 调用 后 ，A=；a,B=；bEn d S u bP r i vat e S u b S w ap(B y V ai x%,y%)D i m t%t =x:x =y:y =tEn d S u bB.调用前 A=50 B=100调用后A=50 B=50在窗体上添加一个命令按钮，编写如下代码：O p t i o n B as e 1P r i vat e S u b C o m m an d1_C l i ckD i m aA二Ar r ay (1,2,3,4)J=1F o r i=4 T o l S t ep -1S=s+a(i)*jJ

33、=j*10N ex t iP r i n t sEn d S u b程序运行后，单击命令按钮，输出结果是B.1234要使F o r m l窗体的标题栏显示欢迎使用V B，以下语句正确的是0.B.Forml.Caption 二 欢迎使用 VB”用户可以通过设置菜单项的 属性值为False来使该菜单项失效。0.Enabled用户可以通过设置菜单项的 属性值为False来使该菜单项不可见。A.Visible有如下事件过程：Private Sub Form_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single)If B

34、utton=2 ThenPrint HMouseDownMEnd IfEnd SubPrivate Sub Form_MouseUp(Button As Integer,Shift As Integer,X As Single,Y As Single)Print MouseUp1End Sub程序运行后，如果在窗体上单击鼠标右键，则输出的结果是MouseDownMouseUpBorderStyle属 性 是 用 来 表 示 线 条 的。B.线形RGB函数中的3个 数 字 分 别 表 示。B.红、绿、蓝定义一个如下的过程：Sub Sum(x As Integer,y As Integer,z A

35、s Integer)Print x+y+zEnd Sub下列调用方式与Call Sum(3,4,5)语句不等价的是.A.Sum y:=3,x：=4,z:=5Visual Basic的过程有三种，它们是.C.事件过程、函数过程和子程序过程关键字ListBox代 表 的 控 件 类 型 是.D.列表框下 列 可 以 作 过 程 名 的 是.D.Subl定义一个如下的过程：Sub Sum(x As Integer,y As Integer,z As Integer)Print x+y+zEnd Sub下列调用方式与Call Sum(3,4,5)语句不等价的是.C.Sum y:=3,x:=4,z:=5

36、【程序设计】题目：编写函数f u n,函数的功能是：求11000以内能 同时被m、n整除的数的总和并显示。如：m为15,n为11时，显示 3465 存储总和的变量必须为S u m 要求使用F o r语句来实现。注意：请在指定的事件内编写代码 代码只能写在两行标识之间 不得修改已有代码 保存时不得修改窗体和工程文件的名称及路径，否则后果自负。【参考代码】Sum=0For i=1 To 1000If i Mod m=0 And i Mod n=0 ThenSum=Sum+iEnd IfNext ifun 二 Sums u al B as i c应.九5黎惠嘉鬻臂的窗体上画二不名称为所.随轴毓揶道施

37、魁娥黑黜嶙簸;次动框移赴10个劾氤售在酒动茶下面画两个名称分别为Ll、L2防标密,并分别显示1、100,运行时的窗体如图所示。*任荐信时必须存放在考生文件夹下，工程文件名为s j t l.vbp,窗体文件名为s j t l.f r m。均，哥，如条，Ml“复项体一t2为为“皆写ex称别击造禽能叮名分单时只以，题，除行中xt”标3籍Te作，行“。过为操ar运击别“le在分为DC得，符个称题不使史子每名标Py，t2空，单co程ex入量框和房过如留本，别件修中何文臭刀事蛇t2任个造时ex用两拉名当横田使画下，适训味得上个项r窗立菜请xt够序的建个，Te鳖J 吧底01再两”把理m.，有除则若求FO容含

38、清，xt要为电“项Te。驷单、置示必t2时SJ.盘为名初菜”菜！在无此制”则曹唱（2）*意存名中【控件属性评分】错误【控件】VB.HScrollBar.Hl标准答案:Name=Hl学生答案：Name=【控件属性评分】错误【控件】VB.HScrollBar.Hl标准答案：LargeChange=10学生答案:LargeChange=【控件属性评分】错误【控件】VB.HScrollBar_Hl标准答案：Max=100学生答案：Max=【控件属性评分】错误【控件】VB.HScrollBar_Hl标准答案：Min=l学生答案：Min=【控件属性评分】错误【控件】VB.LabeLLl标准答案：Name=

39、Ll学生答案：Name=【控件属性评分】错误【控件】VB.LabeLLl标准答案：Caption=l学生答案：Caption=【控件属性评分】错误【控件】VB.Label_L2标准答案：Name=L2学生答案：Name=【控件属性评分】错误【控件】VB.Label_L2标准答案：Caption=100学生答案：Caption=【控件属性评分】错误【控件】VB.Menu_ml标准答案：Name=ml学生答案：Name=【控件属性评分】错误【控件】VB.Menu_ml标准答案：Caption=操作学生答案:Caption=【控件属性评分】错误【控件】VB.Menu_copy标准答案：Name=co

40、py学生答案：Name=【控件属性评分】错误【控件VB.Menu_copy标准答案：Caption=复制学生答案：Caption=【控件属性评分】错误【控件】VB.Menu_clear标准答案：Name=clear学生答案：Name=【控件属性评分】错误【控件】VB.Menu_clear标准答案：C叩tion=清除学生答案：Caption=（1）在考生目录下有一个工矍文件s j t 3.vbp,音体中有两个图片框，名掷分别为P l、P 2,其中的图片公别是一个延天飞机和一桌云彩，近有一个廿时需,名称为T i m er l,一个命令按钮，玄称为C 1,标 题 为“发 射”。并盗出了-求：两 个

41、毒 件 雌 嘲 不1）设 誉 忖 器 的 色3）去捧迪序中的法释符，把 程 序 中 的？改为正确的内容，使得在运行时单 击“发 射”按钮，则航天飞机每隔0.1秒向上移动一次，当到达P 2的初始状态下不计时；隔0.1秒调用T i m er事件过程一次。干山 先 荔”按钮，则如天飞机每隔0.1秒向上移动一次，当到达P 2的下方时停止移动，如图防示。注音.本能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。.Forml-iD lxla发射.J.v.（2）生计z=的为算出序：生使5,be考是程意考应启La在能其名将在普工值3+分为为经程个的厂盘题称己把一式+3键标名中，有达(X过、在雪下表2+

42、通dl一受释车厂值an显体注/+20X文算6讲00结的中N)Te按。不工X+框1件碇+(本山羲-文的4+到”的全？厂入算11了的+4输计be加中G别“La霍NtDu(X钮1t2算ex计T.H*1贝隹容颦果Z,如值后的之式2中不用11修数经程等取住塔”成文得占有体蠢没则改xn,否_z原序行按程运惮序的少i程在至3,，存蠢后程次的文霸矗中毛，名序，程而使签，标示运入显O【事件评分】错误【事件】Private Sub Commandl_Click()标准答案：xn(t#i)StKz)学生答案：Dim n As IntegerDim i As IntegerDim t As SingleDim s,x

43、 As Singlen=Val(Textl.Text)x=Val(Text2.Text)z=0For i=2 To nt=x+i z=z+?NextLabell.Caption=?Call SaveResult【事件评分】错误【事件】Private Sub Cl_Click()标准答案：Timerl.Enabled=True学生答案：Timerl.Enabled=?1.下列事件过程可以将打开对话框的标题改为“刑事案件卷宗 的是：B.Private Sub Commandl_Click（）CommonDialogl.DialogTitl-11刑事案件卷宗CommonDialogl.ShowOpe

44、nEnd sub2.语句listl.removeiteml 将删除list.listindex等 于（）的项目。A.l3.在设计阶段，双击窗体Forml的空白处,打开代码窗口，显 示（）事件过程模板。C.Form_Load4.下列方法中可用于列表框动态添加数据的是（）.D.additem5.要使标签能透出窗体的背景，必须设置（）属性C.BackStyle6.不论何控件，共同具有的属性是（）。B.Name7.设组合框Combol中有3个项目，则以下能删除最后一项的语句是（）。A.Combol.RemoveItem28.常量-0.00013579的科学计数法是（）.D.-13.579E-59.CL

45、S可清除窗体或图形框中的内容是（）。A.程序运行时产生的图形和文字10.将通用对话框类型，设置为字体对话框，可修改该控件的（）属性。C.action11.在设计菜单时,为了创建分隔栏，要在 中输入单连字符（-）。A.标题栏12.将通用对话框类型设置为“另 存 为 对 话 框，应修改 属性。C.Action13.下列对象不具有KeyPress事件的是D标签14.在Visual Basic中，不能作为其他控件的容器。A.影像框15.将图片框的 属性设置成True时，可使图片框根据图片调整大小。A.AutoSize16.已有如下函数：Function Fx（x As Integer）y=0Stati

46、c zy=y+1z=z+1Fx=x+y+zEnd Function在窗体上画出一个名称为Commandl的命令按钮，编写如下事件过程：Private Sub Commandl_Click（）Dim a As Integera=2For i=1 To 3Print Fx（a）;Next iEnd Sub程序运行后，单击命令按钮,输出的结果是。A.4 5 617.关键字ListBox代 表 的 控 件 类 型 是D.列表框18.下列过程中，不 能 脱 离 控 件 或 窗 体 而 存 在 的 是D.事件过程19执行语句1叩a#1水5 L雨 后，再执行语句 足 心;司 戊（1、s、a、d l分别是整型

47、、Single,字符串、Date类 型，文件中相应 字 符 为234,-34.56,hell。,#2001-08-03#）,输出结果为。A.234-34.56 hello2001-08-0320.语 句open c:dat.txt for output用于打开一个顺序文件,该语句的一个重要错误是没有.B.指定文件号【程序设计题 目：（事件）双击窗体。（响应）求s=1+lx2+lx 2x3+.+1x2x3x.x 10,并将结果存到变量S中【参考代码】Dim i,j As IntegerDim k As Longk=1s=0For i=1 To 10Forj=lT o ik=k*jNexts=s+

48、kk=1NextPrint(CStr(s)*M*#*次根据以下各小题的要求设计Visual Basic应用程序（包括界面和代码）.名项哥毒在是窘 避 哪 用 嬴 裂 下 表 所 示 的 下 拉 菜 电 其 中“设 置”菜务时必须存放在考生文件夹下，工程文件名为s jtl.vb p,窗体文件名s jtl.frw*标题名称收藏nJ工具m2选项al设置a Z帮助m3 Forml.!1 x|收 藏I A相助这项*x*A*H*I，刻境。典多*r频lit*其on再四选滚轧pti机罐则1蒲出名”，在击”n.直点单值ro耨焦，小4SC祢.3捌盘时立Q单衽甯4舞-8I一事动的滚1的整器鼾*t句SJ语为1一件5i

49、只工中，隼笠体I变在不必.f中时t2，序盘SJ名为dwf动左WMUtF在度卷请瓷注.Forml,1!x|r最大值r 小值【控件属性评分】错误【控件】VB.Menu_ml标准答案：Name=ml学生答案：Name=【控件属性评分】错误【控件】VB.Menu_ml标准答案：（:叩tion二收藏学生答案:Caption=【控件属性评分】错误【控件】VB.Menu_m2标准答案：Name=m2学生答案：Name=【控件属性评分】错误【控件】VB.Menu_m2标准答案：C叩tion=工具学生答案：Caption=【控件属性评分】错误【控件】VB.Menu al标准答案:Name=al学生答案：Name

50、=【控件属性评分】错误【控件】VB.Menu_al标准答案：C叩tion二选项学生答案：Caption=【控件属性评分】错误【君牛】VB.Menu_a2标准答案：Name=a2学生答案：Name=【控件属性评分】错误【控件】VB.Menu_a2标准答案：C叩tion:设置学生答案：Caption;【控件属性评分】错误【密牛】VB.Menu_a2标准答案：Enabled：。False学生答案：Enabled=【控件属性评分】错误【控件】VB.Menu_m3标准答案：Name=m3学生答案：Name=【控件属性评分】错误【君牛】VB.Menu_m3标准答案：C叩tion二帮助学生答案：Captio