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

实验一 实验一 对于一个给定的整数数组 求数组中最大元素的值 并求出最大元素的下标 程序运行 结果如下 实验一的主要步骤 实验一的主要步骤 在 G 盘上创建一个 VBTest0731 的文件夹 新建一个 Visual Basic NET 的 Windows 应用程序项目 Array1 打开 Visual Basic NET2005 开发环境 从菜单中选择 文件 新建项目 弹出 新建项目对话框 在对话框的 类型 中选择 Visual Basic NET 在模板中选择 Windows 应用程序 输入项目名称为 Array1 如图 点击确定进入项目开发环境 图 新建项目 保存项目到 G VBTest0731 目录下 项目名称为 Array1 在项目开发环境中 选择菜单中选择 文件 全部保存 弹出 保存对话框 点击 游览 按钮 选择 G VBTest0731 文件夹 输入名称 Array1 如图 图 保存项目 界面设计 从工具箱中拖一个文本框 TextBox 控件 一个标签控件 Label 与一个按钮 Button 控件 到窗体上 设计界面如图 图 程序界面 按表 设置各控件的属性 表 各控件的属性 控件属性属性值 NameFrmMax Form Text求数组中元素的最大值 LabelText请输入数组的元素 以逗号隔开 NametxtInputTextBo xText NamebtnMax Text求最大值Button Click 事件btnMax Clcik 代码设计 打开 设计器 窗口 用鼠标在程序界面中 Button 求最大值 上双击 产生 btnMax Clcik 事件 并自动切换到 代码 窗口 在btnMax Click中编写如下代码 Private Sub btnMax Click ByVal sender As System Object ByVal e As System EventArgs Handles btnMax 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 定义循环计数变量i Dim i As Integer 将字符串数组转换成整数数组 Cint是一个函数 用来将字符串转换成数字 For i 0 To strs Length 1 ints i CInt strs i Next 下面的代码用来求数组ints 中元素的最大值 Dim k As Integer k用来记录程序运行过程中的那个最大元素的下标值 Dim max As Integer max用来记录程序运行过程中的那个最大元素的值 max 0 k 0 For i 0 To ints Length 1 If ints i max Then if语句块表示判定当ints i 中元素值大于max时 将该元素的 值存储在max中 max ints i k i End If Next 程序计算完成 数组中的最大值保存在max变量中 通过MsgBox函数来显示程序结果 MsgBox 数组ints中的最大元