VB 实验-数组排序

数组实验二:对于一个给定的整数数组，将数组中的元素按值的(递增)不减排序。程序运行后的结果如下：实验二的主要步骤：１、在G盘上创建一个VBTest0731的文件夹。２、新建一个VisualBasic.NET的Windows应用程序项目Array2。打开VisualBasic.NET2005开发环境，从菜单中选择“文件”｜“新建项目”，弹出“新建项目对话框”，在对话框的“项目类型”中选择“VisualBasic｜Windows”，在模板中选择“Windows应用程序”。输入项目名称为Array2，如图１，点击“确定”进入项目开发环境。图１新建项目３、保存项目到G:\VBTest0731目录下，项目名称为Array2. 在项目开发环境中，选择菜单中选择“文件”｜“全部保存”，弹出“保存对话框”，点击“游览”按钮，选择G:\VBTest0731文件夹，输入名称Array2，如图２。图２保存项目３、界面设计从工具箱中拖两个文本框TextBox控件、两个标签控件Label与一个按钮Button控件到窗体上，设计界面如图３。图３程序界面按表１设置各控件的属性。表１各控件的属性控件属性属性值FormNameFrmSortText对数组进行排序LabelText请输入数组的元素，以逗号隔开：LabelText排序后的结果：TextBoxNametxtInputTextTextBoxNametxtResTextButtonNamebtnSortText排序Click事件btnSort_Clcik４、代码设计 打开“设计器”窗口，用鼠标在程序界面中Button“排序”上双击，产生btnSort_Clcik事件，并自动切换到“代码”窗口。在btnSort_Click中编写如下代码:PrivateSubbtnSort_Click(ByValsenderAsSystem.Object,_ByValeAsSystem.EventArgs)HandlesbtnSort.Click'定义一个变量s用来保存从TextBox输入的字符串DimsAsString'将TextBox输入的字符串保存到变量s中s=txtInput.Text'定义一个字符串数组strs用来存放从界面TextBox中输入的数字Dimstrs()AsString'将字符串s中数据按逗号分隔开，并保存到字符串数组strs中strs=s.Split(",")'定义一个整数数组ints来存放从界面输入的经过转换后的数字Dimints(strs.Length-1)AsInteger'定义循环计数变量iDimi,jAsInteger'将字符串数组转换成整数数组,Cint是一个函数，用来将字符串转换成数字Fori=0Tostrs.Length-1ints(i)=CInt(strs(i))Next'下面的代码用来对数组ints中元素按从小到大进行排序DimkAsInteger'k用来记录程序运行过程中的那个最大元素的下标值DimtmpAsInteger'定义一个临时变量tmp来存放元素交换时的中间结果k=0Fori=0Toints.Length-1'第一层循环，依次处理数组中的每个元素Forj=iToints.Length-1'第二层循环，从数组i到无级最后的元素中选择一个最小的元素，放置到下标i处Ifints(i)>ints(j)Then'if语句块表示判定当ints(i)中元素值大于其他元素时时，将两个元素的位置进行交换tmp=ints(i)ints(i)=ints(j)ints(j)=tmpEndIfNextNext'程序计算完成，数组ints中的保存的是排序后的结果,通过程序界面上的txtRes控件显示结果txtRes.Text=""'首先清空内容 '循环，对排序后的数组ints中的元素进行显示Fori=0Toints.Length-1txtRes.Text=txtRes.Text&ints(i)txtRes.Text=txtRes.Text&""