文档介绍：

运城学院公共计算机教学部.docx运城学院公共计算机教学部实验报告(2010/2011学年第一学期)课程名称VisualBasic程序设计实验名称实验六数组实验类型验证性/设计性课内实验学时4课外实验学时4实验时间2010-11-25星期四下午五六节课实验地点1707系(专业)中文系文秘专业班级学号09学生姓名李冰莹实验总分12指导教师杨立一、实验目的和要求(1) 熟练掌握数组的基木操作。(2) 灵活运用动态数组。(3) 常握数组的常用算法。(4) 常握控件数组的使用方法。、实验环境(实验设备)硬件:微型计算机软件:VisualBasic集成开发环境三、实验原理及内容1:1(下面题目教师根据各班实际情况布置,分课内部分和课外部分,在题目后面注明)实验题目1:用数组结构编写程序,用输入对话框输入十个正整数,统计其屮的奇数和与偶数和。实验题目1源程序代码及运行界面:mand1Click()Dimsum%,i%,a%(lTo10),js%Fori=1To10a(i)=InputBox(z,请输入第〃&i&〃个数:〃)Ifa(i)Mod2=0Thensum=sum+a(i)Elsejs二js+a(i)EndIfNextiPrint〃偶数和为:〃&sumPrint〃奇数和为:"&jsEndSub・For>l口回冈偶数和为:20088奇数和为:18731显示实验题目2:用数组结构编写程序,利用随机函数生成20个100^200之间的随机整数,然后寻找并输出能同吋被5和4整除的数,再求这些数(能同吋被5和4整除的数)的和。实验题目2源程序代码及运行界面:mand1_Click()Dimi%,sum%,a(lTo20)CisFori=1To20a(i)=Int(101*Rnd+100)Ifa(i)Mod5=0Anda(i)Mod4=0Thensum=sum+a(i)Printa(i)EndIfNextiPrint"这些数的和为:"&sumEndSub实验题目3:设计一学生成绩管理系统,要求如下:输入学生成绩的个数通过文本框输入成绩用InputBox函数输入将输入的成绩在图片框中显示岀来在文本框屮分别显示出其屮的的最高分、最低分和平均分。界面如下所示:□问冈冠Foral实验题目3源程序代码及运行界面:OptionBase1Dima$(),s!mand1_CIick()Dimi%n=Text1.TextReDima(n)Fori=1Tona(i)=InputBoxC*请输入第”&i&”个学生成绩“,喊绩输入“)Ifa(i)>100Ora(i)<0ThenMsgBox”您输入的成绩有误,请重新输入”,64,“提示“a(i)=I叩utBox(”请输入第”&i&”个学生成绩“,“成绩输入“)EndIfs=s+a(i)Picture1.Printa(i),mand2_Click()Dimi%,max%,min%n=Textl.Textmax=a(l):min=a(l)Fori=2TonIfmaxa(i)Thenmin=a(i)NextText2.Text=maxText3.Text=minText4.Text=s/mand3_Click()EndEndSub实验题目4:编程题,从键盘丄输入n个学生成绩,在图片框屮输出;求其平均成绩,并输出高于平均成绩的学生。求成绩屮最高分并输出其位置。在3出插入“70”成绩,将4处成绩删除。实验题目4源程序代码及运行界面:OptionExplicitOptionBase1Dima(),n%,i%mand1_Click()Dims&,k%,max%,j%n二Val(Text1.Text)ReDima(n)Fori=1Tona(i)=VaKInputBoxC*请输入第”&i&”个学生的成绩“,”输入提示“))Whilea(i)<0Anda(i)>100MsgBox“您输入的数据有误,请重新输入“,16,“提示“a(i)=Val(InputBox(“请输入第”&i&”个学生的成绩“,”输入提示”))WendPicture1.Printa(i)s=s+a(i)NextText2.Text=s/nFori=1TonIfa(i)>Val(Text2.Text)ThenText3.Text=Text3-Text&a(i)&Space(2)Ifmax

内容来自淘豆网www.taodocs.com转载请标明出处.