ImageVerifierCode 换一换
格式:DOC , 页数:30 ,大小:172KB ,
资源ID:504150      下载积分:2000 积分
快捷下载
登录下载
邮箱/手机:
温馨提示:
如需开发票,请勿充值!快捷下载时,用户名和密码都是您填写的邮箱或者手机号,方便查询和重复下载(系统自动生成)。
如填写123,账号就是123,密码也是123。
特别说明:
请自助下载,系统不会自动发送文件的哦; 如果您已付费,想二次下载,请登录后访问:我的下载记录
支付方式: 支付宝扫码支付 微信扫码支付   
注意:如需开发票,请勿充值!
验证码:   换一换

加入VIP,免费下载
 

温馨提示:由于个人手机设置不同,如果发现不能下载,请复制以下地址【http://www.mydoc123.com/d-504150.html】到电脑端继续下载(重复下载不扣费)。

已注册用户请登录:
账号:
密码:
验证码:   换一换
  忘记密码?
三方登录: 微信登录  

下载须知

1: 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。
2: 试题试卷类文档,如果标题没有明确说明有答案则都视为没有答案,请知晓。
3: 文件的所有权益归上传用户所有。
4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
5. 本站仅提供交流平台,并不能对任何下载内容负责。
6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。

版权提示 | 免责声明

本文([计算机类试卷]国家二级(VB)机试模拟试卷189及答案与解析.doc)为本站会员(bonesoil321)主动上传,麦多课文库仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对上载内容本身不做任何修改或编辑。 若此文所含内容侵犯了您的版权或隐私,请立即通知麦多课文库(发送邮件至master@mydoc123.com或直接QQ联系客服),我们立即给予删除!

[计算机类试卷]国家二级(VB)机试模拟试卷189及答案与解析.doc

1、国家二级( VB)机试模拟试卷 189及答案与解析 一、选择题 1 程序流程图中带有箭头的线段表示的是 ( )。 ( A)图元关系 ( B)数据流 ( C)控制流 ( D)调用关系 2 结构化程序设计的基本原则不包括 ( )。 ( A)多态性 ( B)自顶向下 ( C)模块化 ( D)逐步求精 3 软件设计中模块划分应遵循的准则是 ( )。 ( A)低内聚低耦合 ( B)高内聚低耦合 ( C)低内聚高耦合 ( D)高内聚高耦合 4 在软件开发中,需求分析阶段产生的主要文档是 ( )。 ( A)可行性分析报告 ( B)软件需求规格说明书 ( C)概要设计说明书 ( D)集成测试计划 5 算法的有

2、穷性是指 ( )。 ( A)算法程序的运行时间是有限的 ( B)算法程序所处理的数据量是有限的 ( C)算法程序的长度是有限的 ( D)算法只能被有限的用户使用 6 对长度为 n的线性表排序,在最坏情况下,比较次数不是 n(n-1) 2的排序方法是 ( )。 ( A)快速排序 ( B)冒泡排序 ( C)直接插入排序 ( D)堆排序 7 下列关于栈的叙述正确的是 ( )。 ( A)栈按 “先进先出 ”组织数据 ( B)栈按 “先进后出 ”组织数据 ( C)只能在栈底插入数据 ( D)不能删除数据 8 在数据库设计中,将 E-R图转换成关系数据模型的过程属于 ( )。 ( A)需求分析阶段 ( B

3、)概念设计阶段 ( C)逻辑设计阶段 ( D)物理设计阶段 9 有三个关系 R、 S和 T如下:由关系 R和 S通过运算得到关系 T,则所使用的运算为 ( )。 ( A)并 ( B)自然连接 ( C)笛卡尔积 ( D)交 10 设有表示学生选课的三张表,学生 S(学号,姓名,性别,年龄,身份证号 ),课程 C(课号,课名 ),选课 SC(学号,课号,成绩 ),则表 SC的关键字 (键或码 )为( )。 ( A)课号,成绩 ( B)学号,成绩 ( C)学号,课号 ( D)学号,姓名,成绩 11 以下叙述中错误的是 ( )。 ( A)标准模块文件的扩展名是 bas ( B)标准模块文件是纯代码文件

