vb实验-求数组中最大的元素

《vb实验-求数组中最大的元素》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、实验一:对于一个给定的整数数组，求数组中最大元素的值，并求出最大元素的下标。程序运行结果如下：实验一的主要步骤：1、在G盘上创建一个VBTestO731的文件夹。2、新建一个VisualBasic.NET的Windows应用程序项目Array1。打开VisualBasic.NET2005开发环境，从菜单中选择“文件”「新建项日”，弹出“新建项目对话框”,在对话框的“类型”中选择VisualBasic.NET,在模板中选择“Windows”应用程序。输入项目名称为Array1，如图1,点击确定进入项目开发环境。图1新建项目3、保存项目到

2、G:VBTestO731目录下，项目名称为Array1.在项目开发环境中，选择菜单中选择“文件”丨“全部保存”，弹出“保存对话框”，点击“游览”按钮，选择G:VBTestO731文件夹，输入名称Array1,如图2。②区I图2保存项目3、界面设计从工具箱屮拖一个文本框TextBox控件、一个标签控件Label与一个按钮Button控件到窗体上，设计界面如图3。图3程序界面按表1设置各控件的属性。表1各控件的属性控件属性属性值FormNameFrmMaxText求数组中元素的最大值LabelText请输入数组的元素，以逗号隔开：Te

3、xtBoxNametxtinputTextButtonNamebtnMaxText求最大值Click事件btnMaxClcik4、代码设计打开“设计器”窗口，用鼠标在程序界面中Button"求最大值”上双击，产生btnMax.Clcik事件，并自动切换到“代码”窗口。在btnMax_C1ick中编写如下代码:PrivateSubbtnMax_Click(ByVaisenderAsSystem.Object,ByVaieAsSystem.EvcntArgs)HandlesbtnMax.Click'定义一个变呈s用來保存从TextBox输

4、入的字符串DimsAsString'将TextBox输入的字符串保存到变量s中'定义一个字符串数组strs用來存放从界HffTextBox中输入的数字DimstrsOAsString'将字符串s中数据按逗号分隔开，并保存到字符串数组strs中strs=s.Split(",”)'定义一个整数数组ints来存放从界面输入的经过转换后的数字Dimints(strs.Length-1)AsInteger'定义循环计数变量iDimiAsInteger'将字符串数组转换成整数数组,Cint是一个函数，用來将字符串转换成数字Fori=0Tostrs

5、.Length一1ints(i)=CTnt(strs(i))Next'下面的代码用來求数组ints中元素的最大值DimkAsInteger'k用来记录程序运行过程中的那个最人元素的下标值DimmaxAsInteger'max用來记录程序运行过程中的那个最人元索的值mcix二0k=0Fori=0Toints.Length-1Ifints(i)>maxThen'if语句块表示判定当ints(i)+元索值大于max时，将该元索的值存储在max中max=ints(i)k=iEndIfNext'程序计算完成，数组中的最大值保存在max变彊中，通

6、过MsgBox^数來显示程序结果MsgBox(，z数组ints中的最大元素是第"&k&"个元素,元素值为"&max)EndSub5、运行程序，测试结果按F5运行程序，随机输入一组数据，点击“求最大值”按钮，测试结果的正确性。