VB控件数组实验
VB实验三
实验报告三实验目的（1）掌握一维数组（静态、动态）定义及使用（2）掌握二维数组（静态、动态）定义及使用（3）掌握“控件数组”的使用（4）掌握数组相关算法（求最值，排序，查找）（5）通过数组巩固循环及多重循环程序设计实验内容【实验1】已知10个数为53、67、42、89、65、18、98、67、54、36，编写程序，使用Array函数存储这10个数并求和。
程序运行界面如下图所示。
（10分）掌握一维静态数组的定义及使用实验结果：【实验1 代码】Option Base 1Private Sub Form_Click()Dim a(), sum%sum = 0a = Array(53, 67, 42, 89, 65, 18, 98, 67, 54, 36)For i = 1 T o 10 Step 1sum = sum + a(i)Next iPrint "10个数字和为" & sumEnd Sub【实验1 典型结果】【实验2】动态数组声明及输入输出，程序运行界面如下图所示。
（10分）掌握动态数组的使用实验结果：【实验2 代码】Private Sub command1_Click()Dim a() As Integern = 3ReDim a(n)a(1) = 10a(2) = 20a(3) = 30Print a(1), a(2), a(3)Print "用Redim Preserve a(n)改变数组大小"n = 4ReDim Preserve a(n)a(4) = 40Print a(1), a(2), a(3), a(4)End Sub【实验2 典型结果】【实验3】编写程序，定义一个二维静态数组，输出下列矩阵并分别计算矩阵两条对角线元素之和。
（10分）12345678910111213141516171819202122232425⎡⎤⎢⎥⎢⎥⎢⎥⎢⎥⎢⎥⎢⎥⎣⎦程序运行界面如下图所示。
VB数组程序设计
实验三数组程序设计一、实验目的通过实验掌握vb的数组的概念和使用。
二、实验设备1．PC机一台；2．VB 6.0集成开发环境。
三、实验内容及要求1. 编写程序实现方阵的运算示例。
点击“生成方阵A、B”按钮，允许用户输入方阵阶数，根据阶数随机产生两个方阵。
分别点击运算框中的命令按钮，完成相应的运算。
要求：方阵A、B、C采用动态二维数组存放；三个运算命令按钮使用命令按钮控件数组。
2.编写程序实现一个信息输入与查询系统。
用户从界面输入人员信息，点击新增按钮将信息加入记录数组；通过界面上的按钮完成人员信息的查询。
要求使用记录数组。
四、程序代码草稿五、实验结果（1）方阵运算最终代码：Dim A() As IntegerDim B() As IntegerDim C() As IntegerDim x As IntegerDim j As IntegerDim i As IntegerPrivate Sub Command1_Click()x = InputBox("请输入方阵阶数", "阶数") ShowRandomizeReDim A(x, x)ReDim B(x, x)Print "方阵A:"For j = 1 To xFor i = 1 To xA(j, i) = Int(10 * Rnd)Print Format(A(j, i), "0 "); "";Next iPrintNext jPrintPrint "方阵B:"For j = 1 To xFor i = 1 To xB(j, i) = Int(10 * Rnd)Print Format(B(j, i), "0 "); "";Next iPrintNext jEnd SubPrivate Sub Command2_Click(Index As Integer)ShowSelect Case IndexCase 0:PrintPrint "方阵A:"For j = 1 To xFor i = 1 To xPrint Format(A(i, j), "0 "); "";Next iPrintNext jPrintPrint "方阵B:"For j = 1 To xFor i = 1 To xPrint Format(B(i, j), "0 "); "";Next iPrintNext jCase 1:PrintPrint "C=A+B"RandomizeReDim C(x, x)For j = 1 To xFor i = 1 To xC(j, i) = A(j, i) + B(j, i)Print Format(C(j, i), "0 "); "";Next iPrintNext jCase 2:Print Print "C=A*B"RandomizeReDim C(x, x)For j = 1 To xFor i = 1 To xC(j, i) = A(j, i) * B(j, i)Print Format(C(j, i), "0 "); "";Next iPrintNext jEnd SelectEnd Sub程序运行结果考屏：（2）输入与查询系统最终代码：Dim M() As MemberDim x As IntegerPrivate Sub Command1_Click(Index As Integer)Dim i As IntegerDim j As IntegerSelect Case IndexCase 0Text1.Text = M(1).noText2.Text = M(1).nameText3.Text = M(1).classText4.Text = M(1).payCase 1For i = 1 To xIf M(i).no = Text1.Text And i <> 1 ThenText1.Text = M(i - 1).noText2.Text = M(i - 1).nameText3.Text = M(i - 1).classText4.Text = M(i - 1).payExit ForEnd IfNextCase 2For j = 1 To xIf M(j).no = Text1.Text And j <> x ThenText1.Text = M(j + 1).noText2.Text = M(j + 1).nameText3.Text = M(j + 1).classText4.Text = M(j + 1).payExit ForEnd IfNextCase 3Text1.Text = M(x).noText2.Text = M(x).nameText3.Text = M(x).classText4.Text = M(x).payEnd SelectEnd SubPrivate Sub Command5_Click()ReDim Preserve M(1 To (x + 1)) As Memberx = x + 1ClsM(x).no = Text1.TextM(x).name = Text2.TextM(x).class = Text3.TextM(x).pay = Text4.TextEnd SubPrivate Sub Command6_Click()Dim i As IntegerFor i = 1 To xIf Text2.Text = M(i).name ThenText1.Text = M(i).no Text3.Text = M(i).class Text4.Text = M(i).pay End IfNextEnd Sub 模块代码：Type Memberno As Longname As String * 5 class As String * 10 pay As LongEnd Type程序运行结果考屏：查询：六、实验中遇到的问题与解决方法或实验收获。
VB控件实验2009
1.1 实践目的与要求1、掌握基本控件的重要属性、事件。
2、熟练掌握在窗体上建立上述控件的操作方法。
3、熟练掌握事件过程代码的编写。
4、初步掌握建立基于图形界面的应用程序的过程。
1.2 实践内容1. 设计一密码修改程序，要求：1）当单击“确定”按钮后，首先比较“用户名”和“原密码”是否一致，若一致且都为“admin”，则继续执行步骤2；否则弹出消息框，提示用户出错，并让用户重新输入。
2）比较“新密码(N) ”和“新密码(S) ”，若两者一致，弹出密码修改成功消息框，程序终止执行。
否则弹出错误消息，并让用户重新输入。
3）当单击“取消”按钮后，程序终止执行。
2.设计一个程序，能进行四则运算。
2.1 实践目的与要求1. 熟练掌握单选钮、复选框和框架的应用。
2.要求会根据题意选择使用单选钮或复选框，并注意其Value 属性的异同点。
3. 熟练掌握列表框、组合框的常用属性（List 、ListIndex 、ListCount 、Selected 和Text ）和方法（AddItem 、RemoveItem 和Clear ）。
2.2 实践内容1. 设计一个程序，选择乘坐的交通工具和到达的目的地，单击“显示”按钮后，将所选择的交通工具和到达的目的地显示在文本框中。
2. 在窗体中放入两个列表框，4个命令按钮，当单击命令按钮时，将列表框1中所选择的列表项填加到列表框2中。
实验3文件管理的应用3.1 实践目的与要求1、熟练掌握顺序文件的基本操作。
图2-1 实验界面图2-2 实验运行结果2、熟练掌握驱动器列表框、目录列表框和文件列表框等三个文件操作控件的功能和建立。
3.2 实践内容在窗体中放入两个标签、三个文本框、一个通用对话框和4个命令按钮。
当单击“读取”按钮时，将打开“打开文件”对话框，从中选中存放数据的文本文件（data.txt），将文本文件的内容显示在中间的文本框中；单击“计算”按钮，将计算文本框中所有数据的总和和平均值，并将其分别显示在对应的文本框中；单击“保存”按钮，将总和和平均值保存到data.txt中；单击“退出”按钮，结束程序的运行。
vb控件数组的使用
vb控件数组的使用VB控件数组是在Visual Basic开发环境中用于处理大量相似控件的一种技术。
通过创建控件数组，可以方便地对一组控件进行集成处理，从而提高代码效率。
下面将详细介绍控件数组的使用及其注意事项。
1、控件数组的声明与初始化在VB中，声明控件数组与普通变量的方法类似。
通过使用Dim语句，在程序代码中声明一个控件数组，例如：Dim myButton(10) as CommandButton这里创建了10个命令按钮的数组，可以直接操作数组元素，如：myButton(0).Caption="Button1"myButton(1).Caption="Button2"当然，你也可以使用For循环结构来初始化数组中的控件，如下所示：For i = 0 To 10Set myButton(i) = Controls.Add("mandButton", "Button" & i)myButton(i).Top = i * 25Next i上述代码使用For循环在窗体上添加了11个按钮，并将它们的Top 属性依次设置为0、25、50、75……。
2、控件数组的处理方法通过使用控件数组，可以对具有相同事件处理程序的一组控件进行集成处理。
比如，你可以使用For循环结构为这些控件注册事件，代码如下：For i = 0 To 10Set myButton(i) = Controls.Add("mandButton", "Button" & i)myButton(i).Top = i * 25AddHandler myButton(i).Click, AddressOf Buttons_ClickNext iPrivate Sub Buttons_Click()MsgBox "Clicked"End Sub这里，我们将11个按钮的Click事件都绑定到Buttons_Click事件处理程序，当任何一个按钮被单击时，都会产生一个被处理的事件。
VB实验6 动态数组
实验6 动态数组
实验6-1 找因子
1. 功能
找出10～100之间含因子数最多的数，并显示所有的因子（包含1和本身）。
如图6-1所示。
图6-1
2. 要求
（1）在“查找”按钮中设计程序，查找10～100之间含因子数最多的数，并按图6-1所示格式在文本框中显示所有因子。
（2）单击“退出”按钮，将结束应用程序的运行。
3. 保存工程和窗体，并生成EXE文件
将工程保存为P6-1.vbp，窗体保存为F6-1.frm。
将以上工程生成EXE文件，文件名为E6-1.exe。
实验6-2 删除重复数
1. 功能
删除一个数组中的重复数。
如图6-2所示。
图6-2
2. 要求
（1）在“生成”按钮中设计程序，随机生成10个一位正整数，显示在文本框中。
（2）在“删除”按钮中设计程序，删除其中所有的重复数后，将数组元素重新显示在另一个文本框中。
（3）单击“清除”按钮，将清除两个文本框对象。
（4）单击“退出”按钮，将结束应用程序的运行。
3. 保存工程和窗体，并生成EXE文件
将工程保存为P6-2.vbp，窗体保存为F6-2.frm。
将以上工程生成EXE文件，文件名为E6-2.exe。
控件数组设计实验报告
一、实验目的1. 理解控件数组的概念和作用。
2. 掌握在Visual Basic环境下创建和操作控件数组的方法。
3. 学习如何通过控件数组实现功能复用，提高程序的可维护性和扩展性。
4. 通过实验加深对面向对象编程思想的理解。
二、实验环境1. 操作系统：Windows 102. 开发工具：Visual Basic 6.03. 实验平台：Visual Basic 6.0集成开发环境三、实验内容本次实验主要围绕控件数组的创建、操作和应用展开，具体包括以下步骤：1. 创建控件数组（1）打开Visual Basic 6.0集成开发环境，创建一个新的标准EXE项目。
（2）在工具箱中找到“命令按钮”（CommandButton）控件，将其拖放到窗体上。
（3）选中该命令按钮，在属性窗口中找到“Name”属性，将其命名为“btnArray”。
（4）按下Ctrl+D键，复制该命令按钮，此时会弹出一个对话框，询问是否创建控件数组。
选择“是”，并将新按钮的“Name”属性命名为“btnArray(1)”。
（5）重复步骤（4），创建更多名为“btnArray”的按钮，形成控件数组。
2. 操作控件数组（1）在代码窗口中，编写如下代码以遍历控件数组，并修改每个按钮的标题：```vbFor i = 0 To btnArray.Count - 1btnArray(i).Caption = "按钮" & (i + 1)Next```（2）编写一个事件处理程序，当点击任意一个按钮时，显示该按钮的索引：```vbPrivate Sub btnArray_Click(Index As Integer)MsgBox "您点击了第" & (Index + 1) & "个按钮"End Sub```3. 应用控件数组（1）设计一个简单的计算器程序，使用控件数组实现数字键和运算符键。
VB实验--------所有实验题目
实验题目总体要求：本学期的所有的实验题目，希望同学们按如下步骤认真做，（1）先画出处理界面（窗体）；（2）再给出处理步骤，（3）写出程序代码：可参考下面的例题：例如：设计程序，求1+2+3+...+N 的和值。
其处理过程是：（一）设计界面（在纸上画出界面，并注明各控件的名称）：（二）处理步骤：单击命令按钮，按以下步骤处理（1）定义3个变量：N ，s ，x ，分别用于存放：输入的数值，和值，控制循环（2）将文本框1的值，提供给变量N ；（3）s=0（累加前，将变量s 初始化为0）；（4）X=1（设置循环的开始值）（5） 当X<=N 时 重复执行S=s+xX=X+1（5）在文本框2中显示和值S（三）编写有关的代码：Private Sub Command1_Click()Dim n%，s%，x%N=val(text1.text)S=0X=1Do while x<=nS=s+xX=x+1LoopText2=sEnd Sub文本框1：TEXT1 文本框2：TEXT21：Command1标签1：Label1 标签2：实验一：用语言或流程图描述处理步骤(1次)1.判定一个数X是否是偶数的处理步骤;2.写出求5的阶乘的计算步骤;3.写出求1+2+3+...... +100的计算过程;4.写出计算1!+2！+3！+4！+......+20!的计算步骤;5.写出求一元二次方程解的处理步骤;6.给出将三个整数A,B,C按从小到大的顺序排列的处理步骤;实验二：表达式及其运算的实现(1次)1.设计一个程序，完成利用文本框输入任意两个数的乘法运算，并显示计算结果。
2.进一步完善程序，完成利用文本框输入任意两个数的加法、减法、乘法、除法运算，并显示计算结果，3.再进一步，改进，完成，利用随机函数，产生任意两个100到200之间的整数，并完成两个数的加法、减法、乘法、除法运算，并显示计算结果。
4．求方程AX+B=0的解。
VB实验三
VB实验三实验报告三实验目的（1）掌握一维数组（静态、动态）定义及使用（2）掌握二维数组（静态、动态）定义及使用（3）掌握“控件数组”的使用（4）掌握数组相关算法（求最值，排序，查找）（5）通过数组巩固循环及多重循环程序设计实验内容【实验1】已知10个数为53、67、42、89、65、18、98、67、54、36，编写程序，使用Array函数存储这10个数并求和。
程序运行界面如下图所示。
（10分）23【实验1 典型结果】【实验2】动态数组声明及输入输出，程序运行界面如下图所示。
（10分）掌握动态数组的使用实验结果：【实验2 代码】Private Sub command1_Click()Dim a() As Integern = 34ReDim a(n)a(1) = 10a(2) = 20a(3) = 30Print a(1), a(2), a(3)Print "用Redim Preserve a(n)改变数组大小"n = 4ReDim Preserve a(n)a(4) = 40Print a(1), a(2), a(3), a(4) End Sub【实验2 典型结果】56【实验3】编写程序，定义一个二维静态数组，输出下列矩阵并分别计算矩阵两条对角线元素之和。
（10分）12345678910111213141516171819202122232425⎡⎤⎢⎥⎢⎥⎢⎥⎢⎥⎢⎥⎢⎥⎣⎦程序运行界面如下图所示。
掌握二维数组的定义及使用实验结果：【实验3 代码】Option ExplicitOption Base 1Private Sub Form_Click()Dim a%(5, 5), i%, j%, sum%, n%, s1%, s2%For i = 1 To 5For j = 1 To 5a(i, j) = 5 * (i - 1) + j '给数组赋值Next jNext iFor i = 1 To 5For j = 1 To 57Print Tab(7 * j); a(i, j); '输出数组Next jPrintNext in = 5s1 = 0s2 = 0For i = 1 To 5For j = 1 To nIf i = j Then s1 = s1 + a(i, j) '主对角线之和If i + j = n + 1 Then s2 = s2 + a(i, j) '次对角线之和Next jNext iPrint "主对角线之和="; s18Print "次对角线之和="; s2End Sub【实验3 典型结果】【实验4】利用控件数组模拟电话拨号程序，界面设计如下图所示。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
【12-3】按图设计窗体，其中一组（共六个）单选框构成控件数组，要 求当单击某个单选框时，能改变文本框中文字的大小。程序运行结果界 面如图12-3所示：
Private Sub Form_Load() Option1(0).Value = True Text1.FontSize = 10 End Sub Private Sub Option1_Click(Index As Integer) Select Case Index Case 0 Text1.FontSize = 10 Case 1 Text1.FontSize = 12 Case 2 Text1.FontSize = 14 Case 3 Text1.FontSize = 16 Case 4 Text1.FontSize = 20 Case 5 Text1.FontSize = 30 End Select End Sub
【12-1】利用文本框控件数组生成如图所ate Sub Form_Click() Dim i As Integer For i = 1 To 5 Load Text1(i) Text1(i).Visible = True Text1(i).Left = Text1(0).Left + Text1(0).Width * i Text1(i).Top = Text1(0).Top + Text1(0).Height * i Next i End Sub
【12-2】利用按钮控件数组生成一个三行四列的矩形，如图所示。当单 击某个按钮时，该按钮不可用，按钮标题为“坏了吧”，其他按钮可用， 按钮标题为“不能按”。程序运行结果界面如图12-2所示：
Private Sub Command1_Click(Index As Integer) For i = 1 To 12 If i = Index Then Command1(i).Caption = "坏了吧" Command1(i).Enabled = False Else Command1(i).Caption = "不能按" Command1(i).Enabled = True End If Next i End Sub Private Sub Form_Click() Dim i As Integer Dim j As Integer Command1(0).Visible = False ‘让第一个按钮不可见，否则能看到13个命令按钮 For i = 0 To 2 For j = 1 To 4 Load Command1(i * 4 + j) ‘建立新的控件数组元素 Command1(i * 4 + j).Visible = True Command1(i * 4 + j).Left = Command1(0).Left + Command1(0).Width * j Command1(i * 4 + j).Top = Command1(0).Top + Command1(0).Height * i Next j Next i End Sub