visualbasic可视化程序的设计教程循环结构程序的设计.ppt

代码如下： Private Sub Form_Click() A = 0 B = 1 Text1.Text = Text1.Text Str(A) Str(B) Chr(13) Chr(10) For I = 1 To 9 A = A + B B = A + B Text1.Text = Text1.Text Str(A) Str(B) Chr(13) Chr(10) Next I End Sub 在该过程中，在循环开始之前，先设置数列中的前两二个数 0 和 1 ，并显示于文本框 Text1 中，而每次循环产生的数列的后两个数， 同时将这两个数附加到文本框中。每次在文本框中显示两个数后 ，使用 Chr （ 13 ）与 Chr （ 10 ）产生换行。共循环 9 次，产生 18 个 数。 【例 6.11 】单击窗体时，在窗体上作出正弦函数 y=sin （ x ）的草 图。 正弦函数草图 分析：程序中是采用连续的星号来 组成函数曲线的。因为输出时只能 从上到下逐行输出，所以，为了实 现的方便，在这个题目中是将屏幕 的垂直方向作为 X 轴，水平方向作 为 Y 轴。 程序代码如下： Private Sub Form_Click() For x = 0 To 6.2