2003年4月全国计算机等级考试二级VB笔试试卷

以下关于窗体的描述中，错误的是

下列可作为Visual Basic变量名的是

设有如下的记录类型
Type Student
number As String
name As String
age As Integer
End Type
则正确引用该记录类型变量的代码是

函数String（n, "str"）的功能是

将数学表达式Cos2(a+b)+5e2写成Visual Basic的表达式，其正确的形式是

在窗体上画一个命令按钮，名称为Command1。单击命令按钮时，执行如下事件过程：
Private Sub Command1_Click()
a$ = "software and hardware"
b$ = Right(a$, 8)
c$ = Mid(a$, 1, 8)
MsgBox a$, , b$, c$, 1
End Sub
则在弹出的信息框的标题栏中显示的信息是

执行如下语句：
a = InputBox("Today", "Tomorrow", "Yesterday", , , "Day before yesterday", 5)
将显示一个输入对话框，在对话框的输入区中显示的信息是

表示滚动条控件取值范围最大值的属性是

在窗体上画一个名称为List1的列表框，一个名称为Label1的标签。列表框中显示若干城市的名称。当单击列表框中的某个城市名时，在标签中显示选中城市的名称。下列能正确实现上述功能的程序是

在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
x = 0
n = InputBox("")
For i = 1 To n
For j = 1 To i
x = x + 1
Next j
Next i
Print x
End Sub
程序运行后，单击命令按钮，如果输入3，则在窗体上显示的内容是

以下关于菜单的叙述中，错误的是

在窗体上画三个单选按钮，组成一个名为chkOption的控件数组。用于标识各个控件数组元素的参数是

在窗体上画一个命令按钮，名称为Command1，然后编写如下事件过程：
Option Base 0
Private Sub Command1_Click()
Dim city As Variant
city = Array("北京", "上海", "天津", "重庆")
Print city(1)
End Sub
程序运行后，如果单击命令按钮，则在窗体上显示的内容是

假定有以下函数过程：
Function Fun(S As String) As String
Dim s1 As String
For i = 1 To Len(S)
s1 = UCase(Mid(S, i, 1)) + s1
Next i
Fun = s1
End Function
在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
Dim Str1 As String, Str2 As String
Str1 = InputBox("请输入一个字符串")
Str2 = Fun(Str1)
Print Str2
End Sub
程序运行后，单击命令按钮，如果在输入对话框中输入字符串"abcdefg"，则单击"确定"按钮后在窗体上的输出结果为

设有语句
Open "c:\Test.Dat" For Output As #1
则以下错误的叙述是

以下叙述中错误的是

以下关于过程及过程参数的描述中，错误的是

在窗体上画一个名称为TxtA的文本框，然后编写如下的事件过程：
Private Sub TxtA_KeyPress(keyascii as integer)
……
End Sub
若焦点位于文本框中，则能够触发KeyPress事件的操作是

目录列表框的Path属性的作用是

假定有如下事件过程：
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
PopupMenu popForm
End If
End Sub
则以下描述中错误的是

以下能够正确计算n!的程序是

在窗体上画一个名称为Command1的命令按钮，再画两个名称分别为Label1、Label2的标签，然后编写如下程序代码：
Private X As Integer
Private Sub Command1_Click()
X = 5: Y = 3
Call proc(X, Y)
Label1.Caption = X
Label2.Caption = Y
End Sub
Private Sub proc(ByVal a As Integer, ByVal b As Integer)
X = a * a
Y = b + b
End Sub
程序运行后，单击命令按钮，则两个标签中显示的内容分别是

在窗体上画一个名称为Command1的命令按钮，一个名称为Label1的标签，然后编写如下事件过程：
Private Sub Command1_Click()
s = 0
For i = 1 To 15
x = 2 * i - 1
If x Mod 3 = 0 Then s = s + 1
Next i
Label1.Caption = s
End Sub
程序运行后，单击命令按钮，则标签中显示的内容是

在窗体上画一个名称为Command1的命令按钮和三个名称分别为Label1、Label2、Label3的标签，然后编写如下代码：
Private x As Integer
Private Sub Command1_Click()
Static y As Integer
Dim z As Integer
n = 10
z = n + z
y = y + z
x = x + z
Label1.Caption = x
Label2.Caption = y
Label3.Caption = z
End Sub
运行程序，连续三次单击命令按钮后，则三个标签中显示的内容分别是

设在窗体上有一个名称为Command1的命令按钮，并有以下事件过程：
Private Sub Command1_Click()
Static b As Variant
b= Array(1,3,5,7,9)
……
End Sub
此过程的功能是把数组b中的5个数逆序存放（即排列为9,7,5,3,1）。为实现此功能，省略号处的程序段应该是