4、 ( C)在标准模块中声明的全局变量可以在整个工程中使用 ( D)在标准模块中不能定义过程 12 在 Visual Basic中,表达式 3*2 5 Mod 3的值是 ( )。 ( A) 1 ( B) 0 ( C) 3 ( D)出现错误提示 13 以下选项中,不合法的 Visual Basic的变量名是 ( )。 ( A) a5b ( B)一 xyz ( C) a_b ( D) andif 14 以下数组定义语句中,错误的是 ( )。 ( A) Static a(10)As Integer ( B) Dim c(3, 1,To 4) ( C) Dim d(一 10) ( D) Dim b(0

5、To 5, To 3)As Integer 15 现有语句: y=llf(x 0, x Mod 3, 0)设 x=10,则 y的值是 ( )。 ( A) 0 ( B) 1 ( C) 3 ( D)语句有错 16 窗体上有一个菜单编辑器设计的菜单。运行程序,并在窗体上单击鼠标右键,则弹出一个快捷菜单,如图所示,下列选项错误的是 ( )。( A)在设计 “粘贴 ”菜单项时,在菜单编辑器窗口中设置了 “有效 ”属性 (有 “”) ( B)菜单中的横线是在该菜单项的标题输入框中输入了一个 “一 ”(减号 )字符 ( C)在设计 “选中 ”菜单项时,在菜单编辑器窗口中设置了 “复选 ”属性 (有 “”)

6、( D)在设计该弹出菜单的主菜单项时,在菜单编辑器窗口中去掉了 “可见 ”前面的“” 17 在设计窗体时双击窗体的任何地方,可以打开的窗口是 ( )。 ( A)代码窗口 ( B)属性窗口 ( C)工程资源管理器窗口 ( D)工具箱窗口 18 若变量 a未事先定义而直接使用 (例如: a=0),则变量 a的类型是 ( )。 ( A) Integer ( B) String ( C) Boolean ( D) Variant 19 为把圆周率的近似值 3 14159存放在变量 pi中,应该把变量 pi定义为 ( )。 ( A) Dim pi As Integer ( B) Dim pi(7)As

7、Integer ( C) Dim pi As Single ( D) Dim pi As Long 20 表达式 2*32+4*2 2+32的值是 ( )。 ( A) 30 ( B) 31 ( C) 49 ( D) 48 21 为了使文本框同时具有垂直和水平滚动条,应先把 MultiLine属性设置为True,然后再把 ScrollBars属性设置为 ( )。 ( A) 0 ( B) 1 ( C) 2 ( D) 3 22 文本框 Text1的 KeyDown事件过程如下: Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Intege

8、r) End Sub 其中参数 KeyCode的值表示的是发生此事件时 ( )。 ( A)是否按下了 Alt键或 Ctrl键 ( B)按下的是哪个数字键 ( C)所按的键盘键的键码 ( D)按下的是哪个鼠标键 23 窗体上有一个名称为 HSemlll的滚动条,程序运行后,当单击滚动条两端的箭头时,立即在窗体上显示滚动框的位置 (即刻度值 )。下面能够实现上述操作的事件过程是 ( )。 ( A) Private Sub HSerolll_Change() Print HSerolll Value End Sub ( B) Private Sub HScrolll_Change() Print H

9、Scroll1 SmallChange End Sub ( C) Privme Sub HScrolll_Scroll() Print HScrolll Value End Sub ( D) Privme Sub HScrolll_Scroll() Print HScrolll SmallChange End Sub 24 若已把一个命令按钮的 Default属性设置为 True,则下面可导致按钮的 Click事件过程被调用的操作是 ( )。 ( A)用鼠标右键单击此按钮 ( B)按键盘上的 Esc键 ( C)按键盘上的回车键 ( D)用鼠标右键双击此按钮 25 要使两个单选按钮属于同一个框架

10、,下面三种操作方法中正确的是 ( )。 先画一个框架,再在框架中画两个单选按钮 先画一个框架,再在框架外画两个单选按钮,然后把单选按钮拖到框架中 先画两个单选按钮,再画框架将单选按钮框起来 ( A) ( B) 、 ( C) ( D) 、 、 26 能够存放组合框的所有项目内容的属性是 ( )。 ( A) Caption ( B) Text ( C) List ( D) Selected 27 设窗体上有一个标签 Labell和一个计时器 Timerl, Timerl的 Interval属性被设置为 1000, Enabled属性被设置为 True。要求程序运行时每秒在标签中显示一次系统当前时间

