VB实验2..docVIP

甘肃政法学院 本科学生实验报告 （二） 姓名 学院 计算机科学学院 专业 计算机科学与技术 班级 12级专升本班 实验课程名称 visual basic.NET 试验时间 2013 年 12 月 4 日 指导教师及职称 实验成绩 开课时间 2013—2014 学年 第一 学期 甘肃政法学院实验管理中心印制 实验题目 数组和过程 小组合作 否 姓 名 班 级 学 号 一、实验目的： 1、掌握数组的声明、数组元素的引用、重定义数组的大小。 2、掌握列表框和组合框的使用。 3、掌握自定义函数过程和子过程的定义和调用方法。 4、掌握变量、函数和过程的作用域。 二、实验环境： 1、操作系统：Windows XP 2、VB.NET2008应用软件 三、实验步骤 随机产生20个学生成绩，统计各分段的人数，即0~59、60~69、70~79、80~89、80~89、90~100，并显示结果。 利用文本框、下拉组合框和标签控件，设计一个进行四则运算和计算机进行评判的程序。 3、 编一个函数过程MySin（X）。 4、 编一个子过程MaxLength(s,MaxWord)，在已知的字符串S中，找出最长的单词MaxWord。 四、实验过程与分析 一、随机产生20个学生的成绩，并统计各分数段人数。 设计界面如下： 事件核心代码： Public Class Form1 Dim mark(19) As Integer Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click For i = 0 To 19 Randomize() mark(i) = Int(Rnd() * (101) + 0) TextBox1.Text = Space(4 - Len(Trim(mark(i)))) mark(i) Next i End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim s(9) As Integer Dim k As Integer For i = 0 To 19 k = mark(i) \ 10 Select Case k Case 0 To 5 s(5) = s(5) + 1 Case 6 To 7 s(6) = s(6) + 1 Case 7 To 8 s(7) = s(7) + 1 Case 8 To 9 s(8) = s(8) + 1 Case 9 To 10 s(9) = s(9) + 1 End Select TextBox2.Text = s(5)的人数有 s(5) vbCrLf s(6)的人数有 s(6) vbCrLf s(7)的人数有 s(7) vbCrLf s(8)的人数有 s(8) vbCrLf s(9)的人数有 s(9) Next i End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load End Sub End Class 运行结果如下： 二、利用文本框、下拉组合框和标签控件。 设计界面如下： 事件核心代码： Publ