把n的初值设为m，则随着m的增加，n取值的个数就减少?? 简单简单简单简单简单简单简单简单简单 简单简单简单简单简单简单简单简单 简单简单简单简单简单简单简单 简单简单简单简单简单简单 简单简单简单简单简单 简单简单简单简单 简单简单简单 简单简单 简单
要是把n的终值设为m（初值为1）呢??这离打印九九乘法表还有多远？
31
设计15 三个格式函数
在print语句中，我们学会了用逗号和分号控制显示内容的格式。这还远不能满足实际需要。
1、有时我们需要在显示的内容之间留出确定数量的空格，就使用SPC( )函数。如
For n=1 to 10
Print “#”;spc(20);”#” Next n
打印出的图案如右图。
图17 用spc( )的效果
2、有时我们要指定的位置显示内容，就使用TAB( )函数。如 For n=1 to 10
Print tab(n); “#”;spc(20);”#” Next n
打印出的图案如右图。
图18 用tab( )的效果
注意这里代码中都是使用分号，它纯粹起分隔的作用。
32
3、有时我们要按照一定的格式显示一个量，就使用FORMAT( )函数。如 Print format(2.71828,”#.##”)
Print format(13009000.84,”$0##,###,###.#”) Print format(time,”hh:mm:ss a/p”) Print format(Date,”y-m-d”)
“y-m-d” 格式显示的年份部分是天数。你可以试着用两个y、三个y看看分别对应着什么样的年份格式；再依次试着对月份加m，对日加d，看看效果。
关于格式字符串中符号的用法大家自己去想象、试验、查资料，这里罗列出来没多大意思。
小小思考：
1、你能按你想象的格式做个带日历的时钟吗？ 2、你能设计出显示下面的图案的程序吗？
图19 用格式函数
33
设计16 循环控制数组
要用到同一性质的一组变量时，最好用数组。如记录一个学生的入学平均成绩以及第一、第二、??、第六学期平均成绩用数组
Pj(0)，Pj(1)，Pj(2)，Pj(3)，Pj(4)，Pj(5)，Pj(6)
就这样声明：
Dim pj(6) as single
要是不记入学平均成绩，就这样声明：
Dim pj(1 to 6) as single
用数组的好处是可以简化代码。如要输出各个学期的平均成绩可以用循环结构的代码：
For n=1 to 6 Print pj(n) Next n
有时候要处理一个表格的数据，如一个学生各个学期各门课的成绩
学期 课 程 1 2 3 4 5 1 2 3 4 Cj(1,1) Cj(1,2) Cj(1,3) Cj(1,4) Cj(1,5) … … Cj(4,1) … … …
… … … … … … … … Cj(4,5) 就要用到两个下标的数组，第一个下标是学期序号，第二个下标是课程序号。因为两个下标都不是从0开始的，就这样声明这个二维数组：
Dim cj(1 to 4，1 to 5) as single
二维数组一般用二重循环控制，外循环控制第一个下标，内循环控制第二个下标，这样处理数据就是逐行进行的。
你能利用循环输入和输出数组的数据吗？
34
?第八单元 多窗体多行文本
设计17 设计登录界面
文本框的PasswordChar属性的设置可以使文本框成为密码输入框。 我们现在来制作一个应用程序的登录界面，运行效果如下图。
图20 登录界面
第一步：新建一个标准EXE工程，把窗体调到适当大小，上浅蓝底色，标题换成“欢迎登录”。
第二步：制作标题分别为“欢迎使用本系统！”、“用户：”、“密码：”三个标签，适当选择字体、字号、透明性等。
第三步：制作两个文本框，适当放大字号，设置Text属性为空，并设置密码文本框的PasswordChar属性值为*。
第四步：制作两个命令按钮登录和取消。将取消按钮的Cancel（取消）属性值设置为Ture. 这样，按取消按钮就和按ESC键一样的效果（一个窗体上只允许一个按钮这样设置）。
第五步：新建另一个窗体Form2，标题为“主窗体”，内容随意。
35