VB程序设计上机实验指教now.docVIP

VB6.0程序设计上机实验指导 实验一、VB控制结构 Private Sub Form_Click() I = 10 Print I End Sub Private Sub Form_Click() Dim I% I = 10 Print I End Sub Option Explicit Private Sub Form_Click() I = 10 Print I End Sub Option Explicit Private Sub Form_Click() Dim I% I = 10 Print I End Sub 练习二：在应用程序的代码窗口中分别输入以下三段代码，当程序运行时在窗体上反复单击，分别会发生什么情况，为什么？ Private Sub Form_Click() Dim n As Integer n = n + 1 Print n End Sub Private Sub Form_Click() Static n As Integer n = n + 1 Print n End Sub Dim n As Integer Private Sub Form_Click() n = n + 1 Print n End Sub 练习三：求出下列表达式的值。（通过建立应用程序验证计算结果） Format(6543.21,##,###.000) Str(Int(-2.3)+Sgn(6)+Sqr(25)) CHR(ASC(+)) Int(-17.8) + Fix(-17.8) + Sgn(-17.8) 二、选择语句 程序1：创建应用程序。要求：单击窗体可弹出输入框，任意输入三个数，然后按从小到大的顺序输出到窗体上。 程序代码见附录。 提示： 可以使用函数InputBox()输入数据，使用Print方法在窗体上显示数据。 想一想： 排序的算法是怎样的；你能想到的排序算法有哪些？如果要排序的数有很多，应该怎么编程? 附：Print方法的使用 功能： 在窗体显示文本。 语法： Print [outputlist] 参数： outputlist 可选。要打印的表达式或表达式的列表。如果省略，则打印一空白行，相当于起回车换行的作用。 在任何一个表达式后面都可以使用分号（;）或逗号（,），或者在最后一个表达式后面不跟任何字符，指定下个字符的输出位置。使用分号 (;) 直接将输出位置定位在上一个被显示的字符之后。使用逗号（,）将输出位置定位在下一个打印区的起始位置。如果省略，则在下一行打印下一字符。 如果在具有缺省显示空间的模块外使用此方法，则需要 object。如果在窗体模块上进行调用，则会在窗体上显示“outputlist”。 程序2：创建应用程序。要求：单击窗体可弹出一输入框，任意输入一个正整数，在窗体上显示该整数是否为素数的字样。 提示： 素数是指这样一种正整数，除了1和它本身外，其他正整数都不能整除它。 可以使用循环语句，循环初值设为2，终值设为n-1（n为要判别的数；终值是否有更好的选择？），让n除循环变量，有除尽的就不是素数，否则是素数。 可以使用算术运算符“MOD”来判别一个数是否可以被另一个数整除（算术运算符“MOD”的使用见本实验程序4附的内容） 程序代码见附录。 想一想： 判别一个数是否为素数的最佳算法是怎样的。 三、循环语句 程序3：创建应用程序。要求：单击窗体可显示一个由“*”组成的平行四边形图案，如下图所示。 提示： 可以通过函数Spc(n)或Tab(n)来定位，或者利用函数Space(n)在输出的内容前加空格，来控制输出的位置。 程序代码见附录。 想一想： 如果将显示的平行四边形图案改成如下两图所示，该如何修改程序。 说明： 杨辉三角形中每个位置的值可以用数组求，也可以使用组合（即n！/m!/(n-m)!）求。 附：函数Spc(n)、Tab(n)、Space(n)的使用 功能： 函数Spc(n)与Print # 语句或Print方法一起使用，对输出进行定位。 函数Tab(n)与Print # 语句或Print方法一起使用，对输出进行定位。 函数Space(n)返回特定数目空格的String。 语法： Spc(n) Tab[(n)] Space(n) 参数： Spc(n)中参数n是在显示或打印列表中的下一个表达式之前插入的空白数。必选参数。 Tab[(n)]中参数n是在显示或打印列表中的下一个表达式之前移动的列数。若省略此参数，则 Tab 将插入点移动到下一个打印区的起点。这就使 Tab 可用来替换区域中的逗号。可选的参数。 Space(n)中参数n为字符串中想要的空格数。必要参数。 Spc(n)与Spa