VB期末考试试题.pdf

《VB期末考试试题.pdf》由会员分享，可在线阅读，更多相关《VB期末考试试题.pdf（24页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。

1、V B 期末考试试题一、填空题9、复选框的Value属性为1时，表 示（B）。A.复选框未被选中 B.复选框被选中C.复选框内有灰色的勾 D.复选框操作有错误1、V B 程序设计的主要特点是（可视化设计）和（事件驱动编程）。2、在 V B 中，最主要的两种对象是（窗 体（form）和（控件）。3、工程是构成应用程序文件的（集合）。4、方法是V B 提供的一种（特殊子程序），用来完成一定的操作。5、浮点类型数据包括单精度型和双精度数据。6、事 件 是 窗 体 或 控 件 对 象 识 别 的 动 作。7、可用窗体的Print_ 方法在窗体中显示文字。8、复选框控件Value扇性指示复选框处于选中

2、或禁止状态（暗淡的）中的某一种。9、在 V B 中，修改窗体的（高 度（Height）和（宽度（Width）属性值，可改变窗体的大小。10、双击工具箱中的控件图标，可在窗体的（中央）出现一个尺寸为缺省值的控件。11、在 MsgBox函数中，如果缺省title参数，则使用（工程名）作为消息框的标题。12、设 x=3 4.5 8,语句 Print Format（x,“000.0”）的输出结果是（34.6）。13、在 V B 中，数 值 型 变 量 的 初 值 为（0）,Varant型 变 量 的 初 值 为（空），布尔型变量的初值为（False）o14、设置窗体的（Picture）属性，可在窗体上

3、显示图片。15、程序运行工程中，清 除 M P图片框中的用print方法输出的文字应使用语句（Cis）-二、选择题1、菜单控件只包括一个事件，即（C）,当用鼠标单击或键盘选中后按胆I车”键时触发该事件，除分隔条以外的所有菜单控件都能识别该事件。A、GotFocus B、Load C、Click D、KeyDown2、滚动条控件（如图所示）的 Max属性所设置的是（A）oA、滚动框处于最右位置时，一个滚动条位置的Value属性最大设置值B、单击滚动条和滚动箭头之间的区域时，滚动条中滚动块的最大移动量C、单击滚动条的箭头区域时，滚动条中滚动块的最大移动量D、滚动条控件无该属性4、以下选项中，不属于

4、标签的属性是（C）。A、Enabled B、Caption C Default D、Font5、要求改命令按钮显示的文本，应当在属性窗口中改变的属性是（A）oA、Caption B,Name C、Text D、Label6、设置一个单选按钮（OptionButton）所代表选项的选中状态，应当在属性窗口中改变的属性是（D）。A、Caption B、Name C、Text D、Value7、允许在菜单项的左边设置打勾标记，卜面哪种论述是正确的？（d）A、在标题项中输入&,然后打勾 B、在索引项中打勾C、在有效项中打勾 D、在复选项中打勾8、当执行以下过程时，在窗体上将显示（a）oPrivate

5、Sub Command1_Click()Print VB;Print Hello!Print VBEnd SubA、VBHellolVBB、VBHellolVBC、VBHello!VBD、VBHello!VB9、A、C、语句 Print The answer is:;20/4-2 的结果为(b)The answer is 20/4-2The answer is 20/4-210、下列哪个控件是容器控件B、The answer is:3D、非法语句(b)oA、ImageB、PictureC、ComboBoxD、FileListBox11、若要将窗体从内存中卸载出去，其实现的方法是A.ShowB.

6、HideC.Load(d)oD.UnLoad12、以下选项中，不 是 Visual Basic控件的是(a)A.窗体B.定时器C.单选框D.命令按钮13、双击窗体中的对象后，Visual Basic将显示的窗口是（a）。A.代码窗口 B.工具箱 C.项 目（工程）窗口 D.属性窗口14、可决定窗体的左上角是否有控制菜单的属性是（a）oA.ControlBoxB.MinButtonC.MaxButton D.BorderStyle15、设有如下语句：Strl=lnputBox（输 人 练 习）从键盘上输人字符“示例”后，S trl的值是（d）oA.“输入 B.C.“练习”D.“示例”16、窗 体

