VB实验二实验报告.doc

《VB实验二实验报告.doc》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、实验报告二课程VB程序设计实验项目循环、数组结构程序设计(6学时)成绩专业班级环境工程1班姓名朱鹏华学号201431040384实验日期2015/4/15实验目的（1）掌握基本循环控制结构（For-Next、While-Wend、Do-Loop）语句（2）掌握循环嵌套结构（3）掌握素数算法（4）掌握控制结构相关控件（列表框、组合框等）（5）能综合运用循环控制结构解决较复杂的问题实验内容【实验1】编写一个简易计算器编写程序计算S=1+1/2+1/4+1/7+1/11+1/16+1/22+…当第i项的值<10-5时计算结束结束。实验结果：【实验1代

2、码】PrivateSubForm_Load()Form1.AutoRedraw=Truec=1s=1Dob=b+1c=c+ba=1/cs=a+si=i+1LoopWhilea>=10^-5Print"第"&i-1&"项结束"Print"答案是";s-aEndSub【实验1典型结果】【实验2】将200~300之间的素数输出到列表框中实验结果：【实验2代码】PrivateSubCommand1_Click()Fori=200To300Forj=2ToInt(Sqr(i))IfiModj=0ThenExitForNextIfj=Int(Sqr(i))

3、+1ThenList1.AddItemStr(i)NextEndSub【实验2典型结果】【实验3】编写程序，在窗体上输出上三角形式的九九乘法表。实验结果：【实验3代码】PrivateSubForm_Load()Form1.AutoRedraw=TrueFori=1To9Forj=1Tois=i&"*"&j&"="&i*jPrints,NextPrintNextEndSub【实验3典型结果】【实验4】从键盘输入10个整数，存放在一个一维数组中，然后将前5个元素与后5个元素交换，即第1个与第10个交换，第2个与第9个交换……实验结果：【实验4代码】

4、OptionBase1PrivateSubForm_Load()Form1.AutoRedraw=TrueDima(10)Fori=1To10a(i)=InputBox("请输入整数")NextFori=1To4k=a(i):a(i)=a(11-i):a(11-i)=kNextFori=1To10Printa(i)NextEndSub【实验4典型结果】【实验5】静态声明一个二维数组，输入和输出该数组各元素的值要求：1.计算并输出数组主对角线和次对角线元素的和。2.交换1、3行后输出整个数组的值3.交换数组的行与列后输出整个数组的值实验结果：【实

5、验5代码】OptionBase1PrivateSubCommand1_Click()Dima(5,5)Fori=1To5Forj=1To5a(i,j)=j+(i-1)*5NextNextPrint"原数组为"Fori=1To5Forj=1To5PrintTab((j-1)*9+1);a(i,j);NextPrintNextFori=1To5s=s+a(i,i)NextFori=1To5n=n+a(i,6-i)NextPrintPrint"主对角线的和为："&sPrint"次对角线的和为："&sPrintPrint"1、3行交换后的数组为"For

6、j=1To5k=a(1,j):a(1,j)=a(3,j):a(3,j)=kNextFori=1To5Forj=1To5PrintTab((j-1)*9+1);a(i,j);NextPrintNextPrintPrint"行列交换后的数组为"Forj=1To5Fori=1To5PrintTab((i-1)*9+1);a(i,j);NextPrintNextEndSub【实验5典型结果】【实验6】编写程序，将随机产生的1000个[1000,99999]范围内的随机整数存入数组，然后分别用“比较交换法”、“选择法”、“冒泡法”进行升序排序实验结果：【

7、实验6代码】OptionBase1PrivateSubForm_Load()Form1.AutoRedraw=TrueEndSubPrivateSubCommand1_Click()'比较交换法ClsDima(1000)Fori=1To1000a(i)=Int(Rnd*99000+1000)NextRandomizeFori=1To999Forj=i+1To1000Ifa(i)>a(j)Thenk=a(i):a(i)=a(j):a(j)=kNextNextPrint"1.比较交换法"Fori=1To1000IfiMod17=0ThenPrint

8、a(i),PrintElsePrinta(i),EndIfNextEndSubPrivateSubCommand2_Click()'选择法ClsDim