[计算机类试卷]VB笔试模拟试卷202及答案与解析.doc
《[计算机类试卷]VB笔试模拟试卷202及答案与解析.doc》由会员分享,可在线阅读,更多相关《[计算机类试卷]VB笔试模拟试卷202及答案与解析.doc(20页珍藏版)》请在麦多课文档分享上搜索。
1、VB 笔试模拟试卷 202及答案与解析 1 以下不能在 “工程资源管理器 ”窗口中列出的文件类型是 ( )。 ( A) .bas ( B) .res ( C) .frm ( D) .ocx 2 在窗体上画三个单选按钮,组成一个名为 chkOption的控件数组。用于标识各个控件数组元素的参数是 ( )。 ( A) Tag ( B) Index ( C) Listlndex ( D) Name 3 设有数组定义语句: Dima(5)AsInteger, Listl为列表框控件。下列给数组元素赋值的语句错误的是 ( )。 ( A) a(3)=3 ( B) a(3)=inputbox(“inputd
2、ata“) ( C) a(3)=Listl.Listlndex ( D) a=Array(1, 2, 3, 4, 5, 6) 4 不能正确表示条件 “两个整型变量 A和 B之一为 0,但不能同时为 0”的布尔表达式是 ( )。 ( A) A*B=0 andA+B 0 ( B) (A=0 orB=0)and(A 0 Or B 0) ( C) not(A=0 And B=0)and(A=0 or B=0) ( D) A*B=0 and(A=0 or B=0) 5 下列关于过程的叙述不正确的是 ( ) ( A)过程的传值调用是将实参的具体值传递给形参 ( B)过程的传址调用是将实参在内存的地址传递给
3、形参 ( C)过程的传值调用参数是单向传递的,过程的传址调用参数是双向传递的 ( D)无论过程传值调用还是过程传址调用,参数传递都是双向的 6 设置标签边框的属性是 ( )。 ( A) BorderStyle ( B) BackStyle ( C) AutoSize ( D) Alignment 7 如果 A为整数,且 |A| =100,则打印 “OK“,否则打印 “Error“,表示这个条件的单行 格式 If语句是 ( )。 ( A) If int(A)=AAnd Sqr(A) =10ThenPrint“OK“ElsePrint“Error“ ( B) IF Fix(A)=AAndAbs(A
4、) =100Then Print“OK“Else Print“Error“ ( C) IF Int(A)=AAnd(A =100,A =-100)ThenPrint“OK“ElsePrim“Error“ ( D) If Fix(A)=AAndA =100,AndA =-100ThenPrint“OK“ElsePrint“Error“ 8 下列叙述中正确的是 ( )。 ( A)在窗体的 Form_Load事件过程中定义的变量是全局变量 ( B)局部变量的作用域可以超出所定义的过程 ( C)在某个 Sub过程中定义的局部变量可以与其他事件过程中定义的局部变量同名,但其作用域只限于该过程 ( D)在
5、调用过程时,所有局部变量被系统初始化为 0或空字符串 9 若要设置文本框中所显示的文本颜色,使用的属性是 ( )。 ( A) BackColor ( B) FillColor ( C) ForeColor ( D) BackStyle 10 在 VB中按文件的访问方式不同,可以将文件分为 ( )。 ( A)顺序文件、随机文件和二进制文件 ( B)文本文件和数据文件 ( C)数据文件和可执行文件 ( D) ASCII文件和二进制文件 11 在新建一个 VisualBasic工程时,将新建窗体的 Name属性 设置为 TheFirst,则默认的窗体文件名为 ( )。 ( A) Form1.frm
6、( B)工程 1.frm ( C) TheFirst.frm ( D) Form1.vbp 12 要建立一个随机文件记录学生的信息,下列定义了学生的记录类型,由学号、姓名、五门课程成绩 (百分制 )组成,下列的定义正确的是 ( )。 ( A) Type stu no As Integer name As String score(1 To 5)As Single End Type ( B) Type stu no As Integer name As String*10 score()As Single End Type ( C) Type stu no As Integer name As
7、String*10 score(1 To 5)As Single End Type ( D) Type stu no As Integer name As String score()As Single End Type 13 设有变量声明为 “Dim aDate As Date”,则为变量 aDate正确赋值的表达方式是( )。 ( A) aDate=#8/2008# ( B) aDate=#“8/8/2008“# ( C) aDate=Date(“8/8/2008“) ( D) aDate=Format(“m/d/yy“, “8/8/2008“) 14 表达式 Str(Len(“123“)
8、+Str(77.7)的值是 ( )。 ( A) 377.7 ( B) 377.7 ( C) 80.7 ( D) 12377.7 15 已知代数式 eXSin(30)2x/(x+y)Lnx,则正确的 Visual Basic表达式为 ( )。 ( A) E*Sin(30*3.14/180)*2*X/X+Y*Log(X) ( B) Exp(X)*Sin(30)*2*X/(X+Y)*Ln(X) ( C) Exp(X)*Sin(30*3.14/180)*2*x/(x+y)*Log(x) ( D) Exp(X)*Sin(30*3.14/180)*2*X/(X+Y)*Ln(X) 16 在使用打印直接输出信
9、息时,下列哪个属性或方法实现了使文件结束打印( )。 ( A) Print方法 ( B) Page属性 ( C) NewPage方法 ( D) EndDoc方法 17 窗体上添加一个文本框 Text1,编写下列代码: Private Sub Text1_KeyDown(KeyCode As Integer,Shift As Integer) Print Chr(KeyCode+5)i ( A) i=1 ( B) i=2 ( C) i=3 ( D) i=4 23 下列程序运行时输出的结果是 ( )。 Option Base 1 Const a=10 Private Sub Form_Click(
10、) Dim x(a)As Integer k=-1 For i=1 To a x(i)=i*k k=(-1)*k Next i For i=1 To 10 Print x(i) Next i End Sub ( A) 1 3 5 7 9 10 ( B) -1-3-5-7-9 ( C) -1 2-3 4-5 6-7 8-9 10 ( D) 1-2 3-4 5-6 7-8 9-10 24 有下列程序段,其输出结果是 ( )。 a=0:b=0 For i=-1 To -2 Step -1 For j=1 To 2 b=b+1 Next j a=a+1 Next i Print a;b ( A) 2
11、3 ( B) -2 2 ( C) 4 2 ( D) 2 4 25 下列程序段错误的是 ( )。 ( A) Dim a As Integer a=array(1,2,3,4) ( B) Dim a(),b() a=array(1,2,3,4): b=a ( C) Dim a As Variant a=array(1,“aSd“,true) ( D) Dim a()As Variant a=array(1,2,3,4) 26 在窗体上画一个名称为 Text1的文本框,然后画三个单选按钮,并用这三个单选按钮建立一个控件数组,名称为 Option1,程序运行后,如果单击某个单选按钮,则文本框中的字体将
12、根据所选择的单选按钮切换,请选择空白处合适的语句( )。 Private Sub Option1_Click(Index AS Integer) Select Case_ Case 0 a=“宋体 “ Case 1 a=“黑体 “ ( A) Option Text ( B) Index Text ( C) Index Font ( D) Option Font 27 有下列函数过程: Function fun1(ByVal x As Integer,ByVal y As Integer)As Integer Do While y 0 reminder=x MOd y x=y y=reminde
13、r Loop fun1=x End Function 在下列按钮单击事件中调用该函数,则该程序的运行结果是( )。 Private Sub Command1_Click() Dim a ( A) 0 ( B) 25 ( C) 50 ( D) 100 28 下列程序的运行结果是 ( )。 Private Sub Command1_Click() a=1.5 b=1.5 Call fun(a,B) Print a,b End Sub Private Sub fun(x,y) x=y*y y=y+x End Sub ( A) 2.25 3.75 ( B) 1.5 2.25 ( C) 1.5 0.75
14、 ( D) 0.75 1.5 29 假定有一个菜单项,名为 MenuItem,为了在运行时使该菜单项不可见,应使用的语句为 ( )。 ( A) MenuItem.Enabled=False ( B) MenuItem.Enabled=Trme ( C) MenuItem.Visible=True ( D) MenuItem.Visible=Flase 30 下列 ( )事件过程可以将打开文件对话框的标题改变为 “new Caption”。 ( A) Private Sub Command1_Click() CommonDialog1.DialogTitle=“new Caption“ Comm
15、onDialog1.ShowFont End Sub ( B) Private Sub Command1_Click() CommonDialog1.DialogTitle=“new Caption“ CommonDialog1.ShowOpen End Sub ( C) Private Sub Command1_Click() CommonDialog1.DialogTitle=“new Caption“ CommonDialog1.ShowHelp End Sub ( D) Private Sub Command1_Click() CommonDialog1.DialogTitle=“ne
16、w Caption“ CommonDialog1.ShowColor End Sub 31 在窗体上画一个名称为 “Command1”,标题为 “计算 ”的命令按钮,再画 7个标签,其中 5个标签组成名称为 Label1的控件数组;名称为 Label2的标签用于显示计算结果,其 Caption属性的初始值为空;标签 Label3的标题为 “计算结果 ”。运行程序时会自动生成 5个随机数,分别显示在标签控件数组的各个标签中。单击 “计算 ”按钮,则将标签数组各元素的值累加,然后计算结果显示在 Label2。下列为 “计算 ”按钮的事件过程,请为横线处选择合适的语句 ( )。 Private Su
17、b Command1_Click ( A) Label1(i).Caption Label2.Caption ( B) Label1(i).Caption Label3.Caption ( C) Label1.Caption Label2.Caption ( D) Label1.Caption Label3.Caption 32 按文件的访问方式不同,可以将文件分为 ( )。 ( A)顺序文件、随机文件 ( B)文本文件和数据文件 ( C)数据文件和可执行文件 ( D) ASC 文件和二进制文件 33 在 C盘当前文件夹下建立一个名为 SDat.txt的顺序文件。要求用 InputBox函数输
18、入 5名学生的学号 (StuNo)、姓名 (StuName)和英语成绩 (SmEng)。则在下列横线处合适的语句是 ( )。 Private Sub Form_Click() Open“C: SDat.txt“For Output AS 1 For i=1 To 5 SmNo=InputBox(“请输入学号 “) StuName=InputBox(“请输入姓名 “) ( A) Input #1,StuNo,StuName,StuEndg ( B) Put #1,StuNo,StuName,StuEndg ( C) Write #1,StuNo,StuName,StuEndg ( D) Get
- 1.请仔细阅读文档,确保文档完整性,对于不预览、不比对内容而直接下载带来的问题本站不予受理。
- 2.下载的文档,不会出现我们的网址水印。
- 3、该文档所得收入(下载+内容+预览)归上传者、原创作者;如果您是本文档原作者,请点此认领!既往收益都归您。
下载文档到电脑,查找使用更方便
2000 积分 0人已下载
下载 | 加入VIP,交流精品资源 |
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 计算机 试卷 VB 笔试 模拟 202 答案 解析 DOC
