77范文网 - 专业文章范例文档资料分享平台

2006年4月全国计算机等级考试二级VB笔试试题(2)

来源:网络收集 时间:2019-03-09 下载这篇文档 手机版
说明:文章内容仅供预览,部分内容可能不全,需要完整文档或者需要复制内容,请下载word后使用。下载word有问题请添加微信号:或QQ: 处理(尽可能给您提供完整文档),感谢您的支持与谅解。点击这里给我发消息

Text2.Text=Val(Text1.Text) Case 1

Text2.Text=Val(Text1.Text)*10 Case 2

Text2.Text=Val(Text1.Text)*100 End Select End If End Sub A.Index b.Option1.Index C.Option1(Index) D.Option1(Index).Value

(25)在窗体上画1个命令按钮,其名称为Command1,然后编写如下程序: Private Sub Command1_Click() Dim a(10)As Integer Dim x As Integer For i=1 To 10 a(i)=8+i Next x=2

Print a(f(x)+x) End Sub

Function f(x As Integer) x=x+3 f=x

End Function

程序运行后,单击命令按钮,输出结果为。 A.12 b.15 C.17 D.18

2006年4月笔试试卷第5页(共12页)2006年4月笔试试卷第6页(共12页)(26)以下关于过程的叙述中,错误的是。

A.事件过程是由某个事件触发而执行的过程 B.函数过程的返回值可以有多个 C.可以在事件过程中调用通用过程 D.不能在事件过程中定义函数过程

(27)在窗体上画3个标签、3个文本框(名称分别为Text1、Text2和Text3)和1个命令按钮(名

称为Command1),外观如图所示。 编写如下程序: Private Sub Form_Load() Text1.Text=\ Text2.Text=\ Text3.Text=\ End Sub

Private Sub Command1_Click() x=Val(Text1.Text) y=Val(Text2.Text) Text3.Text=f(x,y) End Sub

Function f(ByVal x As Integer,ByVal y As Integer) Do While y<>0 tmp=x Mod y x=y y=tmp Loop f=x

End Function

运行程序,在Text1文本框中输入36,在Text2文本框中输入24,然后单击命令按钮,则在Text3文本框中显示的内容是。 A.4 b.6 C.8 D.12

(28)窗体上有名称分别为Text1、Text2的2个文本框,要求文本框Text1中输入的数据小于500,文本框Text2中输入的数据小于1000,否则重新输入。为了实现上述功能,在以下程序中问号(?)处应填入的内容是。 Private Sub Text1_LostFocus() Call CheckInput(Text1,500) End Sub

Private Sub Text2_LostFocus() Call CheckInput(Text2,1000) End Sub

Sub CheckInput(t As ?,x As Integer) If Val(t.Text)>x Then MsgBox\请重新输入!\

End If End Sub A.Text b.SelText C.Control D.Form

来源:考试大-计算机二级考试(29)在窗体上画1个文本框,其名称为Text1,然后编写如下过程:

Private Sub Text1_KeyDown(KeyCode As Integer,Shift As Integer) Print Chr(KeyCode) End Sub

Private Sub Text1_KeyUp(KeyCode As Integer,Shift As Integer) Print Chr(KeyCode+2) End Sub

程序运行后,把焦点移到文本框中,此时如果敲击“A”键,则输出结果为。 A)A AB)A BC)A CD)A D

(30)为了使列表框中的项目呈多列显示,需要设置的属性为。 A.Columns b.Style C.List D.MultiSelect

(31)在窗体上画1个命令按钮,名称为Command1,然后编写如下程序: Dim Flag As Boolean

Private Sub Command1_Click() Dim intNum As Integer intNum=InputBox(\请输入:\ If Flag Then Print f(intNum) End If End Sub

Function f(X As Integer)As Integer If X<10 Then Y=X Else

Y=X+10 End If f=Y End Function

Private Sub Form_MouseUp(Button As Integer,Shift As Integer,X As Single,Y As Single) Flag=True End Sub

运行程序,首先单击窗体,然后单击命令按钮,在输入对话框中输入5,则程序的输出结果为。 A.0 b.5 C.15

D.无任何输出

(32)在菜单编辑器中建立1个名称为Menu0的菜单项,将其“可见”属性设置为False,并建立其若干子菜单,然后编写如下过程:

Private Sub Form_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single) If Button=1 Then PopupMenu Menu0 End If End Sub

