VB知识点复习总结实用教案

1、关于(guny)数据类型的说明 整型 Integer 符号表示(biosh)： % 长整型 Long 符号表示(biosh)： & 单精度 Single 符号表示(biosh)： ! 双精度 Double 符号表示(biosh)： # 字符串 String 符号表示(biosh)： $第1页/共27页第一页，共28页。常量(chngling)和变量 常量的声明常量的声明 const a=10 const a=10 变量的声明变量的声明 Dim x as single Dim x as single 通用声明处只能进行通用声明处只能进行(jnxng)(jnxng)常量和变量的声明，不能进

2、行常量和变量的声明，不能进行(jnxng)(jnxng)变量的变量的赋值。变量的赋值应放在事件过程中。赋值。变量的赋值应放在事件过程中。 Private Sub Form_Click() Private Sub Form_Click() 不可放在通用声明处不可放在通用声明处 End Sub End Sub第2页/共27页第二页，共28页。运算符 (乘方乘方 ) * / (乘乘 除除) （整除（整除(zhngch)） Mod （取余数（取余数 ） 字符连接运算符字符连接运算符 + &优先优先级级运算运算符符含义含义1 1 幂幂2 2 - -负数负数3 3* *、/ /乘、除乘、除4 4

3、整除整除5 5ModMod取模取模6 6+ +、- -加、减加、减第3页/共27页第三页，共28页。随机函数:产生一个在区间(q jin) a,b范围内的随机整数公式 dim x% x=int (b-a+1）*Rnd+a)取绝对值 abs(x)计算e 的x次方 exp(x)求X的平方根， sqr(x)Int(x), fix(x), round(x)val(x)，str(y)Trim(s), Left(s,n), right(s,n), mid(s,n1,n2)常用(chn yn)函数第4页/共27页第四页，共28页。常用(chn yn)控件的属性l 窗体 caption MaxButton M

4、inButton caption MaxButton MinButtonl 文本框 (text MaxLength , PasswordChar MultiLine) (text MaxLength , PasswordChar MultiLine) 文本框没有caption caption 属性l 按钮： caption , Cancel ,default, Style caption , Cancel ,default, Style l 标签： caption caption l 框架(kun ji)(kun ji)： 先绘制框架(kun ji)(kun ji)再在其中放置其他对象第5页/

