2012年计算机二级VB数组和自定义类型练习题及答案 计算机等级测试网 更新：2011-12-30 编辑：evans

6.以下程序代码将任意一组数存入数组，从键盘接收一数据，将其插入数组中，插入的位置也从键盘接收。 Dim A( )

Private Sub Form_Click( ) N=InputBox(\数据个数:\ N=N+1

&, nbsp; __【11】__ For I=1To N-1

A(I)=Val(InputBox(\原数据:\ Next I

D=Val(InputBox(\插入的数据:\ P=Val(InputBox(\插入的位置:\ Do While P>N Or P<1 MsgBox\位置越界!\

P=Val(InputBox(\插入的位置:\ Loop

For I=N To P+1 Step -1 A(I)=A(I-1) Next I A(P)=D For I=1 To N

Text1.Text=Text1.Text & Str(A(I))&\ Next I End Sub

7.设在窗体上有一个文本框Text1，一个标签数组Label1，共有10个标签，以下程序代码实现在单击任一个标签时将标签的内容添加到文本框现有内容之后。

Private Sub Labell_Click(Index As Integer)

Text1.Text=_【12】_ Text1.Text & Labell(Index).Caption__ End Sub

8.设工程中有两个窗体Form1、Form2，一个标准模块Module1，设在Form2的代码中定义了以下过程： Sub aaa(x,y,z) z=x^2+y^2 End Sub

在Mobule1中定义了以下过程： Sub bbb(x,y,z) z=x^3+y^3 End Sub

在Form1中单击命令按钮Commandl时，调用以上过程计算两个数的平方和和立方和。并分别将结果显示在文本框Text3和Text4中，请在以下程序段中写出相应的调用语句。 Private Sub Commandl_Click( ) a=val(Text1.Text) b=val(Text2.Text) Call __【13】__