|
第23节 BASIC语言基础知识
1． BASIC的打印语句：（Print
语句）
格式： Print <输出项1> ,|；<输出项1> ,|；<输出项1> ,|；<输出项1>
……………
功能：输出表达式的值或把字符串照原样输出。
说明：各输出项可以是表达式或字符串，输出项之间可以用“逗号”或“分号”分??
隔，“逗号”分隔为标准格式输出格式，“分号”分隔为紧凑输出格式。
标准输出格式举例：
Rem 标准输出格式
Private Sub Form_Activate() 'VB的窗体激活事件
Print
15 - 2, 15 + 2, 15 *
2, 15/2 '表达式之间逗号分隔
Print
15 Mod 2, 15 \ 2, 15 ^ 2 '请观察标准输出格式
Print
"2+3=", "2/3=" '字符串之间用逗号分隔
Print "abcd", "efgh"
End
Sub
程序的运行结果：
13 17 30 7.5
1 7 225
2+3= 2/3=
abcd efgh
紧凑输出格式举例：(把上例中的“逗号”全部改成“分号”后观察程序运行结果)
Rem 紧凑输出格式
Private
Sub Form_Activate()
'VB的窗体激活事件
Print
15 - 2; 15 + 2; 15 * 2; 15 / 2
'表达式之间分号分隔
Print
15 Mod 2; 15 \ 2; 15 ^ 2 '请观察紧凑输出格式
Print
"2+3="; "2/3=" '字符串之间用分号分隔
Print
"abcd"; "efgh"
End
Sub
程序的运行结果：
13 17 30 7.5
1 7 225
2+3=2/3=
abcdefgh
混合输出格式举例：
Rem 混合输出格式
Private
Sub Form_Activate()
Print
"15乘以2等于";
15 * 2, "15除以2等于";
15 / 2
Print "15/2的余数是"; 15 Mod 2, "15/2的整数商是：";
15 \ 2
Print "15的2次方等于"; 15 ^ 2
Print "2+3=";
2 + 3, "2/3="; 2 / 3
End Sub
程序的运行结果：
15乘以2等于 30 15除以2等于 7.5
15/2的余数是 1 15/2的整数商是 7
15的2次方等于 225
2+3= 5 2/3= .666666666666667
2． BASIC的算术表达式：
BASIC表达式的运算顺序是由高级运算到低级运算。BASIC算术表达式的运算和运算顺序如下：
|
运算顺序（由高到低）
|
算术运算符
|
算术运算
|
|
1
|
（
）
|
括号
|
|
2
|
函数式
|
函数
|
|
3
|
-
|
符号
|
|
4
|
^
|
乘方
|
|
5
|
* /
|
乘法
除法
|
|
6
|
\
|
整除
|
|
7
|
Mod
|
求余数
|
|
8
|
+ -
|
加法
减法
|
例：判断下列表达式的计算结果
1*2+3
4\2^2
8 Mod 3*Fix(2.5)
8 Mod 3*Int(2.7)
程序：
Rem 算术表达式
Private
Sub Form_Activate()
Print
1 * 2 + 3
Print
4 \ 2 ^ 2
Print
8 Mod 3 * Fix(2.5)
Print
8 Mod 3 * Int(2.7)
End
Sun
程序的运行结果：
5
1
2
2
3． BASIC的数值函数（部分常用）
|
部分常用函数
|
函数功能
|
函数举例
|
|
函数式
|
函数值
|
|
Fix（x）
|
取x的整数部分
|
Fix（-3.6）
|
-3
|
|
Int（x）
|
求不大于x的最大整数
|
Int（-3.6）
|
-4
|
|
Abs（x）
|
求x的绝对值
|
Abs（-3.6）
|
3.6
|
|
Sqr（x）
|
求x的算术平方根
|
Sqr（9）
|
3
|
4． BASIC的赋值语句
变量是存放数据的地方（存储空间），将数据存入变量的过程称为给变量提供数据，赋值语句是给变量提供数据的语句之一。
变量是以变量名为标识的，给变量起名字的规则如下：
- 变量名由首字符为字母的字母、数字和下划线字符组成。
- 变量名不能是BASIC的专用词。
赋值语句的格式： <变量名>=<表达式>
赋值语句的功能：计算赋值号“=”右边表达式的值，并将表达式的计算结果存入“=”左边的变量中。
说明：
- 赋值语句中的“=”为赋值号；
- 赋值号右边的表达式可以是常量、变量或表达式；
- 赋值语句执行的动作是先计算后赋值。
例：读程序写出程序的运行结果
|
（1）
Private Sub Form_Activate()
s = 5
Print s
s = s + 2
Print s
s = s * 2
Print s
End Sub
运行结果：
5
7
14
|
（2）
Private Sub Form_Activate()
A = 10
Print "A="; A - 2
A = A - 3
Print "A="; A
End Sub
运行结果：
A= 8
A= 7
|
|