算法与程序设计
VB知识点
数据类型
Integer 整型
Long 长整型
Single 单精度实型
Double 双精度实型
String 字符型
常量与变量
1、常量的定义
Const 常量名 as 类型=表达式
2、变量的定义
Dim 变量名 as 类型
运算符
算术运算符
+ - * / ^ \ mod
字符运算符
& +
关系运算符
>, >= , < , <= , <> , =
4、逻辑运算符
And not or
函数
sin(x)
cos(x)
fix(x)
int(x)
sqr(x)
abs(x)
赋值语句
格式:
变量=表达式
输入语句
变量=inputbox(“ “,“ “)
输出语句
Print 内容
条件语句
1、If 条件 then 语句
2、If 条件 then 语句1 else 语句2
或者:
1、 If 条件 then
语句
End if
2、 If 条件 then
语句1
Else
语句2
End if
循环语句
for 循环变量=初值 to 终值
循环体
Next 循环变量
do while (until) 条件
循环体
Loop
或者
do
循环体
Loop while (until) 条件第一课时
VB的简单介绍
VB是visual basic 的简称,是一种可视化的程序工具。
VB的界面介绍及相关控件和窗口的介绍:
控件工具箱(标签、文本框、按钮控件)
设计窗口
属性窗口
(强调标签的caption、font属性,文本框的text属性,按钮的caption、font 属性)
代码窗口
程序的初步尝试编写
设计界面
2、进入代码窗口,编写如下程序:
Private Sub Command1_Click()
Dim a,b,c as integer
a=text1.text
b=text2.text
c=a*b
text3.text=c
[或者text3.text=text1.text*text2.text]
End Sub
运行程序
单击“运行”——“启动”
对程序进行调试,查看运行结果
思考:对程序进行修改,将“*”修改为“-”或者“/”后运行程序。若修改为“+”呢。
第二课时
数据类型
1、integer 整型 只能够表示-32768——32767之间的整数。
——
3、single 单精度实型 可以用来表示小数
4、string 字符型 例如:”zhongguo”,”中国”,”123456”
案例1:求1×2×3×……×10的值。
Private Sub Command1_Click()
Dim i As integer
Dim s as integer
s = 0
i = 1
For i = 1 To 10
s = s * i
Next i
Print s
End Sub
案例2:求圆的面积
Private Sub Command2_Click()
Const pi As Single = 3.14
Dim r As Single
Dim s As Single
r = InputBox("r=")
s = pi * r * r
Print "圆的面积s="; s
End Sub
运算符
算术运算符
^(乘方)、*、/、\(整除)、mod(取余)、+、-
关系运算符
>、>=、<、<=、=、<>
3、字符运算符
&、+
4、逻辑运算符
Not 、and、 or
案例:若a=5,b=7,c=-2,d=1,求下列式子的结果
a+b>c+d and a>=5 or not c>0 or d<0
函数
Sqr(x) x的平方根
Abs(x) x的绝对值
Int(x) 不大于x的最大整数
int(-4.5)结果是-5
int(4.5)结果是4
Fix(x) 取整
Fix(4.5) 结果是 4
Fix(-4.5) 结果是 -4
Cint(x)/clng(x) 四舍五入取整
表达式
例题:a=1,b=3,c=2,求x1= EMBED Equation.3 ,x2= EMBED Equation.3 的值。
X1=(-b+sqr(b^2-4*a*c))/(2*a)
X2=(-b-sqr(b^2-4*a*c))/(2*a)
Private Sub Command1_Click()
a = 1
b = 3
c = 2
X1 = (-b + Sqr(b ^ 2 - 4 * a * c)) / (2 * a)
X2 = (-b - Sqr(b ^ 2 - 4 * a * c)) / (2 * a)
Print X1
Print X2
End Sub
第三课时 程序的顺序结构
一、赋值语句
赋值语句的基本格式:
变量=表达式
这里“=”是赋值符号,它的含义是将表达式的值赋给左边的变量
二、输入函数
格式: inputbox(提示信息,标题,默认值,位置)
例如:
Private Sub Command1_Click()
A = InputBox("A=", "输入", 12, 100, 20)
End Sub
三、输出函数
格式: print 输出内容
说明:
1、如果输出的内容是数、变量、表达式,则输出的是它们的值。如果是用引号引起来的字符串,则原样输出。
2、输出内容可以是一个或多个。如果是多个,则输出内容之间可以用逗号或分号分隔;如果用分号,则后面一个输出紧跟前一个输出;如果是逗号,则按照分区格式输出。
3、如果输出内容后面没有符号,则表示下一个PRINT换行输出;如果Print中没有输出内容,则表示输出一个空行。
案例1:(书本第38页)
Private Sub Command1_Click()
a = Val(InputBox("a=", "输入"))
b = Val(InputBox("b=", "输入"))
Max = (a + b) / 2 + Abs(a - b) / 2
Print "Max="; Max
End Sub
案例:2:已知长方体的长宽高,求长方体的全面积和体积。
Private Sub Command1_Click()
a = InputBox("a=")
b = InputBox("b=")
c = InputBox("c=")
s = 2 * (a * b + a * c + b * c)
v = a * b * c
Print "全面积S="; s, "体积v="; v
End Sub
第四课时 程序的选择结构
一、条件语句的格式
1、If 条件 then 语句
2、If 条件 then 语句1 else 语句2
或者:
1、 If 条件 then
语句
End if
2、 If 条件 then
语句1
Else
语句2
End if
案例1: