程序运行后，单击窗体，要求结果如图所示，则在 处应填入的内容为 A）Left(a$, i) B）Mid(a$, 8 - i, i) C）Right(a$, i) D）Mid(a$, 7, i)
（24）设有如下程序： Private Sub Form_Click()
Dim i As Integer, x As String, y As String x = \
For i = 4 To 1 Step -1 y = Mid(x, i, i) + y Next i Print y End Sub
程序运行后，单击窗体，输出结果是 A）ABCCDEDEFG B）AABBCDEFG C）ABCDEFG D）AABBCCDDEEFFGG （25）设有如下程序： Private Sub Form_Click()
Dim ary(1 To 5) As Integer Dim i As Integer Dim sum As Integer For i = 1 To 5 ary(i) = i + 1 sum = sum + ary(i) Next i Print sum End Sub
程序运行后，单击窗体，则在窗体上显示的是 A）15 B）16 C）20 D）25
（26）有一个数列，它的前3个数为0，1，1，此后的每个数都是其前面3个数之和，即0，1，1，1，2，4，7，13，24，?? 要求编写程序输出该数列中所有不超过1000的数。 某人编写程序如下：
Private Sub Form_Click()
Dim i As Integer, a As Integer, b As Integer Dim c As Integer, d As Integer a = 0: b = 1: c = 1 d = a + b + c i = 5
While d <= 1000 Print d;
a = b: b = c: c = d d = a + b + c
i = i + 1 Wend End Sub
运行上面的程序，发现输出的数列不完整，应进行修改。以下正确的修改是 A）把While d <= 1000改为While d > 1000 B）把i = 5改为i = 4
C）把i = i + 1移到While d <= 1000的下面 D）在i = 5的上面增加一个语句：Print a; b; c;
（27）下面的语句用Array函数为数组变量a的各元素赋整数值： a = Array(1, 2, 3, 4, 5, 6, 7, 8, 9) 针对a的声明语句应该是
A）Dim a B）Dim a As Integer
C）Dim a(9) As Integer D）Dim a() As Integer （28） 下列描述中正确的是
A）Visual Basic只能通过过程调用执行通用过程
B）可以在Sub过程的代码中包含另一个Sub过程的代码 C）可以像通用过程一样指定事件过程的名字 D）Sub过程和Function过程都有返回值 （29）阅读程序：
Function fac(ByVal n As Integer) As Integer Dim temp As Integer temp = 1
For i% = 1 To n
temp = temp * i% Next i% fac = temp End Function
Private Sub Form_Click() Dim nsum As Integer nsum = 1
For i% = 2 To 4
nsum = nsum + fac(i%) Next i% Print nsum End Sub
程序运行后，单击窗体，输出结果是 A）35 B）31 C）33 D）37
（30）在窗体上画一个命令按钮和一个标签，其名称分别为Command1和Label1，然后编写如下代码：
Sub S(x As Integer, y As Integer) Static z As Integer
y = x * x + z z = y End Sub
Private Sub Command1_Click()
Dim i As Integer, z As Integer m = 0 z = 0
For i = 1 To 3 S i, z m = m + z Next i
Label1.Caption = Str(m) End Sub
程序运行后，单击命令按钮，在标签中显示的内容是 A）50 B）20 C）14 D）7
（31）以下说法中正确的是
A）MouseUp事件是鼠标向上移动时触发的事件
B）MouseUp事件过程中的x，y参数用于修改鼠标位置 C）在MouseUp事件过程中可以判断用户是否使用了组合键 D）在MouseUp事件过程中不能判断鼠标的位置
（32）假定已经在菜单编辑器中建立了窗体的弹出式菜单，其顶级菜单项的名称为a1，其“可见”属性为False。程序运行后，单击鼠标左键或右键都能弹出菜单的事件过程是
A）Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 And Button = 2 Then PopupMenu a1 End If End Sub
B）Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) PopupMenu a1 End Sub
C）Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 1 Then PopupMenu a1 End If End Sub
D）Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then
PopupMenu a1 End If End Sub
（33）在窗体上画一个名称为CD1的通用对话框，并有如下程序： Private Sub Form_Load() CD1.DefaultExt = \
CD1.FileName = \
CD1.Filter = \应用程序(*.exe)|*.exe\End Sub
程序运行时，如果显示了“打开”对话框，在“文件类型”下拉列表框中的默认文件类型是
A）应用程序(*.exe) B）*.doc C) *.txt D) 不确定 （34）以下描述中错误的是
A）在多窗体应用程序中，可以有多个当前窗体 B）多窗体应用程序的启动窗体可以在设计时设定
C）多窗体应用程序中每个窗体作为一个磁盘文件保存 D）多窗体应用程序可以编译生成一个EXE文件
（35）以下关于顺序文件的叙述中，正确的是
A）可以用不同的文件号以不同的读写方式同时打开同一个文件 B）文件中各记录的写入顺序与读出顺序是一致的 C）可以用Input#或Line Input#语句向文件写记录
D）如果用Append方式打开文件，则既可以在文件末尾添加记录，也可以读取原有记录
二、填空题(每空2分，共30 分)
请将每空的正确答案写在答题卡【l】至【15】序号的横线上，答在试卷上不得分。
（1）数据结构分为线性结构与非线性结构，带链的栈属于 【1】 。 （2）在长度为n的顺序存储的线性表中插入一个元素，最坏情况下需要移动表中 【2】 个元素。
（3）常见的软件开发方法有结构化方法和面向对象方法。对某应用系统经过需求分析建立数据流图（DFD），则应采用 【3】 方法。 （4）数据库系统的核心是 【4】 。
（5）在进行关系数据库的逻辑设计时，E-R图中的属性常被转换为关系中的属性，联系通常被转换为 【5】 。
（6）为了使标签能自动调整大小以显示标题（Caption属性）的全部文本内容，应把该标签的
【6】 属性设置为True。
（7）在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程： Private Sub Command1_Click() x = 1
Result = 1 While x <= 10
相关推荐：
loading