单选题
一、选择题
1
设有如图所示窗体和以下程序：
Private Sub Co mmand1＿Click（）
Text1．Text ＝＂Visual Basic＂
End Sub
Private Sub Text1＿LostFocus（）
If Text1．Text ＜＞＂BASIC＂Then
Text1．Text ＝＂＂
Text1．SetFocus End If
End Sub
程序运行时，在Text1文件框中输入"Basic"（如图所示），然后单击Co mmand1按钮，则产生的结果是（ ）。
Private Sub Co mmand1＿Click（）
Text1．Text ＝＂Visual Basic＂
End Sub
Private Sub Text1＿LostFocus（）
If Text1．Text ＜＞＂BASIC＂Then
Text1．Text ＝＂＂
Text1．SetFocus End If
End Sub
程序运行时，在Text1文件框中输入"Basic"（如图所示），然后单击Co mmand1按钮，则产生的结果是（ ）。
分值: 1.0分查看题目解析 >
3
以下程序段的输出结果为（ ）。
Di ma（10），p（3）
k ＝5
For i ＝0To 10
a（i）＝i
Next i
For i ＝0To 2
p（i）＝a（i ＋（i ＋1））
Next i
For i ＝0To 2
k ＝k ＋p（i）＋2
Next i
Print k
Di ma（10），p（3）
k ＝5
For i ＝0To 10
a（i）＝i
Next i
For i ＝0To 2
p（i）＝a（i ＋（i ＋1））
Next i
For i ＝0To 2
k ＝k ＋p（i）＋2
Next i
Print k
分值: 1.0分查看题目解析 >
5
窗体上添加一个文本框Textl ，编写下列代码：
Private Sub Textl＿KeyDown（KeyCode As Integer ，ShiftAs Integer）
Print Chr（KeyCode ＋51＆KeyCode）
End Sub
程序运行时，在文本框中输入"ab"，则在窗体上输出为（ ）。
Private Sub Textl＿KeyDown（KeyCode As Integer ，ShiftAs Integer）
Print Chr（KeyCode ＋51＆KeyCode）
End Sub
程序运行时，在文本框中输入"ab"，则在窗体上输出为（ ）。
分值: 1.0分查看题目解析 >
7
在窗体上画一个命令按钮和一个标签，其名称分别为Co mmand1和Labell ，然后编写如下事件过程：
Private Sub Co mmand1＿Click（）
Counter ＝0
For i ＝1To 4
For j＝6To 1Step －2
Counter ＝Counter ＋1
Next j
Next i
Label1．Caption ＝Str（Counter）
End Sub
程序运行后，单击命令按钮，标签中显示的内容是（ ）。
Private Sub Co mmand1＿Click（）
Counter ＝0
For i ＝1To 4
For j＝6To 1Step －2
Counter ＝Counter ＋1
Next j
Next i
Label1．Caption ＝Str（Counter）
End Sub
程序运行后，单击命令按钮，标签中显示的内容是（ ）。
分值: 1.0分查看题目解析 >
12
下列程序代码实现生成20个0~100之间的随机整数，存于数组中，打印数组中大于50的数，并求这些数的和。请选择正确的程序段（ ），完成程序。
Private Sub Co mmand1Click（ ）
Di marr（1To 20）
For i ＝1To 20
arr（i）＝_________
Textl ．Text ＝Textl ．Text ＆arr（i ）＆Chr（13）＆Chr（10）
Next i
Sum＝0
For Each X
If X＞50Then
Print Tab（20）；X
Sum＝Sum＋X
End If
Next X
Print Tab（20）；＂Sum＝＂；Sum
End Sub
Private Sub Co mmand1Click（ ）
Di marr（1To 20）
For i ＝1To 20
arr（i）＝_________
Textl ．Text ＝Textl ．Text ＆arr（i ）＆Chr（13）＆Chr（10）
Next i
Sum＝0
For Each X
If X＞50Then
Print Tab（20）；X
Sum＝Sum＋X
End If
Next X
Print Tab（20）；＂Sum＝＂；Sum
End Sub
分值: 1.0分查看题目解析 >
13
在窗体上画1个命令按钮，并编写如下事件过程：
Private Sub Command1_Click()
Dim a(3,3)
For m=1 To 3
For n=1 To 3
If n=m or n=4-m Then
a(m,n)=m+n
Else
a(m,n)=0
End If
Print a(m,n);
Next n
Print
Next m
End Sub
运行程序，单击命令按钮，窗体上显示的内容为（ ）。
Private Sub Command1_Click()
Dim a(3,3)
For m=1 To 3
For n=1 To 3
If n=m or n=4-m Then
a(m,n)=m+n
Else
a(m,n)=0
End If
Print a(m,n);
Next n
Next m
End Sub
运行程序，单击命令按钮，窗体上显示的内容为（ ）。
分值: 1.0分查看题目解析 >
15
窗体上有两个名称分别为Text1、Text2的文本框。Text1的KeyUp 的事件过程如下：
Private Sub Text1＿KeyUp（KeyCode As Integer ，shiftAs Integer）
Di m CAs stri ng
Text2．Text ＝Chr（Asc（c）＋2）
End Sub
当向文本框Text1中输入小写字母a 时，文本框Text2中显示的是（ ）。
Private Sub Text1＿KeyUp（KeyCode As Integer ，shiftAs Integer）
Di m CAs stri ng
Text2．Text ＝Chr（Asc（c）＋2）
End Sub
当向文本框Text1中输入小写字母a 时，文本框Text2中显示的是（ ）。
分值: 1.0分查看题目解析 >
16
假定有下列程序段：
For i ＝1TO 3
For j＝5To 1Step －1
Print i＊j
Next j
Next i
则语句Print i＊j 的执行次数是（ ）。
For i ＝1TO 3
For j＝5To 1Step －1
Print i＊j
Next j
Next i
则语句Print i＊j 的执行次数是（ ）。
分值: 1.0分查看题目解析 >
18
窗体上有1个名称为Text1的文本框和1个名称为Co mmand1．的命令按钮。要求程序运行时，单击命令按钮，就可把文本框中的内容写到文件out ．txt 中，每次写入的内容附加到文件原有内容之后。下列能够正确实现以上功能的程序是（ ）。
分值: 1.0分查看题目解析 >
21
在窗体上从左到右有Text1、Text2两个文本框，如图所示，要求程序运行时，在Text1中输入1个分数后按回车键，则判断分数的合法性，若分数为0~100中的1个数，则光标移到Text2中；否则光标不动，并弹出对话框显示"分数错"。下列程序中正确的是（ ）。
分值: 1.0分查看题目解析 >
25
窗体上有一个名称为Co mmand1的命令按钮，其单击事件过程及有关函数过程如下：
Private Sub Co mmand1＿Click（）
Di mn As Integer
n ＝add（5，10）
Print n
End Sub
Function add（v1As Integer ，v2As Integer ，Optionalv3）As Integer
If Not Is Missi ng（v3）Then
add ＝v1＋v2＋v3
Else
add ＝v1＋v2
End If
End Function
运行程序，单击命令按钮，以下叙述中正确的是（ ）。
Private Sub Co mmand1＿Click（）
Di mn As Integer
n ＝add（5，10）
Print n
End Sub
Function add（v1As Integer ，v2As Integer ，Optionalv3）As Integer
If Not Is Missi ng（v3）Then
add ＝v1＋v2＋v3
Else
add ＝v1＋v2
End If
End Function
运行程序，单击命令按钮，以下叙述中正确的是（ ）。
分值: 1.0分查看题目解析 >
28
设有如下通用过程：
Public Function f（x As Integer）
Di my As Integer
x＝20
y ＝2
f ＝x＊y
End Function
在窗体上画一个名称为Co mmand1的命令按钮，然后编写如下事件过程：
Private Sub Co mmand1＿Click（）
Static x As Integer
x＝10
y ＝5
y ＝f（x）
Print x；y
End Sub
程序运行后，如果单击命令按钮，则在窗体上显示的内容是（ ）。
Public Function f（x As Integer）
Di my As Integer
x＝20
y ＝2
f ＝x＊y
End Function
在窗体上画一个名称为Co mmand1的命令按钮，然后编写如下事件过程：
Private Sub Co mmand1＿Click（）
Static x As Integer
x＝10
y ＝5
y ＝f（x）
Print x；y
End Sub
程序运行后，如果单击命令按钮，则在窗体上显示的内容是（ ）。
分值: 1.0分查看题目解析 >
36
窗体上有一个名称为CD1的通用对话框控件和由四个命令按钮组成的控件数组Co mmand1，其下标从左到右分别为0、1、2、3，窗体外观如图所示。
命令按钮的事件过程如下：
Private Sub Co mmand1＿Click（Index As Integer）
Select Case Index
Case 0
CD1 .Action ＝1
Case 1
CD1 .ShowSave
Case 2
CD1 .Action ＝5
Case 3
End
End Select
End Sub
对上述程序，下列叙述中错误的是（ ）。
命令按钮的事件过程如下：
Private Sub Co mmand1＿Click（Index As Integer）
Select Case Index
Case 0
CD1 .Action ＝1
Case 1
CD1 .ShowSave
Case 2
CD1 .Action ＝5
Case 3
End
End Select
End Sub
对上述程序，下列叙述中错误的是（ ）。
分值: 1.0分查看题目解析 >
37
窗体上有两个水平滚动条HV、HT，还有一个文本框Text1和一个标题为"计算"的命令按钮Co mmand1，并编写了以下程序：
Private Sub Co mmand1＿Click（）
Call Cale （HV．Value ，HT．Value）
End Sub
Public Sub Cale（x ASInteger ，y ASInteger）
Text1．Text ＝x＊y
End Sub
运行程序，单击"计算"按钮，可根据速度与时间计算出距离，并显示计算结果。对以上程序，下列叙述中正确的是（ ）。
Private Sub Co mmand1＿Click（）
Call Cale （HV．Value ，HT．Value）
End Sub
Public Sub Cale（x ASInteger ，y ASInteger）
Text1．Text ＝x＊y
End Sub
运行程序，单击"计算"按钮，可根据速度与时间计算出距离，并显示计算结果。对以上程序，下列叙述中正确的是（ ）。
分值: 1.0分查看题目解析 >
38
在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Co mmand1＿Click（）
x＝0
Do Until x＝－1
a＝InputBox（＂请输入A 的值＂）
a＝Val（a）
b ＝InputBox（＂请输入B的值＂）
b ＝Val（b）
x＝InputBox（＂请输入x 的值＂）
x＝Val（x）
a＝a＋b ＋x
Loop
Print a
End Sub
程序运行后，单击命令按钮，依次在输入对话框中输入5、4、3、2、1、－1，则输出结果为（ ）。
Private Sub Co mmand1＿Click（）
x＝0
Do Until x＝－1
a＝InputBox（＂请输入A 的值＂）
a＝Val（a）
b ＝InputBox（＂请输入B的值＂）
b ＝Val（b）
x＝InputBox（＂请输入x 的值＂）
x＝Val（x）
a＝a＋b ＋x
Loop
Print a
End Sub
程序运行后，单击命令按钮，依次在输入对话框中输入5、4、3、2、1、－1，则输出结果为（ ）。
分值: 1.0分查看题目解析 >
39
在窗体上画一个名称为Co mmand1的命令按钮，再画两个名称分别为Labell、Label2的标签，然后编写如下程序代码：
Private X As Integer
Private Sub Co mmand1＿Click（）
X＝5：Y ＝3
Call proc（x，y）
Labell ．Caption ＝x
Label2．Caption ＝y
End Sub
Private Sub proc（a As Integer ，ByVal b As Integer）
X＝a＊a
Y ＝b ＋b
End Sub
程序运行后，单击命令按钮，则两个标签中显示的内容分别是（ ）。
Private X As Integer
Private Sub Co mmand1＿Click（）
X＝5：Y ＝3
Call proc（x，y）
Labell ．Caption ＝x
Label2．Caption ＝y
End Sub
Private Sub proc（a As Integer ，ByVal b As Integer）
X＝a＊a
Y ＝b ＋b
End Sub
程序运行后，单击命令按钮，则两个标签中显示的内容分别是（ ）。
分值: 1.0分查看题目解析 >
问答题
二、基本操作题
41
请根据以下各小题的要求设计Visual Basic应用程序（包括界面和代码）。
（1）在名称为Form1的窗体上创建两个名称分别为Option1和Option2，标签分别为"教授"和"研究员"的单选按钮，再建立一个名称为Label1的标签，实现如下功能：
当选中"教授"时，标签上显示"博士学位以上"，如果选中"研究员"，则标签上显示"硕士学位以上"，结果如图1-1所示。
图1-1
注意：存盘时必须存放在考生文件夹下，工程文件名为sj1.vbp，窗体文件名为sj1.frm。
（2）在名称为Form1的窗体上画两个名称分别为Text1和Text2、内容都为空的文本框，再画一个命令按钮，其名称为Command1，标题为"判断"，编写适当的事件过程。要求程序运行后，如果在Text1中输入一个数，单击命令按钮Command1，判断输入的是否为偶数，如图1-2所示。要求：不得使用任何变量。
图1-2
注意：存盘时必须存放在考生文件夹下，工程文件名为sj2.vbp，窗体文件名为sj2.frm。
（1）在名称为Form1的窗体上创建两个名称分别为Option1和Option2，标签分别为"教授"和"研究员"的单选按钮，再建立一个名称为Label1的标签，实现如下功能：
当选中"教授"时，标签上显示"博士学位以上"，如果选中"研究员"，则标签上显示"硕士学位以上"，结果如图1-1所示。
图1-1
注意：存盘时必须存放在考生文件夹下，工程文件名为sj1.vbp，窗体文件名为sj1.frm。
（2）在名称为Form1的窗体上画两个名称分别为Text1和Text2、内容都为空的文本框，再画一个命令按钮，其名称为Command1，标题为"判断"，编写适当的事件过程。要求程序运行后，如果在Text1中输入一个数，单击命令按钮Command1，判断输入的是否为偶数，如图1-2所示。要求：不得使用任何变量。
图1-2
注意：存盘时必须存放在考生文件夹下，工程文件名为sj2.vbp，窗体文件名为sj2.frm。
分值: 18.0分查看题目解析 >
问答题
三、简单应用题
42
（1）在考生文件夹下有一个工程文件sj3.vbp，相应的窗体文件名为sj3.frm，请装入该文件，在窗体上画一个列表框和一个文本框，名称分别为List1和Text1。
编写适当的事件过程。程序运行后，如果在文本框中输入要添加的项并双击，则将该项添加到列表框中（内容任意，不少于3个），如图3-3所示；如果双击list1的某一项则将其从列表框中删除，如图3-4所示。提供的窗体文件可以实现上述功能，但这个程序不完整，请把它补充完整。
图3-3
图3-4
要求：去掉程序中的注释符"'"，把程序中的"?"改为适当的内容，使其正确运行，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。
（2）在考生文件夹下有一个工程文件sj4.vbp，窗体如图所示。其功能是单击"输入数据"按钮，则可输入一个整数n(要求： ；单击"计算"按钮，则计算1!+2!+3!…+n!的值，并将计算结果显示在文本框中；单击"存盘"按钮，则把文本框中的结果保存到考生文件夹下的out4.dat文件中。
文件中已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的?改为正确的内容，并编写"计算"按钮的Click事件过程。
注意：不得修改已经存在的内容和控件属性，在结束程序运行之前，必须用"存盘"按钮存储计算结果，否则无成绩。最后将修改后的文件按原文件名存盘。
图3-5
要求：去掉程序中的注释符"'"，把程序中的"?"改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。
编写适当的事件过程。程序运行后，如果在文本框中输入要添加的项并双击，则将该项添加到列表框中（内容任意，不少于3个），如图3-3所示；如果双击list1的某一项则将其从列表框中删除，如图3-4所示。提供的窗体文件可以实现上述功能，但这个程序不完整，请把它补充完整。
图3-3
图3-4
要求：去掉程序中的注释符"'"，把程序中的"?"改为适当的内容，使其正确运行，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。
（2）在考生文件夹下有一个工程文件sj4.vbp，窗体如图所示。其功能是单击"输入数据"按钮，则可输入一个整数n(要求： ；单击"计算"按钮，则计算1!+2!+3!…+n!的值，并将计算结果显示在文本框中；单击"存盘"按钮，则把文本框中的结果保存到考生文件夹下的out4.dat文件中。
文件中已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的?改为正确的内容，并编写"计算"按钮的Click事件过程。
注意：不得修改已经存在的内容和控件属性，在结束程序运行之前，必须用"存盘"按钮存储计算结果，否则无成绩。最后将修改后的文件按原文件名存盘。
图3-5
要求：去掉程序中的注释符"'"，把程序中的"?"改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。
分值: 24.0分查看题目解析 >
问答题
四、综合应用题
43
在考生文件夹下有一个工程文件sj5.vbp，在Form1的窗体中画一个标签，3个命令按钮和一个计时器。要求程序运行时，单击"开始计数"按钮，就开始计数，每隔1秒，标签中的数加1；单击"暂停计数"按钮，则停止计数；单击"停止计数"按钮，则标签中的计数变为0。
要求：修改适当的控件属性，并去掉程序中的注释符"'"，把程序中的"?"改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的文件以原来的文件名存盘。
程序运行时的窗体界面如图51-5所示。
图51-5
要求：修改适当的控件属性，并去掉程序中的注释符"'"，把程序中的"?"改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的文件以原来的文件名存盘。
程序运行时的窗体界面如图51-5所示。
图51-5
分值: 18.0分查看题目解析 >