D = Val(InputBox(\插入的数据:\P = Val(InputBox(\插入的位置:\Do While (13) MsgBox \位置越界!\
P = Val(InputBox(\插入的位置:\重新输入插入点的位置 Loop
For I = N To P + 1 Step -1 '插入点后面的数往后移 （14） Next I A(P) = D
For I = 1 To N '输出插入新数后的数据
Text1.Text = Text1.Text & Str(A(I)) & \Next I End Sub
(12) A、I=1 B、N=N+1 C、A(1)=1 D、N=N-1
(13) A、P
C、Print A(I) D、A(I+1)=A(I)
五、上机调试题：程序设计
1. 由输入对话框输入100个数值数据放入数组a。将其中的整数放入数组b，然后运用选择分类法将数组b中的数据按从大到小的顺序排列，并以每行5个数据在窗体上输出。注：程序写在窗体Form的Click事件中。
2. 随机产生25个[1,9]的整数放入5*5的二维数组中并输出，统计(A)出靠边元素之和，(B)对角线元素之和。
3．某数组有20个元素，元素的值由键盘输入，要求将前10个元素与后10个元素对调。即第1个与第20个对调，第2个与第19个对调??第10个与第11个元素对调。输出数组原来元素的值和对调后元素的值。
代码编写：
1、 2、
25
VB网络课堂：info.zjfc.edu.cn/vbweb
3、
批改人：
第7章 过程
１．你预习了本章内容了吗？共花时间 分
２．你复习了上一堂课内容吗？共花时间 分
３．你作业做了吗？ ４．作业是自己做的吗？
26 VB网络课堂：info.zjfc.edu.cn/vbweb
一、判断题
1．静态变量是一种局部变量，当原过程再次被执行时，静态变量的初值是上一次过程调用后的值。
2．事件过程由某个用户事件或系统事件触发执行，它不能被其他过程调用。 3．可以在窗体的通用部分声明静态变量。
4．在过程中用Dim和Static定义的变量都是局部变量。
5．当形参定义是传地址方式，调用时如果使用常量或表达式，则数据是按值传递。 6．用数组作为过程的参数时，使用的是\传地址\方式。 7．函数过程形参的类型与函数返回值的类型没有关系。
8．如果不指明函数过程参数的类型，则该参数没有数据类型。
9．子程序调用时，如果参数按址传递并且实在参数是变量，则子程序在执行时对形参的修改不会影响到对应传递的实参变量的内容。
10．在自定义函数过程中，函数名必须被赋值。 二、选择题
1．函数过程（用Function定义）与子过程（用Sub 定义）的最大区别是 。 A、函数过程有返回值 B、子过程有返回值 C、函数过程可以带参数 D、子过程可以带参数
2．下面子过程语句说明合法的是 。 A、Function fl(ByVal n%) B、Sub fl (n%)As Integer C、Function fl%(fl%) D、Sub fl(ByVal n%())
3．在代码中定义了一个子过程：
Sub P(a,b) …
End Sub
下面 调用该过程的格式是正确的。 A、Call P
B、Call P 10,20 C、Call P(10,20) D、P(10,20) 4. 编制一个将Single类型数组各元素按值从小到大排序的Sort过程，该过程
是 。
A、Private Sub sort(a()As Single， n As Integer) As Integer B、private Sub sort(a(l To n)As Single，n As Integer)
C、Private Sub sort(ByRef a() As Single, n As Integer) As Integer
27
VB网络课堂：info.zjfc.edu.cn/vbweb
D、Private Sub sort(a()As Single, n As Integer)
5．在 Form2 中引用 Form1 中的全局变量x，写作 。
A．x B．Form1.x C．Form2.x D．Form1_Pablic.x 6．过程调用时，形参和实参之间数据传送的原则正确的是 。 A．按实参与形参同名的原则 B．按实参与形参位置对应的原则
C．按实参与形参个数相同，且类型也对应的原则
D．按实参与形参不仅位置对应，且类型也对应的原则
7．在窗体上画一个名称为Commandl的命令按钮，然后编写如下程序：
Static X As Integer Static Y As Integer Cls Y=1
X=5+X Print X,Y
程序运行时，三次单击命令按钮Commandl后，窗体上显示的结果为 。 、 15 16 B、 15 6 C、 15 15 D、5 6
8．在窗体上画一个名为Command1的命令按钮，然后编写如下通用过程和命令按钮的事件过程：
Private Function f(m As Integer)
If m Mod 2 = 1 Then f = 1 Else f = m End Function
Private Sub Command1_Click() Dim i As Integer s = 0
For i = 1 To 5 s = s + f(i) Next i Print s End Sub
程序运行后，单击命令按钮，在窗体上显示的是 。 A．11 B．10 C．9 D．89．编写如下事件过程： 9．阅读以下程序
Private Sub sub1(ByVal x1 As String, y1 As String) Dim xt As String Dim i As Integer i = Len(x1)
Do While i >= 1
xt = xt + Mid(x1, i, 1) i = i - 1 Loop y1 = xt
28
VB网络课堂：info.zjfc.edu.cn/vbweb