【计算机类职业资格】二级VISUAL+BASIC-102及答案解析.doc
《【计算机类职业资格】二级VISUAL+BASIC-102及答案解析.doc》由会员分享,可在线阅读,更多相关《【计算机类职业资格】二级VISUAL+BASIC-102及答案解析.doc(20页珍藏版)》请在麦多课文档分享上搜索。
1、二级 VISUAL+BASIC-102及答案解析(总分:100.00,做题时间:90 分钟)一、选择题(总题数:40,分数:100.00)1.设窗体上有 1个水平滚动条,已经通过属性窗口把它的 Max属性设置为 1,Min 属性设置为 100。下面叙述中正确的是_。(分数:2.50)A.程序运行时,若使滚动块向左移动,滚动条的 Value属性值就增加B.程序运行时,若使滚动块向左移动,滚动条的 Value属性值就减少C.由于滚动条的 Max属性值小于 Min属性值,程序会出错D.由于滚动条的 Max属性值小于 Min属性值,程序运行时滚动条的长度会缩为一点,滚动块无法移动2.在窗体上画一个水平
2、滚动条,其属性值满足 MinMax。程序运行后,如果单击滚动条右端的箭头,则Value属性值_。(分数:2.50)A.增加一个 SmallChange量B.减少一个 SmallChange量C.增加一个 LargeChange量D.减少一个 LargeChange量3.关于水平滚动条,如下叙述中错误的是_。(分数:2.50)A.当滚动框的位置改变时,触发 Change事件B.当拖动滚动条中的滚动框时,触发 ScroH事件C.LargeChange属性是滚动条的最大值D.Value是滚动条中滚动框的当前值4.设窗体上有一个水平滚动条 HScroll1和一个命令按钮 Command1,及下面的事件
3、过程: Private Sub Form_Load() HScroll1.Min=0 HScroll1.Max=100 End Sub Private Sub Command1_Click() HScroll1.Value=70 End Sub 程序运行时单击命令按钮,则滚动条上滚动块位置的图示是_。 A B C D (分数:2.50)A.B.C.D.5.窗体上有一个名称为 VScroll1的垂直滚动条,为了设定单击滚动条两端箭头时的 Value增量值,应设置的属性是_。(分数:2.50)A.LargeChangeB.SmallChangeC.MaxD.Min6.设窗体上有一个 Text1文本
4、框和一个 HScroll1水平滚动条,并有下面的事件过程: Private Sub HScroll1_Change() Text1=HScroll1 End Sub 在程序运行时,当把滚动框移动到最左边时,文本框中显示的是 100;当把滚动框移动到最右边时,文本框中显示的是 1。根据这些信息,下面的判断中错误的是_。(分数:2.50)A.滚动条的 Max和 Min属性的值分别是 1和 100B.滚动条的 Max和 Min属性的值分别是 100和 1C.文本框中显示的是滚动条 Value属性的值D.如果把滚动框移动到中间位置,文本框中将显示 507.窗体上有两个水平滚动条 HV、HT,还有一个文
5、本框 Text1和一个标题为“计算”的命令按钮Command1,并编写了以下程序: (分数:2.50)A.过程调用语句不对,应为 calc(HV,HT)B.过程定义语句的形式参数不对,应为 Sub calc(x As Control,y As Control)C.计算结果在文本框中显示出来D.程序不能正确运行8.窗体上有一个名称为 VScroll1的垂直滚动条,要求程序运行时,滚动块的初始位置在最下端,应该使VScroll1.Value的值等于_。(分数:2.50)A.VScroll1.LargeChangeB.VScroll1.SmallChangeC.VScroll1.MaxD.VScro
6、ll1.Min9.窗体上有一个名称为 HScroll1的滚动条,程序运行后,当单击滚动条两端的箭头时,立即在窗体上显示滚动框的位置(即刻度值)。下面能够实现上述操作的事件过程是_。(分数:2.50)A.Private Sub HScroll1_Change()Print HScroll1.ValueEnd SubB.Privme Sub HScroll1_Change()Print HScroll1.SmallChangeEnd SubC.Private Sub HScroll1_Scroll()Print HScroll1.ValueEnd SubD.Private Sub HScroll1
7、_Scroll()Print HScroll1.SmallChangeEnd Sub10.以下不能触发滚动条 Change事件的操作是_。(分数:2.50)A.拖动滚动框B.单击两端的滚动箭头C.单击滚动框D.单击滚动箭头与滚动框之间的滚动条11.定时器的 Interval属性的值是一个整数,它表示的是_。(分数:2.50)A.毫秒数B.秒数C.分钟数D.小时数12.为了使每秒钟发生一次计时器事件,可以将其 Interval属性设置为_。(分数:2.50)A.1B.10C.100D.100013.窗体的左右两端各有 1条直线,名称分别为 Line1、Line2;名称为 Shape1的圆靠在左边
8、的 Line1直线上(见图);另有 1个名称为 Timer1的计时器控件,其 Enabled属性值是 True。要求程序运行后,圆每秒向右移动 100,当圆遇到 Line2时则停止移动。 (分数:2.50)A.把计时器的 Interval属性设置为 1B.把 For k=Line1.X1 To Line2.Xl Step 100和 Next k两行删除C.把 For k=Line1.X1 To Line2.X1 Step 100改为 For k=Line2.X1 To Line1.X1 Step 100D.把 If Shape1.Left+Shape1.WidthLine2.X1 Then 改
9、为 If Shape1.LeftLine2.X1 Then14.窗体上有 1个名称为 Text1的文本框,1 个名称为 Timer1的计时器,且已在属性窗口将 Timer1的Interval属性设置为 2000、Enabled 属性设置为 False。以下程序的功能是,单击窗体,则每隔 2秒钟在Text1中显示一次当前时间。 Private Sub Form_Click() Timer1. _ End Sub Private Sub Timer1_Timer() Text1.Text=Time() End Sub 为了实现上述功能,应该在横线处填入的内容为_。(分数:2.50)A.Enable
10、d=TreeB.Enabled=FalseC.Visible=TrueD.Visible=False15.为了暂时关闭计时器,应把它的一个属性设置为 False,这个属性是_。(分数:2.50)A.VisibleB.TimerC.EnabledD.Interval16.窗体上有一个名称为 Frame1的框架(如图),若要把框架上显示的“Frame1”改为汉字“框架”,下面正确的语句是_。 (分数:2.50)A.Frame1.Name=“框架”B.Frame1.Caption=“框架”C.Frame1.Text=“框架”D.Frame1.ValHe=“框架”17.下面哪个属性肯定不是框架控件的属
11、性_。(分数:2.50)A.TextB.CaptionC.LeftD.Enabled18.要使两个单选按钮属于同一个框架,下面三种操作方法中正确的是_。 先画一个框架,再在框架中画两个单选按钮 先画一个框架,再在框架外画两个单选按钮,然后把单选按钮拖到框架中 先画两个单选按钮,再画框架将单选按钮框起来(分数:2.50)A.B.、C.D.、19.下列针对框架控件的叙述中,错误的是_。(分数:2.50)A.框架是一个容器控件B.框架也有 Click和 DblClick事件C.框架也可以接受用户的输入D.使用框架的主要目的是为了对控件进行分组20.如果要在窗体上使用 2组单选按钮,每组都可以有一个被
12、选中,则应该做的是_。(分数:2.50)A.把 1组单选按钮面在窗体的左边,另 1组画在右边B.先画 2组单选按钮,再画 2个框架控件把 2组单选按钮分别框起来C.先画 2个框架控件,再把 2组单选按钮分别画在不同的框架中D.因为 1个窗体中只有 1个单选按钮可以被选中,所以需要使用 2个窗体21.如果在框架中画了 2个复选框,且框架的。Enabled 属性被设置为:False,2 个复选框的 Enabled属性被设置为 True,则下面叙述中正确的是_。(分数:2.50)A.2个复选框可用B.2个复选框不可用C.2个复选框不显示D.上述都不对22.对于能够获得焦点的控件,若要使其不能接收焦点
13、,应该_。(分数:2.50)A.将 TabStop属性值设为 TrueB.将 TabStop属性值设为 FalseC.将 TabIndex属性值设为 0D.将 Enabled属性值设为 False23.以下能够设置控件焦点的方法是_。(分数:2.50)A.SetFocusB.GotFocusC.LostFoeusD.TabStop24.以下关于控件的叙述中,正确的是_。(分数:2.50)A.标签控件能够获得焦点B.不能对列表框中的列表项进行多项选择C.命令按钮的外观可以被设置为图形D.设置形状控件的 Shape属性,可以使其呈现为直线25.以下关于框架的叙述中,错误的是_。(分数:2.50)A
14、.框架能够响应 Click事件B.框架是一个容器C.框架的 Enabled属性为 False时,框架内的控件均被屏蔽D.框架可以获得焦点26.以下能接收焦点的控件是_。(分数:2.50)A.图像框B.框架C.命令按钮D.标签27.设有以下程序: Private Sub Form_Click() x=50 For i=1 To 4 y=InputBox(“请输入一个整数“) y=Val(y) If y Mod 5=O Then a=a+y x=y Else a=a+x End If Next i Print a End Sub 程序运行后,单击窗体,在输入对话框中依次输入 15、24、35、46
15、,输出结果为_。(分数:2.50)A.100B.50C.120D.7028.设工程中有 2个窗体:Form1 和 Form2,Form1 为启动窗体。Form2 中有菜单,其结构如下表所示。要求在程序运行时,在 Form1的文本框 Text1中输入口令并按 Enter键(回车键的 ASCII码为 13)后,隐藏Form1,显示 Form2。若口令为“Teacher”,所有菜单都可见;否则看不到“成绩录入”菜单项。为此,某人在 Form1窗体文件中编写如下程序: 菜单结构 标题 名称 级别 成绩管理 mark 1 成绩查询 query 2 成绩录入 input 2 Private Sub Tex
16、t1 1_KeyPress(KeyAscii As Integer) If KeyAscii=13 Then If Text1.Text=“Teaeher“ Then Form2.input.Visible=True Else Form2.input.Visible=False End If End If Form1.Hide Form2.Show End Sub 程序运行时发现刚输入口令时就隐藏了 Form1,显示了 Form2,程序需要修改。下面修改方案中正确的是_。(分数:2.50)A.把 Form1中 Text1文本框及相关程序放到 Form2窗体中B.把 Form1.Hide、For
17、m2.Show 两行移到 2个 End If之间C.把 If KeyAscii=13 Then改为 If KeyAscii=“Teacher“ ThenD.把 2个 Form2.input.Visible中的“Form2.”删去29.在窗体上画一个名称为 Command1的命令按钮,并编写如下程序: Function Fun(x) y=0 If x10 Then y=x Else y=y+10 End If Fun=y End Function Private Sub Command1_Click() n=InputBox(“请输入一个数“) n=Val(n) P=Fun(n) Print P
18、 End Sub 运行程序,单击命令按钮,将显示输入对话框,如果在对话框中输入 100,并单击“确定”按钮,则输出结果为_。(分数:2.50)A.10B.100C.110D.出错信息30.由高中数学可知,对于连续函数 f(x),若 f(x1)与 f(x2)值的符号相反,则在 x1和 x2之间必存在x0,使得 f(x0)=0(该点称为“零点”)。 设有 VB函数:Private Function f(x As Single)As Single 可以返回 f(x)的值(函数体没有给出)。下面程序的功能是从键盘输入 2个实数 x1、x2,判断在 x1、x2 之间是否存在零点。 Private Sub
19、 Command1_Click() Dim x1 As Single,x2 As Single x1=InputBox(“请输入一个实数 x1“) x2=InputBox(“请再输入一个实数 x2“) If(_)Then Print “在“;x1;“与“;x2;“之间存在零点“ Else Print“不能确定在“;x1;“与“;x2;“之间是否存在零点“ End If End Sub Private Function f(x As Single)As Single End Function 为使上面程序可以实现该功能,程序代码中横线处应填写的代码是_。(分数:2.50)A.f(x1)0 Or
20、f(x2)0B.f(x1)0 And f(x2)0C.f(x1)*f(x2)0D.f(x1)*f(x2)031.窗体上有 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,则在窗体上显示的内容为_。(分数:2.50)A.11B.13
21、C.23D.3932.在窗体上画 1个命令按钮,并编写如下事件过程: Private Sub Command1_Click() Dim a(3,3) For in=1 To 3 For n=1 To 3 n=m Or n=4-m Then a(m,n)=m+n Else a(m,n)=0 End If Print a(m,n); Next n Print Next m End Sub 运行程序,单击命令按钮,窗体上显示的内容为_。(分数:2.50)A.2 0 00 4 00 0 6B.2 0 40 4 04 0 6C.2 3 03 4 00 0 6D.2 0 00 4 50 5 633.设有如
22、下事件过程: Private Sub Form_Click() Sum=0 For k=1 To 3 If k=1 Then x=1 ElseIf k=2 Then x=2 ElseIf k=3 Then x=3 Else x=4 End If Sum=Sum+x Next k Print Sum End Sub 程序运行后,单击窗体,输出结果是_。(分数:2.50)A.9B.6C.3D.1034.设 x是整型变量,与函数 IIf(x0,-x,x)有相同结果的代数式是_。(分数:2.50)A.|x|B.-|x|CxD.-x35.现有语句:y=IIf(x0,x Mod 3,0),设 x=10,则
23、 y的值是_。(分数:2.50)A.0B.1C.3D.语句有错36.设 x为一整型变量,且语句的开始为:Select Case x,则不符合语法规则的 Case子句是_。(分数:2.50)A.Case Is20B.Case 1 To 10C.Case 0Is And Is20D.Case 2,3,437.现有如下一段程序: Private Sub Command1_Click() x=UCase(InputBox(“输入:“) Select Case x Case “A“ To “C“ Print “考核通过!“ Case “D“ Print “考核不通过!“ Case Else Print
24、“输入数据不合法!“ End Select End Sub 执行程序,在输入框中输入字母“B”,则以下叙述中正确的是_。(分数:2.50)A.程序运行错B.在窗体上显示“考核通过!”C.在窗体上显示“考核不通过!”D.在窗体上显示“输入数据不合法!”38.窗体上有 1个名称为 Command1的命令按钮,事件过程如下: Private Sub Command1_Click() Dim num As Integer,x As Integer num=Val(InputBox(“请输入一个正整数“) Select Case nun Case Is100 x=x+num Case Is90 x=nu
- 1.请仔细阅读文档,确保文档完整性,对于不预览、不比对内容而直接下载带来的问题本站不予受理。
- 2.下载的文档,不会出现我们的网址水印。
- 3、该文档所得收入(下载+内容+预览)归上传者、原创作者;如果您是本文档原作者,请点此认领!既往收益都归您。
下载文档到电脑,查找使用更方便
5000 积分 0人已下载
下载 | 加入VIP,交流精品资源 |
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 计算机 职业资格 二级 VISUALBASIC102 答案 解析 DOC
