实验报告课程VisualBasic程序设计实验项目过程专业班级姓名学号实验日期指导教师成绩实验目的：（1）掌握Function过程的定义和调用（2）掌握过程之间参数传送的方法（3）掌握Sub过程定义和调用（4）理解变量和过程的作用域实验内容：（1）编写Function函数过程，用于判断一个数据是否为素数，若是，返回True，否则返回False。单击窗体中命令按钮，调用该过程，找出200~500范围内所有素数，并将所有素数添加在列表框中。要求：窗体文件保存为sy8-1.frm，工程文件保存为sy8-1.vbp.程序代码：PrivateSubCommand1_Click()Fori=200To500m=sushu(i)Ifm=TrueThenList1.AddItemiEndIfNextiEndSubPrivateFunctionsushu(a)Fori=2Toa-1IfaModi=0ThenExitForEndIfNextiIfi>a-1Thensushu=TrueElsesushu=FalseEndIfEndFunction（2）编写程序，利用Sub过程，计算两个整数的最大公约数和最小公倍数。单击命令按钮command1完成两个整数的输入。最大公约数、最小公倍数的计算通过调用sub过程完成，最后在窗体上输出最大公约数和最小公倍数。要求：窗体文件保存为sy8-2.frm，工程文件保存为sy8-2.vbp。程序代码：PrivateSubCommand1_Click()m=InputBox("请输入一个整数")n=InputBox("请再次输入一个整数")Callqiu(m,n,u,v)Print"最大公约数:";u,"最小公倍数:";vEndSubPrivateSubqiu(m,n,u,v)a=mb=nr=aModbDoIfr<>0Thena=bb=rr=aModbEndIfLoopWhiler<>0u=bv=m*n/uEndSub（3）编写程序，利用sub过程完成任意数组的升序排序。单击命令按钮command1完成数组的输入，调用sub过程完成对数组的升序排序，并将结果输出到窗体上。要求：窗体文件保存为sy8-3.frm，工程文件保存为sy8-3.vbp。程序代码：DimnAsIntegerPrivateSubCommand1_Click()Dima()n=InputBox("请输入数组中的元素总数")ReDima(1Ton)Fori=1Tona(i)=Val(InputBox("请输入数组中的元素"))NextiFori=1TonPrinta(i);NextiPrintPrint"升序排序后的数组："Callpaixu(a())Fori=1TonPrinta(i);NextiEndSubPrivateSubpaixu(a())Fori=1Ton-1Forj=nToi+1Step-1Ifa(j)<a(j-1)Thent=a(j)a(j)=a(j-1)a(j-1)=tEndIfNextjNextiEndSub