计算机二级题库
提供计算机二级相关考试试题、历年真题、模拟试题和答案解析，支持在线查看与练习。
最新收录试题
简答题
计算机二级
在考生文件夹下有工程文件sj5.vbp及窗体文件sj5.frm，该程序是不完整的，请在有"?"的地方填入正确内容，然后删除"?"及代码前的所有注释符（即'号），但不能修改其他部分。
2014-02-20
收藏 0 次
简答题
计算机二级
（1）在考生文件夹下有工程文件sj3.vbp及窗体文件sj3.frm，该程序是不完整的，请在有"?"的地方填入正确内容，然后删除"?"及代码前的所有注释符（即'号），但不能修改其他
2014-02-20
收藏 0 次
简答题
计算机二级
请根据以下各小题的要求设计Visual Basic应用程序（包括界面和代码）。
（1）在名称为Form1的窗体上放置一个名称为Drive1的驱动列表框控件，一个名称为Dir1的目录
2014-02-20
收藏 0 次
单选题
计算机二级
下面程序的输出结果是（ ）。
Private Sub Co mmand1＿Click（）
ch$＝＂ABCDEF＂
proc ch Print ch
End Sub
Priv
2014-02-20
收藏 1 次
单选题
计算机二级
有如下函数：
Function fun（a As Integer ，n As Integer）As Integer
Di m m As Integer
While a ＞＝n
2014-02-20
收藏 1 次
单选题
计算机二级
为达到把a、b 中的值交换后输出的目的，某人编程如下：
Private Sub Co mmand1＿Click（）
a％＝10：b ％＝20
Call s wap（a，b）
2014-02-20
收藏 0 次
单选题
计算机二级
下面程序执行时，在窗体上显示的是（ ）。
Private Sub Co mmand1＿Click（）
Di ma（10）
For k ＝1To 10
a（k）＝11k
N
2014-02-20
收藏 0 次
单选题
计算机二级
设窗体上有一个图片框Picture1，要在程序运行期间装入当前文件夹下的图形文件File1．jpg ，能实现此功能的语句是（ ）。
2014-02-20
收藏 0 次
单选题
计算机二级
假定在工程文件中有一个标准模块，其中定义了如下记录类型：
Type Books
Name As Stri ng＊10
TelNum As Stri ng＊20
End Type
2014-02-20
收藏 0 次
单选题
计算机二级
要获得当前驱动器应使用驱动器列表框的属性是（ ）。
2014-02-20
收藏 0 次
单选题
计算机二级
在窗体上画1个命令按钮，并编写如下事件过程：
Private Sub Command1_Click()
Dim a(3,3)
For m=1 To 3
For n=1 To 3
I
2014-02-20
收藏 0 次
单选题
计算机二级
在用通用对话框控件建立"保存"文件对话框时，如果需要指定文件列表框所列出的文件类型是文本文件（即．txt 文件），则正确的描述格式是（ ）。
2014-02-20
收藏 0 次
单选题
计算机二级
假定有下表所列的菜单结构：
要求程序运行后，如果单击菜单项"大图标"，则在该菜单项前添加一个"√"。以下正确的事件过程是（ ）。
2014-02-20
收藏 0 次
单选题
计算机二级
在菜单编辑器中建立一个名称为Menu0的菜单项，将其"可见"属性设置为False ，并建立其若干子菜单，然后编写如下过程：
Private Sub Form＿MouseDown （
2014-02-20
收藏 1 次
单选题
计算机二级
下列程序的执行结果为（ ）。
Private Sub Co mmand1＿Click（）
Di mp As Integer ，q As Integer
p ＝12：q ＝20
2014-02-20
收藏 0 次
单选题
计算机二级
以下可以作为Visual Basic 变量名的是（ ）。
2014-02-20
收藏 0 次
单选题
计算机二级
以下程序段的输出结果为（ ）。
Di ma（10），p（3）
k ＝5
For i ＝0To 10
a（i）＝i
Next i
For i ＝0To 2
p（i）＝a（i ＋
2014-02-20
收藏 0 次
单选题
计算机二级
设已经在"菜单编辑器"中设计了窗体的快捷菜单，其顶级菜单为Bs ，取消其"可见"属性，运行时，在以下事件过程中，可以使快捷菜单响应鼠标右键菜单的是（ ）。
2014-02-20
收藏 0 次
单选题
计算机二级
以下能够触发文本框Change 事件的操作是（ ）。
2014-02-20
收藏 0 次
单选题
计算机二级
在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Co mmand1＿Click（）
x＝0
Do Until x＝－1
a＝InputBox（＂请输入
2014-02-20
收藏 1 次