D）Integer 13）（新）有如下程序段： （★★） x = 5
For i = 1 To 20 Step 2 x = x + i \\ 5 Next i
执行上面的程序段后，x的值为（ B ） A）24 B）21 C）22 D）23 14）（新）表达式5 * sqr(25) + sgn(4 ^4)的值是（ A ） （★★） A）26 B）36 C）25 D）29 15）（新）设x值为6，y值为0，则以下可使y值为1的程序段是（ A ） （★★） A） Do
y=y+1
Loop Until x<=6 B） Do Until x<=6 y=y+1 Loop
C） Do While x<6 y=y+1 Loop D） Do
y=y+1
Loop While x<=6 16）（新）下列说法中正确的是（ C ） （★★）
A）任何情况下都可以用标准工具栏的“菜单编辑器”按钮打开菜单编辑器 B）只有当代码窗口为当前活动窗口时，才能打开菜单编辑器 C）只有当某个窗体为当前活动窗体时，才能打开菜单编辑器
D）任何情况下都可以用“工具”菜单中的“菜单编辑器”命令打开菜单编辑器 17）（新）以下不合法的Visual Basic变量名是（ C ） （★★） A）Print_Text B）Sims C）A#B D）Cab24 18）（新）无论x取何值，均能成立的表达式是（ B ） （★★）
A）Int(x) <> Abs(x) B）Int(x) <= Abs(x)
C）Int(x) = Abs(x) D）Int(x) >= Abs(x) 19）（新）以下关于变量的叙述中，错误的是（ C ） （★★）
A）在过程中用Dim或Static语句声明的变量是局部变量 B）在过程中用Static语句声明的变量是静态局部变量 C）任何局部变量在声明它的过程执行完毕后即被释放 D）局部变量的作用域是声明它的过程 20）（新）有下面的程序段： （★★）
For i=14 To 5 Step -3 Print Next i
执行此程序段后，i的值为（ A ） A）2 B）4 C）1 D）3
23）（新）以下控件中，能够作为容器使用的是（ C ）
（★★）
A）图像框 B）标签 C）图片框 D）形状控件
27）（新）以下关于菜单的叙述中，错误的是（ B ）
（★★）
A）单击右键弹出的快捷菜单可以在菜单编辑器中定义
B）若要求菜单项不能被选中（即灰色），应设置菜单项的Visible属性为False C）菜单项既可以是单个控件，也可以构成控件数组 D）菜单项只响应单击事件
30）（新）若要将单选按钮Opt1设为被选中，应设置的属性是（ D ）
（★★★★★）
A）Selected B）Enabled C）SetFocus D）Value
31）（新）程序代码如下：
（★★）
Private Sub Form_Click() a = 3 b = 3 Call f(a, b) Print a; b End Sub
Private Sub f(ByVal x, ByRef y) x = x + x y = y + y End Sub
运行程序，单击窗体后，窗体上显示的是（ D ） A）6 6 B）6 3 C）3 3 D）3 6
32）（新）有如下程序代码： （★★★）
Private Sub Form_Click() Dim a As Integer a = 2 Sum = 0 For i = 1 To 3 Sum = Sum + f(a) Next i Print Sum End Sub
Function f(m As Integer) As Integer Static b As Integer b = b + 1 f = m * b End Function
运行程序，单击窗体后，窗体上显示的是（ D ） A）6 B）9 C）3 D）12
33）（新）窗体的单击事件过程如下： （★★）
Private Sub Form_Click() Dim str As String
str = InputBox(\ For i = 1 To Len(str)
s1 = UCase(Mid(str, i, 1)) + s1 Next i Print s1 End Sub
运行程序时，单击窗体，输入visualbasic，则窗体上显示的是（ D A）visualbasic B）VISUALBASIC C）cisablausiv D）CISABLAUSIV
34）（新）窗体的单击事件过程如下： （★★）
Private Sub Form_Click() n = FreeFile
Open \ Do While Not EOF(n) Line Input #n, str1
）
Print str1 Loop Close End Sub
对于以上程序，如下叙述中错误的是（ D ） A）Not EOF(n)的含义是没有到达n所对应文件的末尾 B）Line Input语句从#n对应的文件中读数据，并赋值给str1 C）n=FreeFile的作用是自动获取文件号，并赋值给n D）Open打开一个随机文件
35）（新）窗体的单击事件过程如下： （★★）
Private Sub Form_Click() Dim m(10) For k = 1 To 10 m(k) = 11 - k Next k Print m(4) End Sub
运行程序时，单击窗体，则窗体上显示的是（ C ） A）5 B）4 C）7 D）6
36）（新）窗体上有一个名称为Opt1的单选按钮控件数组，包含2个单选按钮，下标分别为1、2，标题分别为“显示图片”、“显示文本”。还有一个名称为Picture1的图片框和一个名称为Text1的文本框。工程文件的程序代码如下： （★★）
Private Sub Form_Load()
Picture1.Picture = LoadPicture(\ Text1.Text = \ Picture1.Visible = False Text1.Visible = False End Sub
Private Sub Opt1_Click(Index As Integer) If Index = 1 Then
Picture1.Visible = True Text1.Visible = False End If
If Index = 2 Then
Picture1.Visible = False Text1.Visible = True End If End Sub
对于上述程序代码，以下叙述中错误的是（ C ） A）过程的参数Index对应于被选中单选按钮的下标
B）当单击“显示图片”单选按钮时，显示图片框及其中的图片
C）如果把If语句中的条件Index=1改为Opt1=True，不影响程序的正确执行 D）当单击“显示文本”单选按钮时，显示文本框及其中的文本 37）（新）窗体的单击事件过程如下：
（★★）
Private Sub Form_Click() Dim a(5, 5) As Integer For i = 1 To 5 For j = 1 To 5 a(i, j) = i * 2 + j If i = j Then Sum = Sum + a(i, j) End If Next j Next i Print Sum End Sub
以下关于上述程序的叙述中，错误的是（ C ） A）a（2，4）的值是8 B）a（4，3）的值是11
C）输出结果是数组a中各元素值之和 D）数组a默认的行、列最小下标均为0
38）（新）窗体上有一个名称为Command1的命令按钮。窗体的两个鼠标事件过程如下： （★★）
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Command1.Move X, Y End Sub
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) Command1.Move X, Y End Sub
对于以上两个事件过程，以下叙述中正确的是（ A ） A）参数Button用于确定按下的鼠标键 B）两个事件过程的功能是完全等价的
C）程序有错，程序运行中命令按钮的位置不能改变 D）Shift值用于确定Shift键的状态 39）（新）窗体的单击事件过程如下： （★★）
Private Sub Form_Click()
Dim x As Integer, y As Integer For i = 6 To 1 Step -2 x = i + x y = y + 1 Next i Print y; x End Sub
运行程序时，单击窗体，窗体上显示的是（ B ） A）4 13 B）3 12 C）13 4 D）12 3
40）（新）窗体上有一个名称为List1的列表框控件，其List属性值为一组花卉的名称。一个名称为Picture1的图片框。窗体外观如图所示。