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】利用控件数组模拟电话拨号程序，界面设计如下图所示。
VB上机实验报告详细易懂
VB上机实验报告详细易懂实验五数组的应用一、实验目的1．掌握一维数组的概念、定义、数组元素的引用和初始化。
2．学会用数组和程序基本控制结构实现数据的求和、求平均、求极值和排序等算法程序的设计3．加深对循环控制结构的理解和使用二、实验环境1．计算机2．Visual Basic 6.0开发环境三、实验说明1．熟练运用Visual Basic 6.0开发环境2．熟悉建立VB应用程序的步骤3．学会使用一维数组实现简单的应用程序四、实验内容和步骤1.实验内容随机产生10个两位整数，找出其中的最大值、最小值和平均值。
2.实验步骤（1）打开计算机，在Visual Basic 6.0系统环境下，选择“文件”菜单中的“新建工程”菜单选项，打开“新建工程”窗口；（2）在“新建工程”窗口按下“确定”按钮打开“工程设计”窗口；（3）在“工程设计”窗口，首先设计窗口的属性，然后打开“工具箱”窗口添加所需控件，设计该实验的界面；（4）选择“视图”菜单中的“代码窗口”菜单选项，打开“代码窗口”窗口，设计命令按钮控件的事件代码；考虑到要在不同的过程中使用数组，所以首先在模块的通用段中声明数组：Dim a(1 To 10) As Integer随机整数的生成由窗体的Load事件代码完成：Private Sub Form_Load( )Dim p As StringRandomizep = ""For i = 1 To 10a(i) = Int(Rnd * 90) + 10p = p & Str(a(i)) & ","NextLabel1.Caption = L Trim(Left(p, Len(p) – 1))End Sub求最大、最小以及平均值由“确定”按钮Command2的Click事件代码完成：Private Sub Command2_Click( )Dim n As Integer, m As Integer, s As Singlemin = 100: max = 10: s = 0For i = 1 To 10If a(i) > n Then max = a(i)If a(i) < m Then min = a(i)s = s + a(i)NextText1.Text = maxText2.Text = minText3.Text = s / 10End Sub“重置”按钮Command1的Click事件代码：Private Sub Command1_Click( )Form_LoadText1.Text = ""Text2.Text = ""Text3.Text = ""End Sub最后是“关闭”按钮Command3的Click事件代码：Private Sub Command3_Click( )Unload MeEnd Sub（5）运行程序，观察结果；（6）保存窗体，保存工程。
vb程序实验报告
vb程序实验报告VB 程序实验报告一、实验目的通过本次实验，深入了解和掌握 Visual Basic（VB）程序设计的基本概念、语法和编程技巧，提高解决实际问题的能力，培养逻辑思维和创新能力。
二、实验环境操作系统：Windows 10开发工具：Microsoft Visual Basic 60三、实验内容本次实验主要包括以下几个方面的内容：1、界面设计使用 VB 的窗体设计器，创建一个简单的用户界面，包含文本框、按钮、标签等控件，并设置其属性，如字体、颜色、大小等，以实现美观和友好的用户交互。
2、变量与数据类型在程序中声明不同类型的变量，如整数型（Integer）、字符串型（String）、布尔型（Boolean）等，并进行赋值和运算操作，理解不同数据类型的特点和适用场景。
3、控制结构运用顺序结构、选择结构（IfThenElse、Select Case）和循环结构（ForNext、WhileWend）编写程序，实现条件判断和重复执行的功能，例如计算阶乘、判断素数、打印九九乘法表等。
4、数组与过程定义数组来存储和处理大量的数据，掌握数组的声明、初始化和遍历操作。
同时，学习使用过程（Sub 过程和 Function 过程）来封装可重复使用的代码块，提高程序的可读性和可维护性。
5、文件操作实现对文本文件的读写操作，包括创建文件、写入数据、读取数据和关闭文件，了解文件处理在实际应用中的重要性。
四、实验步骤1、界面设计（1）打开 Microsoft Visual Basic 60，新建一个标准 EXE 工程。
（2）在窗体上添加所需的控件，如文本框 Text1、Text2，命令按钮 Command1、Command2，标签 Label1 等。
（3）通过属性窗口设置各个控件的属性，如 Text1 的 Text 属性为空，Command1 的 Caption 属性为“计算”，Label1 的 Caption 属性为“结果：”等。
VB实验案例(数组)
实验五数组一、控件属性的设置 (滚动条)1、在名称为Forml的窗体上添加一个名称为H1水平滚动条，请在属性窗口中设置它的属性值，满足下列要求：它的最小刻度值为1，最大刻度值为100，在程序运行时鼠标单击滚动条上滚动框以外的区域(不包括两边按钮)，滚动框移动10个刻度。
再在滚动条下面画两个名称分别为L1、L2的标签，并分别显示1、100，运行时的窗体如图5-1所示。
工程文件名保存为sy5-1.vbp，窗体文件名为sy5-1.frm。
2、在名称为Form1的窗体上添加一个名称为HS1的水平滚动条，其刻度值范围为1 -100；添加一个命令按钮，名称为C1，标题为"移动滚动框"。
请编写适当的事件过程，使得在程序运行时，每单击命令按钮一次(假定单击次数不多于10次)，滚动框向右移动10个刻度。
程序运行时的窗体如图5-2所示。
要求程序中不得使用变量，事件过程中只能写一条语句。
工程文件名保存为sy5-2.vbp，窗体文件名保存为sy5-2.frm。
3、在名称为Form1的窗体上画一个图片框，其名称为Picture1、一个水平滚动条，名称为HScroll1，和一个命令按钮，名称为Command1，标题为"设置属性"，通过属性窗口在图片框中装入一个图形(文件名为pic1.jpg，位于考生目录下)，图片框的高度与图形的高度相同，图片框的宽度任意(如图1所示)。
编写适当的事件过程，程序运行后，如果单击命令按钮，则设置水平滚动条的如下属性：Min 100Max 1500LargeChange 100SmallChange 10之后就可以通过移动滚动条上的滚动块来放大或缩小图片框。
程序运行后的窗体如图5-3所示。
要求程序中不得使用任何变量。
工程文件名为sy5-3.vbp，窗体文件名为sy5-3.frm。
4、在控件属性1文件夹下有一个工程文件sy5-4.vbp，窗体上有一个圆和一个矩形，还有水平和垂直滚动条各一个。
VB-实验-数组排序
数组实验二:对于一个给定的整数数组，将数组中的元素按值的(递增)不减排序。
程序运行后的结果如下：实验二的主要步骤：１、在G盘上创建一个VBTest0731的文件夹。
２、新建一个Visual 的Windows应用程序项目Array2。
打开Visual 2005开发环境，从菜单中选择“文件”｜“新建项目”，弹出“新建项目对话框”，在对话框的“项目类型”中选择“Visual Basic｜Windows”，在模板中选择“Windows应用程序”。
输入项目名称为Array2，如图１，点击“确定”进入项目开发环境。
图１新建项目３、保存项目到G:\VBTest0731目录下，项目名称为Array2.在项目开发环境中，选择菜单中选择“文件”｜“全部保存”，弹出“保存对话框”，点击“游览”按钮，选择G:\VBTest0731文件夹，输入名称Array2，如图２。
图２保存项目３、界面设计从工具箱中拖两个文本框TextBox控件、两个标签控件Label与一个按钮Button控件到窗体上，设计界面如图３。
图３程序界面按表１设置各控件的属性。
控件属性属性值Form Name FrmSort Text 对数组进行排序Label Text 请输入数组的元素，以逗号隔开：Label Text 排序后的结果：TextBox Name txtInput TextTextBox Name txtRes TextButtonName btnSortText 排序Click事件btnSort_Clcik打开“设计器”窗口，用鼠标在程序界面中Button“排序”上双击，产生btnSort_Clcik 事件，并自动切换到“代码”窗口。
在btnSort_Click中编写如下代码:Private Sub btnSort_Click(ByVal sender As System.Object, _ByVal e As System.EventArgs) Handles btnSort.Click'定义一个变量s用来保存从TextBox输入的字符串Dim s As String'将TextBox输入的字符串保存到变量s中s = txtInput.Text'定义一个字符串数组strs 用来存放从界面TextBox中输入的数字Dim strs() As String'将字符串s中数据按逗号分隔开，并保存到字符串数组strs中strs = s.Split(",")'定义一个整数数组ints 来存放从界面输入的经过转换后的数字Dim ints(strs.Length - 1) As Integer'定义循环计数变量iDim i, j As Integer'将字符串数组转换成整数数组,Cint是一个函数，用来将字符串转换成数字For i = 0 To strs.Length - 1ints(i) = CInt(strs(i))Next'下面的代码用来对数组ints 中元素按从小到大进行排序Dim k As Integer'k用来记录程序运行过程中的那个最大元素的下标值Dim tmp As Integer'定义一个临时变量tmp来存放元素交换时的中间结果k = 0For i = 0 To ints.Length - 1 '第一层循环，依次处理数组中的每个元素For j = i To ints.Length - 1 '第二层循环，从数组i到无级最后的元素中选择一个最小的元素，放置到下标i处If ints(i) > ints(j) Then'if语句块表示判定当ints(i)中元素值大于其他元素时时，将两个元素的位置进行交换tmp = ints(i)ints(i) = ints(j)ints(j) = tmpEnd IfNextNext'程序计算完成，数组ints中的保存的是排序后的结果,通过程序界面上的txtRes控件显示结果 txtRes.Text = ""'首先清空内容'循环，对排序后的数组ints中的元素进行显示For i = 0 To ints.Length - 1txtRes.Text = txtRes.Text & ints(i)txtRes.Text = txtRes.Text & " "'排序后的元素用空格隔开NextEnd Sub５、运行程序，测试结果按F5运行程序，随机输入一组数据，点击“排序”按钮，测试结果的正确性。
VB实验报告1-9
实验一：设计简单的VB 应用程序一、实验目的1．掌握Visual Basic 启动和退出的方法。
2．熟悉Visual Basic 的集成开发环境。
3．掌握Visual Basic 程序设计的基本步骤，了解VB 程序的编写、保存和编译的方法过程。
4．初步了解几个常用基本控件控件（标签、命令按钮和文本框）的使用方法。
二、实验类型综合三、实验时间：2013-3-8四、实验任务1、启动Visual Basic ，然后创建一个“标准 EXE ”工程（保存在D 盘以自己学号命名的文件夹中，文件名和窗体名均为SJT ），并了解Visual Basic 集成开发环境下各组成部分及其作用。
2、编一程序，计算任意输入的正整数的平方根。
3、编写一个应用程序，界面如图1-1所示。
窗体中文字“VB 应用程序！”为一标签控件，单击标题为“放大”的命令按钮，则“VB 应用程序！”的字号放大一号，单击“缩小”按钮则反之；同时，窗体中还有4个含某种指向图案的按钮，若单击某个按钮，则使“VB 应用程序！”向该按钮所指向的方向移动50Twip 。
（提示：四种指向的图案可以在Visual Basic 安装目录中的“…graphics\icon\Arrows ”子目录中找到，名称分别为arw07dn.ico 、arw07lt.ico 、arw07rt.ico 和arw07up.ico ）五、实验要求 写出实验报告，内容是：1、第1小题的操作步骤2、第2、3题1).程序的界面设计。
2).程序主要代码。
3).运行结果（输入与输出）。
4).实验总结。
(写上你自己的总结。
可以从以下几个方面来总结：你在编程过程中花时多少？时间是怎么分配的？多少时间在思考问题？遇到了哪些难题？你是怎么克服的？你对你的程序的评价？你的收获有哪些？)图1-1 实验1-2程序运行实验二：数据的输入和输出一、实验目的1．掌握常量和变量、表达式的基本概念和正确书写格式。
2．掌握基本语句（Print语句、赋值语句、Dim语句等）的使用；3、掌握常用函数的正确使用方法；4、掌握数据的动态输入InputBox和信息提示MsgBox的基本使用方法。
VB.NET中控件数组的实现
中控件数组的实现摘要:VB编程时,当要处理一组相同类型的控件的同一事件过程时,我们可以引入控件数组这一概念。
如进行计算器程序编写时,可创建十个数字按钮的控件数组,共享同一事件过程。
VB6升级到后,VB6控件数组的创建方法在.NET 中不可用,本文总结了几种中使用控件数组的方法。
关键词:控件数组事件过程程序代码一、关于控件数组熟悉VB6编程的,对控件数组这一概念应该非常熟悉,它是VB6中的一项简单而非常实用的技术,是指具有相同名称的同类型的控件,共享同一事件。
它的最大好处是:简化编程。
但当我们把这一用法沿用到中来时,却发现无法实现。
虽然中没有VB6中实现控件数组的方法,但在 中控件数组的运用更加灵活了。
中,控件数组的创建不再是在设计时简单地将同类型的各个控件的Name属性值设置成同一名称就可以了,中,不公能够创建同类型的相同事件处理过程,还能够创建属于不同类型但共享相同事件的控件组。
二、中控件数组的实现要在中实现控件数组这一机制,我们需要通过编写代码来完成,下面来介绍几种的方法,大家可以根据程序的需要进行选择。
1、使用Handles子句。
先将控件数组中各控件对象依次添加到窗体,然后创建其中一个对象的事件过程(执行部分先不写),再把其它对象的这一事件依次添加在后面,各事件过程名之间用逗号分隔开来。
在事件过程的执行部分,如果需要引用这些对象,则要先给这些对象创建一个相同的名称。
当要引用对象时,不再使用它们的Name属性值,而是新创建的名称。
示例代码如下(部分内容省略):Label1_Click(ByVal sender…)HandlesLabel1.Click,Label2.Click,Label3.ClickDim lbl As Label = CType(sender, Label)当中,创建的是Label1的Click事件,在其后面,添加了Label2及Label3的Click事件。
事件过程中,通过一条Dim语句,定义三个标签具有相同的名称lbl,在下面的代码中,要设置或获取其中某一个标签的某个属性值时,直接使用名称lbl即可。
VB数组应用实验报告
实验名称：VB程序设计实验类别：课程上机适用专业：计算机科学与技术姓名：徐申毅实验报告一、内容数组及应用二、目的（1）掌握一维数组和二维数组的定义及引用方法（2）掌握动态数组的定义和使用（3）能应用数组解决一些常见问题，如复杂统计，平均值，排序和查找等。
三、设计思路（1）首先定义一个一维数组生成10个二位数，假设第一个数为最大数，让第二个数与第一个数比大小，若大于，则交换值，循环至最后一个数，求出最大值，然后求和算出平均值，用选择法进行排序，Private Sub cmdinsert_Click() '数据插入，x = Val(InputBox("输入要插入的数据："))，将新的数组进行排序。
（2）定义二维数组，i为行数，j为列数；n为输出的行数，'第一列和主对角线为1s(i, 1) = 1，s(i, i) = 1；For i = 3 To n For j = 2 To i - 1，s(i, j) = s(i - 1, j - 1) + s(i - 1, j)实现每一个数等于它上面一行的同一列与前一列数之和。
（3）定义动态数组，ReDim Preserve a(n) '动态存储数组a增加1个元素，前n-1个元素值保持不变。
然后用冒泡法对数组中的元素进行排序，输出排序后的结果。
四、源程序Option Base 1Option ExplicitDim a(11) As Integer ' 定义数组Private Sub cmdcreat_Click() '产生的一维数组Dim i As IntegerPicture1.ClsPicture1.Print "产生的一维数组为："RandomizeFor i = 1 To 10a(i) = Int(Rnd * 20 + 10)Picture1.Print a(i);Next iPicture1.PrintEnd SubPrivate Sub cmdmax_Click() '求最大元数及所在的位置Dim max As Integer, p As Integer, i As Integermax = a(1) ' 假设第一元素就是最大元素p = 1For i = 2 To 10If a(i) > max Thenmax = a(i)p = iEnd IfNext iPicture1.PrintPicture1.Print "第" & p; " 个元素" & a(p) & " 为最大元素" End SubPrivate Sub cmdave_Click() '计算平均值Dim ave As Single, i As IntegerFor i = 1 To 10ave = ave + a(i)Next iave = ave / 10Picture1.PrintPicture1.Print "产生的随机数平均值为：" & aveEnd SubPrivate Sub cmdsort_Click() '使用选择法排序Dim i%, j%, p%, t%For i = 1 To 9p = iFor j = i + 1 To 10If a(p) > a(j) Then p = jNext jt = a(i): a(i) = a(p): a(p) = tNext iPicture1.PrintPicture1.Print "排序后的一维数组为："For i = 1 To 10Picture1.Print a(i);Next iPicture1.PrintEnd SubPrivate Sub cmdinsert_Click() '数据插入Dim x%, p%, i%x = Val(InputBox("输入要插入的数据："))p = 1Do While x > a(p) And p <= 10p = p + 1LoopFor i = 10 To p Step -1a(i + 1) = a(i)Next ia(p) = xPicture1.PrintPicture1.Print "插入后的一维数组为："For i = 1 To 11Picture1.Print a(i);Next iEnd SubPrivate Sub Command1_Click()Dim s() As Integer, i%, j%, n%Form1.Clsn = Val(Text1)ReDim s(n, n)'第一列和主对角线为1For i = 1 To ns(i, 1) = 1s(i, i) = 1Next iFor i = 3 To nFor j = 2 To i - 1s(i, j) = s(i - 1, j - 1) + s(i - 1, j)Next jNext i'打印杨辉三角For i = 1 To nFor j = 1 To i' 让每个数据占4列输出Print Spc(4 - Len(Str(s(i, j)))); s(i, j);Next jPrintNext iEnd SubDim a() As String, n%Private Sub Text1_KeyPress(KeyAscii As Integer)Dim i As Integer, j As Integer, k As Integer, t As StringIf KeyAscii = 13 Thenn = n + 1ReDim Preserve a(n) '动态存储数组a增加1个元素，前n-1个元素值保持不变。
VB实验10 控件数组
上一页
下一页
退 出
【分析】 创建控件数组后，在运行时使用 Load语句向 控件数组中添加控件，使用 Unload 语句删除在 运行时新增的控件。
第9 页 Visual Basic程序设计实验指导
实验10-2
目的和要求 预备知识
上一页
下一页
退 出
【实验步骤】 （1）界面设计 请参照图10-3所示的界面设计窗体。 （2）完善程序代码 （ 3 ）运行程序，观察程序运行结果，最后将 窗体文件保存为 F10-2.frm ，工程文件保存为 P10-2.vbp。
第14页 Visual Basic程序设计实验指导
实验10-4
目的和要求 预备知识
【题目】 用筛选法找出1～100之间的所有素数，运行界面 如图所示。
上一页
下一页
退 出
第15页 Visual Basic程序设计实验指导
实验10-4
目的和要求 预备知识
【分析】
筛选法求出某一范围内的所有素数的思路为：首先在纸上 写出1～100的全部整数，然后逐一判断它们是否为素数，找出 一个非素数就把它们筛掉，最后剩下的就是结果。 具体操作如下： （1）先将1筛掉。 （2）用2去除它后面的每个数，把能被2整除的数筛掉。 （3）把3的倍数筛掉。 （ 4 ）把 5 的倍数筛掉（注意 4 已经被筛掉，因为它是 2 的倍 数）。 …… 这个过程一直进行到除数为 Sqr(100)为止，最后剩下的就 是素数。
实验
目Байду номын сангаас和要求 预备知识
10
控件数组
上一页
下一页
退 出
第1 页 Visual Basic程序设计实验指导
一、目的和要求
目的和要求 预备知识
vb控件数组的使用
VB控件数组的使用一、什么是VB控件数组在VB编程中，控件是指用于构建用户界面的可视化元素，例如按钮、文本框、列表框等。
而控件数组是指将多个相同类型的控件组织在一起以便更方便地进行管理和操作。
二、为什么要使用VB控件数组使用控件数组可以带来许多好处，包括但不限于以下几点：1.简化代码：通过使用控件数组，我们可以减少代码的重复性，只需编写一次代码即可对数组中的所有控件进行操作。
这样可以大大简化代码的编写和维护工作。
2.提高效率：在某些情况下，我们需要对同一类型的多个控件进行相同或类似的操作。
使用控件数组可以避免重复性的操作，提高编程效率。
3.灵活性：控件数组可以动态增加或减少数组中的控件数量，从而使程序更具有灵活性和可扩展性。
4.统一管理：使用控件数组可以将同一类型的控件进行组织和管理，方便对其进行统一的控制和处理。
三、创建VB控件数组的方法在VB中，我们可以使用以下方法来创建和使用控件数组：1. 使用Control数组VB提供了一个叫做Control的特殊数组，可以容纳所有类型的控件。
我们可以通过声明Control类型的数组并将其初始化为特定类型的控件来创建控件数组。
例如，以下代码创建了一个名为btnArray的按钮数组：Dim btnArray() As Control = {btn1, btn2, btn3}其中btn1、btn2和btn3是已经存在于窗体上的按钮控件。
2. 动态创建控件数组除了使用Control数组外，我们还可以在运行时动态创建控件数组。
可以使用ReDim语句来调整数组的大小，并使用循环语句逐个初始化数组中的控件。
例如，以下代码使用循环创建了一个名为txtArray的文本框数组：Dim txtArray() As TextBoxDim i As IntegerReDim txtArray(2) '设置数组大小为3For i = 0 To 2txtArray(i) = New TextBox '创建新的文本框控件txtArray(i).Name = "txt" & (i + 1) '设置控件的名称Me.Controls.Add(txtArray(i)) '将控件添加到窗体上Next i在上述代码中，我们通过ReDim语句设置了txtArray数组的大小为3，并在循环中创建了3个新的文本框控件，并将其添加到窗体上。
VB课程设计之数组2实验报告
实验报告实验目的：(1)掌握静态数组和动态数组定义及使用(2)掌握数组元素的引用，数组的输入和输出(3)掌握“控件数组”的使用实验内容：(1)在名称为form1的窗体上有一个名称为shape1的形状控件画一个名称为L1的列表框，并在属性窗口中设置列表项的值为1,2,3,4,5，将窗体的标题设为“图形控件”。
单击列表框中的某一项，则按照所选的值该表形状控件的形状。
例如，选择3，则形状控件被设为圆形，如下图所示。
要求：窗体文件保存为sy7-1.frm，工程文件保存为sy7-1.vbp.程序代码：Private Sub L1_Click()Shape1.Shape = L1.TextEnd Sub(2)界面如上图所示，窗体上所有对象的名称属性都使用默认值。
单击命令按钮时候计算出最后得分。
计算方法是去掉一个最高得分和一个最低得分，求剩下得分的平均值再乘以难度系数，最后结果保留到小数点后面两位。
要求窗体文件保存为sy7-2.frm，工程文件保存为sy7-2.vbp程序代码：Option Base 1Private Sub Command1_Click()Dim a As Varianta = Array(Val(Text1.Text), Val(Text2.Text), Val(Text3.Text), Val(Text4.Text),Val(Text5.Text), Val(Text6.Text))Max = a(1)Min = a(1)For i = 2 To 6If Max < a(i) Then Max = a(i)If Min > a(i) Then Min = a(i)Next iFor i = 1 To 6Sum = a(i) + SumNext iText8.Text = Int((Sum - Max - Min) / 4 * Text7.Text * 100) / 100End Sub(3)名称为form1的窗体上有一个命令按钮，单击命令按钮，利用随机函数生成一个6行6列的整型数组（取值范围【10，90】）。
vb控件数组的使用
vb控件数组的使用VB控件数组的使用在VB编程中，控件数组是一种非常有用的功能，它可以让我们更方便地对多个控件进行操作和管理。
控件数组允许我们将一组相同类型的控件组织在一起，并通过索引来访问它们，从而提高编程效率和代码的简洁性。
控件数组的定义非常简单，只需要在声明控件时加上一个方括号，用来表示这是一个控件数组。
例如，我们可以定义一个名为btnArray的按钮数组，代码如下：Dim btnArray(10) As Button上述代码定义了一个包含10个按钮的按钮数组。
我们可以通过索引来访问数组中的按钮，例如btnArray(0)表示第一个按钮，btnArray(1)表示第二个按钮，依此类推。
使用控件数组可以简化我们对多个控件的操作。
例如，如果我们想要给按钮数组中的所有按钮设置相同的属性，我们只需要使用一个循环来遍历数组，并对每个按钮应用相同的属性即可，代码如下：For i As Integer = 0 To btnArray.Length - 1btnArray(i).Text = "按钮" & (i + 1)btnArray(i).BackColor = Color.RedNext上述代码将按钮数组中的所有按钮的文本设置为"按钮1"、"按钮2"、"按钮3"等，并将它们的背景颜色设置为红色。
除了设置属性，控件数组还可以方便地管理多个控件的事件。
例如，如果我们想要为按钮数组中的所有按钮添加相同的点击事件处理程序，我们只需要使用一个循环来遍历数组，并为每个按钮添加相同的事件处理程序即可，代码如下：For i As Integer = 0 To btnArray.Length - 1AddHandler btnArray(i).Click, AddressOf btn_ClickNextPrivate Sub btn_Click(sender As Object, e As EventArgs)Dim btn As Button = DirectCast(sender, Button)MessageBox.Show("您点击了按钮：" & btn.Text)End Sub上述代码将为按钮数组中的所有按钮添加一个名为btn_Click的点击事件处理程序，当任何一个按钮被点击时，都会弹出一个消息框显示按钮的文本。
在VB.NET中使用控件数组
在中使⽤控件数组控件数组是位于⼀个窗体上共享同⼀名称的⼀组同种类型控件。
普通控件仅使⽤名称就可以识别，⽽引⽤控件数组中的成员则需要同时使⽤名称和索引。
开发⼈员在 Visual Basic 6.0 以及更早的版本中使⽤控件数组主要有以下三个理由：1. 在循环中访问数组中控件的属性。
2. 向窗体动态添加新控件。
3. 允许⼀个事件例程与多个控件连接。
控件数组的使⽤，极⼤的⽅便了开发⼈员。
然⽽，刚刚从Visual Basic6.0（以下简称VB6.0）过渡到Visual （以下简称）的初学者却发现，在中似乎不能使⽤控件数组了。
笔者仔细查阅了的MSDN⽂档发现，在 中，确实不再⽀持控件数组。
原因是，对事件模型作了很⼤的改动，引⼊了另外⼀种数据类型――控件集合模型，使控件数组没有存在的必要。
就像VB6.0 中的控件数组可以共享事件⼀样， 中的事件模型允许任何事件处理程序都可以处理来⾃多个控件的事件，这就允许创建属于不同类型但共享相同事件的控件组。
所谓控件集合是指包含在⼀个容器中的所有控件的总和，能够创建控件集合的容器有：Form、Panel、GropBox等。
程序运⾏时，可以通过访问容器的Control属性来得到该容器中的所有控件。
下⾯将演⽰如何通过控件集合来使⽤控件数组：⼀、直接使⽤Form容器的控件集合来使⽤控件数组：建⽴⼀个项⽬，在Form1中添加三个TextBox控件，名称分别为：TextBox1、TextBox2、TextBox3，⼀个Button控件。
双击Button，输⼊如下代码：Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click‘下⾯的语句是通过数组元素的下标来访问Form中的每⼀个元素。
Me.Controls.Item(0).Text = "集合中的第⼀个元素"Me.Controls.Item(1).Text = "集合中的第⼆个元素"Me.Controls.Item(2).Text = "集合中的第三个元素"Me.Controls.Item(3).Text = "集合中的第四个元素"End Sub运⾏项⽬后，点击Button，看到的结果是：Form1中的所有控件（包括Button⾃⼰）的Text属性都被修改了，同时还发现，最后加⼊的的控件变成了集合中的第⼀个元素（下标为0）。
- 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