11、。以下可以实现上述要求的事件过程是 ( )。 ( A) Privme Sub Timerl_Timer() Labell Caption=True End Sub ( B) Private Sub Timer1_Timer() Labell Caption=Time$ End Sub ( C) Private Sub Timerl_Timer() Labell Interval=1 End Sub ( D) Privme Sub Timer1_Timer() For k=1 To Timer1 Interval Labell Caption=Timer Next k End Sub 28 窗体

12、上有一个名称为 CD1的通用对话框控件和由四个命令按钮组成的控件数组Command1,其下标从左到右分别为 0、 1、 2、 3,窗体外观如图所示。命令按钮的事件过程如下: Privme Sub Command1_Click(Index As Integer) Select Case Index Case 0 CD1 Action=1 Case 1 CD1 showSave Case 2 CD1 Action=5 Case 3 End End SelectEnd Sub对上述程序,下列叙述中错误的是 ( )。 ( A)单击 “打开 ”按钮,显示打开文件的对话框 ( B)单击 “保存 ”按钮,显

13、示保存文件的对话框 ( C)单击 “打印 ”按钮,能够设置打印选项,并执行打印操作 ( D)单击 “退出 ”按钮,结束程序的运行 29 窗体上有一个名称为 FrfllneI的框架 (如图 ),若要把框架上显示的 “Franticl”改为汉字 “框架 ”,下面正确的语句是 ( )。 ( A) Framel Name=“框架 ” ( B) Framel Caption=“框架 ” ( C) Fralnel Text=“框架 ” ( D) Framel Value=“框架 ” 30 在窗体上画一个名称为 Combol的组合框,名称为 Textt的文本框,以及名称为Command1的命令按钮,如图所示

14、。运行程序,单击命令按钮,将文本框中被选中的文本添加到组合框中,若文本框中没有选中的文本,则将文本框中的文本全部添加到组合框中。命令按钮的事件过程如下: Private Sub CommandlClick() If Textl SelLength0 Then Else Cornbol Addltem Text1 End If End Sub程序中横线处应该填写的是 ( )。 ( A) Combol AddItem Text1 Text ( B) Combol AddItem Text1 SdStart ( C) Combol Addhem Text1 SelText ( D) Combol A

15、ddhem Text1 SelLen舢 31 窗体上有一个名称为 Textl的文本框,一个名称为 CDl的通用对话框,一个标题为 “打开文件 ”的命令按钮,如图所示。 命令按钮的单击事件过程如下: Pfivate Sub CommandlClick()CD1 ShowOoenOpen CD1 FileName For Input As#1MsgBox CD1 FileNanleLine Input#1 sText1 Text=sClose#1End Sub单击命令按钮,执行以上事件过程,打开选定的文件,读取文件的内容并显示在文本框中,以下叙述中正确的是 ( )。 ( A)程序没有错误,可以正确

16、完成打开文件、读取文件中内容的操作 ( B)执行 Open命令时出错,因为没有指定文件的路径 ( C) Open语句是错误的,应把语句中的 For Input改为 For Output ( D) Line Input命令格式错 32 窗体上有一个如右图所示的图形控件,控件中显示了如图所示的文字,可以判断这个图形控件 ( )。 ( A)是图像框 (Image) ( B)是图片框 (PictureBox) ( C)是形状控件 ( D)不是上述 3种控件中的一种 33 窗体上有一个名称为 Combol的组合框,要求在其编辑区输入文本并按回车键后,编辑区中的文本被添加到列表中。下面能实现这一功能的是

17、( )。 ( A) Private Sub Combol_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode=13 Then Combol AddItem Combol Text End If End Sub ( B) Private Sub Combol_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode=13 Then Combol Addltem Text1 Text End If End Sub ( C) Private Sub CombolClick() Com

