minj = j End If
Print a(i, j); Next j Print Next i
Print \最大元素是:\行下标\列下标\Print \最大元素是:\行下标\列下标\End Sub
3．求对角线和靠边元素之和 Private Sub Command2_Click()
Dim a(1 to 5, 1 to 5) As Integer, i%, j% Dim sum1 As Integer, sum2 As Integer sum1 = 0: sum2 = 0 Print \数组:\For i = 1 To 5 For j = 1 To 5
a(i, j) = Int(Rnd * 9) + 1 Print a(i, j); Next j Print Next i
For i = 1 To 5 For j = 1 To 5
If i = 1 Or j = 1 Or i = 5 Or j = 5 Then sum1 = sum1 + a(i, j) If i = j Or i + j = 6 Then sum2 = sum2 + a(i, j) Next j Next i
Print \数组靠边元素之和为:\Print \数组对角线元素之和为:\
End Sub 4、略
第七章 一、判断题
1．静态变量是一种局部变量，当原过程再次被执行时，静态变量的初值是上一次过程调用后的值。
2．事件过程由某个用户事件或系统事件触发执行，它不能被其他过程调用。 3．可以在窗体的通用部分声明静态变量。
4．事件过程只能由系统调用，在程序中不能直接调用。
5．当形参定义是传地址方式，调用是如果使用常量或表达式，则数据是按值传递。 6．事件过程通常由事件驱动执行的，而SUB过程是通过过程调用执行的。
7．子程序调用时，如果参数按址传递并且实在参数是变量，则子程序在执行时对形参的修改不会影响到对应传递的实参变量的内容。 二、选择题
1．在 Form2 中引用 Form1 中的全局变量x，写作 。
A．x B．Form1.x C．Form2.x D．Form1_Pablic.x
2．编制一个将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 D．Private Sub sort（a（）As Single，n As Integer） 3．下面程序运行后，单击窗体的打印结果为 。
Private Sub Form_Click() Dim f(2) For I=0 to 2 f (i)=SQ(I*I+1) Next I Do Until I=0 I=I-1
Print \Loop End Sub
Public Function SQ(x) x=x+2 Sq=x*4-5 End Function
A．F（0）=7 F（1）=11 F（2）=23 C．F（0）=23 F（1）=11 F（2）=7
4．设有如下自定义函数：
B．F（2）=7F（1）=11F（0）=23 D．F（2）=23F（1）=11F（0）=7
Public Function f(x As Integer) Dim y As Integer x = 20 y = 2 f = x * y End Function
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click() Static x As Integer x = 10 y=5 y = f(x) Print x; y End Sub
程序运行后，如果单击命令按钮，则在窗体上显示的内容是 。
A．10 5 B．20 5 C．20 40 D．10 40
5．设有如下通用过程：
Public Sub Fun(a(), ByVal x As Integer) For i = 1 To 5 x = x + a(i) Next End Sub
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下的事件过程：
Private Sub Command1_Click() Dim arr(5) As Variant For i = 1 To 5
arr(i) = i Next i n = 10
Call Fun(arr(), n) Text1.Text = n End Sub
程序运行后，单击命令按钮，则在文本框中显示的内容是 。
A．10 B．15 C．25 D．24 6．以下叙述中错误的是 。
A．如果过程被定义为Static类型，则该过程中的局部变量是Static类型 B．Sub过程中不能嵌套定义Sub过程 C．Sub过程中可以嵌套调用Sub过程
D．事件过程可以像通用过程一样由用户定义过程名
7．过程调用时，形参和实参之间数据传送的原则正确的是 。 A．按实参与形参同名的原则 B．按实参与形参位置对应的原则
C．按实参与形参个数相同，且类型也对应的原则
D．按实参与形参不仅位置对应，且类型也对应的原则
8．Function过程有别于Sub过程的最主要特点是 。 A．Function过程一定要有形参，而Sub过程可以没有形参
B．Function过程的终端语句是End Function，Sub过程的终端语句是End Sub C．Function过程是用于计算函数值，而Sub过程是用于改变属性值
D．Function过程要返回函数值，而Sub过程没有数值返回 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 End Sub
Private Sub Form_Click()
Dim s1 As String, s2 As String s1 = \ sub1 s1, s2 Print s2 End Sub
程序运行后，单击窗体，则窗体上显示的内容是 。 A．rehcaet B．teacher C．therace D．certhea
10．在窗体上画一个名为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．8 三、程序阅读题 1．有以下程序。
Dim a As Integer, y As Integer Private Sub Command1_Click() Call aa(5) y = y + a
Print \End Sub
Sub aa(i As Integer)
x = 1
Do Until x > i a = a + x x = x + 3 Loop End Sub
写出程序运行时连续三次单击Command1后，窗体上显示的结果。 2．有以下程序：
Function chg(a As Integer, b As Integer) As Integer Dim n As Integer For n = 0 To 2 a = a + b Next n chg = a End Function
Private Sub Form_Click()
Dim a As Integer, b As Integer , z As Integer a = 1: b = 1 For n = 1 To 3 z = chg(a, b)
Form1.Print \ Next n End Sub
写出程序运行时单击窗体后，Form1上的输出结果。
3．依次写出下列程序运行时四次单击命令按钮Command1后窗体上的输出结束。
Dim x As Integer, y As Integer Private Sub f1(a As Integer)
a=a/2 End Sub
Private Sub f2(ByVal b As Integer)
b=b/2 End Sub
Private Sub Command1_Click()
Call f1(x) Call f2(y) Print x, y End Sub
Private Sub Form_Load() x= 64:y =64 End Sub
4．有如下程序段：
Dim y as integer
Private sub Form_click()
Dim x as integer
百度搜索“70edu”或“70教育网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，70教育网，提供经典综合文库VB6.0程序设计实践教程 习题及答案(7)在线全文阅读。
相关推荐：
