VB程序设计上机实验指导now.doc

、VB控制结构[实验目的]掌握选择语句的使用掌握循环语句的使用[实验内容]一、VB编程基础练习一:在应用程序的代码窗口中分别输入以下四段代码,当程序运行时在窗体上单击,分别会发生什么情况,为什么?PrivateSubForm_Click()I=10PrintIEndSubPrivateSubForm_Click()DimI%I=10PrintIEndSubOptionExplicitPrivateSubForm_Click()I=10PrintIEndSubOptionExplicitPrivateSubForm_Click()DimI%I=10PrintIEndSub练习二:在应用程序的代码窗口中分别输入以下三段代码,当程序运行时在窗体上反复单击,分别会发生什么情况,为什么?PrivateSubForm_Click()DimnAsIntegern=n+1PrintnEndSubPrivateSubForm_Click()AsIntegern=n+1PrintnEndSubDimnAsIntegerPrivateSubForm_Click()n=n+1PrintnEndSub练习三:求出下列表达式的值。(通过建立应用程序验证计算结果)Format(,"##,###.000")Str(Int(-)+Sgn(6)+Sqr(25))CHR(ASC("+"))Int(-)+Fix(-)+Sgn(-)二、选择语句程序1:创建应用程序。要求:单击窗体可弹出输入框,任意输入三个数,然后按从小到大的顺序输出到窗体上。程序代码见附录。提示:可以使用函数InputBox()输入数据,使用Print方法在窗体上显示数据。想一想:排序的算法是怎样的;你能想到的排序算法有哪些?如果要排序的数有很多,应该怎么编程?附:Print方法的使用功能:在窗体显示文本。语法:Print[outputlist]参数:outputlist 可选。要打印的表达式或表达式的列表。如果省略,则打印一空白行,相当于起回车换行的作用。在任何一个表达式后面都可以使用分号(;)或逗号(,),或者在最后一个表达式后面不跟任何字符,指定下个字符的输出位置。使用分号(;)直接将输出位置定位在上一个被显示的字符之后。使用逗号(,)将输出位置定位在下一个打印区的起始位置。如果省略,则在下一行打印下一字符。如果在具有缺省显示空间的模块外使用此方法,则需要object。如果在窗体模块上进行调用,则会在窗体上显示“outputlist”。程序2:创建应用程序。要求:单击窗体可弹出一输入框,任意输入一个正整数,在窗体上显示该整数是否为素数的字样。提示:素数是指这样一种正整数,除了1和它本身外,其他正整数都不能整除它。可以使用循环语句,循环初值设为2,终值设为n-1(n为要判别的数;终值是否有更好的选择?),让n除循环变量,有除尽的就不是素数,否则是素数。可以使用算术运算符“MOD”来判别一个数是否可以被另一个数整除(算术运算符“MOD”的使用见本实验程序4附的内容)程序代码见附录。想一想:判别一个数是否为素数的最佳算法是怎样的。三、循环语句程序3:创建应用程序。要求:单击窗体可显示一个由“*”组成的平行四边形图案,如下图所示。提示:可以通过函数