18、bol Addltem Combol Text End Sub ( D) Private Sub CombolClick() Cornbol AddItem Text1 Text End Sub 34 工程文件中包含一个模块文件和一个窗体文件。模块文件的程序代码是: Public x As Integer Private y As Integer 窗体文件的程序代码是: Dim a As Integer Private Sub Form_Load() Dim b As Integer a=2: b=3: x=10: y=20 End Sub Private Sub CommandlClick(

19、) a=a+5: b=b+5: x=x+5: y=Y+5 Print a; b; x; y End Sub 运行程序,单击窗体上的命令按钮,则在窗体上显示的是 ( )。 ( A) 5 5 15 5 ( B) 7 5 15 25 ( C) 7 8 15 5 ( D) 7 5 15 5 35 窗体上的三个命令按钮构成名称为 Commandl的控件数组。如图所示。程序如下: Private Sub CommandlClick(Index As Integer) If Index=1 Then Print“计算机等级考试 ” End If If Index=2 Then Print Commandl(

20、2) Caption End If End Sub运行程序,单击 “命令按钮2”,则如下叙述中正确的是 ( )。 ( A) Print Command1(2) Caption语句有错 ( B)在窗体上显示 “命令按钮 2” ( C)在窗体上显示 “命令按钮 3” ( D)在窗体上显示 “计算机等级考试 ” 36 下面程序的执 行结果是 ( )。 Private Sub Commandl_Click() a=0 k=1 Do While k负号一 乘除 *整除 取模 Mod加减 +、一。根据优先级顺序,先计算 3*2为 6,再 6 5整除为 1,最后 1 Mod 3取模结果为 1。故 A选项正确

21、。 13 【正确答案】 B 【试题解析】 VB中变量的命名规则为: 必须以字母或汉字开头 由 字母、汉字、数字或下划线组成 不能使用 VB已经占用的关键字。本题选项 B中变量名以下划线开头,不合法。故 B选项错误。 14 【正确答案】 C 【试题解析】 定义数组有 2种格式: 第 1种格式: 数组每一维的只给出下标的上界,即可以使用的下标的最大值。 格式为 Dim public private static(上界, 上界 )As 类型名 形如: Dim a(5)As Interger, )im b(4, 5)As Integer 这种形式,数组各维的下标的下界只能为 0或 1,而且下标 的上界

22、 =下界。本题中C选项下标上界一 10(下界 to上界 ), (下界 to上界 ) 形如: Dim a(一 2 to 5)As Interger Dim a(1 to 3, 2 to 6)As Interger 这种形式,数组各维下标的下界没有限制,只要保证下标的上界 =下界就行。故D选项正确。 以上两种形式也可以混合使用。故 B选项也正确。 15 【 正确答案】 B 【试题解析】 IlF是条件函数,它的语法格式是: IIf(, , ),本题中, x=10时,条件表达式x0的值为 True,执行 x Mod 3即 10 Mod 3结果为 1。故选 B。 16 【正确答案】 A 【试题解析】 快

23、捷菜单中的 “粘贴 ”菜单项为无效时,在菜单编辑器窗口中 “有效 ”属性应该是不选中状态,没有 “”,故 A选项错误。 17 【正确答案】 A 【试题解析】 设计窗体时双击窗体的任何地方,默认打开 的是代码窗口。故选A。 18 【正确答案】 D 【试题解析】 VB不要求必须先定义再使用。如果没有提前定义变量,就直接使用,系统就会将变量的数据类型指定为默认数据类型 Variant变体型。故选 D。 19 【正确答案】 C 【试题解析】 单精度 Single或双精度 Uouble型的变量能够保存浮点型小数,整型 Integer和长整型 Long的变量只能保存整型数据。本题中圆周率为 3 14159

24、,小数,可用定义一个 Single或 Double型变量来保存。故选 C。 20 【正确答案】 B 【试题解析】 根据 VB中算术运算符的优先级顺序计算。先计算 ,即 2*9+4*2 2+9;再计算 *,即 18+4+9;最后计算 +,结果为 31,故选 B。 21 【正确答案】 D 【试题解析】 文本框的 ScrollBars属性值, 0表示无滚动条, 1表示只有水平滚动条, 2表示只有垂直滚动条, 3表示水平和垂直滚动条都有。故 D选项正确。 22 【正确答案】 C 【试题解析】 参数 KeyCode返回的是所按键的键码,而且大小写字母键码值相同。故选 C。 23 【正确答案】 A 【试题

