FreeBASIC Primer #1
这本书是为了开始初学者，对于那些刚刚开始学习如何编程和使用FreeBASIC的人来说。
学习编程语言意味着学习写入它们的单词，并知道写入时的意思。我们不需要一下子全部学习。但学习一些重要的话可以帮助我们开始。在这里我们将专注于这些关键字：
没有这个例子，没有初学者参考是完整的。
双引号之间的文本是一个文字字符串。Print语句用于将文本输出到显示。如果你可以编辑，编译和执行这个例子，你就在你的路上。
有时在程序中，我们将要存储一些信息，在内存中，然后再使用它。要在内存中存储某些东西，我们使用一个变量。FreeBASIC中的所有变量都是一些特定的类型，如数字或字符串。我们使用Dim语句来声明一个变量名称，并指定我们要存储在哪个类型的信息。
我们正在使用Dim让编译器知道我们想在我们的程序中使用一个名为text 的变量，我们将把String??数据放在其中。然后我们将（copy）"Hello World!"赋值给变量。最后，我们使用Print将其输出到显示器。
一个expression 是描述可以评估的源代码的一部分的通用术语。在表达式被评估之后，我们可以用它来做某事，比如赋值（复制）到变量中。
我们为变量a 和b 赋值一些数据。然后，我们在一个表达式中使用变量a 和b ，然后将其赋值给text .最后，我们将结果输出到显示。
通常，我们不知道程序需要什么数据，除非用户将其提供给我们。我们不能把它放在我们的源代码中，因为直到用户运行程序并告诉我们它是什么，因为我们不知道它是什么。
这里的Input语句将首先向显示器输出一些信息，然后等待用户给程序一些数据。在这个例子中，我们只是输出回到显示，正是用户输入的内容。
变量和表达式不仅限于字符串。大多数早期的语言根本没有处理字符串。写数学表达式与用铅笔和纸写的方法类似。
我们为变量a ，b 和c 赋值值。我们使用Integer变量的数据类型。整数可以是正数或负数，但没有任何分数。
这与前面的例子相似，只不过我们将让用户选择我们要加在一起的数字。
Dim让编译器知道我们要使用哪些变量名称，并且将要保留Integer数据。我们使用Input获取用户的号码，并显示Print结果。
数字变量不仅限于整数。我们还可以使用Single或Double精确数据类型，可以表示分数。在这个例子中，我们将从用户那里得到一些输入，将磅重量转换为千克。
使用For...Next语句，我们可以让程序重复多次进行某些操作。例如，让我们说我们想将所有的数字从1到100加起来。
程序可以使用If...Then之类的条件语句来选择要执行的语句。我们可以使用变量的值或表达式的结果来决定是否应该执行或不应该执行一个或多个语句。
从用户处获取数字后，我们将根据与该语句匹配的条件输出一个字（正，负或零）。
这里我们将使用另一个循环结构Do...Loop重复一些语句。程序如何知道停止重复这些语句？我们将使用If...Then作出决定何时脱离循环。
学习语言
学习编程语言意味着学习写入它们的单词，并知道写入时的意思。我们不需要一下子全部学习。但学习一些重要的话可以帮助我们开始。在这里我们将专注于这些关键字：
你好，世界！
没有这个例子，没有初学者参考是完整的。
Print "Hello World!"
双引号之间的文本是一个文字字符串。Print语句用于将文本输出到显示。如果你可以编辑，编译和执行这个例子，你就在你的路上。
使用变量存储数据
有时在程序中，我们将要存储一些信息，在内存中，然后再使用它。要在内存中存储某些东西，我们使用一个变量。FreeBASIC中的所有变量都是一些特定的类型，如数字或字符串。我们使用Dim语句来声明一个变量名称，并指定我们要存储在哪个类型的信息。
Dim text As String
text = "Hello World!"
Print text
text = "Hello World!"
Print text
我们正在使用Dim让编译器知道我们想在我们的程序中使用一个名为text 的变量，我们将把String??数据放在其中。然后我们将（copy）"Hello World!"赋值给变量。最后，我们使用Print将其输出到显示器。
在表达式中使用变量
一个expression 是描述可以评估的源代码的一部分的通用术语。在表达式被评估之后，我们可以用它来做某事，比如赋值（复制）到变量中。
Dim a As String, b As String, text As String
a = "Hello"
b = "World"
text = a + " " + b + "!"
Print text
a = "Hello"
b = "World"
text = a + " " + b + "!"
Print text
我们为变量a 和b 赋值一些数据。然后，我们在一个表达式中使用变量a 和b ，然后将其赋值给text .最后，我们将结果输出到显示。
从用户获取输入
通常，我们不知道程序需要什么数据，除非用户将其提供给我们。我们不能把它放在我们的源代码中，因为直到用户运行程序并告诉我们它是什么，因为我们不知道它是什么。
Dim answer As String
Input "Type something and press enter:", answer
Print "You typed: '"; answer; "'"
Input "Type something and press enter:", answer
Print "You typed: '"; answer; "'"
这里的Input语句将首先向显示器输出一些信息，然后等待用户给程序一些数据。在这个例子中，我们只是输出回到显示，正是用户输入的内容。
做一些数学
变量和表达式不仅限于字符串。大多数早期的语言根本没有处理字符串。写数学表达式与用铅笔和纸写的方法类似。
Dim a As Integer, b As Integer, c As Integer
a = 5
b = 7
c = a + b
Print "a = "; a
Print "a = "; b
Print "a + b = "; c
a = 5
b = 7
c = a + b
Print "a = "; a
Print "a = "; b
Print "a + b = "; c
我们为变量a ，b 和c 赋值值。我们使用Integer变量的数据类型。整数可以是正数或负数，但没有任何分数。
用输入法做一些数学
这与前面的例子相似，只不过我们将让用户选择我们要加在一起的数字。
Dim a As Integer, b As Integer, r As Integer
Input "Enter a number:", a
Input "Enter another number:", b
r = a + b
Print "The sum of the numbers is "; r
Input "Enter a number:", a
Input "Enter another number:", b
r = a + b
Print "The sum of the numbers is "; r
Dim让编译器知道我们要使用哪些变量名称，并且将要保留Integer数据。我们使用Input获取用户的号码，并显示Print结果。
用输入法更多数学
数字变量不仅限于整数。我们还可以使用Single或Double精确数据类型，可以表示分数。在这个例子中，我们将从用户那里得到一些输入，将磅重量转换为千克。
Dim lb As Single, kg As Single
Input "Enter a weight in pounds:", lb
kg = lb * 0.454
Print lb; " lb. is equal to "; kg; " kg"
Input "Enter a weight in pounds:", lb
kg = lb * 0.454
Print lb; " lb. is equal to "; kg; " kg"
重复声明
使用For...Next语句，我们可以让程序重复多次进行某些操作。例如，让我们说我们想将所有的数字从1到100加起来。
Dim total As Integer
Dim number As Integer
total = 0
For number = 1 To 100
total = total + number
Next
Print "The sum of number from 1 to 100 is "; total
Dim number As Integer
total = 0
For number = 1 To 100
total = total + number
Next
Print "The sum of number from 1 to 100 is "; total
作出决定
程序可以使用If...Then之类的条件语句来选择要执行的语句。我们可以使用变量的值或表达式的结果来决定是否应该执行或不应该执行一个或多个语句。
Dim number As Integer
Input "Enter a number : ", number
Print "Your number is ";
If number < 0 Then
Print "negative"
ElseIf number > 0 Then
Print "positive"
Else
Print "zero"
End If
Input "Enter a number : ", number
Print "Your number is ";
If number < 0 Then
Print "negative"
ElseIf number > 0 Then
Print "positive"
Else
Print "zero"
End If
从用户处获取数字后，我们将根据与该语句匹配的条件输出一个字（正，负或零）。
重复声明（再次）
这里我们将使用另一个循环结构Do...Loop重复一些语句。程序如何知道停止重复这些语句？我们将使用If...Then作出决定何时脱离循环。
Dim total As Single, count As Single, number As Single
Dim text As String
Print "This program will calculate the sum and average for a"
Print "list of numbers. Enter an empty value to end."
Print
Do
Input "Enter a number : ", text
If text = "" Then
Exit Do
End If
count = count + 1
total = total + Val(text)
Loop
Print
Print "You entered "; count; " numbers"
Print "The sum is "; total
If count <> 0 Then
Print "The average is "; total / count
End If
Dim text As String
Print "This program will calculate the sum and average for a"
Print "list of numbers. Enter an empty value to end."
Do
Input "Enter a number : ", text
If text = "" Then
Exit Do
End If
count = count + 1
total = total + Val(text)
Loop
Print "You entered "; count; " numbers"
Print "The sum is "; total
If count <> 0 Then
Print "The average is "; total / count
End If
参考