7、 F orm l的 Name属 性 是 Frm1,它的单击事件过程名是（B）A.Form1_Click B.Form_Click17、窗体而hide属性的含义是A.隐藏 B.展现C.Frm1_Click(A)oC.装入18、若要设置定时器控件的定时时间，需设置的属性是D.Me_ClickD.卸载(C)OA.Enabled B.Value C.Interval D.Text19、能够改变复选框中背景颜色的属性是（C）。A.ValueB.FontColor C.BackColor D.Font20、窗体能响应的事件是(B)oA.ActiveForm B.Load C.Drive D.Change三

8、、判断题(判断下列正确与否，正确的打，错误的打X。)一1、三种方式的组合框都允许用户输入哪些不在列表框中的选项。X2、图象框中的Stretch属性为true时 一，其作用是图形自动调整大小以适应图象控件。X3、在菜单编辑器中使用“索引”时，可有一组菜单项具有相同的“名字”。X4、通过改变属性窗U中的Name属性，来改变窗体的标题。45、创建V B应用程序的三个主要步骤是：(1)创建应用程序界面(2)设置控件(3)编写代码。X6、变量是指在程序运行过程中其值可以改变的那些量，而值不能改变的是常量。q7、已知 P=MsgBox(Howareyou?,VbYesNo+VbQuestion,Hello

9、!),涯 P是Integer数据类型。48、工程文件的扩展名是.vbp o 49、V B允许设计和使用用户自己设计的控件。10、OptionButton 控件没有 DbICIiek 事件。X11、同一条记录中的各数据具有相同的类型。412、使用Data控件可以直接显示数据库中的数据。X13.ImageList是一个图像容器控件，可用作工具栏的图像库。14、当用户单击工具栏按钮时，将触发工具栏按钮的ButtonClick事件。N15、在V B的工程资源管理器中，如果从工程中移除已经保存过的文件，该文件仍然被物理删除(真正删除)。X16、如果列表框的ListConut的属性为1 0,则列表框最后一

10、项的Listindex值为10o X17、要是某个命令按钮不起作用，应将该按钮的Enabeld属性设置为False。418、使用数组定义语句：Dim D$(1 0),则数组D中各元素的值为空。X19、如果在一行中输入多条语句，各语句之间用使用；分隔。X20、在代码窗口中输入某行代码并按回车键之后，如果代码变成红色，说明该行代码有语法错误。4四、读程序题，写出程序运行结果1、Private Sub Form_Click()Static SUM As IntegerI=1Do While l=10SUM=SUM+I1 =1 +1LoopPrint SUMEnd Sub运行程序，第一次单击窗体：55

11、第二次单击窗体：1102、Private Sub Form_Click()Print*;Tab(6);2,Tab(15);5PrintFor I=15To 16Print I;For j=2 To 6 Step 3P rintTab(3*j);j*I;Next jPrintNext IEnd Sub程序运行结果：*2 515 30 7516 32 80五、编程题(一)窗体中有图片框(Picturel)和计时器(Tim e)两个控件，运行程序时，将图片加载到图片框中，然后图片框以每2 秒钟一次的速度向窗体的右下脚移动,每次向左、向右 移 动 100twip(2 0 分 之 一 像 素)。请填空：

12、Private Sub Form_load()Picturel.Picture=loadPicture(llc:picball.ico)Timeri.lnterval=200End SubPrivate Sub Timeri_Timer()Static x,y As Integerx=x+100y=y+100Picturel.Move x,y(3)End Sub(二)有一个单击按钮过程，其作用是产生5 0 个 60 100的随机数，统计其中被6 整除余2 的个数，并将这些数输出。请填空：Private Sub Command1_Click()Dim x As Integer,N%Dim Cou

13、nter As IntegerRandomizeTimerFor N=1 To 50X=int(Rnd*41+60)(2)If x mod 6 =2 ThenPrint xCounter=counter+1(4)End if(5)Next NPrint CounterEnd SubVB程序设计与应用参考答案三、判断题12345678910答案 XXXVXqqqqX11121314151617181920答案 4X77XXqXx 7四、程序阅读题：（-）（10 分）1、552、110。、（10 分）*2 515 30 7516 32 80五、编程题（2 0分）（）1、Picturel.Pictu

