原创力文档- 1、本文档共13页，可阅读全部内容。
- 2、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
- 3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
查看更多
数组和过程汇编
实验题目 数组和过程 小组合作 否 姓 名 班 级 学 号 一、实验目的：
掌握数组的声明、数组元素的引用、重定义数组大小。
掌握数组的基本操作。
应用数组解决与数组有关的常用算法。
掌握列表框和组合框的使用。
掌握自定义类型及数组的使用。
掌握自定义函数过程和子过程的定义和调用方法。
掌握形参和实参的对应关系。
掌握值传递和地址传递的传递方式。
掌握变量、函数和过程的作用域。
10.掌握递归概念和使用方法。
11.熟悉程序设计中的常用算法。 二、实验环境：
一台装有Microsoft Visual Studio 2012软件的计算机 三、实验内容与步骤：
1. 随机产生20个学生的成绩，统计个分数段的人数，即0-59，60-69，70-79,80-89,90-100，并显示结果。产生的数据在TextBox1中显示，统计结果在TextBox2中显示Public Class sy5_3
Dim a(19) As Integer
Dim s(9) As Integer
Dim mark(19) As Integer
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Randomize()
Dim i As Integer
For i = 0 To 19
mark(i) = Int(Rnd() * 101 + 0)
Label1.Text += Str(mark(i)) +
Next i
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Dim i 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 9 To 10
s(9) = s(9) + 1
Case 6
s(6) = s(6) + 1
Case 7
s(7) = s(7) + 1
Case 8
s(8) = s(8) + 1
End Select
Next i
Label2.Text = s(6) 的人数有 s(6) 个 vbCrLf
Label2.Text = s(7) 的人数有 s(7) 个 vbCrLf
Label2.Text = s(8) 的人数有 s(8) 个 vbCrLf
Label2.Text = s(5) 的人数有 s(5) 个 vbCrLf
Label2.Text = s(9) 的人数有 s(9) 个 vbCrLf
End Sub
End Class
实验运行结果：
2.利用文本框，下拉组合框和标签控件，设计一个进行四则运算和计算机进行评判的程序要求：用户输入两个运算数，选择运算符并输入计算结果，由计算机评判，正确则显示相应信息，错误则显示错误并给出正确结果。）Public Class Sy5_7
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Me.Close()
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Dim m As Single
Dim n As Single
文档评论（0）