25、解析】 根 据题意可知,用户的操作是单击滚动条两端的箭头,故触发的是滚动条的 Change事件;在窗体上显示的是滚动框的位置,即滚动条的当前刻度值, Value属性值可返回这个值,综合一下,故 A选项正确。 24 【正确答案】 C 【试题解析】 当命令按钮的 Default属性值为 True时,程序运行,按回车键和单击该命令按钮一样都会触发按钮的 Click事件;当命令按钮的 Cancel属性值为True时,程序运行,按 Esc键和单击该命令按钮都会触发按钮的 Click事件。故选 C。 25 【正确答案】 A 【试题 解析】 的操作方法可使两个单选按钮属于同一个框架,其他方法不行。故 A选项

26、正确。 26 【正确答案】 C 【试题解析】 组合框没有 Caption属性; Text属性用来设置或返回组合框中当前选项的文本内容; Selected属性是列表框控件的属性,组合框没有 Selected属性;List属性用来设置或返回组合框中的各选项,它是一个字符串数组,组合框中各选项内容用 List(下标 )表示。故 A、 B、 D选项错误, C选项正确。 27 【正确答案】 B 【试题解析】 Timerl的 Interval属性值 是 1000, Enabled属性为 True,说明定时器开始工作,每隔 1000毫秒 (即 1秒 )触发一次 Timer事件,从而执行一次Timer事件过程

27、。要想每秒在标签中显示一次系统时间,则在 Timer事件过程中把系统时间赋给标签的 Caption属性就能实现。故选 B。 28 【正确答案】 C 【试题解析】 通用对话框中 Action=1,或用 ShowOpen方法都可显示 “打开 ”文件对话框; Action=2,或用 ShowSave方法都可显示文件 “另存为 ”对话框; Action=3,或用 ShowColor方法都 可显示 “颜色 ”对话框; Action=4,或用 ShowFont方法都可显示 “字体 ”对话框; Action=5,或用 ShowPrinter方法都可显示 “打印 ”对话框; 本题中, “打开 ”、 “保存 ”

28、、 “打印 ”、 “退出 ”按钮的下标 (即 Index值 )分别是 0、 1、2、 3,用 Index值区分各命令按钮。 当 Index=0时, CD1 Action=1,说明单击 “打开 ”按钮,会显示 “打开 ”文件对话框; 当 Index=1时, CD1 ShowSave,说明单击 “保存 ”按钮,会显示文件 “另存为 ”对话框;当 Index=3时, End,说明单击 “退出 ”按钮,会结束程序运行。故 A、 B、D选项正确。 当 Index=2时, CDl Action=5,说明单击 “打印 ”按钮,会显示 “打印 ”对话框,但打开对话框后,只能设置打印选项,不能执行打印操作。故

29、C选项错误。 29 【正确答案】 B 【试题解析】 框架的 Name属性是设置框架的名称; Caption属性设置框架的标题,是在框架的左上角显示的内容;框架控件没有 Text和 Value属性。故 B选项正确。 30 【正确答案】 C 【试题解析】 根据题意可知,横线处应该是将文本框中选中文 本添加到组合框中。文本框 Text属性返回整个文本框中的文本,故 A选项错误; SelStart属性返回选中文本的起始位置,故 B选项错误; SelLength属性返回选中文本的长度,故D选项错误; SelText属性返回选中的文本,故 C选项正确。 31 【正确答案】 A 【试题解析】 第 1条语句中

30、用 ShowOpen方法显示 “打开 ”对话框后,在对话框中选中文件,单击 “打开 ”按钮后, CDl FileName属性就会返回打开文件的路径,所以用 Open语句打开文件时,就可用 CDl FileName指定打开文件的路径 ,故B选项说法错误。 因为第 4条语句中要用 Line Input从文件读取数据,故用 Open语句打开文件时用Input模式打开是正确的,故 C选项说法错误。 Line Input命令格式为: Line Input#文件号,变量名,题中 Line Input语句格式正确。故 D选项错误。 本题程序无错误,能实现所说功能,故 A选项正确。 32 【正确答案】 B 【

