二级VISUAL BASIC-13-1
(总分90,考试时间90分钟)
一、选择题
1. 能够获得一个文本框中被选取文本的内容的属性是______。A. Text B. SelLength C. SelText D. SelStart
2. 在软件设计中的软件过程，其主要描述的是 。A. 模块操作细节 B. 模块间关系 C. 模块控制方法 D. 模块类型
3. 假定程序中有以下语句：
answer=MsgBox("String1",,"String2","String3",2)
执行该语句后，将显示一个信息框，此时如果单击“确定”按钮，则answer的值为______。A. String1 B. String2 C. String3 D. 1
4. 下列工具中，不属于结构化分析的常用工具的是 。A. 数据流图 B. 数据字典 C. 判定树 D. N-S图
5. 以下叙述中错误的是 ______。A. 打开一个工程文件时，系统自动装入与该工程有关的窗体、标准模块等文件 B. 保存Visual Basic程序时，应分别保存窗体文件及工程文件 C. Visual Basic应用程序只能以解释方式执行 D. 事件可以由用户引发，也可以由系统引发
6. 在待排序的元素序列基本有序的前提下，效率最高的排序方法是A. 冒泡排序 B. 选择排序 C. 快速排序 D. 归并排序
7. 下列叙述中，正确的是______。A. 程序设计过程中的主要工作是编制程序 B. 程序设计的主要目标是编制出运行结果正确的程序 C. 不良的程序设计风格会增加程序的复杂性 D. 上述三种说法都不对
8. 图像框有一个属性，可以自动调整图形的大小，以适应图像框的尺寸，这个属性是A.Autosize B.Stretch C.AutoRedraw D.Appearance
9. 下面叙述中正确的是______。A. 随机文件中记录的长度不是固定不变的 B. 随机文件由
若干条记录组成，并可以按记录号访问各个记录 C. 不能按任意顺序访问随机文件中的数据 D. 可以同时对打开的随机文件进行读写操作
10. 有如下程序：
Private Sub Form_Click()
Dim i As Integer, Sum As Integer
Sum=0
For i=2 To 10
If i Mod 2=0 And i Mod 3＜＞0 Then
Sum=Sum+i
End If
Next
Print Sum
End Sub
程序运行后，单击窗体，输出结果为 。A. 12 B. 30 C. 24 D. 18
11. 函数过程Fun1的功能是：如果参数b为奇数，则返回值为1, 否则返回值为0。
Function Fun1 (b As Integer)
if ______ Then
Fun1 =0
Else
Fun1 = 1
End If
End Function
使该功能完整，应在空行处填入以下哪条语句A. b Mod 2＜＞0 B. b Mod 2 =0 C. b/2 = 1 D. b\2 =0
12. 为了把一个记录型变量的内容写入文件中指定的位置，所使用的语句的格式为 ______。A. Get文件号，记录号，变量名 B. Get文件号，变量名，记录号 C. Put文件号，变量名，记录号 D. Put文件号，记录号，变量名
13. VB集成开发环境有三种工作状态，不属于三种工作状态之一的是________。A. 设计状态 B. 编写代码状态 C. 运行状态 D. 中断状态
14. 在窗体上画一个命令按钮，然后编写如下程序：
Sub S1(ByVal x As Integer,ByVal y As Integer)
Dim t As Integer
t=x
x=y
y=t
End Sub
Private Sub Command1_Click()
Dim a As Integer,b As Integer
a=10
b=30
S1 a,b
Print"a="; a; "b="; b
End Sub
程序运行后，单击命令按钮，输出结果是______。A. a=30 b=10 B. a=30 b=30 C. a=10 b=30 D. a=10 b=10mousemove是什么键
15. 下列关于图像框控件和图片框控件的说法错误的是 。A. 两者都支持Print方法 B. 两者都有Picture属性 C. 两者都可以用LoadPicture函数把图形文件装入控件中 D. 两者都能在属性窗口装入图形文件；也都能在运行期间装入图形文件
16. 下列程序段的执行结果为
Private Sub Command1_Click()
a=InputBox("请输入a值")
c="您要查询的是"
&IIf(a＞0，"天气"，" ")
&IIf(a＜0，"电话号码"，" ")
&IIf(a=0，"邮编"，" ")
Text1.Text=c
End Sub
程序运行后，如果从键盘上输入"16"，则在文本框显示的内容是______。A.您要查询的是天气 B.您要查询的是邮编 C.您要查询的是电话号码 D.False
17. 一个关系中属性个数为1时，称此关系为A. 对应关系 B. 单一关系 C. 一元关系 D. 二元关系
18. 当一个工程含有多个窗体时，其中的启动窗体是 ______。A. 启动Visual Basic时建立的窗体 B. 第一个添加的窗体 C. 最后一个添加的窗体 D. 在“工程属性”对话框中指定的窗体
19. 为计算1+2+22+23+24+…+210的值，并把结果显示在文本框Text1中，若编写如下事件过程：
Private Sub Command1_Click()
Dim a%, s%, k%
s=1:a=2
For k=2 To 10
a=a*2:s=s+a
Next k
Text1.Text=s
End Sub
执行此事件过程后发现结果是错误的，为能够得到正确结果，应做的修改是A. 把s=1改为s=0 B. 把For k=2 To 10改为For k=1 To 10 C. 交换语句s=s+a和a=a*2的顺序 D. 同时进行Ｂ)、Ｃ)两种修改
20. 过程共有3种，它们分别是 。A. Sub过程、函数过程和属性过程 B. 事件过程、函数过程和通用过程 C. Sub过程、函数过程和通用过程 D. 事件过程、子过程和函数过程
21. 设在窗体上有—个名称为Combol的组合框，含有5个项目，要删除最后一项，正确的语句是 ______。A. Combo1.RemoveItem Combo1.Text B. Combo1.Removeltem4 C. Combo1.RemoveItem Combo1.ListCount D. Combo1.RemoveItem5
22. 在窗体上画一个命令按钮，然后编写如下代码：
Private Type Record
ID As Integer
Name As String * 20
End Type
Private Sub Command1_Click()
Dim MaxSize，NextChar，MyChar
Open"D:\"For Input As # 1
Max Size=LOF(1)
For Next Char=1 To MaxSize
Seek # 1，NextChar
MyChar=Input(1，# 1)
Next NextChar
Print EOF(1)
Close # 1
End Sub
程序运行后，单击命令按钮，其输出结果为 ______。A. True B. False C. 0 D. Null
23. 需求分析中开发人员要从用户那里了解A. 软件做什么 B. 用户使用界面 C. 输入的信息 D. 软件的规模
24. 在文本框中，要使键入的所有字符都显示“*”号，这时应该设置 ______属性为“*”号。A. Text B. MultiLine C. ScrollBars D. PasswordChar
25. 下列程序段的运行结果是 。
Subsele()
Dim n As Integer
i=21:n=3
Do While i＞n
i=i-n
Loop
Print i
End SubA. 2 B. 4 C. 5 D. 3
26. 假定有如下的Sub过程：
Sub Func(x As Single， y As Single)
t=x
x=t/y
y=t Mod y
End Sub
在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。
发表评论