vb6.0实验七习题与答案.doc

实验七专业_ 班级_年级_姓名_学号_一、实验目的1、掌握数组（动态、静态数组、可变数组、数组初始化、控件数组）的定义方法。2、正确理解和使用数组的下标，熟练掌握数组的引用、赋值输入和输出。3、学会会一些实际问题二、实验内容1、按图设计窗体：要求，编写适当的事件过程实现单击“生成”按钮，随机生成的20个10100之间的整数存放数组a中并在Text1中显示单击“显示偶数”按钮，在Text2中显示其的所有偶数单击“显示奇数”按钮，在Text3中显示其的所有奇数Dim a(1 To 20) As Integer 因为在各个按钮过程都要用到数组a（），所以要定义为全局数组Private Sub Command1_Click()RandomizeFor i = 1 To 20 a(i) = Int(Rnd * 81 + 10) Text1.Text = Text1.Text & a(i) & Next iEnd SubPrivate Sub Command2_Click()For i = 1 To 20 If i Mod 2 = 0 Then Text2.Text = Text2.Text & a(i) & Next iEnd SubPrivate Sub Command3_Click()For i = 1 To 20 If i Mod 2 0 Then Text3.Text = Text3.Text & a(i) & Next iEnd Sub2、按图设计窗体： 要求，编写适当的事件过程实现单击“生成数组”按钮，随机生成的20个1099之间的整数存放数组a中并在列表框List1的列表项显示单击“求极值”按钮，在Text1中显示其中的最大数，在Text2中显示其中最小数Dim a(20) As IntegerPrivate Sub Command1_Click()RandomizeFor i = 1 To 20 a(i) = Int(Rnd * 90 + 10) List1.AddItem a(i)Next iEnd SubPrivate Sub Command2_Click()Dim max%, min%max = a(1): min = a(1)For i = 1 To 20 If max a(i) Then min = a(i)Next iText1.Text = max: Text2.Text = minEnd Sub3、 要求，编写适当的事件过程实现单击“生成”按钮，随机生成的30个ASCII值为65122之间的字符存放数组s中并显示在Text1 单击“分类”按钮，在Text2中显示其中的大写字母，在Text3中显示其中小写字母Dim a(1 To 20) As StringPrivate Sub Command1_Click()Text1.Text = RandomizeFor i = 1 To 20 a(i) = Chr(Int(Rnd * 58 + 65) Text1.Text = Text1.Text & a(i) & Next iEnd SubPrivate Sub Command2_Click()Text2.Text = : Text3.Text = For i = 1 To 20If Asc(a(i) = 65 And Asc(a(i) = 97 And Asc(a(i) = 122 Then Text3.Text = Text3.Text & a(i) & Next iEnd Sub4、按图设计窗体：要求，编写适当的事件过程实现单击“生成”按钮，随机生成的30个值为1099之间的整数存放数组a中并显示在Text1单击“处理”，选出其中能被3整除但不能被6整除的数，显示在Text2中，并统计其个数和平均值（保留小数以下一位） 显示在Text3和Text4中单击“退出”，结束运行Dim a(1 To 30) As IntegerPrivate Sub Command1_Click()Text1.Text = RandomizeFor i = 1 To 30 a(i) = Int(Rnd * 90 + 10) Text1.Text = Text1.Text & a(i) & Next iEnd SubPrivate Sub Command2_Click()Dim sum As IntegerText2.Text = For i = 1 To 30 If a(i) Mod 3 = 0 And a(i) Mod 6 0 Then Text2.Text = Text2.Text & a(i) & k = k + 1 统计符合条件的个数k sum = sum + a(i) 统计符合条件的数的和 End IfNext i Text3.Text = k Text4.Text = sum / kEnd SubPrivate Sub Command3_Click()EndEnd Sub5、按图设计窗体：要求，十个文本框为控件数组，编写适当的事件过程实现单击“评委给歌手打分”，随机生成10个9.09.9依次显示在文本框控件数组中单击“评分”，把十个评委中去掉一个最高和一个最低分后，平均分显示的Text2中Dim a(9) As SinglePrivate Sub Command1_Click()RandomizeFor i = 0 To 9 Text1(i) = Format(Rnd + 9, 0.0)Next iEnd SubPrivate Sub Command2_Click()Dim max!, min!, sum!max = Text1(0): min = Text1(0)For i = 0 To 9 sum = sum + Text1(i) If max Text1(i) Then min = Text1(i)Next iText2.Text = (sum - max - min) / 8End Sub6、打开工程文件7_6.vbp，其窗体中有一个名为Text1的文本框数组，下标从0开始，程序运行时，单击“产生随机数”就会产生10 个3位的整数并放入到Text1数组中； 单击“重排数据”，将把其中的奇数移到前，偶数移到后面。请把“重排数据”按钮中事件过程补充完整。Dim a(0 To 9) As IntegerDim k%, j%Private Sub Command1_Click()Randomize 初始化随机数Dim i% For i = 0 To 9 a(i) = Int(Rnd * 900 + 100) Text1(i).Text = a(i) If a(i) Mod 2 0 Then k = k + 1 计算奇数个数 Next i Debug.Print kEnd SubPrivate Sub Command2_Click()Dim i As Integer For i = 0 To 9 If a(i) Mod 2 0 Then 将数组中的奇数按先来后到的顺序放入控件数组中，j用来表示控件数组的位置（Index） Text1(j).Text = a(i) j = j + 1 放入一个奇数后，将j+1表示第二个控件的位置 Else Text1(k) = a(i) 偶数就从第k个位置开始存放 k = k + 1 放入一个偶数后，将k+1表示从开始放偶数位置之后的控件的位置 End If Next iEnd Sub7、按图示设置窗体： 要求：单击“随机生成”按钮，生成100个97-122之间的整数存放到数组a 中，并显示在Text1，在Text2中显示相应的字符。在Text3中输入一小写字母，单击“统计”按钮，于Text4中显示该字符在Text2出现的次数。Dim a(99) As IntegerPrivate Sub Command1_Click()Text1.Text = : Text2.Text = RandomizeFor i = 0 To 99 a(i) = Int(Rnd * 26 + 97) Text1.Text = Text1.Text & a(i) & Text2.Text = Text2.Text & Chr(a(i) & Next iEnd SubPrivate Sub Command2_Click()b = Text3.TextFor i = 0 To 99 If a(i) = Asc(b) Then k = k + 1Next iText4.Text = kEnd Sub8、练习1）若用二维数组存储以下数据，数组声明语句（ dim a(2,2) as single ）。 2.1 4.8 7.3 3.5 2.4 6.8 7.2 8.1 7.32）数组声明语句：Dim a(2, -1 To 1, 5)，则数组a包含的元素个数为（3*3*6=54 ）。3）控件数组的(name)属性值必须相同。4）同一控件数组的各元素由( TabIndex )属性值来识别。5）设在窗体层有声明语句： Option Base 1Dim a() as Integer在过程中要把a定义成7个元素的数组，应使用语句（ redim a(7) as integer ）。6）以下定义数组或给数组元素赋值的语句中，正确的是（ B ）。A) Dim a(10) As Integer B) Dim a As Variant a=Array(1,2,3,4,5,6) a=Array(1,2,3,4,5,6) C) Dim A%(10) D) Dim a(3),b(3)As Integer a(1)=ABCD a(0)=0:a(1)=1:a(2)=2: b=a7）以下语句组正确的是（ ）。A） Dim a,b(3) as integer B）Dim a,b(3) as integera(0)=1:b=a b(0)=1:a=bC） Dim a(3),b(3) as integer D）Dim a(3),b(3) as integera(0)=1:b=a b(0)=1:a=b8）执行以下程序段后,变量j的值为（ 9 ）。 Dim a, i As Integer, j As Integer a = Array(1, 3, 5, 7, 9, 11) For i = 1 To a(4) j = j + 1 Next i9）以下错误的是（B）。 A）Dim a B）Dim a() ReDim a(3) as Integer ReDim a(3) as Integer C) Dim a() As Integer D) Dim a() Redim a(3) as Integer ReDim a(3) As Variant10）以下错误的是（BCD）。 A）Dim a B) Dim a() As Integer a = Array(1,2,3,4) a = array(1,2,3,4) C) Dim a as Integer D) Dim a() As String a = Array(1,2,3,4) a = array(1,2,3,4)11）设有：Option Base 1，且数组a 中的各元素已被赋值；下逑程序段的功能是（数组逆序）： Dim T Dim J As Integer J = UBound(a) For i = 1 To J2 T = a(i) a(i) = a(J - i + 1) a(J - i + 1) = T Next i12）以下程序段执行后，变量j的值是（ 9 ），i 的值是（ 10 ）。 Dim aDim i As Integer, j As Integer a = Array(1, 3, 5, 7, 9, 11) For i = 1 To a(4) j = j + 1 Next i13）以下语句出错的