31、试题解析】 图片框是 “容器 ”控件,可以作为父控件,而图像框不能。图片框可以通过 Print方法接收文本,并可接收由像素组成的图形,而图像框不能接收Print方法输入的信息,也不能用绘图方法在图像框上绘制图形。而形状控件 3D效果的样式,根据题目图示显然不是形状控件。因此这个图形控件是图片框。 33 【正确答案】 A 【试题解析】 在组合框中的输入的文本保存在它的 Text属性中,根据程序要求,只要判断按下了回车键后,使用组合框的 AddItem方法把 Text中的字符添加到列表中即可。选项 C和 D没有判断是否按下回车键,所以排除。而选项 B中使用 AddItem方法添加的是 Text1

32、Text的值,不是组合框 Combol的 Text值,所以也不对。 34 【 正确答案】 D 【试题解析】 程序在模块文件中定义 x为整型全局变量,在整个工程中都起作用,而 y定义为整型私有变量,只能在本模块文件中起作用。在窗体文件中变量 a在本窗体文本中起作用,窗体加载事件中定义的变量 b和没有声明的变量 y,只在本事件过程起作用。程序窗体加载时,对后边有影响的变量值为 a为 2, x为 10,没有指定初值的变量值默认为 0,因此单击命令按钮后, a=a+5=7, b=b+5=5,x=x+5=15, y=y+5=5,结果输出 7 5 15 5。 35 【正确答案】 D 【试题解析】 控件数组

33、与 数据数组一样下标默认从 0开始,即本题中按钮控件数组的 Index值为 0, 1, 2,分别对应命令按钮 1、命令按钮 2、命令按钮 3。当单击命令按钮 2时, Index值为 1,因此程序会输出 “计算机等级考试 ”。 36 【正确答案】 B 【试题解析】 本题主要考查算术运算符中的幂运算,在程序中 x的值为 k的 k次方的 a次方, k的值每次循环都加 1,但 a的值不变总为 0,除 0以外的任何数的0次方都是 1,因此,在 k的值变为 4之前会输出三个 1。 37 【正确答案】 D 【试题解析】 Mid为中部截取函数,格式为 Mid(字符串,起始位置,长度 ),ucase函数的作用是

34、把字符串中的小写字母转换为大写字母。题目中 Mid函数截取字符串 “FormList”第 5个字符开始的 4个字符,结果为 “List”, ucase函数把 “List”全部变为大写,即 “LlST”。 38 【正确答案】 C 【试题解析】 题目程序不能将 List1中的选中项添加到 List2中,List2 AddItem Text一行有误,应该改为 List2 AddItem Listl List(i)才能使Listl中每个选中的行添加到 List2中。列表框控件的 Lis1属性保存了列表框中所有值的数组,可以通过下标访问数组中的值。 39 【正确答案】 A 【试题解析】 题目中 fun过

35、程是一个递归过程,它的结束条件是参数值为奇数。第一次调用,参数值为 6,是偶数所再次调用 fun过程,这次参数为 6 2=3,是奇数,不再调用自身,接着执行下一句输出参数值即 3,然后返回第一次调用过程中执行下一句输出第一次调用参数值,即 6。因此程序会输出 3.6。 40 【正确答案】 B 【试题解析】 题目中定义了一个二维数组,为数组赋初值并找出这些值中最大的值输出。数组中的值为 : a(1, 1)=1*2 mod 1=0a(1, 2)=1*2 mod 2=0a(1, 3)=1*2 mod 3=2 a(2, 1)=2*2 mod 1=0a(2, 2)=2*2 mod 2=0a(2, 3)=

36、2*2 mod 3=1 a(3, 1)=3*2 mod 1=0a(3, 2)=3*2 mod 2=0a(3, 3)=3*2 mod 3=0 显然最大值为 2,因此 Print x语句将在窗体上显示 2。 二、基本操作题 41 【正确答案】 (1)新建一个窗体,设置窗体的 Caption属性和 MaxButton属性值;在窗 体上添加一个标签控件,设置标签控件的 Caption属性,再添加一个文本框控件,设置文本框的 Text属性、 MaxLength属性和 passwordChar属性。【操作步骤】步骤 1:新建一个窗体,根据表 2 1设置窗体的相关属性。步骤 2:向窗体中添加一个标签控件,根