5、共27页第五页，共28页。顺序(shnx)结构的说明顺序结构就是程序的执行顺序就是语句的书写顺序inputbox函数的使用(shyng) n=val(inputbox(“ ”) 其中红色部分是必须的Msgbox 函数和Msgbox语句的区别第6页/共27页第六页，共28页。关于(guny)print的说明 对象.print 字符串 在print 中只能出现(chxin)逗号或者分号 Tab(n) 确定图形的输出位置 Spc(n)输出字符之间加入几个空格第7页/共27页第七页，共28页。选择(xunz)结构单分支单分支(fnzh)(fnzh)结构结构格式格式1: 1: IF IF 条件条件 TH

6、EN THEN 语句语句格式格式2: 2: IF IF 条件条件 THEN THEN 语句语句 END IF END IF 输入三个任意整数，将这三个数按由大到小排输入三个任意整数，将这三个数按由大到小排序后输出。序后输出。提示：如果提示：如果A B,A B,则交换则交换A A和和B B的值的值 ；如果如果AC,AC,则交换则交换C C和和A A的值的值 ； 如果如果BC,BC,则交换则交换C C和和B B的值的值 。第8页/共27页第八页，共28页。关于选择结构(jigu)的用法双分支双分支(fnzh)(fnzh)结构结构 IF IF 条件条件 THEN THEN 语句语句1 1 ELSE

7、ELSE 语句语句2 2 END IF END IF 第9页/共27页第九页，共28页。多分支多分支(fnzh)(fnzh)结构结构 IF IF 条件条件1 THEN 1 THEN 语句语句1 1 ELSEIF ELSEIF 条件条件2 THEN2 THEN 语句语句2 2 ELSEIF ELSEIF 条件条件3 THEN3 THEN 语句语句3 3 . . ELSE ELSE 语句语句N N END IF END IF 第10页/共27页第十页，共28页。常见(chn jin)的条件倍数关系倍数关系if x mod 5=0 if x mod 5=0 个位个位(gwi)(gwi)是是3 3的数

8、字的数字if x mod10=3if x mod10=3假设假设X X是一个四位数，其个、十、百、千位上的数据提取方法为：是一个四位数，其个、十、百、千位上的数据提取方法为：x mod 10, x10 mod 10 ,x100 mod 10, x1000 x mod 10, x10 mod 10 ,x100 mod 10, x1000满足条件求个数满足条件求个数z=z+1z=z+1满足条件求数的和满足条件求数的和sum=sum+xsum=sum+x第11页/共27页第十一页，共28页。循环(xnhun)结构 计数型循环 （循环次数(csh)已知） for 循环变量=初值 to 终值 step

9、步长 语句 . next 循环变量 其中 step 步长 可缺省，则步长是1第12页/共27页第十二页，共28页。数组先声明再使用数组元素(动态数组的声明)Dim a(1 to 10) as integerDim b%(10)对于数组的元素通过下标来引用(ynyng) 在数组中数组元素的产生和输出都要在FOR循环中实现第13页/共27页第十三页，共28页。数组1 1、交换(jiohun)(jiohun)（1/61/6交换(jiohun)/(jiohun)/首尾交换(jiohun)(jiohun)） 假设有1010个数组元素第14页/共27页第十四页，共28页。求最大、最小值的问题(wnt)(w

10、nt)分3大部分编写代码：1、用FOR循环产生(chnshng)并输出数组元素（输出时的格式控制）2、取出数组中的第一个元素的值给变量MAX和MIN3、再用一个 FOR循环进行比较第15页/共27页第十五页，共28页。根据条件求解(qi ji)(qi ji)的问题分2大部分编写(binxi)代码：1、用FOR循环产生并输出数组元素2、再用一个 FOR循环进行比较条件的测试，看是否满足条件，再来做相应的处理。第16页/共27页第十六页，共28页。 设有声明语句 Dim b(-1 To 10, 2 To 9, 20) As Integer, 则数组b中全部(qunb)元素的个数是 语句Dim A&

11、amp;(10),B#(10,5)定义了两个数组，其类型分别为第17页/共27页第十七页，共28页。 编写命令按钮计算的单击事件(shjin)过程。 要求在文本框1中输入n的值，单击命令按钮，求10+31+52+73+(2n-1) (n-1)的值，并将结果放入标签2中。结果为长整型。 将窗体文件和工程文件分别保存在K盘根目录上第18页/共27页第十八页，共28页。 编写命令按钮“计算”的单击事件过程。要求在文本框1中输入(shr)n的值，单击命令按钮，求1/2+2/3+3/5+4/8+5/12前n项的和，并将结果放入标签2中。结果为单精度型。 (3)将窗体文件和工程文件分别以和保存在K盘根目录

12、上。第19页/共27页第十九页，共28页。编程求：s= 1+1/2 +1/4 +1/7 +1/11 +1/16 +1/22 +1/29 ，直到最后(zuhu)一项的绝对值小于0.00001 为止。第20页/共27页第二十页，共28页。Dim s As SingleD i m i A s IntegerD i m m A s IntegerDim t As Singlet = 1s = 0i = 0n = 1 参考(cnko)程序 s = s + t i = i + 1 n = n + i t = 1 / n Loop Print s第21页/共27页第二十一页，共28页。 一个富翁(fwng)

13、试图与陌生人做一笔换钱生意，换钱规则为：陌生人每天给富翁(fwng)10万元钱，直到满30天，而富翁(fwng)一天给陌生人1分钱，第二天2分，第三天4分，,富翁(fwng)每天给陌生人的钱是前一天的2倍，直到满一个月，分别显示他们相互给的钱的金额？第22页/共27页第二十二页，共28页。Private Sub Form_Click()Dim i%, s&, x&x = 1For i = 1 To 30s = s + xx = 2 * xNextPrint 富翁(fwng)给陌生人的钱为; x / 1000000; 万元Print 陌生人给富翁(fwng)的钱为; 30 * 1

14、0; 万元End Sub第23页/共27页第二十三页，共28页。 随机产生20个学生的成绩，统计各分数段人数，即0-59，60-69，70-79，80-89、90-100，并显示结果，产生的数据在picture1显示，统计结果在picture2显示. 分析：本程序有两个事件过程，都要用到存放20个学生的数组，因此学生成绩数组在通用(tngyng)声明段声明，在command2事件过程中声明一个数组 s(5 to 9),分别存放分数段的人数第24页/共27页第二十四页，共28页。Private Sub Command1_Click()Dim i%RandomizeFor i = 1 To 20

15、a(i) = Int(101 * Rnd) Picture1.Print a(i);NextEnd Sub第25页/共27页第二十五页，共28页。Private Sub Command2_Click()Dim s(5 To 9) As Integer, i%, k%For i = 1 To 20k = a(i) 10Select Case k Case 0 To 5 s(5) = s(5) + 1 Case 9 To 10 s(9) = s(9) + 1 Case 6 To 8 s(k) = s(k) + 1 存放其他3个分数段的数组元素的下标有规 律，根据K获得(hud)End SelectNext iFor i = 5 To 9 Picture2.Print s( & i & )的人数有; s(i); 个NextEnd Sub第26页/共27页第二十六页，共28页。感谢您的观看(gunkn)！