A07C07公共VB期终试题5.docx
- 文档编号:1879097
- 上传时间:2023-05-02
- 格式:DOCX
- 页数:15
- 大小:99.13KB
A07C07公共VB期终试题5.docx
《A07C07公共VB期终试题5.docx》由会员分享,可在线阅读,更多相关《A07C07公共VB期终试题5.docx(15页珍藏版)》请在冰点文库上搜索。
A07C07公共VB期终试题5
《VB程序设计》课程期末考试卷(A)
一、判断题(每小题1分,共10分)
1.命令按钮的Caption属性设置中,所有字符都会原样显示在按钮之上。
2.A=B=C不可以作为一个合法的VisualBasic语句。
3.If必须要与EndIf配对使用。
4.可以使用Public关键词在过程体内声明一个全局变量。
5.TextBox控件和Label控件都具有Text属性。
但Label控件不能获得焦点。
6.窗体和列表框都有Clear方法。
7.简单组合框兼有文本框和列表框两者的功能,用户可以键入文本或选择列表中的项目。
8.执行语句Picture1.picture=”c:
\a.bmp”,就是为图片框控件Picture1加载文件名为c:
\a.bmp的图形。
9.VisualBasic程序的运行可以从某个窗体启动,也可以从SubMain启动,SubMain必须定义在某一个标准模块中。
10.图像框和图片框都是容器控件,容器中设置的控件不可以移出容器之外。
二、选择题(每小题1分,共15分)
1.下面_______是合法的变量名。
A.X_yzB.123abcC.IntegerD.X-Y
2.表达式Mid(“BEIJING”,2,4)的值是___________。
A.JIB.IJC.IJIED.EIJI
3.InputBox函数返回值的类型为_________。
A.字符串B.变体C.数值D.不确定
4.使一个控件不可见,应设置其_____属性。
A.EnableB.VisibleC.FontD.BackColor
5.通过文本框的______方法可以将焦点移到该文本框中。
A.SetFocusB.KeyPressC.GotFocusD.LostFocus
6.当在滚动条内拖动滑块的过程中会触发_____事件。
A.KeyUpB.KeyPressC.ScrollD.Change
7.在计时器控件中,Interval属性的作用是______。
A.设置计时器事件之间的时间间隔B.决定是否响应用户生成事件
C.存储程序所需的附加数据D.设置计时器顶端与其容器之间的间隔
8.假定已定义了一个过程SubAdd(aassingle,bassingle),则正确的调用语句是______。
A.Add12,12B.callAdd[12,12]C.callAddx,yD.callAdd(12,12,x)
9.要想从子过程调用后返回两个结果,下面子过程语句说明合法的是______
A.Subf(ByVala%,ByValb%)B.Subf(a%,b%)
C.Subf(ByVala%,b%)D.Subf(a%,ByValb%)
10.窗体从加载到显示时,将会发生一系列的事件,最先发生的事件是___。
A.Initialize B.Load
C.Activate D.Resize
11.以下哪个选项可用来获得列表框中最高项的索引值?
__________。
A.SortB.CountC.ListCount-1D.ListCount
12.当需要过程级(局部)变量在整个程序运行中值一直存在,则应该用_______关键字来声明。
A.DimB.PublicC.StaticD.Private
13.下列程序段的执行结果为_______。
A=0:
B=1
Do
A=A+B
B=B+1
LoopWhileA<10
PrintA;B
A.105B.ABC.01D.1030
14.Sub过程与Function过程最根本的区别是_______。
A.前者可以使用Call或直接使用过程名调用,后者不可以
B.后者可以有参数,前者不可以
C.两者过程参数的传递方式不同
D.前者无返回值,但后者有
15.如果用长整数&H000000FF&来表示颜色,则此颜色为_______。
A.红色B.黄色C.蓝色D.绿色
三、填空(每小题2分,共20分)
1.一般情况下,数组下标的缺省下界默认为0。
如果希望缺省下界是1,可以在代码窗口的通用声明段写入______________________语句来设置。
2.Array函数用来为数组元素赋值,即把一个数据集存入某个数组,若要将数据集{1、2、3、4、5}存入数组X,其语句为__________________________________。
3.在MouseDown和MouseUp事件过程中,当参数Button的值为1、2、4时,分别代表按下了鼠标的_______、_______、_____键。
4.在多窗体程序中,经常要用到关键字“Me”,它代表的是_________________。
5.通过文本框的________________属性可以获得当前文本框中选定的文本。
6.每次使用ReDim语句都会使原来数组中的值丢失,可以在ReDim语句后加_________参数用来保留数组中的数据。
7.在目录列表框Dir1的Change事件过程中,编写代码_______________________,它的作用是:
当Dir1中双击某文件夹时,文件列表框File1的列表内容是该文件夹下的文件目录。
8.将通用对话框CommonDialog1的显示出一个打开对话框,可调用该控件的_________方法。
9.窗体Form1中已有一个文本框Text1,当在文本框中输入字符时,为了能执行窗体的KeyPress事件过程,应将窗体Form1的__________________属性设置成True。
10.如果要求设置定时器时间间隔为1秒钟,那么它的Interval属性值应该等于_________。
四、程序选择填空(每小题3分,共15分)
阅读下列程序说明和程序,在每小题提供的若干可选答案中,挑选一个正确答案。
【程序说明】
界面设计如上图所示,程序运行时要求有以下功能:
•按Command1(出题)后随机生成两个两位正整数存入模块级变量a、b且a>b,并分别在Label1、Label2中显示,此后Command1不可用;
•在Text1中输入结果、按回车后,以消息框显示运算正确与否、累计所完成题数以及做错的题数,Command1恢复为可用;
•按Command2(退出)后以消息框显示所完成题数以及做错的题数,退出。
【程序】
DimnAsInteger,n_errorAsInteger
(1)
PrivateSubCommand1_Click()
a=10+Rnd*89:
b=10+Rnd*89
Ifa (2) Label1.Caption=a: Label2.Caption=b n=n+1: Text1.Text="": Command1.Enabled=False EndSub PrivateSubText1_(3)(KeyAsciiAsInteger) IfKeyAscii<>13Then(4)'回车键的ASCII码值为13 Ifa-b=Val(Text1.Text)Then MsgBox("回答正确") Else MsgBox("回答不正确") n_error=n_error+1 EndIf Command1.Enabled=True EndSub PrivateSubCommand2_Click() MsgBox((5)) End EndSub 【供选择的答案】 (1)A、'小学生两位数减法训练程序B、a=0: b=0: c=0 C、n=0: n_error=0D、DimaAsByte,bAsByte,cAsByte (2)A、b=a: a=bB、c=a: a=b: b=c C、a=b: b=aD、c=a: b=a: a=c (3)A、KeyPressB、ChangeC、KeyDownD、KeyUp (4)A、ExitSubB、KeyAscii=13C、KeyAscii=0D、ExitDo (5)A、"共"&n&"题,错"&n_error&"题" B、"共n题,错n_error题" C、"共"+n+"题,错"+n_error+"题" D、共&n&"题,错"&n_error&"题" 五、程序阅读(阅读下列程序,写出运行结果)(每小题10分,共20分) 1、阅读程序 SubSubp(b()asInteger) forI=1to4 b(I)=2*I nextI Endsub Privatesubcommand1_click() Dima(1to4)asInteger a (1)=5: a (2)=6: a(3)=7: a(4)=8 Subpa() forI=1to4 Printa(I); nextI Endsub 运行上面程序后,单击命令按钮,写出窗体输出结果。 2、运行时,单击窗体后依次输入19、37、50、56、64、20、28、0,写出运行结果。 PrivateSubForm_Click() DimyAsInteger Do y=InputBox("y=") If(yMod10)+Int(y/10)=10ThenPrinty; LoopUntily=0 EndSub 六、程序设计(每小题10分,共20分) 1、编写事件过程Form_Click(),在窗体中自定义坐标系,绘制如图所示的正弦曲线、水平轴与垂直轴。 PrivateSubForm_Click() Scale(-3.14,1)-(3.14,-1) EndSub 2、编写一个判断一个数是否是素数的函数过程FunctionF(nAsInteger),n是素数返回True,不是素数返回False,在Form_Click()中调用函数F(n),打印输出100-1000内的所有素数。 FunctionF(nAsInteger)AsBoolean EndFunction PrivateSubForm_Click() EndSub 《VB程序设计》课程期末考试卷(B) 一、判断题(每小题1分,共10分) 1.List1.List(n)不是列表框控件List1的第n个表项。 2.在Open语句中用input方式打开文件,该文件如不存在,则会新建。 3.在按了“ESC”键后,要让程序执行Command1_Click事件中的代码,应将命令按钮Command1的Default属性设为True。 4.对界面中控件的一个操作只会引发该控件的一个事件过程的执行。 5.单选按钮的Value属性取值True或False,复选框对象的Value属性取值是0与1。 6.语句statica,bAsInteger定义了a、b二个变量都是Integer型静态变量。 7.一个变量在刚被声明尚未被赋值之前其值都为null。 8.用Dim语句声明一个动态数组之后,不可以使用Redim语句把该数组重新声明为其它类型。 9.单击组合框列表中的选项,致使文本框内容改变后,会触发组合框的Change事件。 10.无论有没有级联子菜单,都可以用PopupMenu方法将该菜单项显示为弹出式菜单。 二、选择题(每小题1分,共15分) 1.下列关系运算结果为“True”的是____________。 A.“1”+2=“12”B.“1”+“2”=“3” C.“1”&2=“12”D.“1”&“2”=“3” 2.表达式37.6Mod4.55的值是____________。 A.5B.4C.2D.3 3.MsgBox函数的返回值的类型为_________。 A.数值型B.日期型C.字符型.D.变体 4.在VB中,要将一个窗体从内存中释放,应使用的语句是____。 A.ShowB.HideC.LoadD.Unload 5.下列程序段的执行结果为_______。 PrivateSubCommand1_Click() ForI=1To3 Forj=0ToI-1 S=S+1 Nextj,I PrintS EndSub A.6B.5C.4D.3 6.在用通用对话框控件弹出“打开”或“保存”文件对话框时,如果需要指定文件列表框所列出的文件类型是文本文件(即.txt文件),则正确的描述格式是____。 A、”text(.txt)|(*.txt)” B、”文本文件(.txt)|(.txt)” C、”text(.txt)||(*.txt)” D、”text(.txt)(*.txt)” 7.下面的过程定义语句中合法的是___________ A)subprocl(byvaln())B)subprocl(n)asinteger C)functionprocl(procl)D)functionprocl(byvaln) 8.把窗体的KeyPreview属性设置为true,然后编写如下过程: Privatesubform_keydown(keycodeasInteger,shiftasInteger) printchr(keycode) Endsub Privatesubform_keyup(keycodeasInteger,shiftasInteger) printchr(keycode+2) Endsub 程序运行后,如果按“A”键,则输出结果为________ A)AB)AC)AD)A ABCD 9.a=Right(“祝你学习进步! ”,5),则变量a的值为____ A.你学习进步B.出错C.学习进步! D.进步! 10.已知A$=”12345678”,则表达式Val(Left$(A$,4)+Mid$(A$,4,2))的值为______。 A.123456B.123445C.8D.6 11.下列哪一种对象不具有Caption属性? A.FormB.PictureBoxC.LabelD.Frame 12.对于TextBox控件,哪一种事件可以测得KeyAskii值? A.KeyUpB.KeyDownC.KeyPressD.Click 13.当文本框的ScrollBars属性设置了非零值,却没有显示滚动条,原因是_________。 A.文本框中没有内容B.文本框的MultiLine属性为False C.文本框的MultiLine属性为TureD.文本框的Locked属性为Ture 14.如果用长整数&H00FF0000&来表示颜色,则此颜色为_______。 A.红色B.黄色C.蓝色D.绿色 15.如果要制作菜单的分隔栏,应选用的字符是_______。 A.*B.^C.-D.~ 三、填空(每小题2分,共20分) 1.要结束程序的运行应使用____________语句。 2.控件数组名由___________属性指定,而数组中的每个元素由_________属性指定. 3.可以通过Array函数给变量赋值的方法生成数组,该变量必须是______________数据类型. 4.在对象的keydown和keyup事件过程中,当参数shift的值为1、2、4时,分别表示用户按下了___________、_________和________键. 5.在文本框Text1的KeyPress(KeyAsciiAsInteger)事件过程中,如执行到语句_____________________,则表示取消该击键输入。 6.要产生50到100之间的随机整数(包括50,100)的VB表达式是_________________。 7.在鼠标或键盘事件过程中,验证是否只按住了Alt键的条件表达式是_______________。 8.当按住Ctrl键并拖动鼠标左键时,窗体的Form_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)事件过程中的第一个、第二个形参分别获得____、_____值。 9.在盘驱动器列表框Drive1的Change事件过程中,代码____________的作用是: 当Drive1的驱动器改变时,目录列表框Dir1的列表随不同驱动器作相应改变。 10.将通用对话框CommonDialog1的类型设置成颜色对话框,可调用该控件的___________方法。 四、程序选择填空(每小题3分,共15分) 阅读下列程序说明和程序,在每小题提供的若干可选答案中,挑选一个正确答案。 【程序说明】 •图片框控件P1、P2除Name属性外均取缺省值,将鼠标在P1拖动绘制矩形框(边框颜色通过通用对话框指定): 鼠标按下处为矩形左上角,鼠标抬起处为矩形右下角; •鼠标抬起后,将P1中矩形区域内的图象在P2中重新绘制,如下图所示。 【程序】 (1) PrivateSubP1_MouseDown(ButtonAsInteger,ShiftAsInteger,_ XAsSingle,YAsSingle) x1=X: y1=Y EndSub PrivateSubP1_MouseUp(ButtonAsInteger,ShiftAsInteger,_ XAsSingle,YAsSingle) DimjAsSingle,iAsSingle,jkAsSingle,ikAsSingle Dim (2) jk=P2.ScaleWidth/(X-x1): ik=P2.ScaleHeight/(Y-y1) Commondialog1.Action=(3) P1.Line(x1,y1)-(X,Y),Commondialog1.Color,B Forj=x1ToX Fori=y1ToY c=(4)'读取该点处的颜色值 (5) Nexti,j EndSub 【供选择的答案】 (1)A、DimxAsSingle,yAsSingleB、Dimx2AsSingle,y2AsSingle C、Publicx1AsSingle,y1AsSingleD、Dimx1AsSingle,y1AsSingle (2)A、cAsLongB、cAsIntegerC、cAsSingleD、cAsDouble (3)A、1B、2C、3D、4 (4)A、P1.Pset(j,i)B、P2.Pset(j,i)C、P1.Point(j,i)D、P1.Point(i,j) (5)A、P2.PSet((j-x1)*jk,(i-y1)*ik),cB、P1.Pset((j-x1)*jk,(i-y1)*ik),c C、P2.PSet((i-y1)*ik,(j-x1)*jk),cD、P1.Pset((i-y1)*ik,(j-x1)*jk),c 五、程序阅读(阅读下列程序,写出运行结果)(每小题10分,共20分) 1、有如下的Function过程: Functionf(aasInteger) b=0 staticc b=b+1 c=c+1 f=a+b+c Endfunction 在窗体上画一个命令按钮,然后编写如下事件过程: Privatesubcommand1_click() DimaasInteger a=2 ForI=1to3 printf(a) nextI Endsub 运行上面的程序,单击命令按钮,写出输出结果。 2、运行时,若Text1.text为空,在Text1获得输入焦点后,依次按下列按键: “1”、“2”、“+”、“3”、“4”、“-”、“5”、“6”、“/”、“1”、“4”、回车键,请写出窗体上的输出结果。 PrivateSubText1_KeyPress(KeyasciiAsInteger) IfKeyascii Keyascii=0 PrintText1.Text EndIf EndSub 六、程序设计(每小题10分,共20分) 1、编写Form_Click()事件过程,完成如下功能: (1)声明一个有10个元素的数组x,给数组元素赋[10,99]范围的随机整数并打印输出; (2)对该数组元素按从大、小顺序排序,打印输出排序结果。 PrivateSubForm_Click() Dimx(1to10)asInteger EndSub 2、编写计算n! 的函数过程FunctionJC(nAsInteger),在Form_Click()中调用函数JC(n),计算15! -7! 的值,在文本框Text1中输出结果。 FunctionJC(nAsInteger)AsLong EndFunction PrivateSubForm_Click() EndSub
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- A07C07 公共 VB 期终 试题