3、有一个m×n的实型矩阵A(m,n)，找出其中最大的那个元素所在的行和列。 4、找出能同时被5和7整除的最小的10个正整数。 5、编写一个程序，能够输出100~1000之间所有的素数。
6、从键盘上任意输入100个整数，统计负数的个数，并计算正数的和。
7、有一种数，正序读与反序读都相同，这种数叫回文数，如88、858、2332等。求出4位数以内（0～9999）的所有回文数。
8、输出“九九乘法表
参考答案
第一章 Visual Basic程序设计概述
一、填空题
1、对象、事件驱动 2、Vbp、frm、bas 3、部件 4、WINDOWS 二、选择题
1、C 2、C 3、C 4、D 5、D
第二章 简单的VB程序设计
一、填空题
1、Tabstop 2、Left、top、height、width 3、enabled 4、backcolor 5、name 6、name和caption 7、属性 8、标准模块文件 9、运行模式 二、选择题
1、D 2、D 3、C 4、C 5、D 6、B 7、D 8、D 9、D 10、D 11、B 12、A 13、D 14、C 15、B 16、B 17、B 18、D
第三章 VB基本语言
一、填空题
1、Const 2、Variant 3、隐式声明、显示声明 4、option base、ubound、lbound 5、强制变量声明 6、表示a2是一个可选参数 7、End 8、Msgbox、Inputbox 9、*.*、showprint 10、Mid() 11、6 12、redim preserve arraya(ubound(arraya())+1) 13、static 14、0 15、f 16、rem、? 17、变量、数组 18、1 to 4,1 to 5 19、Inde 20、按地址 21、Option Explicit 22、13 23、ityo 24、符号 25、LCase 26、
第 31 页
ESC 27、部件 28、断点 29、False 30、Option Explicit 31、UCase 32、Mid 33、# 34、过程 35、private 36、求x的绝对值 37、2.5 二、选择题
1、D 2、B 3、D 4、C 5、B 6、C 7、D 8、C 9、D 10、A 11、A 12、D 13、B 14、B 15、D 16、B 17、A 18、D 19、D 20、C 21、D 22、B 23、B 24、B 25、B 26、A 27、B 28、C 28、B 30、C 四、读程序题 1、结果如下：B
2、结果如下：BB CCC DDDD EEEEE
3、功能如下：
在20个由小到大排列的数据中插入一个数，插入数据后的数据仍按由小到大的顺序排列。
4、输出结果为： 2 4 6 8
5、输出结果为：3 6、输出结果为：2 452 7、输出结果为：120
0 2 0
8、输出结果为：3
3 3 2
五、编程题
1、参考代码如下：
Private Sub Command1_Click() Dim year, x As Integer year = Val(Text1.Text) If year Mod 400 = 0 Then Label2.Caption = \是闰年\ Else
' 下面是嵌套块If语句
第 32 页
If year Mod 4 = 0 And year Mod 100 <> 0 Then Label2.Caption = \是闰年\ Else
Label2.Caption = \不是闰年\ End If End If End Sub
2、程序参考代码如下：
Private Sub Command1_Click() Dim m, n, r As Integer m = Val ( Text1.Text ) n = Val ( Text2.Text )
If m < 0 Or n < 0 Then ? 若判断为非法数据，Then子句输出相应信息 Label2.Caption = \输入数据有错！\
Else ? 若判断为合法数据，Else子句用辗转相除法求余数 r = m Mod n Do While r <> 0 m = n n = r r = m Mod n Loop
? 循环结束后n中存放的就是最大公约数，输出n值 Label2.Caption = \最大公约数为：\ End If End Sub
3、参考代码如下：
Private Sub Command1_Click()
第 33 页
Dim x As Single x = Val(Text1.Text) If x > 100 Or x < 0 Then Text2.Text = \ ElseIf x < 60 Then
Text2.Text = \不及格\ ElseIf x < 70 Then Text2.Text = \及格\ ElseIf x < 80 Then Text2.Text = \中等\ ElseIf x < 90 Then Text2.Text = \良好\ Else
Text2.Text = \优秀\End If End Sub
4、参考代码如下：
Private Sub Form_Load() Dim i As Integer Show '使输出可见 Form1.Font = \新宋体\ For i = 9 To 16 Step 1 Form1.FontSize = i Print i; \号字型\ Next i End Sub
5、参考代码如下：
第 34 页
Private Sub Command1_Click()
Dim a(1 To 11) As Single '定义静态数组a含11个元素 Dim i, j As Integer Dim num As Single
' 给数组元素赋初值，即原始队列
a(1) = 3: a(2) = 5: a(3) = 7: a(4) = 8: a(5) = 9 a(6) = 13: a(7) = 16: a(8) = 19: a(9) = 33 a(10) = 38 ' 输出原始队列 For i = 1 To 10
Label2.Caption = Label2.Caption & a(i) & \ Next i
num = Val(Text1.Text) ' 把输入的数插入队列中 For i = 10 To 1 Step -1 If num < a(i) Then
a(i+1) = a( i ) ' 元素后移一个位置 else
a(i+1) = num
Exit For ' 退出循环 End If Next i ' 输出新队列 For i = 1 To 11
Label3.Caption = Label3.Caption & a(i) & \ Next i End Sub
第 35 页