欢迎来到麦多课文档分享! | 帮助中心 海量文档,免费浏览,给你所需,享你所想!
麦多课文档分享
全部分类
  • 标准规范>
  • 教学课件>
  • 考试资料>
  • 办公文档>
  • 学术论文>
  • 行业资料>
  • 易语言源码>
  • ImageVerifierCode 换一换
    首页 麦多课文档分享 > 资源分类 > DOC文档下载
    分享到微信 分享到微博 分享到QQ空间

    【计算机类职业资格】二级VISUAL+BASIC-7-1及答案解析.doc

    • 资源ID:1327474       资源大小:128KB        全文页数:22页
    • 资源格式: DOC        下载积分:5000积分
    快捷下载 游客一键下载
    账号登录下载
    微信登录下载
    二维码
    微信扫一扫登录
    下载资源需要5000积分(如需开发票,请勿充值!)
    邮箱/手机:
    温馨提示:
    如需开发票,请勿充值!快捷下载时,用户名和密码都是您填写的邮箱或者手机号,方便查询和重复下载(系统自动生成)。
    如需开发票,请勿充值!如填写123,账号就是123,密码也是123。
    支付方式: 支付宝扫码支付    微信扫码支付   
    验证码:   换一换

    加入VIP,交流精品资源
     
    账号:
    密码:
    验证码:   换一换
      忘记密码?
        
    友情提示
    2、PDF文件下载后,可能会被浏览器默认打开,此种情况可以点击浏览器菜单,保存网页到桌面,就可以正常下载了。
    3、本站不支持迅雷下载,请使用电脑自带的IE浏览器,或者360浏览器、谷歌浏览器下载即可。
    4、本站资源下载后的文档和图纸-无水印,预览文档经过压缩,下载后原文更清晰。
    5、试题试卷类文档,如果标题没有明确说明有答案则都视为没有答案,请知晓。

    【计算机类职业资格】二级VISUAL+BASIC-7-1及答案解析.doc

    1、二级 VISUAL+BASIC-7-1及答案解析(总分:100.00,做题时间:90 分钟)一、选择题(总题数:40,分数:40.00)1.下列叙述中正确的是_。(分数:1.00)A.循环队列是队列的一种链式存储结构B.循环队列是队列的一种顺序存储结构C.循环队列是非线性结构D.循环队列是一种逻辑结构2.下列关于线性链表的叙述中,正确的是_。(分数:1.00)A.各数据结点的存储空间可以不连续,但它们的存储顺序与逻辑顺序必须一致B.各数据结点的存储顺序与逻辑顺序可以不一致,但它们的存储空间必须连续C.进行插入与删除时,不需要移动表中的元素D.以上说法均不正确3.一棵二叉树共有 25个结点,其中

    2、 5个是叶子结点,则度为 1的结点数为_。(分数:1.00)A.16B.10C.6D.44.在下列模式中,能够给出数据库物理存储结构与物理存取方法的是_。(分数:1.00)A.外模式B.内模式C.概念模式D.逻辑模式5.在满足实体完整性约束的条件下(分数:1.00)A.一个关系中应该有一个或多个候选关键字B.一个关系中只能有一个候选关键字C.一个关系中必须有多个候选关键字D.一个关系中可以没有候选关键字6.有三个关系 R、S 和 T如下: (分数:1.00)A.自然连接B交C除D并7.下面描述中,不属于软件危机表现的是_。(分数:1.00)A.软件过程不规范B.软件开发生产率低C.软件质量难以

    3、控制D.软件成本不断提高8.下面不属于需求分析阶段任务的是_。(分数:1.00)A.确定软件系统的功能需求B.确定软件系统的性能需求C.需求规格说明书评审D.制定软件集成测试计划9.在黑盒测试方法中,设计测试用例的主要根据是_。(分数:1.00)A.程序内部逻辑B.程序外部功能C.程序数据结构D.程序流程图10.在软件设计中不使用的工具是_。(分数:1.00)A.系统结构图B.PAD图C.数据流图(DFD 图)D.程序流程图11.以下变量名中合法的是_。(分数:1.00)A.x-2B.12abcC.sum_totalD.print12.已知 a=6,b=15,c=23,则语句 Print Sg

    4、n(a+b Mod 6-c/a) End Sub 运行程序,并在文本框中输入“123”,则在窗体上的输出结果为_。(分数:1.00)A.123B.112C.12123D.11212337.窗体上有 1个名称为 Command1的命令按钮,事件过程如下: Private Sub Command1_Click() Dim x%, y%, z% x=InputBox(“请输入第 1个整数“) y=InputBox(“请输入第 2个整数“) Do Until x=y If xy Then x=x-y Else y=y-x Loop Print x End Sub 运行程序,单击命令按钮,并输入 2个整

    5、数 169和 39,则在窗体上显示的内容为_。(分数:1.00)A.11B.13C.23D.3938.窗体上有 1个名称为 Command1的命令按钮,事件过程及函数过程如下: Private Sub Command1_Click() Dim m As String m=InputBox(“请输入字符串“) Print pick_str(m) End Sub Private Function pick_str(s As String)As String temp=“ “ i=1 sLen=Len(s) Do While i=sLen/2 temp=temp+Mid(s, i, 1)+Mid(s

    6、, sLen-i+1, 1) i=i+1 Loop pick_str=temp End Funetion 运行程序,单击命令按钮,并在输入对话框中输入“basic”,则在窗体上显示的内容为_。(分数:1.00)A.bcaiB.cbiaC.bcaisD.cbias39.窗体上有 1个名称为 Command1的命令按钮,事件过程及函数过程如下: Private Sub Command1_Click() Dim p As Integer p=in(1)+m(2)+m(3) Print p End Sub Private Function m(n As Integer)As Integer Stati

    7、c s As Integer For i=1 To n s=s+1 Next m=s End Function 运行程序,第 2次单击命令按钮 Command1时的输出结果为_。(分数:1.00)A.6B.10C.16D.2840.在窗体上画一个名称为 Command1的命令按钮,并编写如下事件过程: Private Sub Command1_Click() x=1 s=0 For i=1 To 5 x=x/i s=s+y Next Print s End Sub 该事件过程的功能是计算_。 AS=1+2+3+4+5 B C D (分数:1.00)A.B.C.D.二、基本操作题(总题数:2,分

    8、数:18.00)41.在名称为 Form1的窗体上添加一个文本框,其名称为 Text1,然后通过属性窗口设置窗体和文本框的属性,实现如下功能: 在文本框中,MultiLine 属性设置为 True。 ScrollBars 属性设置为 2; 文本框中显示的初始文本为“程序设计”; 文本框中显示的字体为三号规则黑体; 窗体的标题为“设置文本框属性”。 完成设置后的窗体如图所示。 要求:不编写任何代码。 注意:存盘时必须存放在 下,工程文件名保存为 sjt1.vbp,窗体文件名保存为 sjt1.frm。 (分数:9.00)_42.在名称为 Form1的窗体上添加两个命令按钮(见图 1),其名称分别为

    9、 Cmd1和 Cmd2,编写适当的事件过程。程序运行后,单击命令按钮 Cmd1,则可使该按钮移到窗体的左上角(只允许通过修改属性的方式实现);单击命令按钮 Cmd2,则可使该按钮在长度和宽度上各扩大到原来的 2倍。程序的运行情况如图 2所示。 要求:不得使用任何变量。 注意:存盘时必须存放在 下,工程文件名保存为 sjt2.vbp,窗体文件名保存为 sjt2.frm。 图 1(分数:9.00)_三、简单应用题(总题数:2,分数:24.00)43.在 下有一个工程文件 sjt3.vbp,相应的窗体文件为 sjt3.frm。其功能是随机产生 30个 01000 的整数,将其放入一个数组中,然后输出

    10、其中的最大值。程序运行后,单击命令按钮(名称为 Command1,标题为“输出最大值”,如图所示),即可求出其最大值,并显示在窗体上。这个程序不完整,请把它补充完整,并能正确运行。 要求:去掉程序中的注释符,把程序中的?改为正确的内容,使其实现上述功能,但不能修改程序中的其他部分。最后将修改后的文件按原文件名存盘。 (分数:12.00)_44.在 下有一个工程文件 sjt4.vbp,相应的窗体文件为 sit4.frm,在窗体上有一个文本框和一个命令按钮。程序运行后,单击命令按钮,即可计算出 11000 范围内能被 7整除或被 5整除的整数的个数,并显示在文本框中。在窗体的代码窗口中,已给出了部

    11、分程序,其中计算能被 7整除或能被 5整除的整数的个数的操作在通用过程 Fun中实现,请编写该过程的代码。 要求:请勿改动程序中的任何内容,只在 Function Fun()和 End Function之间填入你编写的若干语句。最后将修改后的文件按原文件名存盘。 (分数:12.00)_四、综合应用题(总题数:1,分数:18.00)45.在 下有一个工程文件 sjt5.vbp,相应的窗体文件为 sjt5.frm,此外还有一个名为 datain.txt的文本文件,其内容如下: 32 43 78 58 28 12 98 57 31 42 53 64 75 86 97 13 24 35 46 57 6

    12、8 79 80 59 37 程序运行后,单击窗体,将把文件 datain.txt中的数据输入到二维数组 Mat中,按 5行、5 列的矩阵形式显示在窗体上,并输出矩阵左上一右下对角线上的数据,如图所示。在窗体的代码窗口中,已给出了部分程序,这个程序不完整,请把它补充完整,并能正确运行。 要求:去掉程序中的注释符,把程序中的?改为正确的内容,使其实现上述功能,但不能修改程序中的其他部分。最后将修改后的文件按原文件名存盘。 (分数:18.00)_二级 VISUAL+BASIC-7-1答案解析(总分:100.00,做题时间:90 分钟)一、选择题(总题数:40,分数:40.00)1.下列叙述中正确的是

    13、_。(分数:1.00)A.循环队列是队列的一种链式存储结构B.循环队列是队列的一种顺序存储结构 C.循环队列是非线性结构D.循环队列是一种逻辑结构解析:解析 在实际应用中,队列的顺序存储结构一般采用循环队列的形式。2.下列关于线性链表的叙述中,正确的是_。(分数:1.00)A.各数据结点的存储空间可以不连续,但它们的存储顺序与逻辑顺序必须一致B.各数据结点的存储顺序与逻辑顺序可以不一致,但它们的存储空间必须连续C.进行插入与删除时,不需要移动表中的元素 D.以上说法均不正确解析:解析 一般来说,在线性表的链式存储结构中,各数据结点的存储序号是不连续的,并且各结点在存储空间中的位置关系与逻辑关系

    14、也不一致。线性链表中数据的插入和删除都不需要移动表中的元素,只需改变结点的指针域即可。3.一棵二叉树共有 25个结点,其中 5个是叶子结点,则度为 1的结点数为_。(分数:1.00)A.16 B.10C.6D.4解析:解析 根据二义树的性质 3:在任意一棵二叉树中,度为 0的叶子结点总是比度为 2的结点多一个,所以本题中度为 2的结点是 5-1=4个,所以度为 1的结点的个数是 25-5-4=16个。4.在下列模式中,能够给出数据库物理存储结构与物理存取方法的是_。(分数:1.00)A.外模式B.内模式 C.概念模式D.逻辑模式解析:解析 数据库系统的三级模式是概念模式、外模式和内模式。概念模

    15、式是数据库系统中全局数据逻辑结构的描述,是全体用户公共数据视图。外模式也称予模式或厢户模式,它是用户的数据视图,给出了每个用户的局部数据描述。内模式又称物理模式,它给出了数据库物理存储结构与物理存取方法,所以选择 B。5.在满足实体完整性约束的条件下(分数:1.00)A.一个关系中应该有一个或多个候选关键字 B.一个关系中只能有一个候选关键字C.一个关系中必须有多个候选关键字D.一个关系中可以没有候选关键字解析:解析 实体完整性约束要求关系的主键中属性值不能为空值,所以选择 A。6.有三个关系 R、S 和 T如下: (分数:1.00)A.自然连接B交C除 D并解析:解析 如果 S=T/R,则

    16、S称为 T除以 R的商。在除运算中 S的域由 T中那些不出现在 R中的域所组成,对于 S中的任一有序组,由它与关系 R中每个有序组所构成的有序组均出现在关系 T中。所以本题选择 C。7.下面描述中,不属于软件危机表现的是_。(分数:1.00)A.软件过程不规范 B.软件开发生产率低C.软件质量难以控制D.软件成本不断提高解析:解析 软件危机主要表现在:软件需求的增长得不到满足;软件开发成本和进度无法控制;软件质量难以保证;软件不可维护或维护程度非常低;软件的成本不断提高;软件开发生产率的提高赶不上硬件的发展和应用需求的增长。所以选择 A。8.下面不属于需求分析阶段任务的是_。(分数:1.00)

    17、A.确定软件系统的功能需求B.确定软件系统的性能需求C.需求规格说明书评审D.制定软件集成测试计划 解析:解析 需求分析阶段的工作有:需求获取;需求分析;编写需求规格说明书;需求评审,所以选择 D。9.在黑盒测试方法中,设计测试用例的主要根据是_。(分数:1.00)A.程序内部逻辑B.程序外部功能 C.程序数据结构D.程序流程图解析:解析 黑盒测试是对软件已经实现的功能是否满足需求进行测试和验证,黑盒测试完全不考虑程序内部的逻辑结构和内部特性,只根据程序的需求和功能规格说明,检查程序的功能是否符合它的功能说明,所以本题选择 B。10.在软件设计中不使用的工具是_。(分数:1.00)A.系统结构

    18、图B.PAD图C.数据流图(DFD 图) D.程序流程图解析:解析 系统结构图是对软件系统结构的总体设计的图形显示。在需求分析阶段,已经从系统开发的角度出发;把系统按功能逐次分割成层次结构,是在概要设计阶段用到的。PAD 图是在详细设计阶段用到的。程序流程图是对程序流程的图形表示,在详细设计过程中用到。数据流图是结构化分析方法中使用的工具,它以图形的方式描绘数据在系统中流动和处理的过程,由于它只反映系统必须完成的逻辑功能,所以它是一种功能模型,是在可行性研究阶段用到的而非软件设计时用到,所以选择 C。11.以下变量名中合法的是_。(分数:1.00)A.x-2B.12abcC.sum_total

    19、 D.print解析:解析 根据 VB中变量名的命名规则,变量 x-2中有-减号,不合法;变量 12abc是以数字开头,不合法;变最 print是 VB的保留字,不能作变量名,电不合法。sum_total 是符合命名规则,是合法的。故选 C。12.已知 a=6,b=15,c=23,则语句 Print Sgn(a+b Mod 6-c/a) 其中对象名称可以是窗体(Form)、图片框(PictureBox)或打印机(Printer),也可以是立即窗口(Debug)。如果省略对象名称,则在当前窗体上输出。30.设在工程文件中有一个标准模块,其中定义了如下记录类型: Type Books Name A

    20、s String * 10 TelNum As String * 20 End Type 在窗体上画一个名为 Command1的命令按钮,要求当执行事件过程 Command1_Click时,在顺序文件Person.txt中写入一条记录。下列能够完成该操作的事件过程是_。(分数:1.00)A.Private Sub Command1_Click()Dim B As BooksOpen “c:/Person.txt“ For Output As #1. Name=InputBox(“输入姓名“). TelNum=InputBox(“输入电话号码“)Write #1, . Name, . TelNu

    21、mClose #1End Sub B.Private Sub Command1_Click()Dim B As BooksOpen “c:/Person.txt“ For Input As #1. Name=InputBox(“输入姓名“). TelNum=InputBox(“输入电话号码“)Print #1. . Name. . TelNumClose #1End SubC.Private Sub Command1_Click()Dim B As BooksOpen “c:/Person.txt“ For Output As #1. Name=InputBox(“输入姓名“). TelNum

    22、=InputBox(“输入电话号码“)Write #1, BClose #1End SubD.Private Sub Command1_Click()Open “C:/Person.txt“ For Input As #1Name=InputBox(“输入姓名“)TelNum=InputBox(“输入电话号码“)Print#1, Name, TelNumClose #1End Sub解析:解析 数据文件的写操作分为 3步,即打开文件、写入文件和关闭文件。 首先,在顺序文件中打开文件写入数据的打开方式为:Open 文件名 For Output As #文件号。因此 B、C选项排除,只看 A、D

    23、选项。 写入顺序文件 Print #句格式为:Print #文件号,变量名,变量名,Write 语句的的格式与 Print语句一样:Write #文件号,变量名,变量名。而记录类型变量不能整体引用,需要指明记录变量中的成员名,格式为:记录变量名,成员名,Books 类型变量 B成员 Name和 TelNum赋值和引用应该是BName、BTelNum,因此 A选项正确。31.运行如下程序: Private Sub Command1_Click() Dim a(5, 5)As Integer For i=1 To 5 For j=1 To 4 a(i,j)=i*2+j If a(i, j)/7=a

    24、(i, j)/7 Then n=n+1 End If Next j Next Print n End Sub n的值是_。(分数:1.00)A.2B.3 C.4D.5解析:解析 VB 中“/”是浮点除法运算符,“/”是整数除法运算符,程序中的条件表达式 a(i,j)/7=a(i,j)/7成立时说明这个数能够被 7整除,程序即是统计这个二维数组中能被 7整除的数的个数。数组元素值在 i=1时为(3,4,5,6),i=2 时为(5,6,7,8),i=3 时为(7,8,9,10),i=4 时为(9,10,11,12),i=5时为(11,12,13,14),其中能够被 7整除的数有 7、7、14 共

    25、3个。因此答案为 B。32.窗体上有单选钮和列表框控件。单击名称为 Option1、标题为“国家”的单选钮,向列表框中添加国家名称,如下图所示。 (分数:1.00)A.程序有错,没有声明数组的维数及上下界B.只有一维数组才能使用 Array为数组赋初值 C.For循环的终值应为 ListCount-1D.For循环的初值应为 1解析:解析 程序没有错误。数组变量定义时可以不用声明上下界。List 控件列表项的索引从 0开始。Array函数只适用于一组数组,只能对一维数组进行初始化,不能对二维数组或多维数组进行初始化。因此叙述正确的是 B选项。33.现有如下一段程序: Private Sub C

    26、ommand1_Click() x=UCase(InputBox(“输入:“) Select Case x Case “A“ To “C“ Print “考核通过!“ Case “D“ Print“考核不通过!“ Case Else Print “输入数据不合法!“ End Select End Sub 执行程序,在输入框中输入字母“B”,则以下叙述中正确的是_。(分数:1.00)A.程序运行错B.在窗体上显示“考核通过!” C.在窗体上显示“考核不通过!”D.在窗体上显示“输入数据不合法!”解析:解析 程序中 Ucase函数将输入的字母转换为大写,然后通过 Select多分支控制语句选择输出

    27、不同信息,当输入字母在“A”到“C”之间时,显示“考核通过!“,输入的是“D”时显示“考核不通过!”,如果输入的是“A”到“D”之外的其他字符则显示“输入数据不合法!”。程序中输入字母“B”,因此会显示“考核通过!”。34.窗体上有三个水平滚动条,名称分别为 HSRed、HSGreen 和 HSBlue,取值范围均是 0255,代表颜色的三种基色。改变滚动框的位置,可以改变三种基色的值,从而改变窗体的背景色,如下图所示。 (分数:1.00)A.color是窗体级整型数组B.改变任何一个滚动条滚动框的位置,窗体的背景色将立刻随之改变C.3个滚动条 Change事件过程中只设置了一个 color数

    28、组元素的值,调用 fill过程失败 D.fill函数定义中的形式参数是数组型参数解析:解析 当用 Dim语句定义数组时,该语句把数值数组中的全部元索都初始化为 0,而把字符串数组中的全部元素都初始化为空串。因此 color数组中的元素初始值都为 0,没有空值,过程调用不会失败。C选项叙述错。35.命令按钮 Command1的单击事件过程如下: Private Sub Command1_Click() x=10 Print f(x) End Sub Private Function f(y As Integer) f=y*y End Function 运行上述程序,如下叙述中正确的是_。(分数:

    29、1.00)A.程序运行出错,x 变量的类型与函数参数的类型不符 B.在窗体上显示 100C.函数定义错,函数名 f不能又作为变量名D.在窗体上显示 10解析:解析 变量 x在按钮单击事件过程中没有定义,因此系统自动将它定义为 Variant类型,由于过程中参数类型为 Integer,所以程序运行时会提示“ByRef 参数类型不符”错误。A 选项正确。只在按钮事件中加上 Dim x as Integer就可以解决问题,或者 f过程中的 y asinteger改为 ByVal y as integer也可以解决。36.窗体上有 1个名称为 Text1、内容为空的文本框。编写如下事件过程: Priv

    30、ate Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer) Print Text1. Text; End Sub 运行程序,并在文本框中输入“123”,则在窗体上的输出结果为_。(分数:1.00)A.123B.112C.12123D.112123 解析:解析 KeyUp 事件是在松开按钮时发生。按下松开时,文本框中显示 1,执行 KeyUp事件过程,在窗体上显示文本框内容,即 1。按下 2松开时,文本框中显示 12,执行 KeyUp事件过程,在窗体上 1后面接着现在显示文本框的内容,即窗体上显示为 112。按下 3松开时,文本框中显示 1

    31、23,执行 KeyUp事件过程,在窗体上 112后面接着显示文本框的内容,即在窗体上显示为 112123。37.窗体上有 1个名称为 Command1的命令按钮,事件过程如下: Private Sub Command1_Click() Dim x%, y%, z% x=InputBox(“请输入第 1个整数“) y=InputBox(“请输入第 2个整数“) Do Until x=y If xy Then x=x-y Else y=y-x Loop Print x End Sub 运行程序,单击命令按钮,并输入 2个整数 169和 39,则在窗体上显示的内容为_。(分数:1.00)A.11B.

    32、13 C.23D.39解析:解析 程序中 Do循环比较输入的两个数的大小,把较大的数值减去较小的数值后再与较小的值比较,直到两个数值栩等。程序中输入 169和 39,则 x=169-39=130,130y 即 13039,因此 x=130-39=91,如此循环 x=91-39=52-39=13,此时 1339 为假,执行 y=y-x=39-13=26,循环 y=26-13=13,此时x、y 都为 13,循环结束,因此窗体上显示为 13。38.窗体上有 1个名称为 Command1的命令按钮,事件过程及函数过程如下: Private Sub Command1_Click() Dim m As S

    33、tring m=InputBox(“请输入字符串“) Print pick_str(m) End Sub Private Function pick_str(s As String)As String temp=“ “ i=1 sLen=Len(s) Do While i=sLen/2 temp=temp+Mid(s, i, 1)+Mid(s, sLen-i+1, 1) i=i+1 Loop pick_str=temp End Funetion 运行程序,单击命令按钮,并在输入对话框中输入“basic”,则在窗体上显示的内容为_。(分数:1.00)A.bcai B.cbiaC.bcaisD.c

    34、bias解析:解析 过程 pick_str的功能是对输入的字符串的字符重新组合,通过 Do循环从原字符串中头尾开始各取一个字符重新组合,循环次数小于等于原字符串长度整除 2的值。当输入字符串是“basic”时,字符串长度为 5,循环次数为 5/2=2次,因此取出的字符依次是“b”,“c”,“a”,“i”。即“bcai”,因此答案为 A。39.窗体上有 1个名称为 Command1的命令按钮,事件过程及函数过程如下: Private Sub Command1_Click() Dim p As Integer p=in(1)+m(2)+m(3) Print p End Sub Private Fu

    35、nction m(n As Integer)As Integer Static s As Integer For i=1 To n s=s+1 Next m=s End Function 运行程序,第 2次单击命令按钮 Command1时的输出结果为_。(分数:1.00)A.6B.10C.16D.28 解析:解析 在过程 m中 s被定义为静态变量,因此它的值只在第一次调用过程时初始化,以后再调用都不再初始化,而是保留之前的值。m 过程的功能是根据参数值累加,因此第 1次单击时,m(1)+m(2)+m(3)=l+3+6=10,此时变量 s的值,即过程 m的值为 6,第 2次单击时,m(1)+m(

    36、2)+m(3)=7+9+12=28。因此答案为 D。40.在窗体上画一个名称为 Command1的命令按钮,并编写如下事件过程: Private Sub Command1_Click() x=1 s=0 For i=1 To 5 x=x/i s=s+y Next Print s End Sub 该事件过程的功能是计算_。 AS=1+2+3+4+5 B C D (分数:1.00)A.B.C. D.解析:解析 程序中 5次循环 x的值分别为 1/1,1/1/2=1/(1*2),1/1/2/3=1/(1*2*3),1/1/2/3/4=1/(1*2*3*4),1/1/2/3/4/5=1/(1*2*3*

    37、4*5),可以看出 x值就是 1/i!,因此过程的功能就是计算 1+1/2!+1/3!+1/4!+1/5!。因此选项 C正确。二、基本操作题(总题数:2,分数:18.00)41.在名称为 Form1的窗体上添加一个文本框,其名称为 Text1,然后通过属性窗口设置窗体和文本框的属性,实现如下功能: 在文本框中,MultiLine 属性设置为 True。 ScrollBars 属性设置为 2; 文本框中显示的初始文本为“程序设计”; 文本框中显示的字体为三号规则黑体; 窗体的标题为“设置文本框属性”。 完成设置后的窗体如图所示。 要求:不编写任何代码。 注意:存盘时必须存放在 下,工程文件名保存

    38、为 sjt1.vbp,窗体文件名保存为 sjt1.frm。 (分数:9.00)_正确答案:()解析:操作步骤 步骤 1:建立界面,并设置控件的属性。程序中用到的控件及属性见表 1和表 2。 表 1 控件 窗体 属性 Name Caption 设置值 Form1 设置文本框属性 表 2 控件文本框 属性Name Text MultiliScrollBFont ne ars 设置值Text1 程序设计True 2 三号、常规、黑体步骤 2:调试并运行程序,关闭程序后按题目要求存盘。 答案考生文件夹 解析 文本框控件的 MultiLine属性用于设置文本框是否能以多行显示文本,值为True表示允许,

    39、值为 False表示不允许;Font 属性用于设置控件标题中文本的字体、字号和字型等。Text属性用于设置文本框中显示的文本。窗体标题通过其 Caption属性设置。42.在名称为 Form1的窗体上添加两个命令按钮(见图 1),其名称分别为 Cmd1和 Cmd2,编写适当的事件过程。程序运行后,单击命令按钮 Cmd1,则可使该按钮移到窗体的左上角(只允许通过修改属性的方式实现);单击命令按钮 Cmd2,则可使该按钮在长度和宽度上各扩大到原来的 2倍。程序的运行情况如图 2所示。 要求:不得使用任何变量。 注意:存盘时必须存放在 下,工程文件名保存为 sjt2.vbp,窗体文件名保存为 sjt

    40、2.frm。 图 1(分数:9.00)_正确答案:()解析:操作步骤 步骤 1:建立界面,并设置控件的属性。程序中用到的控件及属性见下表。 控件 命令按钮 命令按钮 2 属性 Caption Name Caption Name 设置值 Cmd1 Cmd1 Cmd2 Cmd2 步骤 2:编写程序代码。 Option Explicit Private Sub Cmd1_Click() Cmd1. Left=0 Cmd1. Top=0 End Sub Private Sub Cmd2_Click() Cmd2. Height=Cmd2. Height*2 Cmd2. Width=Cmd2. Widt

    41、h *2 End Sub 步骤 3:调试并运行程序,关闭程序后按题目要求存盘。 答案考生文件夹 解析 在窗体上建立控件后,先设置控件的属性,再编写事件过程。 单击命令按钮触发 Click事件。利用按钮的 Height和 Width属性来改变按钮的大小;利用按钮的 Left和 Top属性来改变按钮的位置。三、简单应用题(总题数:2,分数:24.00)43.在 下有一个工程文件 sjt3.vbp,相应的窗体文件为 sjt3.frm。其功能是随机产生 30个 01000 的整数,将其放入一个数组中,然后输出其中的最大值。程序运行后,单击命令按钮(名称为 Command1,标题为“输出最大值”,如图所

    42、示),即可求出其最大值,并显示在窗体上。这个程序不完整,请把它补充完整,并能正确运行。 要求:去掉程序中的注释符,把程序中的?改为正确的内容,使其实现上述功能,但不能修改程序中的其他部分。最后将修改后的文件按原文件名存盘。 (分数:12.00)_正确答案:()解析:操作步骤 步骤 1:打开本题工程文件。 步骤 2:分析并编写程序代码。 程序提供代码 Option Base 1 Private Sub Command1_Click() Dim arrN(30) As Integer Dim Max As Integer Randomize For i=1 To 30 “arrN(i)=Int(R

    43、nd*?) Next i “?=arrN(1) For i=2 To 30 “If ? Then Max=arrN(i) End If Next i Print Max End Sub 程序结束 第 1个?处填入:1000 第 2个?处填入:Max 第 3个?处填入:arrN(i)Max 或 MaxarrN(i) 步骤 3:调试并运行程序,关闭程序后按题目要求存盘。 答案考生文件夹 解析 Rnd()函数用于产生一个小于 1但大于或等于 0的随机数。 本题程序用变量 Max记录最大数,最初把数组的第一个元素的值赋给 Max,然后通过 For循环语句将其后的元素依次与之比较,如果其值大于 Max则

    44、将其赋值给 Max,依次类推,最终 Max的值就是数组各元素中的最大值。44.在 下有一个工程文件 sjt4.vbp,相应的窗体文件为 sit4.frm,在窗体上有一个文本框和一个命令按钮。程序运行后,单击命令按钮,即可计算出 11000 范围内能被 7整除或被 5整除的整数的个数,并显示在文本框中。在窗体的代码窗口中,已给出了部分程序,其中计算能被 7整除或能被 5整除的整数的个数的操作在通用过程 Fun中实现,请编写该过程的代码。 要求:请勿改动程序中的任何内容,只在 Function Fun()和 End Function之间填入你编写的若干语句。最后将修改后的文件按原文件名存盘。 (分

    45、数:12.00)_正确答案:()解析:操作步骤 步骤 1:打开本题工程文件。 步骤 2:分析并编写程序代码。 Function Fun() Dim s As Integer, i As Integer For i=1 To 1000 If i Mod 5=0 Or i Mod 7=0 Then s=s+1 End If Next i Fun=s End Function 步骤 3:调试并运行程序,关闭程序后按题目要求存盘。 答案考生文件夹 解析 本题要求的是 1000以内能被 5或 7整除的数的个数。在 Visual Basic中,使用Mod运算符来判断一个数是否可以被另一个数整除,如果计算结

    46、果为 0,则表示可以整除,否则不能整除。四、综合应用题(总题数:1,分数:18.00)45.在 下有一个工程文件 sjt5.vbp,相应的窗体文件为 sjt5.frm,此外还有一个名为 datain.txt的文本文件,其内容如下: 32 43 78 58 28 12 98 57 31 42 53 64 75 86 97 13 24 35 46 57 68 79 80 59 37 程序运行后,单击窗体,将把文件 datain.txt中的数据输入到二维数组 Mat中,按 5行、5 列的矩阵形式显示在窗体上,并输出矩阵左上一右下对角线上的数据,如图所示。在窗体的代码窗口中,已给出了部分程序,这个程序不完整,请把它补充完整,并能正确运行。 要求:去掉程序中的注释符,把程序中的?改为正确的内容,使其实现上述功能,但不能修改程序中的其他部分。最后将修改后的文件按原文件名存盘。 (分数:18.00)_


    注意事项

    本文(【计算机类职业资格】二级VISUAL+BASIC-7-1及答案解析.doc)为本站会员(花仙子)主动上传,麦多课文档分享仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对上载内容本身不做任何修改或编辑。 若此文所含内容侵犯了您的版权或隐私,请立即通知麦多课文档分享(点击联系客服),我们立即给予删除!




    关于我们 - 网站声明 - 网站地图 - 资源地图 - 友情链接 - 网站客服 - 联系我们

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

    收起
    展开