Print A(I) Next I
3). Dim M(5,5),S(5)
For I=1 To 5
S(I)=0
For J=1 To 5 M(I,J)=I+J
S(I)=S(I)+M(I,J) Next J Next I
For x=1 to 5
Print X Next X
4). 给出单击命令按钮Command1的输出结果。Dim A()As Integer
Private Sub Command 1_Click() ReDim A(1 To 5) For I=1 To 5
A(I)=I Next I
ReDim A(1 To 10) For I=6 To 10
A(I)=2*I Next I
For I=1 To 10
Print A(I); Next I End Sub
5).给出单击命令按钮Command1的输出结果。
Dim A() As Integer
Private Sub Command 1_Click() ReDim A(1 To 5) For I=1 To 5 A(I)=I Next I
ReDim Preserve A(1 To 10) For I=6 To 10 A(I)=2*I Next I
For I=1 To 10 Print A(I); Next I End Sub 五、程序填空
25
1。以下程序代码将具有100个元素的数组A按每行10个数的形式赋值给二维数组B。即将A（1）到A（10）依次赋值给B（1，10），将A（11）到A（20）依次赋值给B （2，1）到B（2，10）。??将A（91）到A(100）依次赋值给B（10，1）到B（10，10）。 Private Sub Command 1_Click()
Dim A(1 To 100) As Integer, B(I To 10,1 To 10) As Integer For I=1 To __(1)__ A(I)=Int(Rnd*5+1) Next I
For I=1 To __(2)__ For J=1 To __(3)__ B(I,J)=__(4)__ Print B(I,J); Next J Print Next I End Sub
2.下面程序代码实现单击命令按钮Command1时输出如下结果： 1 -1 -1 1 1 -1 1 1 1
Private Sub Command 1_Click() Dim X(3,3) For I=1 To 3 For J=1 To 3
If__(1)__Then X(I,J)=1 If__(2)__Then X(I,J)=-1 Next J Next I
For I=1 To 3 For J=1 To 3 Print X(I,J); Next J __(3)__ Next I End Sub
3.下列程序代码读入N个数，用比较交换法对这N个数按从大到小的顺序排序， 并在文本框Text1中输出排序结果. Dim__(1)__
Private Sub Command 1_Click() N=Val(InputBox(\请输入N:\ReDim A(N)
For I=1 To __(2)__
A(I)=Val(InputBox(\请输入A(I):\Next I
Text1.Text=\
26
For I=1 To N-1 For J=__(3)__To N If A(I)
A(I)__(4)__ A(J)__(5)__ End If Next J
Text1.Text=Text1.Text & Str(A(I))&\Next I
Text1.Text=Text1.Text & Str(A(N)) End Sub
4.以下程序代码将任意一组数存入数组，从键盘接收一数据，将其插入数组中， 插入的位置也从键盘接收。 Dim A()
Private Sub Command 1_Click() N=InpuBox(\数据个数:\N=N+1 __(1)__
For I=1 To N-1
A(I)=Val(InputBox(\原数据:\Next I
D=Val(InputBox(\插入的数据:\P=Val(InputBox(\插入的位置:\Do While__(2)__ MsgBox\位置越界!\
P=Val(InputBox(\插入的位置:\Loop
For I=N To __(3)__Step-1 A(I)=A(I-1) Next I
A(P)=__(4)__ For I=1 To N
Text1.Text=Text1.Text & Str(A(I))&\Next I End Sub
5．设在窗体上有一个文本框Text1，一个标签数组Labe11，共有10个标签，以下程序代码实现在单击任一个标签时将标签的内容添加到文本框现有内容之后。 Private Sub Labe11_Click(Index As Integer) Text1.Text=__(1)__ End Sub
6．在如图8-5所示的界面中，四门课程的成绩由文本框数组Text1输入，“最高分”、“最低分”、“平均分”和“总分”为一个命令按钮数组Command1。以下程序代码运行时，在输入成绩后,单击按钮数组Command1中的任意一个按钮将在Labe15上显示相应的统计方式（最高分、最低分、平均分、总分），而在Text2中显示统计结果。
27
Private Sub Command 1_Click(Index As Integer) Lsbe15.Caption=__(1)__ Select Case __(2)__ Case 0 ‘计算最高分 y=Val(Text1(0).Text) For i=1 To 3
If __(3)__Then y=Val(Text1(i).Text) Next i
Case 1 ‘计算最低分 y=Val(Text1(0).Text) For i=1 To 3
If __(4)__Then y=Val(Text1(i).Text) Next i
Case2 ‘计算平均分 Y=0
For i=0 To 3 y=y+__(5)__ Next i y=__(6)__
Case3 ‘计算总分 y=0
For i=0 To 3 y=__(7)__ Next i End Select
Text2.Text=__(8)__ End Sub
6．找鞍点，设计界面如图8-6所示，界面上包含6行6列一共36个文本框，组成文本框数组Text1(0)~Text1(35)。第一行为Text1(0)~Text1(15)，第二行为xt1(6)~Text1(11)??.以下程序用于找出这6行6列数组中的“鞍点”。所谓“鞍点”是指它在本行中值最大，在本列中值最小，也可能没有鞍点。程序设计思路为：先将文本框的内容存于一个二维数组a中；再找出a的每一行的最大元素，如第i行的最大元素big=a(i,col)；然后检查该最大元素big在第col列是否为最小元素。先设flag为1，如果该列上有一个小值比big小，则将flag的值设置为0，最后，如果flag保持1，则说明big在本列上为最小值，即为”鞍点”,这时在界面上将此“鞍点”显示为红色。只要找到一个“鞍点”则将变量find设置为1(设初值为0),最后,如果find说仍为0,表示没有”鞍点”. Private Sub Form_Colick() Dim a(1 To 6,1 To 6) For i=1 To 6 For j=1 To 6
a(i,j)=Val(Text1(i-1)*6+j-1).Text)
28
Next j Next i find=0
For i=1 To 6 big=a(i,1) col=__(1)__ For j=1 To 6
If big<__(2)__Then big=a(i,j) col=__(3)__ End If Next j flag=1
For k=1 To 6
If big>a(__(4)__)Then flag=0 Exit For End If Next k
If flag=1 Then
Text1(__(5)__).ForeColor=vbRed find=1 End If Next i
If__(6)__Then MsgBox “无鞍点” End Sub
练习8 过程
一、选择题
1．下面的过程定义语句中合法的是（）。
（A）Sub Proc1(ByVal n() ) （B） Sub Proc1(n) As Integer （C） Function Proc1(Proc1) （D）Function Proc1( ByVal n ) 2.要想在过程调用后返回两个结果，下面的过程定义语句合法的是（） (A)Sub Proc1(ByVal n , ByVal m ) (B) Sub Proc1( n, ByVal m ) (C) Sub Proc1(n , m ) (D) Sub Proc1(ByVal n , m ) 3.Sub 过程与Function 过程最根本的区别是（ ）
(A)Sub 过程可以使用Call语句或直接使用过程名调用，而 Function 过程不可以(B)Function过程可以有参数，Sub过程不可以 (C)两种过程参数的传递方式不同
(D)Sub过程的过程名不能返回值，而Function过程能通过过程名返回值 4．在过程调用中，参数的传递可以分为（ ）和（ ）两种方式 (A)按值传递 (B) 按地址传递 (C) 按参数传递 (D) 按位置传递
29
百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说综合文库VB程序习题集(新版)(6)在线全文阅读。
相关推荐：