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

实验七 专业_____________ 班级________年级________姓名______________学号_______________ 一、实验目的 1、掌握数组（动态、静态数组、可变数组、数组初始化、控件数组）的定义方法。 2、正确理解和使用数组的下标，熟练掌握数组的引用、赋值输入和输出。 3、学会会一些实际问题 二、实验内容 1、按图设计窗体： 要求，编写适当的事件过程实现 ①单击“生成”按钮，随机生成的20个10~100之间的整数存放数组a中并在Text1中显示 ②单击“显示偶数”按钮，在Text2中显示其的所有偶数 ③单击“显示奇数”按钮，在Text3中显示其的所有奇数 Dim a(1 To 20) As Integer 因为在各个按钮过程都要用到数组a（），所以要定义为全局数组 Private Sub Command1_Click() Randomize For i = 1 To 20 a(i) = Int(Rnd * 81 + 10) Text1.Text = Text1.Text a(i) Next i End Sub Private Sub Command2_Click() For i = 1 To 20 If i Mod 2 = 0 Then Text2.Text = Text2.Text a(i) Next i End Sub Private Sub Command3_Click() For i = 1 To 20 If i Mod 2 0 Then Text3.Text = Text3.Text a(i) Next i End Sub 2、按图设计窗体： 要求，编写适当的事件过程实现 ①单击“生成数组”按钮，随机生成的20个10~99之间的整数存放数组a中并在列表框List1的列表项显示 ②单击“求极值”按钮，在Text1中显示其中的最大数，在Text2中显示其中最小数 Dim a(20) As Integer Private Sub Command1_Click() Randomize For i = 1 To 20 a(i) = Int(Rnd * 90 + 10) List1.AddItem a(i) Next i End Sub Private Sub Command2_Click() Dim max%, min% max = a(1): min = a(1) For i = 1 To 20 If max a(i) Then max = a(i) If min a(i) Then min = a(i) Next i Text1.Text = max: Text2.Text = min End Sub 3、 要求，编写适当的事件过程实现 ①单击“生成”按钮，随机生成的30个ASCII值为65~122之间的字符存放数组s中并显示在Text1 ②单击“分类”按钮，在Text2中显示其中的大写字母，在Text3中显示其中小写字母 Dim a(1 To 20) As String Private Sub Command1_Click() Text1.Text = Randomize For i = 1 To 20 a(i) = Chr(Int(Rnd * 58 + 65)) Text1.Text = Text1.Text a(i) Next i End Sub Private Sub Command2_Click() Text2.Text = : Text3.Text = For i = 1 To 20 If Asc(a(i)) = 65 And Asc(a(i)) = 90 Then Text2.Text = Text2.Text a(i) If Asc(a(i)) = 97 And Asc(a(i)) = 122 Then Text3.Text = Text3.Text a(i) Next i End Sub 4、按图设计窗体： 要求，编写适当的事件过程实现 ①单击“生成”按钮，随机生成的30个值为10~99之间的整数存放数组a中并显示在Text1 ②单击“处理”，选出其中能被3整除但不能被6整除的数，显示在Text2中，并统计其个数和平均值（保留小数以下一位） 显示在Text3和Text4中 ③单击“退出”，结束运行 Dim a(1 To 30) As Integer Private Sub Command1_Click() Text1.Text = Randomize For i = 1 To 30 a(i) = Int(Rnd