算法与程序设计VB知识点一、数据类型Integer 整型Long 长整型Single 单精度实型Double 双精度实型String 字符型二、常量与变量1、常量的定义Const 常量名 as 类型=表达式2、变量的定义Dim 变量名 as 类型三、运算符1、算术运算符+ - * / ^ \ mod2、字符运算符& +3、关系运算符>, >= , < , <= , <> , =4、逻辑运算符And not or四、函数1、sin(x)2、cos(x)3、fix(x)4、int(x)5、sqr(x)6、abs(x)五、赋值语句格式：变量=表达式六、输入语句变量=inputbox(““，““)七、输出语句Print 容八、条件语句1、If 条件 then 语句2、If 条件 then 语句1 else 语句2 或者：1、 If 条件 then 语句End if2、 If 条件 then语句1Else语句2End if九、循环语句1、for 循环变量=初值 to 终值循环体Next 循环变量2、do while (until) 条件循环体Loop或者do循环体Loop while (until) 条件第一课时一、VB的简单介绍VB是visual basic 的简称，是一种可视化的程序工具。
VB的界面介绍及相关控件和窗口的介绍：1、控件工具箱（标签、文本框、按钮控件）2、设计窗口3、属性窗口（强调标签的caption、font属性，文本框的text属性,按钮的caption、font 属性）4、代码窗口二、程序的初步尝试编写1、设计界面2、进入代码窗口，编写如下程序：Private Sub Command1_Click()Dim a,b,c as integera=text1.textb=text2.textc=a*btext3.text=c[或者text3.text=text1.text*text2.text]End Sub3、运行程序单击“运行”——“启动”4、对程序进行调试，查看运行结果5、思考：对程序进行修改，将“*”修改为“-”或者“/”后运行程序。
若修改为“+”呢。
第二课时一、数据类型1、integer 整型只能够表示-32768——32767之间的整数。
2、long 长整型只能够表示-2147483648——2147483647之间的整数3、single 单精度实型可以用来表示小数4、string 字符型例如：”zhongguo”,”中国”，”123456”案例1：求1×2×3×……×10的值。
Private Sub Command1_Click()Dim i As integerDim s as integers = 0i = 1For i = 1 To 10s = s * iNext iPrint sEnd Sub案例2：求圆的面积Private Sub Command2_Click()Const pi As Single = 3.14Dim r As SingleDim s As Singler = InputBox("r=")s = pi * r * rPrint "圆的面积s="; sEnd Sub二、运算符1、算术运算符^（乘方）、*、/、\(整除)、mod(取余)、+、- 2、关系运算符>、>=、<、<=、=、<>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)结果是-5int(4.5)结果是4Fix(x) 取整Fix(4.5) 结果是4Fix(-4.5) 结果是-4Cint(x)/clng(x) 四舍五入取整四、表达式例题：a=1,b=3,c=2,求x1=a acb b24 2-+-,x2=a acb b24 2---的值。
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 = 1b = 3c = 2X1 = (-b + Sqr(b ^ 2 - 4 * a * c)) / (2 * a)X2 = (-b - Sqr(b ^ 2 - 4 * a * c)) / (2 * a)Print X1Print X2End 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) / 2Print "Max="; MaxEnd 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 * cPrint "全面积S="; s, "体积v="; vEnd Sub第四课时程序的选择结构一、条件语句的格式1、If 条件 then 语句2、If 条件 then 语句1 else 语句2或者：1、 If 条件 then语句End if2、 If 条件 then语句1Else语句2End if案例1：比较a 和b 的大小，并输出最大的值。
Private Sub Command1_Click()a=inputbox(“a=”)b=inputbox(“b=”) if a> b thenprint “a=”;aelseprint “b=”;bend ifEnd Sub案例2：某商场为了对苹果进行促销，规定购买2千克以上可以在原价每千克1.5元的基础上打8折。
请设计一个程序计算购买x千克苹果的应付款。
Private Sub Command1_Click()X=inputbox(“x=”,”请输入苹果的重量”)If x>2 thenY=1.5*0.8*xElseY=1.5*xEnd ifPrint “苹果的应付款为”;y;”元”End Sub第五课时程序的循环结构循环结构的格式1、for 循环变量=初值 to 终值循环体Next 循环变量2、do while (until) 条件循环体Loop或者do循环体Loop while (until) 条件案例1：求1+2+3+……+100的值Private Sub Command1_Click()Dim I as integerDim s as integerS=0For i=1 to 100S=s+iNext iPrint “s=”;sEnd Sub案例2：已知s=1+2+3+……+n,找出一个最大的整数n,使得s<30000.编写程序解决这个问题Private Sub Command1_Click()n=0S=0Do while s<30000n=n+1S=s+nLoopPrint n-1End SubDO循环语句四种形式的比较案例：判断一个大于2的自然数M是否是素数，如果是素数，则输出“这是一个素数！”，否则输出“这不是一个素数！”Private Sub Command1_Click()Dim M as integer, I as integerM=Inputbox(“输入一个数：”)I=2Do until (M mod I=0) or (i=M-1)I=I+1LoopIf M mod I=o thenPrint M;”不是素数”ElsePrint M;”是素数”End ifEnd sub循环的嵌套Private Sub Command1_Click()Dim se As StringPrint Tab(35); "乘法表"For I = 1 To 9For j = 1 To 9se = I & "×" & j & "=" & I * jPrint Tab((j - 1) * 9); se;Next j Next I End Sub。