14、re2、Timeri3、x,y（二）1、Randomize2、Rnd（）*41+603、x Mod 64、Counter+15 End If一、单项选择题（共10分）1.在代码中引用一个控件时，应使用控件的（B）属性。A.Caption B.Name C.Text D.Index2.设变量x=4,y=-1,a=7,b=-8,下面表达式（A）的值为“假”。A.x+ayB.x 0 AND y a+b AND NOT(y b=c AND a =d 的值为False o三、将下列数学表达式转换为V B表达式。（6分）1.a2+2ab+b2：aA2+2*a*b+bA22.8exln10：8*exp(x)

15、*log(10)3.2sin(450)cos(450)：2*sin(3.1416/4)*cos(3.1416/4)判断题:10道，每 道3分，总 分301.确定一个窗体或控件的大小的属性是W idth和Height。正确错误2.为了使工具栏自动填充在窗体的顶部，可将工具栏的A lign属性设置为vbAlignNoneo正确错误3.在Visual Basic程序中，操作顺序文件的一般顺序是打开文件、读写操作、关闭文件。正确错误4.在Visual Basic程序中实现删除文件“d:tem.tmp”的语句为clear d:tem.tmp正确错误5.如果要新建,个顺序文件，用Open语句时，操作方式关

16、键词是Output。正确错误6.要向图片框 Pl 中加载d:hainanzhiwu.bmp”图像文件，应使用语句 Picturel.Picture=LoadPicture(d:hainanzhiwu.bmp )。正确错误7.执行命令 Line(300,300)-(500,500)后，CurrentX=500。正确错误8.在Visual Basic程序中实现复制文件c:”到 d:盘根目录下的语句为Filecopy c:,d:正确错误9.改变驱动器列表框的Drive属性值，将激活Change事件。正确错误lO.Stretch属性设置为false时，图像框可以改变大小移适应其中的图像。正确错误单选题

17、:20道，每道2 分，总分40 1.当一个工程含有多个窗体时，其中的启动窗体是（）。a.启动V B时建立的窗体b.第一个添加的窗体c.最后一个添加的窗体d.在“工程属性”对话框中指定的窗体2.C1S可以清除窗体或图形框中的（）。a.Picture属性设置的背景图案b.在设计时放置的控件c.程序运行时产生的图形和文字d.三者都是3.如果准备向随机文件写入数据，正确的语句是（）。a.Print#l,recb.Write#l,recc.Put#l,recd.Get#l,rec4.FileFiles.Pattem=*.bat”程序代码执行后,会显示（）。a.只包含扩展文件名为“*.bat”的文件b.第

18、一个bat文件c.包含所有文件d.会显示磁盘的路径5.为了使Drivel驱动器列表框、D irl目录路径列表框和Filel文件列表框能同步协调工作，需 要 在（）。a.Drivel 的 Change 事件过程中加入 Drivel.Drive二 Dirl.Path,在 Dirl 的 Change 事件过程中加入 Dirl.Path二 Filel.Path 代码。b.Drivel 的 Change 事件过程中加入 Dir 1 .Path=Drive 1 .Drived Dirl 的 Change 事件过程中加入 File 1 .Path=Dir 1 .Path 代码。c.Dirl 的 Change

19、 事件过程中加入 Dirl.Path=Drivel.Drive,在 Filel 的 Click 事件过程中加入 File 1 .Path=File 1 .FileName 代码。d.Dirl 的 Change 事件过程中加入 Dirl.Path二 Drivel.Drive,在 Filel 的 Click 事件过程中加入 Filel.Path二 Dirl.FileName 代码。6.要绘制多种式样的直线，需要设置Line控 件 的（）属性。a.Shapeb.Bordrestylec.FillStyled.Style7.可用来改变坐标度量单位的是（）。a.Drawstyle 属性b.DrawWid

20、th 属性c.Scale 属性d.ScaleMode 属性8.设置对象的边框类型的属性是（）。a.Drawstyleb.Borderstylec.DrawWidthd.ScaleMode9.如果准备读文件，打开顺序文件ext.dat”的正确语句是（）。a.open text.dat For write As#1b.open,text.daf,For Binary As#1c.open text.dat“For Input As#1d.open,text.daf,For Random As#1lO.Line(200,200)-Step（500,500）将在窗体（）画一直线。a.(200,2 0

21、0)到(500,500)b.(200,2 0 0)到(300,300)c.(200,2 0 0)到(700,700)d.(300,3 0 0)到(500,500)11.以下的属性和方法中，可重定义坐标系的是（）。a.Drawstyle 属性b.DrawWidth 属性c.Scale 属性d.ScaleMode 属性12.下列“CommonDialogl”控件程序代码，Commondialogl.Action=l,代 表（）。a.文件另存为b.打开文件c.色彩d.打印13.确定一个控件在窗体上位置的属性是()。a.Top 或 Leftb.Top 和 Leftc.Width 或 Heightd.W

