[计算机类试卷]VB笔试模拟试卷214及答案与解析.doc
《[计算机类试卷]VB笔试模拟试卷214及答案与解析.doc》由会员分享,可在线阅读,更多相关《[计算机类试卷]VB笔试模拟试卷214及答案与解析.doc(23页珍藏版)》请在麦多课文档分享上搜索。
1、VB 笔试模拟试卷 214及答案与解析 1 设在窗体上有个文本框,然后编写如下的事件过程: Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) Const Alt=4 Const Key_F2=s; End Sub Function Fun(a()As Integer) Dim t# i% t=1 For i=LBound(A) To UBound(A) t=t*a(i) Next Fun=t End Function 38 在 Visual Basic的立即窗口内输入以下语句: X=97 CR ?Chr$(X) CR
2、 在窗口中显示的结果是 _。 39 下列程序计算 Sn的值。 Sn=a+aa+aaa+aaaa ,其中最后一项为 n个。 例如: a=5, n=4时,则 Sn=5+55+555+5555。请在空白处填入适当的内容,将程序补充完整。 Private Sub Command1_Click() Dim a As Integer, n As Integer, Cout As Integer Dim Sn As Long, Tn As Long Cout=1 Sn=0 Tn=0 a=InputBox(“请输入 a的值 :“) _ Do Tn=Tn*10+a Sn=Sn+Tn Cout=Cout+1 _
3、Debug.Print a,n,Sn End Sub 40 下面程序是由鼠标事件在窗体上画图,如果按下鼠标将可以画图,双击窗体可以清除所画图形。补充完整下而的程序。 首先在窗体层定义如下变量: Dim PaintStart As Boolean 编写如下事件过程: Private Sub Form_Load() DrawWidth=2 ForeColor=vbGreen End Sub Private Sub Form_MouseDown(Button As Integer, Shift As Integer,_X As Single, Y As Single) PaintStart=True
4、 End Sub Private Sub Form_MouseMove(Button As Integer, Shift As Integer,_x As Single, Y As Single) If PaintStart Then PSet(X,Y) End If End Sub Private Sub Form_MouseUp(Button As Integer, Shift As Integer,_X As Single, Y As Single) _ End Sub Private Sub Form-DblClick() Cls End Sub 41 有一个事件过程,其功能是:从已存
5、在于磁盘上的顺序文件 NM1.txt中读取数据, 计算读出数据的平方值,将该数据及其平方值存入新的顺序文件 NM2.txt中。请填空。 Private Sub Form_Click() Dim x As Single, y As Single Open“NM1.txt“For Input As #1 Open“NM2.txt“For Input As #2 Do While Not EOF(1) _ Print x y=x2 _ Print y Loop Close #1,#2 End Sub 42 测试用例包括输入值集和 _值集。 43 在树形结构中,树根结点没有 _。 44 数据结构分为逻
6、辑结构与存储结构,线性链表属于 _。 45 一个项目具有一个项目主管,一个项目主管可管理多个项目,则实体 “项目主管 ”与实体 “项目 ”的联系属于 _的联系。 46 数据库设计分为以下 6个设计阶段:需求分析阶段、 _、逻辑设计阶段、物理设计阶段、实施阶段及数据库运行和维护阶段 。 47 如果不指明函数过程参数的类型,则该参数的数据类型为 _。 VB 笔试模拟试卷 214答案与解析 1 【正确答案】 D 【试题解析】 此题是有关 KeyDown 事件的题目, KeyDown 是当一个键被按下时所产生的事件,而 KeyUp是松开被按键时产生的事件。如果要判断是否按下了某个转换键,可以用逻辑运算
7、符 And。例如,先定义了下面 3个符号常量: Const Shift=1, const Ctrl=2, const Alt=4,然后用下面的语句判断是否按下 Shift、ctrl、 Alt键。 如果 Shift And Shift 0,则按下了 Shift键。 如果 Shift And Ctrl 0,则按下了 Ctrl 键。 如果 Shift And Alt 0,则按下了 Alt键。 这里的 Shift是 Key Down 的第 2个参数;此事件过程中的 If后的条件语句如果为真,则是按下了 Alt+F2,而本题中是按下了 Shift+F2,所以不执行 Then 语句,即文本框的内容无变化。
8、 2 【正确答案】 A 3 【正确答案】 D 4 【正确答案】 A 【试题解析】 通用对话框控件的 CommonDialogl 的 Filter属性用来指定在对话框中显示的文件类型。利用该属性可以设置多个文件类型,供用户在对话框的 “文件类型 ”的下拉列表中选择。 Fiher的属性值由一对或多对文本字符串组成,每对字符串用管道符 “|”隔开,在管道符 “|”前面的部分称为描述,后面的部分一般为通配符和文件扩展名,称为 “过滤器 ”。如 “*.txt”等,各对字符串之间也用管道符隔开。其格式如下: 窗体 .对话框名 .Filter=“描述符 1|过滤器 1|描述符 2|过滤器 2“ 如果省略窗体
9、,则为当前窗体。本题执行语 句后,可以在文件类型栏内通过下拉列表选择所要显示的文件类型,而最初默认显示的文件类型 (过滤器 )可以由FilterIndex 属性来指定,该属性是一个整数。用 Filter属性设置多个过滤器后,每个过滤器都有一个值,第 1个过滤器的值为 1,第 2个过滤器的值为 2 用FilterIndex 属性可以指定作为默认显示的过滤器,本题中的值是 1,所以显示 All Files(*.*)。 5 【正确答案】 C 【试题解析】 这是一个 3重循环嵌套的程序。多重 For循环的执行过程是:外层循环的循环控制变量每取一个值,内循环 的循环控制变量要取遍所有的值。这个程序中最外
10、两层循环的最后一次循环执行 k1=4, K2=3时,都要再执行一次y=10,不管 y以前取得何值, y都要重新取得初值 10,这时再执行 1次内循环。内层循环体要执行 3次,即加 3次 10。 y最终的值是 40。 6 【正确答案】 C 7 【正确答案】 C 8 【正确答案】 B 【试题解析】 Open语句对文件 “输入 /输出 ”操作,语法如下: Open文件名 For模式 As#文件号 其中模式为 Append,表示以追加数据的方式在文尾写数据。 9 【正确答案】 B 【试题解析】 在 Visual Basic中,一般可以用 Array函数解决数值初始值的输入,格式为: 数组名 =Arra
11、y(要输入的值 ) 本题中声明的数组 d,默认下界为 0,即数组第一个元素为 d(0),所以当程序调用 Array函数后, d(0)=a, d(1)=b, d(2)=c, d(3)=d。不难看出,最后 Print语句要输出的是 d(1)、 d(3)的值,即 b、 d。所以选项 B)正确。 10 【正确答案】 C 11 【正确答案】 B 【试题解析】 主调函数最终输出 值是 Pat(FirStr)过程的返回值,这就需要调用函数过程 Pat。 被调过程 Pat的参数 xStr从主调函数中收到实参 FirStr传来的值 “abcdef“,过程 Pat开始声明了两个变量:一个是 String 型的 t
12、empStr;一个是 Integer型的strLen。语句 ternpStr=“。 strLen=Len(xStr)以上两条语句的功能是:为变量 tempstr赋空值,变量 strkn 的值就是 xstr的长度,此题为 6。程序代码执行 Do WhileLoop 的循环语句: 第 1次循环结束后, tempStr=“af“; 第 2次循环, i=2, i =3成立,继续执行循环体, tempStr=“afbe“; 第 3次循环, i=3, i =3成立,继续执行循环体, tempStr=“afbecd“; 第 4次循环, i=4, i =3不成立,则跳出循环体,执行语句 Pat=tempStr
- 1.请仔细阅读文档,确保文档完整性,对于不预览、不比对内容而直接下载带来的问题本站不予受理。
- 2.下载的文档,不会出现我们的网址水印。
- 3、该文档所得收入(下载+内容+预览)归上传者、原创作者;如果您是本文档原作者,请点此认领!既往收益都归您。
下载文档到电脑,查找使用更方便
2000 积分 0人已下载
下载 | 加入VIP,交流精品资源 |
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 计算机 试卷 VB 笔试 模拟 214 答案 解析 DOC
