• 一个富翁试图与陌生人做一笔换钱生意， 换钱规则为：陌生人每天给富翁10万元钱， 直到满30天，而富翁一天给陌生人1分钱， 第二天2分，第三天4分，……,富翁每天给 陌生人的钱是前一天的2倍，直到满一个月， 分别显示他们相互给的钱的金额？
Private Sub Form_Click() Dim i%, s&, x& x=1 For i = 1 To 30 s=s+x x=2*x Next Print "富翁给陌生人的钱为"; x / 1000000; "万元" Print "陌生人给富翁的钱为"; 30 * 10; "万元" End Sub
Private Sub Command1_Click() Dim i% Picture1.Cls Randomize For i = 1 To 20 a(i) = Int(101 * Rnd) Picture1.Print a(i); If i Mod 4 = 0 Then Picture1.Print Next End Sub
关于print的说明 的说明 关于
• [对象 对象.]print 字符串 对象 中只能出现逗号或者分号 逗号或者 在print 中只能出现逗号或者分号 Tab(n) 确定图形的输出位置 Spc(n)输出字符之间加入几个空格 输出字符之间加入几个空格
选择结构
单分支结构 格式1: 格式1: IF 条件 THEN 语句 格式2: 格式2: IF 条件 THEN 语句 END IF 输入三个任意整数， 输入三个任意整数，将这三个数按由大到小排序后 输出。 输出。 则交换A和 的值 提示： 如果A 提示：①如果 <B,则交换 和B的值 ； 则交换 ②如果A<C,则交换 和A的值 ； 如果 则交换C和 的值 则交换 如果B<C,则交换 和B的值 。 则交换C和 的值 ③如果 则交换
编程求：s= 1+1/2 +1/4 +1/7 +1/11 +1/16 +1/22 +1/29 …，直到最后一项的绝对值小 于0.00001 为止。
参考程序
Dim s As Single Dim i As Integer Dim m As Integer Dim t As Single t=1 s=0 i=0 n=1 Do While t >= 0.00001 s=s+t i=i+1 n=n+i t=1/n Loop Print s
运算符
• • • • • ^ (乘方 ) 乘方 * / (乘 除) 乘 \ （整除） 整除） Mod （取余数 ） 字符连接运算符 + &
优先 级 1 2 3 4 5 6 运算 符 ^ * 、/ \ Mod + 、含义 幂 负数 乘、除 整除 取模 加、减
常用函数
随机函数:产生一个在区间 随机函数 产生一个在区间 [a,b]范围内的随机整数公式 范围内的随机整数公式 dim x% x=int ((b-a+1）*Rnd+a) int ((b-a+1） • 取绝对值 abs(x) • 计算 的x次方 exp(x) 计算e 次方 • 求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)
循环结构
• 计数型循环 （循环次数已知） 循环次数已知） for 循环变量 初值 to 终值 [ step 步长 ] 循环变量=初值 语句 ….. next 循环变量 可缺省，则步长是1 其中 [ step 步长 ] 可缺省，则步长是
数组
动态数组的声明) 先声明再使用数组元素(动态数组的声明 先声明再使用数组元素 动态数组的声明 Dim a(1 to 10) as integer Dim b%(10) 对于数组的元素通过下标来引用 在数组中数组元素的产生和输出都要在FOR循环 循环 在数组中数组元素的产生和输出都要在 中实现
Private Sub Command2_Click() Dim s(5 To 9) As Integer, i%, k% Picture2.Cls For i = 1 To 20 k = a(i) \ 10 Select 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 Select Next i For i = 5 To 9 Picture2.Print "s(" & i & ")的人数有"; s(i); "个" Next End Sub
常量和变量
• 常量的声明 const a=10 • 变量的声明 Dim x as single
通用声明处只能进行常量和变量的声 不能进行变量的赋值。 明，不能进行变量的赋值。变量的赋值 应放在事件过程中。 应放在事件过程中。
Private Sub Form_Click() x = 20.8 ‘不可放在通用声明处 不可放在通用声明处 End Sub
关于选择结构的用法
双分支结构
IF 条件 THEN 语句1 语句1 ELSE 语句2 语句2 END IF
多分支结构 条件1 IF 条件1 THEN 语句1 语句1 条件2 ELSEIF 条件2 THEN 语句2 语句2 条件3 ELSEIF 条件3 THEN 语句3 语句3 ……. . ELSE 语句N 语句N END IF
框架： 框架： 先绘制框架再在其中放置其他对象
顺序结构的说明
• 顺序结构就是程序的执行顺序就是语句的 顺序结构就是程序的执行顺序就是语句的 书写顺序 • inputbox函数的使用 函数的使用 函数 n=val(inputbox(“ ”)) 其中红色部分是必须的 • Msgbox 函数和 函数和Msgbox语句的区别 语句的区别
常见的条件
倍数关系 if x mod 5=0 个位是3 个位是3的数字 if x mod10=3 假设X是一个四位数，其个、 假设X是一个四位数，其个、十、百、千位上的数据提取方法为： 千位上的数据提取方法为： x\ ,x\ x\ x mod 10, x\10 mod 10 ,x\100 mod 10, x\1000 满足条件求个数 z=z+1 满足条件求数的和 sum=sum+x
数组 1、交换（1/6交换 首尾交换） 、交换（ 交换 首尾交换） 交换/首尾交换 假设有10个数组元素 假设有 个数组元素
求最大、最小值的问题 求最大、 大部分编写代码： 分3大部分编写代码： 大部分编写代码 1、用FOR循环产生并输出数组元素（输 、 循环产生并输出数组元素（ 循环产生并输出数组元素 出时的格式控制） 出时的格式控制） 2、取出数组中的第一个元素的值给变量 、 MAX和MIN 和 3、再用一个 FOR循环进行比较 、 循环进行比较
根据条件求解的问题 大部分编写代码： 分2大部分编写代码： 大部分编写代码 1、用FOR循环产生并输出数组元素 、 循环产生并输出数组元素 2、再用一个 FOR循环进行比较条件的 、 循环进行比较条件的 测试，看是否满足条件， 测试，看是否满足条件，再来做相应的 处理。 处理。
• 设有声明语句 Dim b(-1 To 10, 2 To 9, 20) As Integer, 则数组b中全部元素的个数是 • 语句Dim A&(10),B#(10,5)定义了两个数组， 其类型分别为
VB知识点复习总结 知识点复习总结
关于数据类型的说明
• • • • • 符号表示： 整型 Integer 符号表示： % 符号表示： 长整型 Long 符号表示： & 符号表示： 单精度 Single 符号表示： ! 符号表示： 双精度 Double 符号表示： # 符号表示： $ 字符串 String 符号表示：
• 随机产生 个学生的成绩，统计各分数段人数，即 随机产生20个学生的成绩，统计各分数段人数， 个学生的成绩 0-59，60-69，70-79，80-89、90-100，并显示结 ， ， ， 、 ， 产生的数据在picture1显示，统计结果在 显示， 果，产生的数据在 显示 picture2显示 显示. 显示 • 分析：本程序有两个事件过程，都要用到存放 个 分析：本程序有两个事件过程，都要用到存放20个 学生的数组，因此学生成绩数组在通用声明段声明， 学生的数组，因此学生成绩数组在通用声明段声明， 在command2事件过程中声明一个数组 事件过程中声明一个数组 s(5 to 9),分别存放分数段的人数 分别存放分数段的人数
常用控件的属性
窗体 caption MaxButton MinButton 文本框 (text MaxLength , PasswordChar MultiLine) 文本框没有caption 属性 文本框没有caption 按钮： caption , Cancel ,default, Style 按钮： 标签： caption 标签：
• 编写命令按钮"计算"的单击事件过程。 • 要求在文本框1中输入n的值，单击命令按 钮，求1^0+3^1+5^2+7^3+……+(2n-1) ^(n1)的值，并将结果放入标签2中。结果为长 整型。 • 将窗体文件和工程文件分别保存在K盘件过程。 要求在文本框1中输入n的值，单击命令按 钮，求1/2+2/3+3/5+4/8+5/12……前n项的 和，并将结果放入标签2中。结果为单精度 型。 • (3)将窗体文件和工程文件分别以 将窗体文件和工程文件分别以 vb2f04.frm和vb2p04.vbp保存在 盘根目 保存在K盘根目 和 保存在 录上。 录上。