22、idth 和 Height14.执行Forml.Scale(0,10)-(10,-10)语句后，F orm l窗体坐标系x轴和y轴的正方向是()a.向右和向上b.向左和向下c.向右和向下d.向左和向上15.当使用Line方法画直线后，当前坐标在()。a.(0,0)b.直线起点c.直线终点d.容器的中心16.随机文件进行文件读写的单位是().a.字节b.记录c.整个文件d.字符17.要绘制多种形状的图形，需要设置Shape控 件 的（）属性。a.Shapeb.Bordrestylec.FillStyled.Style18.KILL语句在VB语言中的功能是（）。a.清内存b.清病毒c.删除在磁盘上

23、的文件d.清屏幕19.为了使目录路径列表D irl的内容符合驱动器列表框Drivel的选择，应 当（）。a.在 Dirl_Click 事件中加入 Dir 1 .Path=Dri ve 1 .Driveb.在 Drivel_Click 事件中加入 Dirl.Path=Drivel.Drivec.在 Dirl_Click事件中加入 Drivel.Path=.Drive.Pathd.在 Dirl_Click 事件中加入 Drive 1 .Path=.Dirl.PathS中，进行音频和视频处理都要用到多媒体控制接口，通过它实现对音频设备、视频设备及其它设备的操作，这其中最重要的是（a.MMContro

24、l 控件b.Data控件c.SysInfo 控件d.媒体流处理技术多选题:10道，每道3 分，总分30多选题:10道，每道3 分，总分301.在下列选项中，能将图像装入图片框和图像框的是（）a.在界面设计时，通过Picture属性装入b.在界面设计时，手工在图像框和图片框中绘制图形c.在界面设计时，利用剪贴板把图像粘贴上d.在程序运行期间，用 LoadPicture函数把图形文件装入2.关于目录列表框的Path属性的作用，错误的是（）a.显示当前驱动器或指定驱动器上的路径b.显示当前驱动器或指定驱动器上的某目录下的文件名c.显示根目录下的文件名d.只显示当前路径下的文件3.下列图形中能用Sha

25、pe控件绘制的图形是（）。a.矩形b.正方形c.椭圆d.三角形4.下面对象中能作为容器的是（）。a.窗体b.Image 控件c.PictureBox 控件d.Frame 控件5.在新建一个“标准EXE”工程后，在工具箱中出现的控件是（）。a.列表框b.通用对话框c.驱动器列表框d.图片框6.要清除图片框Picture 1 中的图形，错误的方法是（）。a.选择图片框，然后按Del键b.执行语句 Picture 1 .Picture=LoadPicturec.执行语句 Picturel.Picture=d.选择图片框，在窗口属性中选择Picture属性条，然后按回车键7.下列不可以把当前目录下的图

26、形文件picl.jpg装入图片框Picturel中的语句为（）。a.Picturel=picl.jpg b.Picturel=LoadPicture(picl.jpg)c.Picture l.Picture=LoadPicture(picl.jpg)d.Picture l.Picture=LoadPicture(picl)8.下面关于顺序文件的描述错误的是（）。.用.砖a.每条记录的长度必须相同b.可通过编程对文件中的某条记录方便地修改c.数据只能以ASCII码形式存放在文件中，所以可通过文本编辑软件显示d.文件的组织结构复杂9.Visual Basic根据计算机访问文件的方式将文件分成三类，

27、其中包括（）。a.顺序文件b.Unix文件c.二进制文件d.随机文件10.卜 面关于PictureBox控件与Image控件说法正确的是（）。a.PictureBox控件可以作为控件容器，因此比Image占用资源多b.Image能够自动调整大小以适应载入的图片c.PictureBox除具有Image的所有特性外，还能作为容器d.PictureBox能使图片自动调整大小以适应PictureBox的大小。#1 楼 得 分：。回复于：2010-06-18 17:58:00:hy无必要，勿增实级：10101 11010 dccab cdbcc cbbda aacba acd bed abc acd a