则以下叙述中错误的是。 A.该过程的作用是弹出一个菜单 B.单击鼠标右键时弹出菜单

C.Menu0是在菜单编辑器中定义的弹出菜单的名称 D.参数X、Y指明鼠标当前位置的坐标

(33)窗体上有1个名称为CD1的通用对话框,1个名称为Command1的命令按钮。命令按钮的单击事件过程如下:

Private Sub Command1_Click() CD1.FileName=\

CD1.Filter=\ C.|*.Doc|(*.Txt)|*.txt\ CD1.FilterIndex=2 CD1.Action=1 End Sub

关于以上代码,错误的叙述是。

A.执行以上事件过程,通用对话框被设置为“打开”文件对话框 B.通用对话框的初始路径为当前路径 C.通用对话框的默认文件类型为*.Txt

D.以上代码不对文件执行读写操作 (34)以下叙述中错误的是。

A.用Shell函数可以执行扩展名为.exe的应用程序

B.若用Static定义通用过程,则该过程中的局部变量都被默认为Static类型 C.Static类型的变量可以在标准模块的声明部分定义 D.全局变量必须在标准模块中用Public或Global声明 (35)以下关于文件的叙述中,错误的是。

A.使用Append方式打开文件时,文件指针被定位于文件尾

B.当以输入方式(Input)打开文件时,如果文件不存在,则建立一个新文件 C.顺序文件各记录的长度可以不同

D.随机文件打开后,既可以进行读操作,也可以进行写操作二、填空题(每空2分,共30分)

请将每空的正确答案写在答题卡【1】~【15】序号的横线上,答在试卷上不得分。 (1)对长度为10的线性表进行冒泡排序,最坏情况下需要比较的次数为【1】。 (2)在面向对象方法中,【2】描述的是具有相似属性与操作的一组对象。 (3)在关系模型中,把数据看成是二维表,每一个二维表称为一个【3】。

(4)程序测试分为静态分析和动态测试。其中【4】是指不执行程序,而只是对程序文本进行检查,通过阅读和讨论,分析和发现程序中的错误。

(5)数据独立性分为逻辑独立性与物理独立性。当数据的存储结构改变时,其逻辑结构可以不变,因此,基于逻辑结构的应用程序不必修改,称为【5】。 (6)下列语句的输出结果是【6】。

Print Format(Int(12345.6789*100+0.5)/100,\,0.00\

(7)在窗体上画1个命令按钮,其名称为Command1,然后编写如下事件过程: Private Sub Command1_Click() Dim arr(1 To 100)As Integer For i=1 To 100 arr(i)=Int(Rnd*1000)

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读,免费范文网,提供经典小说综合文库2006年4月全国计算机等级考试二级VB笔试试题(2)在线全文阅读。

2006年4月全国计算机等级考试二级VB笔试试题(2).doc 将本文的Word文档下载到电脑,方便复制、编辑、收藏和打印 下载失败或者文档不完整,请联系客服人员解决!
本文链接:https://www.77cn.com.cn/wenku/zonghe/504706.html(转载请注明文章来源)
Copyright © 2008-2022 免费范文网 版权所有
声明 :本网站尊重并保护知识产权,根据《信息网络传播权保护条例》,如果我们转载的作品侵犯了您的权利,请在一个月内通知我们,我们会及时删除。
客服QQ: 邮箱:tiandhx2@hotmail.com
苏ICP备16052595号-18
× 注册会员免费下载(下载后可以自由复制和排版)
注册会员下载
全站内容免费自由复制
注册会员下载
全站内容免费自由复制
注:下载文档有可能“只有目录或者内容不全”等情况,请下载之前注意辨别,如果您已付费且无法下载或内容有问题,请联系我们协助你处理。
微信: QQ: