【计算机类职业资格】计算机二级(VB)53及答案解析.doc
《【计算机类职业资格】计算机二级(VB)53及答案解析.doc》由会员分享,可在线阅读,更多相关《【计算机类职业资格】计算机二级(VB)53及答案解析.doc(25页珍藏版)》请在麦多课文档分享上搜索。
1、计算机二级(VB)53 及答案解析(总分:4230.00,做题时间:90 分钟)一、选择题(每小题 2 分,共 70 分) 下列各(总题数:60,分数:4200.00)1.运行下面的程序后,输出的结果为( )。 Cls Dim t(5,5) as Integer For i=1 To 5:t(i,i)=1:Next For i=1 To 5 For j=1 To 5 Print t(i,j), Next j Print Next I (分数:70.00)A.1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 l 1 1 1 1 1 1B.1 1 l 1 1C.1 0 0 0
2、 0 0 1 0 0 0 0 0 1 0 0 0 0 0 1 0 0 0 0 0 1D.1 1 1 1 12.在窗体上画一个名称为 List1 的列表框,一个名称为 Label1 的标签,列表框中显示若干城市的名称。当单击列表框中的某个城市名时,该城市名从列表框中消失,并在标签中显示出来。下列能正确实现上述操作的程序是【 】(分数:70.00)A.Pivate Sub Listl_Click() Label1.Caption:List1.Listlndex List1.Removeltem List1.Text End SubB.Private Sub Listl_Click() Label1
3、.Name=List1.Listlndex Listl.Removeltem Listl.Text End SubC.Private Sub List1_Click() Labell.Caption=Listl.Text List1.Removeltem Listl.Listlndex End SubD.Private Sub List1_Click() Label1.Name=List1.Text List1.Removeltem List1.Listlndex End Sub3.以下关于 Visual Basic 数据类型的说法,不恰当的是( )。(分数:70.00)A.char str
4、;B.char str ;C.String str = new String10;D.String str10;4.在 Visual Basic 工程中,可以作为“启动对象”的程序是_。 (分数:70.00)A.任何窗体或标准模块B.任何窗体或过程C.Sub Main 过程或其他任何模块D.Sub Main 过程或任何窗体5.在窗体上画一个名称为 Command1 的命令按钮,然后编写如下事件过程: Private Sub Command1_Click( ) x=InputBox(“Input”) Select Case x Case 1,3 Print“分支 1” Case Is4 Prin
5、t“分支 2” Case Else Print“Else 分支” End Select End Sub 程序运行后,如果在输入对话框中输入 2,则窗体上显示的是( )。 (分数:70.00)A.分支 1B.分支 2C.Else 分支D.程序出错6.单击命令按钮时,下列程序的执行结果是( )。 Private Sub Commandl_Click( ) BT 4 End Sub PriVate Sub BT(x As Integer) X=X * 2 + 1 If x 6 Then Call BT(x) End If X=x * 2 Print x; End Sub (分数:70.00)A.A%
6、6B.n-3C.a=4= = blD.a=87.在窗体(名称为 Form1)上画一个名称为 Text1 的文本框和一个名称为 Command1 的 命令按钮,然后编写一个事件过程。程序运行后,如果在文本框中输入一个字符,则 把命令按钮的标题设置为“计算机等级考试”。以下能实现上述操作的事件过程是_。 (分数:70.00)A.Private Sub Text1_Change() Command1.Caption = “计算机等级考试“ End SubB.Private Sub Command1_ Click () Caption = “计算机等级考试“ End SubC.Private Sub
7、Form1_ Click () Text1.Caption = “计算机等级考试“ End SubD.Private Sub Command1_ Click () Text1.Text = “计算机等级考试“ End Sub8.下面的属性中,用于自动调整图像框中图形内容的大小的是( )。(分数:70.00)A.PictureB.CurentYC.CurrentXD.Stretch9.编写如下两个事件过程: Private Sub Form_KeyDown(KeyCode AS Integer,Shift As Integer) Print Chr(KeyCode) End Sub Privat
8、e Sub Form_KeyPress(KeyAscii As Integer) Print Chr(KeyAscii) End Sub 在一般情况下(即不按住 Shift 键和锁定大写键时)运行程序,如果按“A“键,则程序输出的结果是( )。 (分数:70.00)A.A AB.a AC.A aD.a a10.设有下面的循环: i=1 Do i=i + 3 Print i Loop Until I_ 程序运行后要执行 3 次循环体,则条件中 I 的最小值为( )。 (分数:70.00)A.6B.7C.8D.911.下列程序段的执行结果为( )。 a=2 b=0 Select Case a Ca
9、se 1 Select Case b Case 0 Print “ * * 0 * *“ Case 1 Print“ * * 1 * *“ End selec Case 2 Print “ * * 2 * *“ End Select (分数:70.00)A.* * 0 * *B.* * 1 * *C.* * 2 * *D.012.下列语句的输出结果为( )。 Print Format$(568936,“000,000000“) (分数:70.00)A.5,68936B.5,689360C.5,6893D.005,68936013.要想在过程调用中返回两个结果,下面的过程定义语句合法的是( )。
10、(分数:70.00)A.Sub Submit(ByVal n,ByVal m)B.Sub Submit(n,ByVal m)C.Sub Submit(n,m)D.Sub Submit(ByVal n,m)14.在 Visual Basic 中,被称为对象的是 ( )。(分数:70.00)A.窗体B.控件C.控件和窗体D.窗体、控件和属性15.阅读程序: Option Base 1 Dim arr() As Integer Private Sub Form_Click() Dim i As Integer, j As Integer ReDim arr(3, 2) For i = 1 To 3
11、For j = 1 To 2 arr(i, j) = i * 2 + j Next j Next i ReDim Preserve arr(3, 4) For j = 3 To 4 arr(3, j) = j + 9 Next j Print arr(3, 2) + arr(3, 4) End Sub 程序运行后,单击窗体,输入结果为_。 (分数:70.00)A.21B.13C.8D.2516.1 个三维数组可以存放 1 个矩阵。在程序开始有语句 Option Base o,则下面定义的数中正好可以存放1 个 4x3 矩阵(即只有 12 个元素)的是【 】(分数:70.00)A.Dim a(-
12、2 To 0,2)As IntegerB.Dim a(3,2)As IntegerC.Dim a(4,3)As IntegerD.Dim a(-1 To-4,-1 To-3)As Integer17.以下叙述中错误的是( )。 (分数:70.00)A.在 KeyPress 事件过程中不能识别键盘的按下与释放B.在 KeyPress 事件过程中不能识别回车键C.在 KeyDown 和 KeyUp 事件过程中,将键盘输入的“A”和“a”视作相同的字母D.在 KeyDown 和 KeyUp 事件过程中,从大键盘上输出的“1”和从右侧小键盘上输入的“1”被视作不同的字符18.以下关于 Visual B
13、asic 数据类型的说法,不恰当的是( )。(分数:70.00)A.Visual Basic 60 提供的数据类型主要有字符串型和数值型,此外还有字节、货币、对象、日期、布尔和变体数据类型等B.目前 Decimal 数据类型只能在变体类型中使用C.用户不能定义自己的数据类型D.布尔型数据只能取两种值,用两个字节存储19.运行下列程序段后,显示的结果为( )。 J1=23 J2=32 If J1J2 Then Print J2 Else Print J1 (分数:70.00)A.23B.32C.55D.233220.阅读下面的程序段: For a=1 To 2 For b=1 To a For
14、C=b To 2 I=I + 1 Next Next Next Print I 执行上面的三重循环后,I 的值为( )。 (分数:70.00)A.4B.5C.6D.921.有关程序代码窗口的说法错误的是( )。(分数:70.00)A.是同一个数据库中的两个表B.是不同数据库中的两个表C.是两个自由表D.一个数据库表,另一个是自由表22.表达式 32 Mod l4/23 的值是( )。(分数:70.00)A.1B.0C.2D.323.下列程序的执行结果为( )。 Private Sub Comrnandl_Click( ) Dim p As Integer, q As Integer p=12:
15、q=20 Call Value(p, q) Print p; q End Sub Private Sub Value(ByVal m As Integer, ByVal n As Integer) m=m * 2: n=n - 5 Print m; n End Sub (分数:70.00)A.*vbp*frm *frxB.*vbp*cls *basC.*bas*ocx *resD.*frm *cls*bas24.有变量定义语句 Dim max,min As String,则可以知道 max 的类型是( )。(分数:70.00)A.除了 Click 事件之外,菜单项不可以响应其他事件B.每个菜单
16、项都是一个控件,与其他控件一样也有其属性和事件C.菜单项的索引号必须从 1 开始D.菜单的索引号可以不连续25.设一个工程由两个窗体组成,其名称分别为 Form1 和 Form2,在 Form1 上有一个名称为 Command1 的命令按钮。窗体 Form1 的程序代码如下: Private Sub Command1_Click( ) Dim a As Integer a=10 Call g(Form2,a) End Sub Private Sub g(f As Form,x As Integer) y=IIf(x10,000,-100) fShow fCaption=y End Sub 运行
17、以上程序,正确的结果是( )。 (分数:70.00)A.Form1 的 Capdon 属性值为 100B.Form2 的 Caption 属性值为-100C.Form1 的 Caption 属性值为-100D.Form2 的 Capdon 属性值为 10026.在窗体上画一个命令按钮,然后编写下列程序: Private Sub Command1 click( ) Dim a As Single,b As Single a=6:b=2 RC a,b Print a,b End Sub Sub RC(x As Single,y As Single) i=x x=i/y y=i Mod y End
18、Sub 程序运行后,输出的结果为( )。 (分数:70.00)A.如果选项组结合到某个字段,则只有组框架本身结合到该字段,而不是组框架的复选框、选项按钮或切换按钮B.选项组可以设置为表达式或非结合选项组,也可以在自定义对话框中使用非结合选项组来接受用户的输入,但不能根 据输入的内容来执行相应的操作C.选项组是由一个组框、一个复选框、选项按钮或切换按钮和关闭按钮组成的D.以上说法均错27.能够获得一个文本框中被选取文本的内容的属性是( )。(分数:70.00)A.n/102B.(n-n10)/100C.n10D.n100/1028.如果在窗体上添加一个通用对话框控件 DBT,那么语句“DBTAc
19、tion=4”的作用是( )。(分数:70.00)A.编译器是检查程序错误的第一道防线B.源程序编译过程中没有出现任何错误,执行时就不会发生错误C.Java 的异常处理机制是检查程序错误的第二道防线D.选项 A) 和 C) 正确29.在属性窗口中设置何属性,可以把指定的图形放入当前对象中? (分数:70.00)A.Current YB.PictureC.Current xD.Stretch30.下列程序段,在运行时最早输出的内容是( )。 a=2 C=1 AAA: C=C + a If c10 Then Print c GoTo AAA Else Print“10 以内的奇数显示完毕。“ En
20、d If (分数:70.00)A.3B.7C.9D.631.表达式(7/2+1)*(8/2+2)的值为( )。(分数:70.00)A.在活动窗体中只能通过拖拉右上角和左下角的小方块来同时在高度和宽度上缩放 控件B.若一个控件上有 4 个黑色的小方块,表明该控件是活动的C.窗体中活动控件只能有一个D.非活动控件在窗体是隐藏的32.Visual Basic 60 分为 3 种版本,不属于这 3 种版本的是( )。(分数:70.00)A.标准模块的扩展名是basB.标准模块由程序代码组成C.标准模块只用来定义一些通用的过程D.标准模块不附属于任何一个窗体33.有如下的程序: Private Sub
21、Command1_Click( ) Dim k As Integer,m As Integer Dim P As Integer k=4:m=1 P=Pid(k,m) :Print P; P=Pid(k,m) :Print P End Sub Private Function Pid(a As Integer,b As Integer) Static m As Integer,i As Integer m=5:i=2 i=i + m + 1 m=i + a + b Pid=m/2 End Function 单击命令按钮后,输出结果为( )。 (分数:70.00)A.2 2B.4 4C.5 5D
22、.6 634.下列程序段执行结果为( )。 x=5 y=-6 If Not x0 Then x=y-3 Else y=x+3 Print x-y;y-x (分数:70.00)A.-3 3B.5 -9C.3 -3D.-6 535.执行下面的程序后,输出的结果是( )。 K=1 For j=1 To 4 X=X - 1: y=0 For k=1 To 4 X=X + 1: y=y + 1 Next k Next j Print X;y (分数:70.00)A.1 4B.13 4C.12 8D.20 636.以下程序的输出结果为( )。 Dim i,c(10),p(3) k=5 For i=0 To
23、 10 c(i) =i Next i For i=0 To 2 p(i) = c(i * (i + 1) Next i For i=0 To 2 k=k+p(i) * 2 Next i Print k (分数:70.00)A.20B.21C.56D.3237.下面的数组声明中,正确的是( )。(分数:70.00)A.Dim pict3,4As IntegerB.Dim pict(3,4)As IntegerC.Dim pict34As IntegerD.Dim pict(3:4)As Integer38.下面说法不正确的是( )。(分数:70.00)A.Float.MIN_VALUEB.1.8
24、e-6FC.2.0D.abcd39.已知有下面过程 Private Sub proc1(a As Integer,b As String,Optional x As Boolean) End Sub 正确调用此过程的语句是【 】 (分数:70.00)A.Call proc1(5)B.Call proc1 5,“ abe “,FalseC.proc1(12,“abe“,True)D.proc15,“abe“40.设有声明语句 Dim b(-1 To 10,2 To 9,20)As Integer 则数组 b 中全部元素的个数是( )。 (分数:70.00)A.2310B.2016C.1500D.
- 1.请仔细阅读文档,确保文档完整性,对于不预览、不比对内容而直接下载带来的问题本站不予受理。
- 2.下载的文档,不会出现我们的网址水印。
- 3、该文档所得收入(下载+内容+预览)归上传者、原创作者;如果您是本文档原作者,请点此认领!既往收益都归您。
下载文档到电脑,查找使用更方便
5000 积分 0人已下载
下载 | 加入VIP,交流精品资源 |
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 计算机 职业资格 二级 VB53 答案 解析 DOC