28、cd abed ad abd acd a对我有用丢个板砖引用举报管理TOP120032004学年第二学期 VB程序设计期末考试试题(A 卷)班级 姓名 成绩一、填 空 题(每 空 1 分，共 20分)1、当进入VB集成环境时，发现没有显示“工具箱”，则应选择视图菜单的工具栏选项，使“工具箱”显示。2、要使Fori=xTo-5 Step-2 的循环体执行10次，循环变量的初值x=13。5、当用户不想暴露在文本框中输入的内容时，应设置文本框的PassWordChar 属性。6、数学表达式的VB算术表达式为：(a+b)/(l/(c+5)-(l/2)*c*d)o8,V B中自定义过程的参数传递方式有传

29、址方式(或引用方式)、传值方式两种。9、写出产生一个100200(包 括 100、2 0 0)范围内的正整数的语句lnt(Rnd*101+100)。10、V B的通用声明部分若有Option Base-1语句，说明规定数组下标中下界的默认值为-1。11、检查框的value属性设置为2-Grayed时，变长灰色，禁止用户选择。12、在对一文件进行读操作时，用 EOF()函数表示指针到达文件末尾。13、若要时钟控件每隔0.02引发一个Timer事 件,则 应 将 其 Interval属 性 设 为 200。二、选择题(每小题2 分，共 20分)3、当文本框的ScrollBar属性设置为非零值，却没

30、有效果,原因是(B)A.文本框中没有内容B.文本框的MutiLine属性为FalseC.文本框的MutiLine属性为TrueD.文本框的Locked属性为True5、下面的程序段求两个数中的大数，(D)是不正确的。A.Max=IIf(xy,x,y)B.If xy Then Max=x Else Max=yC.Max=x D.If y=x Then Max=yIf y=x Then Max=y Max=x6、下列循环语句能正常结束循环的是（C）A.i=5Doi=i+lLoop Until i0C.i=10Doi=i-lLoop Until i0B.i=lDoi=i+2Loop Until i=

31、10D.i=6Doi=i-2Loop Until i=l7、如下数组声明语句中，数组a 中包含的元素个数为（A）Dima（3,-2 To 2,5）A.120 B.75 C.60 D.138、KILL语句在V B语言中的功能是（C）A.清内存B.清病毒C.删除磁盘上的文件 D.清屏幕10、对话框分模式的和无模式的两种，为了把对话框显示为模式的，下列语句正确的是（B）A.Form 1 .Show vbModeless B.Form 1.Show vbModeC.Forml.ShowD.Forml.Show vbAbout三、读程序写结果(每小题5 分，共 20分)1、下列程序段的运行结果为For

32、i=3 To 1 Step-1Print Spc(5-i);Forj=lTo2*i-lPrint *”；Next jPrintNext i2、下列程序当在文本框中输入字符串“12345”时，窗体上显示112123123412345Private Suv Textl_Change()Print Text 1 .Text;End Sub4、下面程序段的输出结果为：For i=0 To 4Forj=OToisc(i,j)=i*5+jPrint sc(ij);,M,;Next jNext i四、按要求完成程序（每小题5 分，共 10分）1、利用计算机计算“鸡兔同笼问题”：即已知在同一个笼子中鸡和兔的总

33、数为h,总脚数为f,求鸡和兔各有多少只？Private Sub Forml_Click()Dimh%,f%,x%,y%h=InputBox(“输入鸡和兔的总数：”)f=InputBox(“输入鸡和兔的总脚数：)x=(4*hf)/2 y=(f-2*h)/2Print“笼中共有”;x;只鸡，六y;“只兔”End Sub2、找出能被3、5、7 除，余数为1 的最小的10个正整数。Private Sub Command l_Click()Dim count%,n%n=lDon=n+lIf n Mod 3=1 And n Mod 5=1 And n Mod 7=1 ThenPrint ncount=co