在窗体上画一个名称为Drive1的驱动器列表框，一个名称为Dir1的目录列表框，一个名称为File1的文件列表框，两个名称分别为Label1、Label2，标题分别为空白和"共有文件"的标签。编写程序，使得驱动器列表框与目录列表框、目录列表框与文件列表框同步变化，并且在标签Label1中显示当前文件夹中文件的数量。如图所示。
 　　
能够正确实现上述功能的程序是

一个工程中包含两个名称分别为Form1、Form2的窗体，一个名称为mdlFunc的标准模块。假定在Form1、Form2和mdlFunc中分别建立了自定义过程，其定义格式为：
Form1中定义的过程：
Private Sub frmFunction1()
……
End Sub
Form2中定义的过程：
Public Sub frmFunction2()
……
End Sub
mdlFunc中定义的过程：
Public Sub mdlFunction()
……
End Sub
在调用上述过程的程序中，如果不指明窗体或模块的名称，则以下叙述中正确的是

窗体上有两个名称分别为Text1、Text2的文本框，一个名称为Command1的命令按钮。运行后的窗体外观如图所示。
 　　
设有如下的类型声明
Type Person
name As String*8
major As String*20
End Type
当单击"保存"按钮时，将两个文本框中的内容写入一个随机文件Test29.dat中。设文本框中的数据已正确地赋值给Person类型的变量p。则能够正确地把数据写入文件的程序段是

在窗体上画一个名称为CommonDialog1的通用对话框，一个名称为Command1的命令按钮。要求单击命令按钮时，打开一个保存文件的通用对话框。该窗口的标题为"Save"，缺省文件名为"SaveFile"，在"文件类型"栏中显示*.txt。则能够满足上述要求的程序是

Visual Basic中有一种控件组合了文本框和列表框的特性，这种控件是＿＿ 。

Visual Basic提供的对数据文件的三种访问方式为随机访问方式、＿＿和二进制访问方式。

执行下面的程序段后，变量S的值为＿＿ 。
S = 5
For i = 2.6 To 4.9 Step 0.6
S = S + 1
Next i

为了在运行时把d:\pic文件夹下的图形文件a.jpg装入图片框Picture1，所使用的语句为＿＿ 。

计时器控件能有规律的以一定时间间隔触发＿＿ 事件，并执行该事件过程中的程序代码。

以下程序的功能是：生成20个200到300之间的随机整数，输出其中能被5整除的数并求出它们的和。请填空。
Private Sub Command1_Click()
For i = 1 To 20
x = Int(＿＿* 200 + 100)
If ＿＿ = 0 Then
Print x
S = S + ＿＿
End If
Next i
Print "Sum = "; S
End Sub

设有如下程序
Private Sub Form_Click()
Dim a As Integer, b As Integer
a = 20: b = 50
p1 a, b
p2 a, b
p3 a, b
Print "a="; a, "b="; b
End Sub
Sub p1(x As Integer, ByVal y As Integer)
x = x + 10
y = y + 20
End Sub
Sub p2(ByVal x As Integer, y As Integer)
x = x + 10
y = y + 20
End Sub
Sub p3(ByVal x As Integer, ByVal y As Integer)
x = x + 10
y = y + 20
End Sub
该程序运行后，单击窗体，则在窗体上显示的内容是：a = ＿＿ 和 b = ＿＿ 。

在窗体上画一个名称为Command1的命令按钮，编写如下事件过程
Private Sub Command1_Click()
Dim a As String
a = ＿＿
For i = 1 To 5
Print Space(6 - i); Mid$(a, 6 - i, 2 * i - 1)
Next i
End Sub
程序运行后，单击命令按钮，要求窗体上显示的输出结果为
5
456
34567
2345678
123456789
请填空。

在窗体上画一个名称为Combo1的组合框，画两个名称分别Label1和Label2及Caption 属性分别为"城市名称"和空白的标签。程序运行后，当在组合框中输入一个新项后按回车键（ASCII码为13）时，如果输入的项在组合框的列表中不存在，则自动添加到组合框的列表中，并在Label2中给出提示"已成功添加输入项"如图所示；如果存在，则在Label2中给出提示"输入项已在组合框中"。请在 【12】、【13】 和【14】处将程序补充完整。
 　　
Private Sub Combo1_ ＿＿ (KeyAscii As Integer)
If KeyAscii = 13 Then
For i = 0 To Combo1.ListCount-1
If Combo1.Text = ＿＿ Then
Label2.Caption = "输入项已在组合框中"
Exit Sub
End If
Next i
Label2.Caption = "已成功添加输入项"
Combo1. ＿＿ Combo1.Text
End If
End Sub

设有如下程序
Private Sub search(a() As Variant, ByVal key As Variant, index%)
Dim I%
For I = LBound(a) To UBound(a)
If key = a(I) Then
index = I
Exit Sub
End If
Next I
index = -1
End Sub
Private Sub Form_Load()
Show
Dim b() As Variant
Dim n As Integer
b = Array(1, 3, 5, 7, 9, 11, 13, 15)
Call search(b, 11, n)
Print n
End Sub
程序运行后，输出结果是＿＿ 。