已阅读5页,还剩1页未读, 继续免费阅读
版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领
文档简介
实验五 数组应用程序设计(3个学时)一 、实验目的1. 掌握数组的声明、数组元素的引用。2. 掌握静态数组和动态数组的使用差别。3. 应用数组解决与数组有关的常用算法问题。4. 学会使用控件数组设计程序。 二 、实验内容1. 输入10个学生的成绩,并将成绩输出到窗体上,每行5个。计算并显示平均分数,然后将高于平均分的分数输出到窗体上。1)代码设计如下Option ExplicitOption Base 1Private Sub Form_Click()Dim score(10) As Single, sum As SingleDim i As IntegerFor i = 1 To 10 score(i) = Val(InputBox(请输入第 & i & 个学生的数学成绩) sum = sum + score(i)Next iPrint 学生的数学成绩是:For i = 1 To 10 Print score(i), If i Mod 5 = 0 Then PrintNext iPrintPrint 数学平均分是: & sum / 10Print 高于平均分的分数:For i = 1 To 10 If score(i) sum / 10 Then Print score(i)Next iEnd Sub2)将运行结果的界面截下来粘贴在下面:3)调试过程记录(错误情况及改正方法)2. 设有一个66的方阵,其中的元素是随机产生的10 - 99 之间的两位整数。 分别求出主对角线和次对角线上元素之和,以及方阵中最小的元素的值和位置。 要求:程序运行后,单击“产生”按钮时,输出方阵。单击“计算”按钮时,输出对角线元素之和,以及最小元素的值与位置。1)代码设计如下Option ExplicitOption Base 1Dim a(6, 6), i%, j%, s%, sum%Private Sub Command1_Click()ClsRandomizeFor i = 1 To 6For j = 1 To 6 s = Int(Rnd * (99 - 10 + 1) + 10) a(i, j) = s Print a(i, j);Next jPrintNext iEnd SubPrivate Sub Command2_Click()Dim min, p%, q%For i = 1 To 6For j = 1 To 6 If i = j Then sum = sum + a(i, j) End IfNext jNext iPrint 主对角线的元素之和: & sumFor i = 1 To 6For j = 1 To 6 If i + j = 7 Then sum = sum + a(i, j) End IfNext jNext iPrint 次对角线的元素之和: & summin = a(1, 1): p = 1: q = 1For i = 1 To 6 For j = 1 To 6 If a(i, j) arr(p) Then p = j Next j If p i Then t = arr(i): arr(i) = arr(p): arr(p) = t End IfNext iPrintLabel3.Caption = 数组排序后顺序为:For i = 1 To nLabel4.Caption = Label4.Caption & & arr(i)Next iEnd SubPrivate Sub Form_Load()Command1.Caption = 输出Command2.Caption = 排序Label1.Caption = Label2.Caption = Label3.Caption = Label4.Caption = End Sub2)将运行结果的界面截下来粘贴在下面
温馨提示
- 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
- 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
- 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
- 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
- 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
- 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
- 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
最新文档
- 2024-2034年中国封装测试行业市场发展现状及投资方向研究报告
- 2024-2034年中国塑料模具行业市场全景监测及投资前景展望报告
- 2024-2034年中国健康医疗行业市场发展监测及投资战略咨询报告
- 2024-2034年中国上海市网红经济行业市场全景调研及投资规划建议报告2
- 市场营销实训分析报告总结
- 父子冲突与子代人格发展
- 幼儿园小班主题计划秋天
- 开展员工思想动态分析工作
- 2024-2030年塑胶动物玩具行业市场发展分析及发展趋势前景预测报告
- 2024-2030年基站射频功率放大器行业市场现状供需分析及重点企业投资评估规划分析研究报告
- 文综丨百师联盟2024届高三5月信息押题卷(三)文综试卷及答案
- 营运资金管理智慧树知到期末考试答案章节答案2024年中国海洋大学
- MOOC 中国电影经典影片鉴赏-北京师范大学 中国大学慕课答案
- 《吊耳强度计算书》
- C50高强度混凝土联锁块作业指导书
- 科技公司压合棕化线操作指引
- 美国药典色谱柱型号对照
- (最新整理)拖欠工资起诉状-模版
- 个人简历表格下载
- 项目部职工生活设施标准
- 哈尔滨工业大学威海招生宣传材料改进.ppt
评论
0/150
提交评论