VB知识点复习总结省公共课一等奖全国赛课获奖课件.pptx

VB知识点复习总结知识点复习总结第1页关于数据类型说明关于数据类型说明整型整型 Integer 符号表示：符号表示：%长整型长整型 Long 符号表示：符号表示：&单精度单精度 Single 符号表示：符号表示：!双精度双精度 Double 符号表示：符号表示：#字符串字符串 String 符号表示：符号表示：$第2页常量和变量常量和变量常量申明常量申明 constconst a=10 a=10变量申明变量申明 DimDim x as single x as single 通用申明处只能进行常量和变量申明，通用申明处只能进行常量和变量申明，不能进行变量赋值。不能进行变量赋值。变量赋值应放在事变量赋值应放在事件过程中。件过程中。Private Sub Form_Click()x=20.8 不可放在通用申明处不可放在通用申明处 End Sub第3页运算符运算符 (乘方乘方)*/(乘乘 除除)（整除）（整除）Mod （取余数（取余数）字符连接运算符字符连接运算符 +&优先优先级级运算运算符符含义含义1 1 幂幂2 2-负数负数3 3*、/乘、除乘、除4 4 整除整除5 5ModMod取模取模6 6+、-加、减加、减第4页随机函数随机函数:产生一个在区间产生一个在区间 a,b范围内随机整数公式范围内随机整数公式 dim x%x=int(b-a+1int(b-a+1）*Rnd+a)*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)惯用函数惯用函数第5页惯用控件属性l窗体窗体 caption MaxButton MinButton caption MaxButton MinButtonl文本框文本框(text MaxLength,PasswordChar(text MaxLength,PasswordChar MultiLine)文本框没有文本框没有caption caption 属性属性l按钮：按钮：caption,caption,Cancel,default,Style l标签：标签：caption caption l框架：框架：先绘制框架再在其中放置其它对象先绘制框架再在其中放置其它对象第6页次序结构说明次序结构说明次序结构次序结构就是程序执行次序就是语句书写就是程序执行次序就是语句书写次序次序inputbox函数函数使用使用 n=val(inputbox(“”)其中红色部分是必须其中红色部分是必须Msgbox 函数和函数和Msgbox语句区分语句区分第7页关于关于print说明说明对象对象.print 字符串字符串 在在print 中只能出现中只能出现逗号逗号或者或者分号分号Tab(n)确定图形输出位置确定图形输出位置Spc(n)输出字符之间加入几个空格输出字符之间加入几个空格第8页选择结构单分支结构单分支结构格式格式1:1:IF IF 条件条件 THEN THEN 语句语句格式格式2:2:IF IF 条件条件 THEN THEN 语句语句 END IF END IF 输入三个任意整数，将这三个数按由大到小排序后输入三个任意整数，将这三个数按由大到小排序后输出。输出。提醒：提醒：假如假如A B,则交换则交换A和和B值值；假如假如AC,则交换则交换C和和A值值；假如假如B=0.00001 s=s+t i=i+1 n=n+i t=1/n Loop Print s第22页一个富翁试图与陌生人做一笔换钱生意，换钱规则为：陌生人天天给富翁10万元钱，直到满30天，而富翁一天给陌生人1分钱，第二天2分，第三天4分，,富翁天天给陌生人钱是前一天2倍，直到满一个月，分别显示他们相互给钱金额？第23页Private Sub Form_Click()Dim i%,s&,x&x=1For i=1 To 30s=s+xx=2*xNextPrint 富翁给陌生人钱为;x/1000000;万元Print 陌生人给富翁钱为;30*10;万元End Sub第24页随机产生随机产生20个学生成绩，统计各分数段人数，即个学生成绩，统计各分数段人数，即0-59，60-69，70-79，80-89、90-100，并显示结果，并显示结果，产生数据在产生数据在picture1显示，统计结果在显示，统计结果在picture2显示显示.分析：本程序有两个事件过程，都要用到存放分析：本程序有两个事件过程，都要用到存放20个个学生数组，所以学生成绩数组在通用申明段申明，学生数组，所以学生成绩数组在通用申明段申明，在在command2事件过程中申明一个数组事件过程中申明一个数组 s(5 to 9),分别存放分数段人数分别存放分数段人数第25页Private Sub Command1_Click()Dim i%Picture1.ClsRandomizeFor i=1 To 20 a(i)=Int(101*Rnd)Picture1.Print a(i);If i Mod 4=0 Then Picture1.PrintNextEnd Sub第26页Private Sub Command2_Click()Dim s(5 To 9)As Integer,i%,k%Picture2.ClsFor 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取得End SelectNext iFor i=5 To 9 Picture2.Print s(&i&)人数有;s(i);个NextEnd Sub第27页