2007VB笔试(B卷)
- 格式:doc
- 大小:89.00 KB
- 文档页数:7
西华大学课程考试试题卷一、是非判断题(本大题共5小题,每小题1分,总计5分)(判断下列各小题的叙述正确与否,如正确则在答题纸对应编号上选A,否则选B)1.程序运行时,单击窗体的任意位置都会触发窗体的Click事件。
()2.为了打开一个Visual Basic应用程序,应当分别打开工程文件、窗体文件和标准模块文件。
()3.如果要使某控件在运行时不可见,则应设置该控件的Visible属性为False。
()4.在文本框中每输入一个字符都会触发文本框的Change事件。
()5.在Visual Basic中,用Sub关键字申明的子程序可以通过子程序名带回返回值。
()二、单项选择题(在每个小题四个备选答案中选出一个正确答案)(本大题共20小题,每小题1分,总计20分)1.在Visual Basic 中,工程文件的扩展名为()。
(A).vbp (B).bas (C).exe (D).frm2.Visual Basic 应用程序的运行是()。
(A)从第一个建立的窗体模块开始执行。
(B)以最后建立的窗体模块结束。
(C)程序执行顺序不是预先完全确定好的。
(D)程序执行顺序是预先确定好的。
3.用于声明全局变量的关键字是()。
(A)ReDim (B)Static (C)Public (D)Dim4.语句“Dim a As Integer,b,c As Double ”定义变量b并指定其类型为()。
(A)整型(B)双精度型(C)变体类型(D)语法错误5.若要使命令按钮不可操作,则需要设置()属性。
(A)Caption (B)Visible (C)BackColor (D)Enabled6.在程序运行时,不能改变的是()属性。
(A)Text (B)Name (C)BackColor (D)Caption7. 数学关系“x是小于10的非负数”对应的VB表达式为()。
(A)0<=x<10 (B)x>=0 And x<10(C)x>=0 or x<10 (D)0≤x And x<108.表达式Val("4b2")+ 2 Mod 4 + 23 \ 7 / 3的值是()。
(A)17 (B)55 (C)7 (D)459. 若x是一个正实数,能对x四舍五入保留2位小数的表达式是()。
(A)0.01*Int(100*(x+0.05)) (B)0.01*Int(x+0.05)(C)0.01*Int(100*(x+0.005) (D)0.01*Int(x+0.005)10. 从一个字符串变量str1中间截取一部分字符,需要使用的函数是()。
(A)Str (B)Mid (C)InStr (D)String11. 函数InStr("Visual Basic程序设计教程","设计")的值为()。
(A)14 (B) 15 (C) 16 (D) 1712.如果在窗体上已有一个文本框Text1和一个命令按钮Command1,再编写以下事件过程:Private Sub Command1_Click()x=InputBox("请输入x")y=InputBox("请输入y")Text1.Text=x+yEnd Sub在运行程序时单击Command1,输入20和6,则在文本框Text1中显示的内容是()。
(A)程序出错(B)620 (C)26 (D)20613. 窗体上的控件,不能获得焦点的是()。
(A)文本框(B)列表框(C)标签(D)命令按钮14.在窗体上画两个单选按钮,名称分别为Option1,Option2,标题分别为“宋体”和“黑体”;一个复选框,名称为Check1,标题为“粗体”;一个文本框,名称为Text1,Text属性为“改变文本字体”。
要求程序运行时,“宋体”单选按扭和“粗体”复选框被选中,则能够实现上述要求的语句程序是()。
(A)Option2.Value=True (B)Option2.Value=TrueCheck1.Value=False Check1.Value=True(C)Option1.Value=False (D)Option1.Value=TrueCheck1.Value=2 Check1.Value=115.删除列表框中全部项目所使用的方法是()。
(A)Clear (B)Remove (C)RemoveItem (D)Move16.若想要清除文本框Text1中的文本内容,其正确的语句是()。
(A)Text1.Cls (B)Text1.Text=Null(C)Text1.Text="" (D)Text1.Clear17.窗体上有一个命令按钮Command1和一个列表框List1(Sorted 属性为True),Private Sub Command1_Click()List1.AddItem "Hello"List1.AddItem "China"List1.AddItem "Blue"List1.AddItem "Area"Print List1.list(2)End Sub程序运行后,单击Command1后窗体上的输出结果为()。
(A)Hello (B)China (C)Blue (D)Area18.语句Dim arr(-3 to 4,0 to 3) 所定义的数组的元素个数是()。
(A)32 (B)21 (C)24 (D)2819. 在通用过程的以下叙述中,不正确的是()。
(A)如果不指明参数传送方式,则按传地址方式将实参传送给形参。
(B)如果不指明参数传送方式,则按传值方式将实参传送给形参。
(C)如果指明传值方式,则在调用过程时,不会引起实参的值改变。
(D)如果指明传地址方式,则在调用过程时,可能引起实参的值改变。
20.语句 Open "file1.txt" For Input As #1 表示()。
(A)以随机读写的方式打开随机文件。
(B)以追加方式打开顺序文件。
(C)以读方式打开顺序文件。
(D)以写方式打开顺序文件。
三、阅读分析程序选择题(在每个小题四个备选答案中选出一个正确答案)(本大题共15小题,每小题3分,总计45分)1.阅读下面程序:Private Sub Command1_Click()Dim sPassword As String , i as Integeri= 1DosPassword =InputBox("请输入密码:")If sPassword ="123" ThenLLL: Exit DoEnd Ifi= i+1loop Until i>3If i=4 Then MsgBox "密码错误三次,退出登录" Else MsgBox "成功登录"End Sub(1)该程序的作用是()。
(A)用户输入三次正确口令“123”,才显示“成功登录”,输入三次错误口令才显示“密码错误三次,退出登录”。
(B)用户只输入一次正确口令“123”,就显示“成功登录”,输入一次错误口令就显示“密码错误三次,退出登录”。
(C)用户只输入一次正确口令“123”,就显示“成功登录”输入三次错误口令才显示“密码错误三次,退出登录”。
(D)用户只要输入一次错误口令就会显示“成功登录”,输入三次正确口令才显示“密码错误三次,退出登录”。
(2)如果将LLL处的语句Exit Do去掉,则()。
(A)和原来的程序效果一样。
(B)用户必须输入三次正确口令后,才会显示“成功登录”。
(C)用户必须输入三次口令,且输入任何口令都显示“成功登录”。
(D)用户必须输入三次口令,且输入任何口令都显示“密码错误三次,退出登录”。
2.在窗体上创建一个名称为Text1的文本框对象,然后编写如下程序:Private Sub Text1_KeyPress(KeyAscii As Integer)Static s As IntegerDim c As StringIf Chr(KeyAscii)>="0" And Chr(KeyAscii)<="9" Thens = s + (KeyAscii- Asc("0"))ElseIf KeyAscii= 13 ThenPrint sText1.Locked = TrueEnd IfEnd Sub(1)若焦点位于文本框Text1中,则能够触发KeyPress事件的操作是()。
(A)单击鼠标(B)双击文本框(C)鼠标滑过文本框 (D)按下键盘上的某个键(2)若焦点位于Text1中时,输入"3st4d28f"并按下回车键后,窗体上输出的结果是()。
(A)0 (B)4 (C)8 (D)17(3)若焦点位于Text1中时,输入"3st4d28f"并按下回车键后,以下说法正确的是()。
(A)文本框Text1不能被编辑 (B)文本框Text1变灰(C)文本框Text1内容改变 (D)文本框Text1消失3. 阅读下面程序:Private Sub Command1_Click()Dim a As Integer,b As Integer,c As Integer,i As Integera=2 : b=2For i=1 To 3Call f(a,b,c)Print c;Next iEnd SubSub f(x As Integer,ByVal y As Integer,z As Integer)x=x+1 : y=y+1 : z=x+yEnd Sub(1)程序运行后,单击Command1后,窗体上输出的结果是()。
(A)2 2 2 (B)6 7 8 (C)6 8 10 (D)8 10 12(2)如果将过程定义中ByVal y As Integer改为 y As Integer,窗体上输出的结果是()。
(A)2 2 2 (B)6 7 8 (C)6 8 10 (D)8 10 124. 阅读下面程序:Option ExplicitPrivate Sub Command1_Click()Dim i As Integer, inp As String ,out As Stringinp="ABCDCBA"For i=1 To 4out= Left(inp,i)+Right(inp,i-1)Picture1.Print Tab(20-i+1);outNext iFor i= 1 To 3out= Left(inp,4-i)+Right(inp,4-i-1)Picture1.Print Tab(17+i);outNext iEnd Sub(1) 语句Option Explicit的功能是()。