高中VB知识点汇总.doc

算法与程序设计VB知识点一、 数据类型Integer 整型Long 长整型Single 单精度实型Double 双精度实型String 字符型二、 常量与变量1、常量的定义Const 常量名 as 类型=表达式2、变量的定义Dim 变量名 as 类型三、 运算符1、 算术运算符+ - * / mod 2、 字符运算符& +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 if 2、 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.text指的是文本框1中输入的内容，然后将输入的内容赋值给变量ab=text2.textc=a*btext3.text=c或者text3.text=text1.text*text2.textEnd Sub3、 运行程序单击“运行”“启动”4、 对程序进行调试，查看运行结果5、 思考：对程序进行修改，将“*”修改为“-”或者“/”后运行程序。若修改为“+”呢。第二课时一、 数据类型1、integer 整型 只能够表示-3276832767之间的整数。2、long 长整型 只能够表示-21474836482147483647之间的整数3、single 单精度实型 可以用来表示小数4、string 字符型 例如：”zhongguo”,”中国”，”123456”案例1：求12310的值。Private Sub Command1_Click()Dim i As integerDim s as integers = 0i = 1For i = 1 To 10 s = s * iNext iPrint sEnd 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=; sEnd Sub二、 运算符1、 算术运算符（乘方）、*、/、(整除)、mod(取余)、+、-2、 关系运算符、=、=、=、3、字符运算符&、+4、逻辑运算符Not 、and、 or案例：若a=5,b=7,c=-2,d=1,求下列式子的结果a+bc+d and a=5 or not c0 or d b then print “a=”;a elseprint “b=”;b end if End Sub案例2：某商场为了对苹果进行促销，规定购买2千克以上可以在原价每千克1.5元的基础上打8折。请设计一个程序计算购买x千克苹果的应付款。Private Sub Command1_Click() X=inputbox(“x=”,”请输入苹果的重量”) If x2 then Y=1.5*0.8*xElse Y=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 integer Dim s as integer S=0 For i=1 to 100S=s+i Next iPrint “s=”;sEnd Sub案例2：已知s=1+2+3+n,找出一个最大的整数n,使得s30000.编写程序解决这个问题Private Sub Command1_Click() n=0 S=0 Do while s30000 n=n+1 S=s+n Loop Print n-1End SubDO循环语句四种形式的比较条件判断放在循环语句的开头部分条件判断放在循环语句的结尾部分所列条件满足时执行循环所列条件满足时退出循环所列条件满足时执行循环所列条件满足时退出循环Do while 条件 循环体LoopDo until 条件 循环体LoopDo 循环体Loop while 条件Do 循环体Loop until 条件案例：判断一个大于2的自然数M是否是素数，如果是素数，则输出“这是一个素数！”，否则输出“这不是一个素数！”Private Sub Command1_Click() Dim M as integer, I as integer M=Inputbox(“输入一个数：”) I=2 Do until (M mod I=0) or (i=M-1)I=I+1 Loop If M mod I=o then Print M;”不是素数” Else Print M;”是素数” End ifEnd sub循环的嵌套Private Sub Command1_Click() Di