34、unt+lEnd IfLoop Until Count=10(W While Count10 While Count=9)End Sub五、编 程 题(每 题 10分，共 30分)要求：只需写出程序代码，不要求画出界面。1、编程计算1 100之间的奇数和及偶数和，并分别输出结果。1、Private Sub Forml_Click()Dim i As Integers 1 As Integer,s2 As Integersl=0:s2=0Fori=l To 100If i Mod 20Then sl=sl+iIf i Mod 2=0 Then s2=s2+iNext iP rin t 100之间

35、的奇数和为：siPrint“1一 100之间的偶数和为：、s2End Sub2、编程求斐波那契数列:1、2 2、3、5、8、13.Private Sub Forml_Click()Dim i,f(),n As Integern=Val(InputBox(“请输入数组元素的个数：“，“输入)If n0 ThenReDim f(n)f(O)=l:f(l)=lFor i=2 To n-1f(i)=f(i+l)+f(i+2)Next iFor i=0 To n-1Print f(i)；Spc(4);Ifi Mod 5=0 And ioO Then PrintNext iEnd IfEnd Sub3、用

36、递归法求组合数。(对于有如下递归形式：=+)运行界面如右图所示：Private Function Cmn(n As Long,m As Long)As LongIf n=0 ThenCmn=lElself n=l ThenCmn=mElself nm/2 ThenCmn=Cmn(m-n,m)ElseCmn=Cmn(n,m-1 )+Cmn(n-1 ,m-1)End IfEnd FunctionPrivate Sub Command l_Clock()Text3.Text=Cmn(Val(Text 1 .Text),Val(Text2.Text)End Sub三、读程序写结果(每小题5 分，共 2

37、0分)、*4、Q*5 6*10 11 1215 16 17 1820 21 22 23 24一、选择题(每小题2 分，共 20分)4、表达式 Int(68.555*100+0.5)/100 的 值 为(C)A.68.55 B.68.56 C.68 D.68.5555、用 If语句表示分段函数，下面的程序段中不正确的是(A)。A.If x=l Then f=Sqr(x+l)B.If x=l Then f=Sqr(x+1)f=x*x+3 If x=l Then f=Sqr(x+l)_ D.If xl Then f=x*x+3_Else f=x*x+3 Else f=Sqr(x+1)6、以 下(B)

38、是正确的ForNext结构。A.For x=l To Step 10 B.For x=3 To-3 Step-3Next x Next xC.For x=l To 10 D.For x=3 To 10 Step 3re:.Next x Next yIfi=10Then GoTo re7、RmDir语句在VB语言中的功能是（C）A.删除一个存在的目录 B.删除文件C.改变当前目录 D.创建一个新的目录二、填 空 题（每空2 分，共 40分）7、为使文本框能输入多行信息，应把文本框控件的LOCKED属性设置为Trul l、如果要在一行上书写多条程序代码，各语句之间应该用冒号 分隔开。三、读程序写结

39、果（每小题5 分，共 10分）1、下列程序当在文本框中输入字符串“ABCDE”时，在窗体上将显示为。Private Sub Text l_Change（）Print Text 1.Text;End Sub2、下面程序段的输出结果为：For i=3 To 1Print Sped0-i）;Forj=l To2*i-1PrintNext jPrintNext i五、编 程 题（每 题 10分，共 20分；要求：只需写出程序代码）1、编程计算1 100之间的奇数和，并输出结果。Pri vate Sub Forml_Click（）Dim i As Integer,s As Integers=0Fori=

40、l To 100If i Mod 20 Thens=s+iEnd IfNext iPrint力一 100之间的奇数和为：”；sEnd Sub三、读程序写结果（每小题5 分，共 20分）1、优秀 2、1121231234123453、144 4、05 610 11 1215 16 17 1820 21 22 23 241、填 空 题（每 空 1 分，共 20分）1、V B 中使用注释有利于程序的维护和调试，一般以 或 开头。3、结构化程序设计规定程序的基本结构为：、4、当对命令按钮的Picture属性装入.bmp图形文件后，选项按钮上并没有显示所需的图形,原因是没有对 属性设置为1 （Graph

41、ical）,5、要对文本框中已有的内容进行编辑，按下键盘上的按键，就是不起作用，原因是设置的属性为True。6、在对一文件进行读操作时，用 函数表示指针到达文件末尾。7、要使For i=x To-6 Step-3 的循环体执行30次，则循环变量的初值x=。8、对象的三要素是指、。9、文本框最有用的方法是，它是把光标移到指定的文本框中。10、检查框的 属性设置为2-Grayed时，变成暗灰色，禁止用户选择。13、在 V B 中我们用 函数调用其他的Windows应用程序。14、在直角坐标系中，（x,y）是坐标系中任意点的位置，用 x 与 Y 表示在第一或第三象限的表达式是。二、选 择 题（每小题

42、2 分，共 30分）4、表达式 Int（68.555*100+0.5）/100 的 值 为（）A.68.55 B.68.56 C.68 D.68.5555、下面的程序段求两个数中的大数，（）是不正确的。A.Max=IIf（xy,x,y）B.If xy Then Max=x Else Max=yC.Max=x D.If y=x Then Max=yIf y=x Then Max=y Max=x6、以 下（）是正确的For.Next结构。A.For x=l To Step 10 B.For x=3 To-3 Step-3Next x Next xC.For x=l To 10 D.For x=3

43、To 10 Step 3re:.Next x Next yIfi=10Then GoTo re7、表达式Len（“123程序设计ABC）的 值 是（）A.17 B.20 C.10 D.148、关于语句If x=l Then y=l,下列说法正确的是（）A.x=l和 y=l都是赋值语句B.x=l和 y=l都是关系表达式C.x=l为关系表达式，y=l为赋值语句D.x=l为赋值语句，y=l为关系表达式10、下面程序段的运行结果为（）For i=3 To 1 Step-1Print Spc(5-i)；Forj=l To 2*i-lPrint”；Next jPrintNext iA.B.C.D.12、若

44、要设置命令按钮具有图形特性可通过()A Appearance B、BackStyle C、BorderStyle属性设置。D、Style13、如下数组声明语句，()正确。A.Dim a 3,4 As Integer B.Dim a(3,4)As IntegerC.Dim a(n,n)As Integer D.Dim a 3 4 As Integer三、读程序写结果(共15分)一、单项选择1.以下VB程序中语句Print i*j的执行次数是Private Sub Form_Click()Forl=1TO3Forj=8To 1 Step-2PrintI*jNext jNext IEnd Sub(A

45、)14(B)12(C)10(D)82.使用Visual Basic进行程序设计时，控件可以被添加到哪种模块中(A)标准模块(B)窗体模块(C)类模块(D)工程模块3.函数Rnd()可以 返 回(0,1)之间的随机数，Int()可以对某个数字向下取整，若要取得两位随机整数，应如何使用函数(A)Int(Rnd)*100 B)Int(10+Rnd*100)(C)10+Rnd*Int(90)(D)10+Int(Rnd*90)4.下列代码的作用是判断变量x 是否可以被变量y 整除，在_ _ _处应该填写哪条VB语句If ThenLabel LCaption=x&可以被“&y&”整除”ElseLabel

46、l.Caption=x&“不能被“&y&“整除”End If(A)x/y=0(B)姑 y=0(C)Int(x/y)=0(D)x Mod y=05.已知a、b 为 String型变量，执 行 a=5:b=6:Textl.Text=a+b 语句后，编辑框Textl中显示什么结果_ _ _ _ _ _ _ _ _ _ _ _(A)11(B)56(C)a+b(D)系统报错6.下列表达式中，能正确表示“x 等于0 或大于9”的是(A)x=0 And x9(B)x=0 Or x9(C)x9,x=0(D)x=0 Or 97.VB语句Print 9*99/9的输出结果是(A)81(B)1 (C)9(D)08.

47、设有如下语句：Strl=InputBox(“输入“，“练习“)从键盘上输人字符串“示例”后，S trl的 值 是()。A.输入 B.C.“练习”D.“示例”9.表达式Len(Str(2000-1999)-9 5 的正确结果是(A)0(B)1 (C)2(D)310.执行下列事件过程，窗体上的输出结果为Private Sub Form_Click()Dim k As IntegerFor a=2 To 4 Step-2k=k+aPrint k;Next aPrint a;kEnd Sub(A)202(B)220(C)02(D)2011.在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Commandl_Click()a=InputBox(请输入一个整数”)b=InputBox(请输入一个整数)Print a+bEnd Sub12程序运行后，单击命令按钮，在输入对话框中分别输入12和 3 4,输出结果为(A)a+b(B)1234(C)46(D)系统报错