37、据表 2 2设置控件的相关属性。 步骤 3:向窗体中添加一个文本框控件,根据表 2 3设置控件的相关属性。步骤 4:调试并运行程序,关闭程序后按题目要求存盘: (2)新建一个 Forml窗体,在窗体上添加一个 Shape控件并设置控件的 Shape属性为 3一 Circle, BackStyle属性为 1一 Opaque;再添加一个 HScroll控件,设置控件的 Min属性为 0, Max属性为 255,并为 HScroll控件的 Change事件添加代码。【操作步骤】步骤 1:新建一个窗体,在窗体上添加一个 Shape控件,并按照表 2 4设置控件的相关属性。 步骤2:向窗体中添加一个 H

38、Scroll控件,按照表 2 5设置控件的相关属性。步骤 3:双击 HScmlll控件,打开代码编辑窗口,在代码编肄窗口指定位置编写以下代码。编写程序代码。 Private Sub HScrolllChange()End Sub步骤 4:调试并运行程序,关闭程序后按题目要求存盘。 三、简单应用题 42 【正确答案】 (1)本题要产生随机整数,须使用 Rnd函数和 Int函数。 Int函数是将参数转换成整数。 Rnd函数返回小于 1,但大于或等于 0的值,为了生成某个范围内的随机整数,可使用以下公式: Int(upperboundlowerbound+1)*Rnd+lowerbound) 这里,

39、 upperbound是随机数范围的上限, lowerbound则是随机数范围的下限。 【操作步骤】 步骤 1:打开本题工程文件。 步骤 2:分析并编写程序代码。 程序提供代码 Option Base 1 Private Sub Commandl_Click() Dim arrN(20)As Integer Dim Sum As Integer Randomize For i=1 To 20 arrN(i)=Int(Rnd*?) Next i Sum=? For i=l To 20 If?then sum=? End If Next i Print Sum End Sub 程序结束 参考答案

40、第 1个 ?处填入: 1000 第 2个 ?处填入: 0 第 3个 ?处填入: anN(i)500 第 4个 ?处填入: Sum+arrN(i) 步骤 3:调试并运行程序,关闭程序后按题目要求存盘。 (2)根据题意,通过 For循环语句的循环变量 i(初值为 0,终值为 100,步长为 2)来获得 0 100范围内的所有偶数,并逐一将 i2的值累加到变量 s,最后将 s的值显示在文本框中,并将其作为函数返回值。 【操作步骤】 步骤 1:打开本题工程文件。 步骤 2:分析并编写程序代码。 程序提供代 码 Sub SaveData() Open App Path&“ &”outtxt txt”Fo

41、r Output As#1 Print#1 Text1 Text Close#1 End Sub Function Fun() End Furic|ion Private Sub CommandlClick() d=Fun() Text1 Text=d SaveData End Sub 程序结束 参考答案 Function Fun() Dim s As Long i As Integer s=0 For i=0 To 100 If i Mod 2=0 Then s=s+i2 End If Next i Fun=s End Function 步骤 3:调试并运行程序,关闭程序后按题目要求存盘。

42、四、综合应用题 43 【正确答案】 向窗体中添加一个 Text文本框控件,并根据题目要求设置 Text的相关属性,根据代码中 narc函数的首部,可以判断出该函数的功能是判断参数 p是否为水仙花数,可以在函数中 定义一个布尔型变量 flag,将参数 p表示的三位数的个位,十位,百位分别表示出来,通过 if语句判断每位数的立方和是否与该数相等,若将 flag设置为 true,最后返回 flag的值。【操作步骤】步骤 1:打开本题工程文件。步骤 2:向窗体中添加一个 Text文本框控件,并根据题目要求设置Text的相关属性设置方法如表 1 7所示。步骤 3:打开代码编辑窗口,填入相应的代码以实现题目的功能。参考答案 (阴影部分是需考生填入的内容 )Function narc(p As Integer)As BooleanDim flag As BooleanFlag=FalseIf(p Mod 10)3+(p)10Mod 10)3+(p/100)3=p ThenFlag=TrueEnd IfNare=flagEnd Function步骤 4:调试并运行程序。关闭程序后按题目要求存盘。

copyright@ 2008-2019 麦多课文库(www.mydoc123.com)网站版权所有
备案/许可证编号:苏ICP备17064731号-1