Image3.Visible = False End Sub
Private Sub Image1_Click()
Image2.Picture = Image1.Picture End Sub
Private Sub Image2_Click()
Image3.Picture = Image2.Picture Image2.Picture = Image1.Picture Image1.Picture = Image3.Picture End Sub
在程序运行期间单击Image2，则在窗体上看到的结果是（ D ）
A）Image1、Image2中都是原来Image2中的图片 B）Image1、Image2中都是原来Image1中的图片 C）在Image3中显示Image2中的图片 D）Image1、Image2中原有图片被交换了 34）（新）设有下面程序代码： （★★）
Private Sub Command1_Click() Dim str As String, ch As String str = \ ch = \
n = fun(ch, str) Print str, n End Sub
Private Function fun(ch As String, str As String) As Integer Dim strbuf As String, c As String, n As Integer For k = 1 To Len(str) c = Mid(str, k, 1) If c <> ch Then
strbuf = strbuf & c Else
strbuf = strbuf & UCase(c) n = n + 1 End If Next k str = strbuf fun = n End Function
程序运行时的输出是（ C ） A）Visul Bsic Progrmming 3 B）VisualBasicProgramming 2 C）VisuAl Basic ProgrAmming 3 D）Visual Basic Programming 0 35）（新）窗体上有一个名称为Shape1并显示为圆的形状控件（其Width和Height属性值相等），一个名称为Timer1的计时器，并有下面程序代码： （★★）
Dim r As Single, flag As Integer Private Sub Form_Load() r = Shape1.Width
Timer1.Enabled = True
Timer1.Interval = 500 End Sub
Private Sub Timer1_Timer() If flag = 0 Then
Shape1.Width = Shape1.Width - 10 If Shape1.Width <= 100 Then flag = 1 End If Else
Shape1.Width = Shape1.Width + 10 If Shape1.Width >= r Then flag = 0 End If End If End Sub
运行程序后产生的结果是：（ D ）
Ａ）圆每隔0.5秒向右移动一次 B）圆一直在缩小
C）圆每隔1秒向下移动一次 D）圆逐渐缩小，再逐渐增大，然后再逐渐缩小，依此往复 36）（新）下面程序的功能是输出100以内所有素数： （★★）
Private Sub Command1_Click() For n = 2 To 100 isprime = True k = 2
Do While k <= n / 2 And _____________ If n Mod k = 0 Then isprime = False k = k + 1 Loop
If isprime Then Print n End If Next n End Sub
为使上面程序可以实现该功能，程序代码中横线处应填写的代码是（ B ） A）Not isprime B）isprime C）n<=100 D）n<100 37）（新）有下面程序代码： （★★）
Private Sub Command1_Click() i = 1
Do While i < 5 j = 1 Do
j = j + 1 Print \
Loop Until i + j > 10
Print i = i + 2 Loop End Sub
程序运行时输出字符”*”的个数是（ D ）
A）20 B）15 C）50 D）16 38）（新）设有下面程序代码： （★★）
Private Sub Command1_Click() Dim a As Variant
a = Array(22, 43, 23, 56, 87, 45, 67, 12, 98, 98, 56, 34, 23, 75, 64) m = a(0) n = m
For k = 1 To UBound(a) If a(k) > m Then n = m m = a(k)
ElseIf a(k) > n And a(k) <> m Then n = a(k) End If Next k Print n End Sub
程序运行时的输出是（ D ） A）数组中最大的数（即98） B）数组中第1个数（即22） C）数组中最小的数（即12） D）数组中第2大的数（即87） 39）（新）设有下面程序代码： （★★） Option Base 1
Private Sub Command1_Click() Dim x(6)
a = Array(4, 2, 5, 1, 6, 3)
b = Array(64, 24, 98, 27, 58, 41) For k = 1 To 6 x(a(k)) = b(k) Next k
For k = 1 To 6 Print x(k); Next k End Sub
程序运行时的输出是（ A ） A）27 24 41 64 98 58 B）98 64 58 41 27 24 C）64 24 98 27 58 41 D）24 27 41 58 64 98 40）（新）设窗体上有一个名称为List1的列表框和一个名称为Check1的复选框数组（下标从0开始）。程序运行时单
击某个复选框，如果列表框中没有该复选框的标题，则把该复选框的标题添加到列表框中，否则从列表框中把该复选框标题删除。 （★★）
Private Sub Check1_Click(Index As Integer) For k = 0 To List1.ListCount - 1
If Check1(Index).Caption = List1.List(k) Then Exit For End If Next k
If k < List1.ListCount Then List1.RemoveItem k Else
List1.AddItem _________________ End If End Sub
为使上面程序可以实现该功能，程序代码中横线上应该填入的代码是（ C ） A）Check1（k） B）Check1.Caption
C）Check1（Index）.Caption D）k
[选择04] 1）（新）某系统结构图如下图所示 某系统
（★★） 功能1 功能2 。。。 功能n 功能1.1 功能1.2 功能n.1 功能n.2 该系统结构图的最大扇入数是（ D ）
A）1 B）n C）2 D）3 2）（新）软件生命周期可分为定义阶段、开发阶段和维护阶段，下面不属于开发阶段任务的是（ C ） （★★）
A）软件总体设计 B）软件实现 C）可行性研究 D）软件测试 3）（新）运动会中一个运动项目可以有多名运动员参加，一个运动员可以参加多个项目。则实体项目和运动员之间的联系是（ D ） （★★） A）多对一 B）一对多 C）一对一 D）多对多 4）（新）下面不能作为软件设计工具的是（ A ） （★★）
A）数据流图（DFD图） B）PAD图 C）总体结构图 D）程序流程图
5）（新）设某二叉树中共有140个结点，其中有40个度为1的结点。则（ C ） （★★）
A）该二叉树中有50个叶子结点 B）该二叉树中有51个度为2的结点 C）不可能有这样的二叉树
D）该二叉树中有50个度为2的结点 E）该二叉树中有51个叶子结点 6）（新）带链的栈与顺序存储的栈相比，其优点是（ C ） （★★）
A）可以省略栈底指针 B）入栈与退栈操作方便
C）入栈操作时不会受栈存储空间的限制而发生溢出 7）（新）某二叉树的前序序列为ABCD，中序序列为DCBA，则后序序列为（ C ） （★★） A）CDAB B）ABCD C）DCBA D）BADC 8）（新）下列叙述中正确的是（ D ） （★★）
A）循环链表是非线性结构
B）结点中具有两个指针域的链表一定是二叉链表 C）二叉树只能采用链式存储结构
D）结点中具有两个指针域的链表可以是线性结构，也可以是非线性结构 9）（新）逻辑模型是面向数据库系统的模型，下面属于逻辑模型的是（ B ） （★★） A）谓词模型 B）关系模型
C）实体-联系模型 D）物理模型 10）（新）有三个关系R、S和T如下： （★★）
R S T
A B C A B C A B C a 1 2 d 3 2 a 1 2 b 2 1 c 3 1 b 2 1 c 3 1 e 4 5 e 4 5
则由关系R和S得到关系T的操作是（ A ） A）差 B）并 C）选择 D）交 11）（新）假定变量X的值为 33521397，则在声明其类型时不能声明为（ D ） （★★） A）Long B）Variant C）Double