2006年9月全国计算机等级考试二级VB笔试试卷(
目含解析)
一、选择题:
(11) 以下叙述中正确是
A) 窗体的Name属性指定窗体的名称,用来标识一个窗体
B) 窗体的Name属性值是显示在窗体标题中的文本
C) 可以在运行期间改变窗体的Name属性的值
D) 窗体的Name属性值可以为空
考核知识点:
(1) Name属性以及与Caption的区别;
答案: A
分析:请参阅书上28页,仔细体会和理解这些基本知识点,窗体的Name属性指定窗体的名称,用来标识一个窗体,窗体的Name属性值不可以为空,Caption属性值可以为空;窗体的Caption属性值是显示在窗体标题中的文本,不可以在运行期间改变窗体的Name属性的值,可以在运行期间改变窗体的Caption属性值。
(12) 以下叙述中错误的是
A) 打开一个
文件,系统自动装入与该工程有关的窗体文件
B) 保存Visual Basic程序时,应分别保存窗体文件及工程文件
C) Visual Basic应用程序只能以解释方式执行
D) 窗体文件包含该窗体及其控件的属性
考核知识点:
(1) Visual Basic工程结构;
(2) Visual Basic应用程序的保存和执行方式
(3) Visual Basic中各种文件的内容
答案: C
分析:请参阅书上18~19和200页,仔细体会和理解这些基本知识点:
VB的程序代码部分是由若干被称为“过程”的代码行以及向系统提供某些信息的说明组成。
工程文件:扩展名为.vbp,一个工程对应一个工程文件,存储工程的组成信息等
窗体文件:扩展名为.frm,一个窗体对应一个窗体文件,窗体和其中所有控件的属性及代码都存放在窗体文件中。一个工程可以有多个窗体
模块文件:扩展名为.bas,为纯代码文件,存放所有模块级变量和用户自定义的可以在应用程序的各个过程调用的通用过程,标准模块文件与窗体文件是相对独立的,并不存在附属关系。
打开一个工程文件,系统自动装入与该工程有关的窗体文件;保存Visual Basic程序时,应分别保存窗体文件及工程文件;Visual Basic是解释型语言,但是VB应用程序可以以编译和解释两种模式运行;窗体文件包含该窗体及其控件的属性
(13) 设有a=2,b=3,c=4下列表达式的值是
A) Not a <= c Or 4 * c = b ^ 2 And b <> a + c
B) -1
C) 1
D) True
E) False
考核知识点:
(1) 表达式的计算;
(2) 运算符的使用、运算符的运算优先级:逻辑、算术、关系运算;
答案: D
分析:采用书上87、89页。先完成算术->关系运算->逻辑运算,先And,后Or;若逻辑符一边为非逻辑型数据,如数值型,则先将数据转化为2进制的补码形式,然后进行二进制的逻辑运算。
Not a<=c Or 4*c=b^2 And b<>a+c
(14) 设有如下的用户定义类型
Type Student
Number As String
Name As String
age As Integer
End Type
则以下正确以内用该类型成员的代码是
A)Student.Name = "李明"
B)Dim s As Student
s.Name = "李明"
C)Dim s As Type Student
s.Name = "李明"
D)Dim s As Type
s.Name = "李明"
考核知识点:
(1)
变量的声明;
(2) 记录中数据成员的访问格式;
答案: B
分析:(1) 记录变量的声明:Dim 记录变量名 As 记录类型名
(2)记录中数据成员的访问格式:记录变量名.数据成员名
(15)设a=5,b=6,c=7,d=8,执行下列语句后,x的值为
x = IIf((a > b) And (c > d), 10, 20)
A) 10 B) 20 C) True D) False
考核知识点:
(1) IIf函数的使用;
(2) 逻辑表达式的计算
答案: B
分析:请参阅书上121页。当IIf函数中的第一个参数条件表达式的值为真时,该函数返回第二个参数的值,否则返回第三个参数的值;此处IIf函数中的第一个参数条件表达式(a > b) And (c > d)的值为False,所以返回20。
(16)执行以下程序段后,变量c$的值为
a$ = "Visual Basic Programing"
b$ = "Quick"
c$ = b$ & Ucase(Mid$(a$, 7, 6)) & Right$(a$, 12)
A) Visual BASIC Programing
B) Quick Basic Programing
C) QUICK Basic Programing
D) Quick BASIC Programing
考核知识点:
(1) 常用字符串函数Ucase、Mid、Right的使用;
(2) &字符串运算符
答案:D
分析:请参阅书上92页。
(1) Mid和Right均可以从字符串中取出子串,Right只能从字符串最右边字符位置开始取子串,Mid能从字符串任意位置开始取子串,Ucase将字符串中的小写字母转换为大写字母。
(2) &作为字符串运算符时,实现字符串的首尾相连;
(17)在窗体上画一个文本框(其名称为Text1)和一个标签(其名称为Label1),程序运行后,如果在文本框中输入指定的信息,则立即在标签中显示相同的内容,以下可以实现上述操作的事件过程是
A) Private Sub Text1_Click()
Label1.Caption = Text1.Text
End Sub
B) Private Sub Text1_Change()
Label1.Caption = Text1.Text
End Sub
C) Private Sub Label1_Change()
Label1.Caption = Text1.Text
End Sub
D) Private Sub Label1_Click()
Label1.Caption = Text1.Text
End Sub?AA
考核知识点:
(1)常见事件的触发时机
答案: B
分析:请参阅书上76页。文本框的Change事件是在文本框内容(Text)发生改变时触发的,所以在文本框Text1中每输入一个字符就会触发一次Change事件,所以B选项是答案。
(18)在窗体上画一个命令按钮和一个标签,其名称分别为Command1和Label1),然后编写如下事件过程
Private Sub Command1_Click()
Counter = 0
For i = 1 To 4
For j = 6 To 1 Step -2
Counter = Counter + 1
Next j
Next i
Label1.Caption = Str(Counter)
End Sub
程序运行后,单击命令按钮,在标签中显示的值是【】。
A) 11 B) 12 C) 16 D) 20
考核知识点:
(1) For语句的执行流程;
(2) 累加算法
(3) Str函数
答案: B
分析:知识点:For计数循环,当循环内部没有改变循环控制变量的语句,则For的循环次数=Int((终值-初值)/步长)+1,此处内部循环次数= Int((1-6)/-2)+1=3,而外部循环次数= Int((4-1)/1)+1=4,所以内部循环体共执行了4*3=12次,即Counter累加了12次,所以答案为12。
(19)在窗体上画一个名称为Text1文本框和一个名称为Command1的命令按钮,然后编写如下事件过程:
循环次数
i
n
0
0
0
1
3
1
4
2
7
2
8
3
11
3
Private Sub Command1_Click()
Dim i As Integer, n As Integer
For i = 0 To 50
i = i + 3
n = n + 1
If i > 10 Then Exit For
Next
Text1.Text = Str(n)
End Sub
程序运行后,单击命令按钮,在文本框中显示的值是
A) 5
B) 4
C) 3
D) 2
考核知识点:
(1)For语句的执行流程;
(2)累加算法
(3)Str函数
(4)Exit For作用是跳出所在的一层For循环。
答案: C
分析:语句For循环,当循环变量的值<=终值时执行循环,一旦循环变量的值 >终值时结束,缺省步长,表示步长为1;此处在循环内部IF表示:若i大于10,则立即跳出循环。具体可以列表分析整个运行过程,确定答案3
选项是答案。
(20)在窗体上画一个命令按钮和两个标签,其名称分别为Command1、Label1和Label2,然后编写如下事件过程:
Private Sub Command1_Click()
a = 0
For i = 1 To 10
a = a + 1
b = 0
For j = 1 To 10
a = a + 1
b = b + 2
Next j
Next i
Label1.Caption = Str(a)
Label2.Caption = Str(b)
End Sub
程序运行后,单击命令按钮,在标签Label1和Label2中显示的内容分别是
A) 10和20
B) 20和110
C) 200和110
D) 110和20
考核知识点:
(1)For语句的执行流程;
(2)累加算法
(3)Str函数
答案: D
分析:知识点:For计数循环,当循环内部没有改变循环控制变量的语句,则For的循环次数=Int((终值-初值)/步长)+1,此处内部循环次数= Int((10-1)/1)+1=10,而外部循环次数= Int((10-1)/1)+1=10,所以内部循环体共执行了10*10=100次,因此a累加了10+100=110次,而b每次进入内部循环之前都清零了,因此有效的累加了10次,所以答案为D。
(21)在窗体上画一个名称为List1的列表框,一个名称为Label1的标签,列表框中显示若干城市的名称。当单击列表框中的某个城市名时,该城市名从列表框中消失,并在标签中显示出来。下列能正确实现上述操作的程序是
A) Private Sub List1_Click()
Label1.Caption = List1.ListIndex
List1.RemoveItem List1.Text
End Sub
B) Private Sub List1_Click()
Label1.Name = List1.ListIndex
List1.RemoveItem List1.Text
End Sub
C) Private Sub List1_Click()
Label1.Caption = List1.Text
List1.RemoveItem List1.ListIndex
End Sub
D) Private Sub List1_Click()
Label1.Name = List1.Text
List1.RemoveItem List1.ListIndex
End Sub
考核知识点:
(1)标签和列表框的常见属性、方法、事件的含义和使用;
答案: C
分析:题目要求:当单击列表框中的某个城市名时,该城市名从列表框中消失,并在标签中显示出来,因此应编写列表框的单击事件过程,利用标签的Caption属性显示用户选中的列表项内容List1.Text,并利用列表框的RemoveItem方法删除该列表项,注意RemoveItem方法中的参数应是待删除列表项的索引号,所以C选项是答案
(22) 设有命令按钮command1的单击事件过程,代码如下:
Private Sub Command1_Click()
Dim i As Integer, j As Integer
Dim a(10, 10) As Integer
For i = 1 To 3
For j = 1 To 3
a(i, j) = (i - 1) * 3 + j
Print a(i, j);
Next j
Print
Next i
End Sub
程序运行后,单击命令按钮,窗体上显示的是
A) 1 2 3 B) 2 3 4 C) 1 4 7 D) 1 2 3
2 4 6 3 4 5 2 5 8 4 5 6
3 6 9 4 5 6 3 6 9 7 8 9
考核知识点:
(1)For语句的执行流程;
(2)数组元素的访问
(3)Print方法的输出格式
答案: D
分析:循环体完成对数组部分元素的赋值,并同时输出这些数组元素,每3个一行紧缩格式输出
i
j
a(i,j)
1
1
a(1,1)=(1-1)*3+1=1
1
2
a(1,2)=(1-1)*3+2=2
1
2
a(1,3)=(1-1)*3+3=3
2
1
a(2,1)=(2-1)*3+1=4
2
2
a(2,2)=(2-1)*3+2=5
2
3
a(2,3)=(2-1)*3+3=6
3
1
a(3,1)=(3-1)*3+1=7
3
2
a(3,2)=(3-1)*3+2=8
3
3
(23)在窗体上画1个名称为Command1的命令按钮,然后编写如下事件过程:
Option Base 0
Private Sub Command1_Click()
Dim A(4) As Integer, B(4) As Integer
For k = 0 To 2
A(k + 1) = InputBox("请输入一个整数")
B(3 - k) = A(k + 1)
Next k
Print B(k)
End Sub
程序运行后,单击命令按钮,在输入对话框中分别输入2、4、6,输出结果为
A) 0 B) 2 C) 3 D)4
考核知识点:
(1)For语句的执行流程;
(2)数组元素的访问
(3)Print方法的输出格式
答案: B
分析:注意一般情况下,仅当循环控制变量的值超出了终值,For循环结束,因此此题For循环结束时,k的值为3,所以在窗体上输出的是B(3)的值
k
A
B
0
A(1)=2
B(3)=A(1)=2
1
A(2)=4
B(2)=A(2)=4
2
A(3)=6
B(1)=A(3)=6
3
B(3)
(24)有以下程序:
Option Base 1
Dim arr() As Integer
Private Sub Form_Click()
Dim i As Integer, j As Integer
ReDim arr(3, 2)
For i = 1 To 3
For j = 1 To 2
arr(i, j) = i * 2 + j
Next j
Next i
ReDim Preserve arr(3, 4)
For j = 3 To 4
arr(3, j) = j + 9
Next j
Print arr(3, 2); arr(3, 4)
End Sub
程序运行后,单击窗体,输出结果为
A) 8 13 B) 0 13 C) 7 12 D) 0 0
考核知识点:
(1)For语句的执行流程;
(2)动态数组元素的访问
(3)Print方法的输出格式
答案: A
分析:(1)注意动态数组在访问前,必须先声明定义,后访问;
(2)ReDim语句中Preserve表示再次使用Redim语句改变数组大小时保留数组中原有的数据
此题要求在窗体输出arr(3, 2)和arr(3, 4)的值,根据之前的循环语句,可以看出arr(3, 2)在第2次Redim数组定义时值保留、而且第2次循环并没有更改arr(3, 2)的值,所以arr(3, 2)= i * 2 + j=3*2+2=8,而arr(3, 4)在第2次循环时重新赋值为j + 9=13,因此答案为A
(25)以下叙述中正确的是
A) 一个Sub过程至少要有一个Exit Sub语句
B) 一个Sub过程必须有一个End Sub语句
C) 可以在Sub过程中定一个Function过程,但不能定义Sub过程
D) 调用一个Function过程可以获得多个返回值
考核知识点:
(1)过程的定义和调用;
答案: B
分析:过程的定义是相对独立的,一个过程并不从属于另一个过程,即过程不能嵌套定义,在过程中不可以再定义Sub过程或Function过程。但可以嵌套调用自身或其他过程。函数过程本身利用函数名可以返回一个值,而子程序过程和事件过程不具有该特点。子程序过程定义时,是以关键字是Sub开头,结束于End Sub,在它们之间是描述过程的操作语句块,称为子程序体或过程体;Exit Sub表示退出子过程,返回到主调过程的调用处,但不是必须的
(26)有以下程序:
Sub subP(b() As Integer)
For i = 1 To 4
b(i) = 2 * i
Next i
End Sub
Private Sub Command1_Click()
Dim a(1 To 4) As Integer
a(1) = 5
a(2) = 6
a(3) = 7
a(4) = 8
subP a()
For i = 1 To 4
Print a(i)
Next i
End Sub
运行上面的程序,单击命令按钮,输出结果为
A)2
B)5
C)10
D)出错
4
6
12
6
7
14
8
8
16
考核知识点:
(1) 过程调用;
(2) 参数传递方式
答案: A
分析:此题中存在过程调用subP a(),而且是数组参数,因此参数的传递方式是按地址传递的,因此subP中对形参b数组的访问也实时影响实参数组a,因此最后通过For循环输出的数组a元素的值为2、4、6、8
(27)设有如下通用过程:
Public Function Fun(xStr As String) As String
Dim tStr As String, strL As Integer
tStr = ""
strL = Len(xStr)
i = 1
Do While i <= strL / 2
tStr = tStr & Mid(xStr, i, 1) & Mid(xStr, strL - i + 1, 1)
i = i + 1
Loop
Fun = tStr
End Function
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下的事件过程:
Private Sub Command1_Click()
Dim S1 As String
S1 = "abcdef"
Text1.Text = UCase(Fun(S1))
End Sub
程序运行后,单击命令按钮,则在Text1中显示的是
A)ABCDEF B)abcdef C)AFBECD D)DEFABC
考核知识点:
(1) 函数调用;
(2) Do-While循环流程
(3) 常用函数的功能Ucase、Mid、Len
答案: C
分析:根据命令按钮Command1的单击事件过程,可以知道此程序是通过函数Fun调用,完成计算,并将计算结果转换为大写字母后显示在文本框中;因此,首先可以排除选项B;本题的关键是函数Fun的调用执行,该函数中主要是一个Do-While循环的执行。
tStr
strL
i
xStr
""
6
1
"abcdef"
"af"
2
"afbe"
3
"afbecd"
4
(28)在窗体上画一个名称为TxtA的文本框,然后编写如下的事件过程:
Private Sub TxtA_KeyPress(KeyAscii As Integer)
……
End Sub
假定焦点已经定位于文本框中,则能够触发KeyPress事件的操作是
A) 单击鼠标 B) 双击文本框 C)鼠标滑过文本框 D)按下键盘上某个键
考核知识点:
(1) 键盘事件的触发时机;
答案: D
分析:参阅课本54-56和91页,A、B、C选项会引发鼠标事件,而KeyPress事件仅当按下键盘上某个键时,才会触发。
(29)在窗体上画一个命令按钮和两个文本框,其名称分别为Command1、Text1和Text2,然后编写如下程序:
Dim S1 As String, S2 As String
Private Sub Form_Load()
Text1.Text = ""
Text2.Text = ""
End Sub
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
S2 = S2 & Chr(KeyCode)
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
S1 = S1 & Chr(KeyAscii)
End Sub
Private Sub Command1_Click()
Text1.Text = S2
Text2.Text = S1
S1 = ""
S2 = ""
End Sub
程序运行后,在Text1中输入”abc”,然后单击命令按钮,在文本框Text1和Text2中显示的内容分别为
A) abc和ABC B) abc和abc C) ABC和abc D) ABC和ABC
考核知识点:
(1) 键盘事件(参数含义、触发次序)和Chr函数;
答案: C
分析:参阅课本54-56和91页,Chr(KeyCode)表示返回输入字符扫描码对应的字符;Chr(KeyAscii) 表示返回输入字符Ascii码对应的字符
(30)以下说法中正确的是
A) 任何时候都可以通过执行“工具”菜单中的“菜单编辑器”命令打开菜单编辑器
B) 只有当某个窗体为当前活动窗体时,才能打开菜单编辑器
C) 任何时候都可以通过单击标准工具栏上的“菜单编辑器”按钮打开菜单编辑器
D) 只有当代码窗口为当前活动窗口时,才能打开菜单编辑器
考核知识点:
(1) 菜单编辑器的使用;
答案: B
分析:
菜单属于程序的界面设计,所以只能在查看对象的设计状态下,才能使用菜单编辑器,因此只有当某个窗体为当前活动窗体时,才能打开菜单编辑器。
(31)在窗体上画一个通用对话框,其名称为CommonDialog1,然后画一个命令按钮,并编写如下事件过程:
Private Sub Command1_Click()
CommonDialog1.Filter = "AllFiles(*.*)|*.*|Text Files" & _
"(*.txt)|*.txt|Executable Files(*.exe)|*.exe"
CommonDialog1.FilterIndex = 3
CommonDialog1.ShowOpen
MsgBox CommonDialog1.FileName
End Sub
程序运行后,单击命令按钮,将显示一个”打开”对话框,此时在”文件类型”框中显示的是
A) All files(*.*)
B) Text Files(*.txt)
C) Executable Files(*.exe)
D) 不确定
考核知识点:
(1) 通用对话框的设置和使用;
答案: C
分析:通用对话框的基本属性和方法:
· 调用方法直接决定打开何种类型的对话框
ShowOpen:打开对话框。
ShowSave:另存为对话框。
ShowColor:颜色对话框。
ShowFont:字体对话框。
ShowPrinter:打印机对话框。
ShowHelp:帮助对话框。
· Action功能属性直接决定打开何种类型的对话框。
0——None:无对话框显示。
1——Open:打开文件对话框。
2——Save As:另存为对话框。
3——Color:颜色对话框。
4——Font:字体对话框。
5——Printer:打印机对话框。
6——Help:帮助对话框。
· FileName(文件名称)属性——用于设置和得到用户所选的文件名(包括路径名)
· Filter(过滤器)属性——用于过滤文件类型,使文件列表中只显示指定类型的文件。
格式:
文件说明|文件类型
此处:All files(*.*)|*.*|Text Files(*.txt)|*.txt| Executable Files(*.exe)|*.exe"
· Filterindex(过滤器索引)属性——用于指定文件类型列表框中的默认设置
filterindex 值为3,所以文件类型将显示Executable Files(*.exe)|*.exe
· DialogTitle(对话框标题)属性——决定通用对话框的标题,可以是任意字符串
· 初始化路径(InitDir)属性——用来设置指定打开对话框中初始目录。若显示当前目录,则该属性不需要设置。
(32)以下叙述中错误的是
A) 一个工程中可以包含多个窗体文件
B) 在一个窗体文件中用Public定义的通用过程不能被其他窗体调用
C) 窗体和标准模块需要分别保存为不同类型的磁盘文件
D) 用Dim定义的窗体层变量只能在该窗体中使用
考核知识点:
(1) VB程序的构成
(2) 不同模块文件的保存
(3) 不同作用域的变量和过程的调用限制
答案: B
分析:一个工程中可以包含多个窗体文件、模块文件等;在一个窗体文件中用Public定义的通用过程能被其他窗体调用,但是需要加窗体名前缀;窗体和标准模块需要分别保存为不同类型的磁盘文件.frm和.bas;用Dim定义的窗体层变量只能在该窗体中使用
(33)以下叙述中错误的是
A) 语句”Dim a,b As Integer”声明了两个整型变量
B) 不能在标准模块中定义Static型变量
C) 窗体层变量必须先声明,后使用
D) 在事件过程或通用过程内定义的变量是局部变量
考核知识点:
(1) 变量的定义位置;
(2) 变量的作用域范围
答案: A
分析:变量声明定义时,若不加类型说明,系统默认为变体型(Variant),因此语句”Dim a,b As Integer”仅声明了一个整型变量b,而a为变体型;能在各种模块中的过程中定义Static型变量;窗体层、模块层、全局变量必须先声明,后使用;直接使用而没有定义的变量,系统默认为过程级的;在事件过程或通用过程内定义的变量是局部变量
(34)设有语句:Open “d:\Test.txt” For Output As #1,以下叙述中错误的是
A) 若d盘根目录下无Test.txt文件,则该语句创建此文件
B) 用该语句建立的文件的文件号为1
C) 该语句打开d盘根目录下一个已存在的文件Test.txt,之后就可以从文件中读取信息
D) 执行该语句后,就可以通过Print #语句向文件Test.txt中写入信息
考核知识点:
(1) 顺序文件的访问
答案: C
分析:Open “d:\Test.txt” For Output As #1表示以写的方式打开d:\Test.txt文件,并赋予文件号1,准备以顺序访问方式对该文件进行写操作;如果文件不存在,则建立一个新文件。
(35)以下叙述中错误的是
A)顺序文件中的数据只能按顺序读写
B)对同一个文件,可以用不同的方式和不同的文件号打开
C)执行Close语句,可将文件缓冲区中的数据写到文件中
D)随机文件中各记录的长度是随机的
考核知识点:
(1) 不同文件的特点和访问要求;
(2) 文件操作语句的功能
答案: D
分析:随机文件中各记录的长度是固定的
二、填空题
(6)描述“X是小于100的非负整数”的Visual Basic表达式
Int(X)=X And And X>=0 And X <100
考核知识点:
(1) 取整函数的使用
(2) 条件表达式的构造
(7)在窗体上有一个名称为Command1的命令按钮和一个名称为Text1的文本框。程序运行后,Command1为禁用(灰色),此时如果在文本框中输入字符,则命令Command1变为可用。请填空。
Private Sub Form_Load()
Command1.Enabled = False
End Sub
Private Sub Text1_ () ‘答案Change
Command1.Enabled = True
End Sub
考核知识点:
(1)常见事件的触发时机
分析:请参阅书上76页。文本框的Change事件是在文本框内容(Text)发生改变时触发的,所以在文本框Text1中每输入一个字符就会触发一次Change事件。
(8)在窗体上画一个名称为“Command1”的命令按钮,然后编写如下事件过程:
Private Sub Command1_Click()
Dim a As String
a = "123456789"
For i = 1 To 5
Print Space(6 - i); Mid(a, , 2 * i - 1) ‘答案为6 - i
Next i
End Sub
程序运行后,单击命令按钮,窗体上输出结果是
请填空
考核知识点:
(1) 重复性操作规律的分析,掌握循环体的构造方法
(9)以下程序的功能是:将一维数组A中的100个元素分别赋给二维数组B的每个元素并打印出来,要求把A(1)到A(10)依次赋给B(1,1)到B(1,10),把A(11)到A(20)依次赋给B(2,1)到B(2,10),……,把A(91)到A(100)依次赋给B(10,1)到B(10,10),请填空。
Private Sub Form_Click()
Dim i As Integer, j As Integer
Dim A(1 To 100) As Integer
Dim B(1 To 10, 1 To 10) As Integer
For i = 1 To 100
A(i) = Int(Rnd * 100)
Next i
For i = 1 To ‘答案为10
For j = 1 To ‘答案为10
B(i, j) = ‘答案为A(10 * (i - 1) + j)
Print B(i, j);
Next j
Print
Next i
End Sub
考核知识点:
(1) 重复性操作规律的分析,掌握循环体的构造方法
(10)在窗体上有一个组合框Combo1,两个名称分别为Label1、Lable2、标题分别为“城市名称”和空白标签。程序运行后,在组合框中输入一个新项目并按回车键,若输入的项目在组合框的列表中不存在,则自动将其添加到组合框的列表中,并在Label2中给出提示“已成功添加新输入项。”,如图所示。若输入的项目已存在,则在Label2中给出提示“输入项已在组合框中。”。
Private Sub Combo1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
For i = 0 To Combo1.ListCount - 1
If Combo1.Text = Then ‘答案为Combo1.List(i)
Label2.Caption = "输入项已在组合框中。"
Exit Sub
End If
Next i
Label2.Caption = "已成功添加新输入项。"
Combo1. Combo1.Text ‘答案为AddItem
End If
End Sub
考核知识点:
(1) 组合框基本属性和方法;
(11)在窗体上画一个命令按钮和一个文本框,其名称分别为Command1和Text1,然后编写如下事件过程:
Private Sub Command1_Click()
Dim inData As String
Text1.Text = ""
Open "d:\myfile.txt" For As #1 ‘答案为Input
Do While ‘答案为Not EOF(1)
Input #1, inData
Text1.Text = Text1.Text + inData
Loop
Close #1
End Sub
程序的功能是,打开D盘根目录下的文本文件myfile.txt,读取它的全部内容并显示在文本框中,请填空。
考核知识点:
(1) 顺序文件的访问
(2) 文件访问的基本操作和函数;
一、选择题:
01—05 DACBD 06—10 CDBBA
11—15 ACDBB 16—20 DBBCD
21—25 CDBAB 26—30 ACDCB
31—35 CBACD
二、填空题:
1、3
2、调试
3、元组
4、栈
5、线性
6、X%<100 AND X%>=0
7、CHANGE
8、6-i
9、10
10、10
11、a((i-1)*10+j)
12、combo1.list(i)
13、additem
14、input
15、not eof(1)
---------------②---------------------------
------------①------------
_1149260628.bin