1、 Microsoft Small Basic 编程入门 第一章 入门 Small Basic 与编程 计算机编程被定义为使用编程语言创建计算机软件的过程。就像我们可以说并且理解英语,西班牙语或者法语,计算机能理解用特定语言写成的程序。这些特定语言被称为编程语言。最初,只有很少几种编程语言,并且它们都非常容易学习和理解。但是随着计算机和软件变得越来越精深,编程语言发展很快,并且随之汇集了更复杂的概念。从而造成现代大部分编程语言以及相关的概念对于初学者掌握起来而言颇具挑战性。这一事实已经开始阻碍人们学习或尝试计算机编程。 Small Basic 是一门针对初学者设计的使编程变
2、得非常容易,亲切,有趣的编程语言。Small Basic 的目的 在于消除障碍,充当通往令人惊奇的计算机编程世界的踏脚石。 Small Basic 环境 让我们从对 Small Basic 环境的一个快速介绍开始。当你第一次运行 SmallBasic.exe,你会看到一个如下图所示的窗口。 图 1 - Small Basic 环境 这就是 Small Basic 环境,我们将在这里编写和执行我们的 Small Basic 程序。这个环境有几个截然不同的部分。图中已经用数字标出。 编辑器,即标记为[1]的部分,我们将用来写我们的 Small Basic 程序。当你打开一个
3、示例程序或者一个先前保存过的程序,它将显示在这个编辑器里。这样你就可以对其进行更改并且保存以备后用。 你也可以同时打开和工作在多个程序上。每个打开的程序将被显示在单独的编辑器里。包含你当前正工作在上面的程序的编辑器被称为活动编辑器。 工具栏,即标记为[2]的部分,是被用来向活动编辑器或环境发布命令的。随着我们的进展,我们将学到工具栏中各种各样的命令。 表面,即标记为[3]的部分,用来放置所有编辑器窗口。 我们的第一个程序 既然你已经熟悉了 Small Basic 环境,我们将进而在里面开始编程。正如我们刚刚在上面提到的,编辑器是我们写程序的地方。所以,让我们先在编辑器里
4、输入下面这行。 TextWindow.WriteLine("世界你好") 这是我们的第一个 Small Basic 程序。如果你输入正确,你应该看到与下图相似的结果。 图 2 – 第一个程序 既然我们已经输入了我们的新程序,让我们来运行它看看会发生什么。我们可以通过点击工具栏上的运行按钮或者使用键盘上的F5快捷键来运行我们的程序。如果一切顺利,我们的程序将运行并得到如下图所示的结果。 图 3 – 第一个程序的输出 在你输入你的第一个程序时,你可能已经注意到一个弹出窗口及一列条目(图 4)。这被称作 “intellisense”(智能感知)。它帮助你能更快的输
5、入你的程序。你可以通过按上/下箭头键来遍历这个列表。当你找到你想要的,你可以按回车键来将选中的条目插入到你的程序中。 恭喜!你已经编写并运行了第一个 Small Basic 程序。一个非常简单的小程序,然而却是通向成为一个真正计算机程序员的一大步!现在,在继续创建更大的程序之前,还有一个细节需要了解。我们必须要了解刚刚发生了什么—— 我们到底告诉了计算机什么并且计算机是如何知道要做什么的?在下一章,我们将分析我们刚刚写的程序,从而对其进行理解。 图 4 – Intellisense (智能感知) 保存我们的程序 如果你想关闭 Small Basic 并且打算以后回来在你
6、刚输入的程序上继续工作,你可以保存程序。 随时保存程序实际上是个很好的习惯,以至于你在意外关闭或断电时不会丢失信息。你可以通过点击工具栏上的“保存”图标或者使用快捷键“Ctrl+S”(在按下 Ctrl 键时按 S 键)来保存当前程序。 第二章 解读我们的第一个程序 什么是真正的计算机程序? 一个程序是一组计算机指令。这些指令准确地告诉计算机做什么,并且计算机总是遵循这些指令。就像人们一样,计算机只能遵循用它们能明白的语言指定的指令。这些语言被称为编程语言。有非常多的语言计算机能明白,Small Basic 是其中之一。 假象你和你的朋友之间有个会话。你和你的朋友用词语组成句子
7、来彼此传递信息。相似地,编程语言包含词语的集合用来组成句子来将信息传递给计算机。程序基本上是多组语句(有时很少,有时多达数千)一起用同样的方式 让程序员和计算机彼此明白。 有很多计算机能明白的语言。Java, C++, Python, VB, 等都是强大的现代计算机语言。它们被用来开发简单到复杂的软件程序。 Small Basic 程序 一个典型的 Small Basic 程序由一组语句组成。 程序的每一行代表一条语句。每条语句是给计算机的一条指令。当我们让计算机执行一个 Small Basic 程序时,它取过程序并从第一个语句读起。它明白我们说的是什么,并且执行我们的指令。一旦
8、执行完第一条语句,它回到程序继续读取并执行第二行。如此继续下去直到程序的结尾。至此,我们的程序执行完毕。 回到我们的第一个程序 这是我们写的第一个程序: TextWindow.WriteLine("世界你好") 这是一个非常简单的只包含一条语句的程序。这条语句告诉计算机写一行内容为世界你好的文字到 Text Window。 这条语句在计算机里可逐字翻译成: 写世界你好 你可能已经注意到这条语句可以依次分解成更小的片断,就像句子可以分解成词语一样。在第一条语句中,我们有三个清楚的片段: a) TextWindow b) WriteLine c) “世界你好” 点号
9、圆括号和引号都是必须被放到语句中恰当位置的标点符号,从而使计算机能够明白我们的意图。 标点符号如引号,空格以及圆括号在计算机程序中非常重要。基于它们的位置和数量,它们可以改变所要表达的意思。 你可能还记得在我们运行我们的第一个程序时出现的黑色窗口。这个黑色窗口叫做 TextWindow,有时也被称为控制台。那就是程序的结果输出的地方。TextWindow,在我们的程序中被叫做对象。在我们的程序中有许多这样的对象供我们使用。我们可以对这些对象执行一些不同的操作。在我们的程序里,我们已经使用了 WriteLine 操作。你可能还注意到 WriteLine 操作后面跟着放在引号中的世界你好。这
10、段文字被作为输入传递给 WriteLine 操作,然后打印出来给用户。这被称为对该操作的 一个输入。一些操作接受一个或者多个输入,而其他的则不需要任何输入。 我们的第二个程序 既然你已经明白了我们的第一个程序,让我们继续加一些颜色来让它更新奇。 TextWindow.ForegroundColor = "Yellow" TextWindow.WriteLine("世界你好") 图 5 – 增加颜色 当你运行上面的程序,你将注意到在TextWindow 中输出的还是“世界你好”,但是这次字体是黄色的而不是之前的灰色。 图 6 – 黄色的世界你好 注意加到我们最初的
11、程序中的这条新语句。它使用了一个新单词, ForegroundColor (前景色),我们让它等于 “Yellow”。这意味着我们把“Yellow”指定给 ForegroundColor。现在, ForegroundColor 和 WriteLine 操作的区别是 ForegroundColor 没有接受任何输入而且也没有圆括号。取而代之的是跟了一个等于符号和一个词。 我们定义 ForegroundColor 为 TextWindow 的属性。下面是一些对 ForegroundColor 属性的有效值。试着用它们中的一个替换“Yellow”来看看结果 —— 不要忘记引号,这是必要的。 B
12、lack Blue Cyan Gray Green Magenta Red White Yellow DarkBlue DarkCyan DarkGray DarkGreen DarkMagenta DarkRed DarkYellow 第三章 引入变量 在我们的程序中使用变量 如果我们的程序能够对用户的姓名说“你好”而不只是单纯的“世界你好”,那样不是更好吗?为了能那样做,我们必须首先让用户告知他/她的姓名并将其保存到某个地方,然后输出用户的姓名和“你好”。让我们一起来看看这是如何做到的: TextWindow.Write("输入你
13、的姓名:") name = TextWindow.Read() TextWindow.WriteLine(name + "你好") 当你输入并执行这个程序,你将看到如下输出: 图 7 – 询问用户姓名 当你输入你的姓名并按ENTER 键,你将看到如下输出: 图 8 – 一个温馨的问候 现在,如果你再运行这个程序,你将被再次问同样的问题。你可以输入一个不同的姓名,计算机将对这个姓名说你好。 程序解析 在你刚刚运行的程序中,可能引起你注意的那行程序是: name = TextWindow.Read() Read() 看上去就像 WriteLine(),但是没有
14、输入。它是一个操作并且基本上是告诉计算机等待用户输入些什么并按下 ENTER 键。一旦用户按下 ENTER 键,它将获取用户的输入并将其返回给程序。有趣的一点是无论用户输入的什么,现在都被存放在一个叫 name 的变量中。一个变量被定义为用来临时存储数值以备以后使用的地方。在上面的程序行中,name 被用来存储用户的姓名。 下面的一行也很有趣: TextWindow.WriteLine(name + "你好") Write,与 WriteLine 相似,是 ConsoleWindow 上又一个操作 。Write 允许你向ConsoleWindow写东西,但是后续文本将与当前文本在同一行。
15、 这是我们使用存放在我们的变量,name 中的值的地方。我们取出 name 中的值并将它与“你好”一起写到 TextWindow。 一旦一个变量被设定,你可以多次使用它。例如,你可以如下这么做: TextWindow.Write("输入你的姓名:") name = TextWindow.Read() TextWindow.Write("你好," + name + "。 ") TextWindow.WriteLine("你最近怎么样," + name + "?") 你将会看到如下的输入: 图 9 – 变量重用 变量命名规则 [TODO] 未完成 使用数字
16、我们刚才看到如何用变量存储用户的姓名。在接下来的程序中,我们将看到如何用变量存储和操作数字。让我们从一个非常简单的程序开始: number1 = 10 number2 = 20 number3 = number1 + number2 TextWindow.WriteLine(number3) 当你运行这个程序,你将得到下面的结果: 图 10 – 两数相加 注意数字没有放在引号中。对于数字,不需要引号。只有在使用文本时,才需要引号。 在程序的第一行,你将变量 number1 赋值为10。在第二行,你将变量 number2 赋值为20。在第三行,你将 number1 和 n
17、umber2 相加并将结果赋值给 number3。 因此,在这种情况下, number3 的值将是30。并且这就是我们输出到 TextWindow 的结果。 现在,让我们对程序做轻微的修改并看看结果: number1 = 10 number2 = 20 number3 = number1 * number2 TextWindow.WriteLine(number3) 上面的程序将 number1 与 number2 相乘并将结果存放在 number3 中。你可以看到如下的程序运行结果: 图 11 – 两数相乘 相似的,你可以对数字作减法或除法。这是减法: num
18、ber3 = number1 - number2 除法的符号是‘/’。程序看上去就像这样: number3 = number1 / number2 这个除法的结果是: 图 12 – 两数相除 一个简单的温度转换器 下一个程序我们将用公式 将华氏温度转换成摄氏温度。 首先 ,我们从用户那里得到华氏温度并存放到一个变量中。这里有一个特殊的操作能让我们从用户那里读取数字,它就是 TextWindow.ReadNumber。 TextWindow.Write("输入华氏温度: ") fahr = TextWindow.ReadNumber() 一旦我们有存放在
19、变量中的华氏温度,我们可以像这样将它转换为摄氏温度: celsius = 5 * (fahr - 32) / 9 圆括号告诉计算机先计算 fahr – 32 然后再处理其它的。现在我们需要做的就是将结果输出给用户。将所有这些放到一起,就是我们的程序: TextWindow.Write("输入华氏温度: ") fahr = TextWindow.ReadNumber() celsius = 5 * (fahr - 32) / 9 TextWindow.WriteLine("摄氏温度是 " + celsius) 程序的运行结果是: 图 13 – 温度转换
20、第4章 条件与分支 回到第一个程序。如果我们的程序不仅仅会说“Hello World (你好,世界)”; 而是可以根据一天中的不同时间段说“Good Morning World (早上好,世界)”, 或者“ Good Evening World (晚上好,世界)”,那是不是一件很酷的事情?在下一个程序中, 我们将让计算机能够在中午12点以前说“Good Morning World (早上好,世界)”,在中午12点以后说“Good Evening World (晚上好,世界)”。 If (Clock.Hour < 12) Then TextWindow.Write
21、Line("Good Morning World") EndIf If (Clock.Hour >= 12) Then TextWindow.WriteLine("Good Evening World") EndIf 根据你运行程序的时间,你将会看到下面的某一个输出。 图14 - Good Morning World (早上好,世界) 图 15 - Good Evening World (晚上好,世界) 在Small Basic中,你可以用Clock 对象来访问当前的日期和时间。它还提供了一组属性,使你可以分别得到当前的日、月、年、小时、分钟、秒。
22、 让我们来分析一下程序的前三行。你肯定已经发现这几行程序告诉计算机如果Clock.Hour 小于12 ,就输出“Good Morning World. (早上好,世界。)”。If, Then 和 EndIf 是在程序运行过程中计算机能够理解的特殊语言。If 后面总是会跟一个条件判断。在这个例子中是(Clock.Hour < 12)。记住,为了让计算机理解你的意图,小括号在这里是必须的。条件判断后面跟的是then 和要执行的实际操作。实际操作后面跟的是EndIf , 这告诉计算机这个有条件的执行过程结束了。 在then 和EndIf 之间可能会有不只一个操作。
23、如果条件符合,计算机将会把它们全部执行。例如,你可以写如下程序: If (Clock.Hour < 12) Then TextWindow.Write("Good Morning. ") TextWindow.WriteLine("How was breakfast?") EndIf Else 在这一章最开始的程序中,你可能已经注意到第二个条件有点多余。Clock.Hour 的值只可能小雨或者大于12。 我们不需要真正检查第二个条件。对于这种情况,我们可以通过else ,把两个if..then..endif 语句缩短为一句。 如果我们用else 重写,你
24、将看到的下面的程序: If (Clock.Hour < 12) Then TextWindow.WriteLine("Good Morning World") Else TextWindow.WriteLine("Good Evening World") EndIf 这个程序将和最开始的程序做完全同样的事情。这里我们学到了计算机编程中非常重要的一课: “ 在编程过程中,我们经常可以通过很多方法做同样的事情。很多时候,一种方法比其它的方法更有效。选择哪一种方法是由程序员决定的。当你编写了更多的程序获得了更多的经验后,你就可以了解不同的技术以及它
25、们的优缺点。 Indentation(缩进) 在所有的程序中,你都可以看到If, Else 和 EndIf 是如何缩进的。缩进不是必须的,但它将帮助你更容易的理解程序的结构。因此,在程序块间缩进语句通常是一个很好的习惯。 Even(奇数)或者 Odd (偶数) 现在我们已经学会了 If..Then..Else..EndIf 语句。让我们写一个程序。 当你给出一个数字时,它可以判断是奇数还是偶数。 TextWindow.Write("Enter a number: ") num = TextWindow.ReadNumber() remainde
26、r = Math.Remainder(num, 2) If (remainder = 0) Then TextWindow.WriteLine("The number is Even") Else TextWindow.WriteLine("The number is Odd") EndIf 运行这个程序,你将能看到它的输出如下: 图 16 – 奇数或偶数 在这个程序中,我们引入了一个新的很有用的操作,Math.Remainder 。是的,正如你已经看到的,Math.Remainder 将返回第一个数除以第二个数的余数。 Branchin
27、g (分支) 还记得吗?在第二章中,你知道了计算机按从上到下的顺序一次处理程序中的一个语句。然而,有一种语句可以使计算机不按照顺序执行,而跳到另一条语句。我们看一下下面的程序。 i = 1 start: TextWindow.WriteLine(i) i = i + 1 If (i < 25) Then Goto start EndIf 图 17 – 使用 Goto 在上面的程序中,我们把1付给变量i 。接着,我们加了一个新的语句,它以冒号结束(:) start: 这被称作一个标记。标记就像是一个计算机可以理解的书签。只要你
28、能保证它们的命名是唯一的,你可以任意命名一个标记,而且可以在程序中加入任意多的标记。 另一个有趣的语句是: i = i + 1 这句话告诉计算机把变量i 加1,然后再把结果付回给i 。所以如果原来i 的值是1,在执行这句话之后,i 的值将变成2。 最后, If (i < 25) Then Goto start EndIf 这部分程序告诉计算机,如果i 的值小于25,就开始从标记start执行语句。 Endless execution (无限执行) 使用Goto 语句,你可以让计算机任意多次的执行一些操作。例如,你可以把
29、奇数或偶数的程序改写成下面的样子。程序将永远执行。你可以通过点击命令框右上角的Close(X)来终止程序。 begin: TextWindow.Write("Enter a number: ") num = TextWindow.ReadNumber() remainder = Math.Remainder(num, 2) If (remainder = 0) Then TextWindow.WriteLine("The number is Even") Else TextWindow.WriteLine("The number is Odd") EndIf Got
30、o begin 图 18 – 奇数或偶数程序无限执行 第 5 章 循环 For 循环 让我们再以前面章节用到的代码来举例说明。 i = 1 start: TextWindow.WriteLine(i) i = i + 1 If (i < 25) Then Goto start EndIf 这段代码的运行结果是:按顺序打印数字 1 到 24。在提供了便捷的变量递增方法的编程语言中,这样的变量递增过程是很常见的。以上这段程序与下面的程序输出结果相同: For i = 1 To 24 TextWindow.WriteLine(i) EndFor
31、 输出结果是: 图 19 – 使用 For 循环 请注意,我们将 8 行的程序减少到 4 行,而实际运行结果与 8 行的程序完全相同!还记得前面我们提到的“完成一个任务通常会有多种方法”吗?这就是一个典型的例子。 For..EndFor 在编程术语中被称为一个循环。在循环中可以使用一个变量,给变量赋以初值和终值,并让计算机自动执行变量递增。变量每递增一次,计算机便执行一次 For 到 EndFor 之间的程序。 如果希望变量以 2(而不是以 1)为基准递增,例如,要输出 1 至 24 之间的所有奇数,即可以使用循环来实现。 For i = 1 To 24 Step 2
32、 TextWindow.WriteLine(i) EndFor 图 20 – 仅输出奇数 For 语句中的 Step 2 告诉计算机以 2 为基数对变量 i 递增(而不是以 1)。通过使用 Step 可以根据需要指定任意递增基数。甚至可以指定负增量来进行倒数,示例如下: For i = 10 To 1 Step -1 TextWindow.WriteLine(i) EndFor 图 21 – 倒数 While 循环 While 循环是另一种循环方法,该方法在无法预测循环次数的情况下非常实用。前面介绍的 For 循环按照预先定义的次数执行程序,而 Whil
33、e 循环则是在指定条件为真的情况下重复运行程序。以下示例中,我们将在指定变量大于 1 的情况下,对变量进行等分。 number = 100 While (number > 1) TextWindow.WriteLine(number) number = number / 2 EndWhile 图 22 – 等分循环 在以上程序中,对变量 number 赋以初值 100,在 number 大于 1 的情况下重复运行 While 循环。在循环中,输出 number 的值,再除以 2,对其进行有效地等分。正如预期,程序的输出结果为逐步被等分的序列数字。 因为我们无
34、法事先得知程序要循环运行的次数,如果用 For 循环实现以上程序就会相当困难。通过使用 While 循环,可以方便地检查条件,再确定是否要继续执行循环或退出。 有趣的是,每个 While 循环都可以分解成一组 If..Then 语句。例如,可以将以上程序重写如下,其输出结果相同: number = 100 startLabel: TextWindow.WriteLine(number) number = number / 2 If (number > 1) Then Goto startLabel EndIf 实际上,计算机内部会将每个 While 循环重写成一组带
35、有一个或多个 Goto 语句的 If..Then 语句。 第 6章 图形入门 目前为止,在所有例子中,我们都用TextWindow 解释Small Basic 语言的基础知识。然而,Small Basic 还有一组强大的图形功能。我们将在这章中学习。 GraphicsWindow 引言 就如TextWindow 使我们可以处理 Text (文本)和 Numbers(数字), Small Basic 提供了GraphicsWindow,我们可以用它来画图。让我们从显示Gr
36、aphicsWindow开始。 GraphicsWindow.Show() 当你运行这个程序的时候,你会发现你得到的是一个下图所示的白色Window(窗体),而不是一个通常情况下的空的文本窗体。这个窗体本身没什么用,但这章你所有的工作都将基于它。你可以通过右上角的‘X’来关闭这个窗口。 图 23 – 一个空的 Graphics Window 设置Graphics Window 这个图形窗口允许你根据自己的需要调整它的外观。你可以改变它的标题、背景和大小。让我们继续对它进行一些修改。这将帮助我们熟悉窗体。 GraphicsWindow
37、BackgroundColor = "SteelBlue" GraphicsWindow.Title = "My Graphics Window" GraphicsWindow.Width = 320 GraphicsWindow.Height = 200 GraphicsWindow.Show() 下面是一个个性化的图形窗口的样子。你可以把它的背景颜色改变成附录B 中列出的任意一种颜色。试试这些属性看看窗体的外观是如何改变的。 图 24 – 一个 Custom Graphics Window (个性化图形窗体) 我们使用web颜色符号((#R
38、RGGBB)代表颜色,而不是用名字。例如, #FF0000代表红色, #FFFF00代表黄色,依此类推。 我们将会学更多的关于颜色的知识。[TODO Colors chapter] 画线 一旦你有了 GraphicsWindow,我们可以在它上面画图形、文本甚至是图片。让我们先画一些简单的图形。下面是在Graphics Window 上画两条线的程序。 GraphicsWindow.Width = 200 GraphicsWindow.Height = 200 GraphicsWindow.DrawLine(10, 10, 100, 100) GraphicsW
39、indow.DrawLine(10, 100, 100, 10) 图 25 – 交叉线 这两行程序设置了窗体并且画了两条交叉线。DrawLine 后面紧跟的前两个数字指定了线开始端的x,y坐标;另外两个数字指定了线结束端的x,y坐标。计算机图形中有趣的一件事是(0,0)坐标代表了窗体的左上角。实际上,窗体被认为是在坐标系的第二象限。 [TODO: 插入象限图] 图 26 – 坐标图 如果我们回到画线的程序,有趣的是Small Basic 允许你修改线的属性。比如颜色和它的宽度。首先,我们用下面的程序改变线的颜色。 Grap
40、hicsWindow.Width = 200 GraphicsWindow.Height = 200 GraphicsWindow.PenColor = "Green" GraphicsWindow.DrawLine(10, 10, 100, 100) GraphicsWindow.PenColor = "Gold" GraphicsWindow.DrawLine(10, 100, 100, 10) 图 27 – 改变线的颜色 现在,我们改变大小。在下面的程序中,我们把线的宽度从默认的1改为10。 GraphicsWindow.Width = 200 GraphicsWi
41、ndow.Height = 200 GraphicsWindow.PenWidth = 10 GraphicsWindow.PenColor = "Green" GraphicsWindow.DrawLine(10, 10, 100, 100) GraphicsWindow.PenColor = "Gold" GraphicsWindow.DrawLine(10, 100, 100, 10) 图 28 – 粗的彩色线 PenWidth和PenColor 改变画线的笔。它们不仅影响线,还会影响属性改变后画的所有图形。 使用上一章我们学的循环语句,我
42、们可以轻松的写一个程序。这个程序可以画很多条线。画线用的笔会越来越粗。 GraphicsWindow.BackgroundColor = "Black" GraphicsWindow.Width = 200 GraphicsWindow.Height = 160 GraphicsWindow.PenColor = "Blue" For i = 1 To 10 GraphicsWindow.PenWidth = i GraphicsWindow.DrawLine(20, i * 15, 180, i * 15) endfor 图 29 – 不同的笔的宽度
43、 这个程序有趣的部分是循环语句。每循环一次,我们加大笔的宽度,然后在原来的线下面画一条新线。 画图和填充图形 说到画图形,对于每一个图形通常都有两类操作。它们分别是画操作和填充操作。画操作用笔画出图形的轮廓;填充操作用刷子为图形上色。例如在下面的程序中,有两个矩形。一个是用红笔画出来的,另一个是用绿色的刷子填充的。 GraphicsWindow.Width = 400 GraphicsWindow.Height = 300 GraphicsWindow.PenColor = "Red" GraphicsWindow.DrawRectan
44、gle(20, 20, 300, 60) GraphicsWindow.BrushColor = "Green" GraphicsWindow.FillRectangle(60, 100, 300, 60) 图 30 画图和填充 要画和填充一个矩形,你需要四个数字。前两个代表矩形左上角的X和Y坐标。第三个数字代表矩形的宽度,第四个代表它的高度。 实际上,画和填充椭圆也一样。看下面的程序。 GraphicsWindow.Width = 400 GraphicsWindow.Height = 300 GraphicsWindow.PenColor =
45、"Red" GraphicsWindow.DrawEllipse(20, 20, 300, 60) GraphicsWindow.BrushColor = "Green" GraphicsWindow.FillEllipse(60, 100, 300, 60) 图 31 – 画和填充椭圆 椭圆形是广义上的圆形。如果你像画圆形,你要定义相同的宽度和高度 GraphicsWindow.Width = 400 GraphicsWindow.Height = 300 GraphicsWindow.PenColor = "Red" GraphicsWindow.Dr
46、awEllipse(20, 20, 100, 100) GraphicsWindow.BrushColor = "Green" GraphicsWindow.FillEllipse(100, 100, 100, 100) 图 32 – 圆形 第 7 章 绘制图形 在这一章节中,我们将运用前面学到的知识来做一些有趣的事。在本章的示例中,我们将向你展示几个有趣的方法,让你可以结合目前所学到的全部知识来创建看上去非常酷的应用程序。 矩形 以下的示例利用一个循环语句绘制一组大小逐渐递增的矩形。 GraphicsWindow.BackgroundColo
47、r = "Black" GraphicsWindow.PenColor = "LightBlue" GraphicsWindow.Width = 200 GraphicsWindow.Height = 200 For i = 1 To 100 Step 5 GraphicsWindow.DrawRectangle(100 - i, 100 - i, i * 2, i * 2) EndFor 图 33 – 矩形组 圆形 在前面程序的基础上加以改变,绘制一组圆形(而不是矩形)。 GraphicsWindow.BackgroundColor = "Black
48、" GraphicsWindow.PenColor = "LightGreen" GraphicsWindow.Width = 200 GraphicsWindow.Height = 200 For i = 1 To 100 Step 5 GraphicsWindow.DrawEllipse(100 - i, 100 - i, i * 2, i * 2) EndFor 图 34 – 圆形组 随机的图案 以下程序利用 GraphicsWindow.GetRandomColor 为画笔设置随机颜色,在使用 Math.GetRandomNumber 设置圆形的 x 和
49、 y 座标。这个有趣的程序将两种运算巧妙地结合,每次运行时都可以绘制出不同的图案。 GraphicsWindow.BackgroundColor = "Black" For i = 1 To 1000 GraphicsWindow.BrushColor = GraphicsWindow.GetRandomColor() x = Math.GetRandomNumber(640) y = Math.GetRandomNumber(480) GraphicsWindow.FillEllipse(x, y, 10, 10) EndFor 图 35 – 随
50、机的图案 分形 以下程序使用随机数绘制一个简单的三角分形。分形是一种几何图形,它可以被分割成多个子图形,其中每个子图形都与该分形形状完全相同。在这个示例中,程序将绘制一个由几百个小三角形组成的大三角形,其中每个小三角形都与大三角形完全相同。由于这个程序需要运行几秒钟,我们可以在程序运行时看到三角形从小点开始,逐渐形成大三角形的过程。程序本身的逻辑很难描述,大家可以尝试研究一下。 GraphicsWindow.BackgroundColor = "Black" x = 100 y = 100 For i = 1 To 100000 r = Math.GetRando






