青岛科技大学VB实验五.doc

上传人:xin****828 文档编号:6713073 上传时间:2020-03-02 格式:DOC 页数:6 大小:131KB
返回 下载 相关 举报
青岛科技大学VB实验五.doc_第1页
第1页 / 共6页
青岛科技大学VB实验五.doc_第2页
第2页 / 共6页
青岛科技大学VB实验五.doc_第3页
第3页 / 共6页
点击查看更多>>
资源描述
实验五 数组应用程序设计(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)将运行结果的界面截下来粘贴在下面3)调试过程记录(错误情况及改正方法)4 使用控件数组设计如图所示简易计算器,能够实现基本的四则运算。设计的初始界面如图一所示,运行结果如图二所示。(选作实验)图一 图二
展开阅读全文
相关资源
正为您匹配相似的精品文档
相关搜索

最新文档


当前位置:首页 > 图纸专区 > 中学资料


copyright@ 2023-2025  zhuangpeitu.com 装配图网版权所有   联系电话:18123376007

备案号:ICP2024067431-1 川公网安备51140202000466号


本站为文档C2C交易模式,即用户上传的文档直接被用户下载,本站只是中间服务平台,本站所有文档下载所得的收益归上传人(含作者)所有。装配图网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对上载内容本身不做任何修改或编辑。若文档所含内容侵犯了您的版权或隐私,请立即通知装配图网,我们立即给予删除!