Max = mat(1, 1) For i = 1 To n For j = 1 To m If 【②】 Then Max = mat(i, j) col = j 【③】 End If Next j Next i Print
Print \矩阵最大的元素的值为：\Print \它所在的行号为：\列号为：\End Sub
5、打印出 100-999 之间的所有水仙花数如果一个数的百位，十位，个位数的立方和等于这个数本身则这个数为水仙花数 Private Sub Command1_Click()
Dim i As Integer, a As Integer, b As Integer, c As Integer For i = 100 To 【①】
a = Int(i / 【②】) b = Int((i - 100 * a) / 10) c = i - 100 * a - 【③】
If a * a * a + b * b * b + c * c * c = i Then Print i End If Next i End Sub
四、程序改错题（每个错误点3分，共15分）
有一程序其功能为：在TEXT1中输入若干个大写和小写字母，选中一个单选按钮，再单击“转换”按钮，则按选中的单选按钮的标题进行转换，结果放入TEXT2中。程序中有5个错误，在不删除整条语句的前提下，可修改或补充语句，添加的语句不能超过两条。
16
错误源代码：
Private Sub Command1_Click()
Dim n As Integer, k As Integer, ch As String, a As String n = Len(Text1.Text) ch = \For k = 1 To n a =
If Option1.Value = True Then If a >= \ ch = ch + UCase(a)
Else If a >= \ ch = Else ch = ch + a End If End If
If Option2.Value = True Then ch = UCase(Text1) End If
If Option3.Value = True Then ch = LCase(Text1) End If Next k
Text2.Text = ch End Sub
一、单项选择（1分/题，10分） 16、A 21、A 17、C 22、D 18、A 23、C 19、B 24、D 20、A 25、B
二、程序阅读（3分/题，共45分）
26、D 31、B 36、D 27、B 32、C 37、D 28、D 33、B 38、A 29、A 34、B 39、A 30、A 35、D 40、B
17
三、程序填空（2分/空，共30分）
1、（1）j=1 to i-1、（2）a(j)>=a(j+1)、（3）next i 2、（1）I * 2 – 1、（2）2 + I * 2、（3）- 1
3、（1）ByVal、（2）、Swap1、（3）Swap2
4、（1）ReDim mat(n, m) As Integer、（2）Max < mat(i, j)、（3）row = I 5、（1）999、（2）100、（3）10 * b 四、程序改错题（每个错误点3分，共15分） Private Sub Command1_Click()
Dim n As Integer, k As Integer, ch As String, a As String n = Len(Text1.Text) ch = \For k = 1 To n
a = （１）修改为：a=mid$(text1,text,k,1) If Option1.Value = True Then If a >= \ ch = ch + UCase(a)
Else If a >= \And a < \Then （２）修改为：ElseIf a >= \ ch = （３）修改为：ch+lcase(a) Else ch = ch + a End If End If
(4) 修改为：nexk k If Option2.Value = True Then ch = UCase(Text1) End If
If Option3.Value = True Then ch = LCase(Text1) End If
Next k (5) 此句删除 Text2.Text = ch End Sub
一、 选择题（每小题2分，共50分）
18
?? 下列各题A）、B）、C）、D）四个选项中，只有一个选项是正确的。请将正确选项填涂在答题卡相应位置上，答在试卷上不得分。
（1） 在设计阶段，当双击窗体上的某个控件时，所打开的窗口是 ?? A） 工程资源管理器窗口
B) 工具箱窗口 ?? C） 代码窗口
D） 属性窗口 （2） 以下叙述中正确的是
?? A） 窗体的Name属性指定窗体的名称，用来标识一个窗体 ?? B） 窗体的Name属性的值是显示在窗体标题栏中的文本 ?? C） 可以在运行期间改变对象的Name属性的值 ?? D） 对象的Name属性值可以为空
（3）假定一个Visual Basic应用程序由一个窗体模块和一个标准模块构成。为了保存该应
用程序，以下正确的操作是 ?? A）只保存窗体模块文件
?? B）分别保存窗体模块、标准模块和工程文件 ?? C）只保存窗体模块和标准模块文件 ?? D）只保存工程文件
（4）为了清除窗体上的一个控件，下列正确的操作是 ?? A）按回车键 ?? B）按Esc键
?? C）选择（单击）要清除的控件，然后按Del键 ?? D）选择（单击）要清除的控件，然后按回车键 （5）以下叙述中错误的是
?? A）打开一个工程文件时，系统自动装入与该工程有关的窗体、标准模块等文件 ?? B）当程序运行时，双击一个窗体，则触发该窗体的DblClick事件 ?? C）Visual Basic应用程序只能以解释方式执行 ?? D）事件可以由用户引发，也可以由系统引发
（6） 刚建立一个新的标准EXE工程后，不在工具箱中出现的控件是 ?? A） 单选按钮
B） 图片框 C） 通用对话框 D） 文本框
（7） 设有如下变量声明,为变量TestDate正确赋值的表达方式是
19
?? Dim TestDate As Date ?? A） TextDate=#1/1/2002#
B） TestDate=#“1/1/2002”# ?? C） TextDate=date（“1/1/2002”）
D） TestDate=Format（“m/d/yy”,“1/1/2002”） （8） 设有如下声明：如果Sgn（X） 的值为-1，则X的值是 ?? Dim X As Integer
?? A） 整数 B） 大于0的整数 C） 等于0的整数 D） 小于0的数 （9） 在窗体上画一个名称为Command1的命令按钮，然后编写如下程序： ?? Private Sub Command1_Click（） ?? Static X As Integer ?? Static Y As Integer ?? Cls ?? Y=1 ?? Y=Y+5 ?? X=5+X ?? Print X,Y ?? End Sub
??程序运行时，三次单击命令按钮Commandl后，窗体上显示的结果为 ?? A） 15 16 B） 15 6
C） 15 15 D） 5 6 （10） 设a=3,b=5，则以下表达式值为真的是
?? A） a>=b And b>10 B） （a>b）Or（b>0） ?? C） （a<0）And（b>0） D） （-3+5>A）And（b>0）
（11） 设有语句x=InputBox（“输入数值”，“0”，“示例”）；程序运行后，如果从键盘上输
入数值10并按回车键，则下列叙述中正确的是 ?? A） 变量X的值是数值10
B） 在InputBox对话框标题栏中显示的是“示例” ?? C） 0是默认值
D） 变量X的值是字符串“10”
（12） 从键盘上输入两个字符串，分别保存在变量str1、str2中。确定第二个字符串在
第一个字符串中起始位置的函数是
?? A） Left B） Mid C） String D） Instr （13） 设a=“Visual Basic”，下面使b=“Basic”的语句是
20