vb标准课时第04章 VB基本语句(8学时)[精品].ppt

4. 字符转换 例：字符加密。将由大写英文字母组成的字符串的每个字符的ASCII代码转换成二进制，按位与指定密钥进行异或运算，把得到的结果转换成十进制数，再转换成对应的加密字符 分析：其中一个字符的转换 获取每个字母的ASCii码（ASC函数，取子串函数） 将十进制ASCII码转换成二进制ASCII码。 再行异或运算 再转换成对应的字符（chr函数） 连接成字符串 * 5. 递推法 递推法：就是将一个复杂的计算过程转化为简单过程的多 次重复。 例：猴子吃桃子 小猴在一天摘了若干个桃子，当天吃掉一半多一个，以后每天吃掉剩下的桃子的一半多一个，到第七天要吃时只剩下一个了，问小猴那天共摘了几个桃子 Xn-1 Xn= ------ -1 2 * 实验－赋值语句 2. 建立登录窗口 3. 一家水果店出售苹果、桔子、香蕉和菠萝四种水果，编一程序，输入价格和重量，输出应付金额。 4. 要求单击窗体时，在窗体上显示系统当前的日期。 输出格式为“×年×月×日星期×” 1. 根据输入的半径长度，计算圆的周长和面积 * 实验－分支语句 1. 求z的值，z 本题能否用select case语句替换实现？为什么？ 2. 实验5-2 3. 货币兑换（实验书5-4） 4. 计算运费（实验书5-5） * 5. 编写一个高速公路收费程序 不同的车行不同的里数，收费标准不同。小型客车收费系数为1，大型客车的收费系数为1.5，货车的收费系数为2，当行程不超过100Km时，应付费＝20×收费系数，当行程不超过200Km时，应付费＝40×收费系数收费，当行程不超过300Km时，应付费＝60×收费系数收费当行程超过300Km时，应付费＝80×收费系数收费 实现：选择不同的车型，在text1中输入行使的里数，单击“确定”按钮，在text2中显示其应付费。 ex+y x0，y0 e2x-y 0=x1，y=0 lnx x=1 * 实验－循环结构(一) 1.6-1求素数 2.6-3求近似值 3.6-4,求字串的长度，反序 4.分析下列程序的运行结果，并得出相应的结论 Private Sub Form_Click() Dim M As Integer,N As Integer Dim K As Integer N=-3：k=0 For M=6 To k Step N M=M+1 N=N-M K=K+1 Next M Print K Print N End Sub Private Sub Form_Click() Dim a As Integer a=1 Do until a=100 a=a+2 loop Print a End Sub * 实验－循环结构(二) 1.6-5，读程序 2.编程找出1~100之间的所有完数 完数：一个数等于其各因子之和，如6=1+2+3 3.求满足如下条件的三位数，它除以11所得的商等于各位数字的平方和 * 思考题 2. 程序要求：在窗体上有一个文本框和一个命令按钮，在文本框中输入“红”，单击命令按钮，即可在窗体上绘制一个红色的圆，依此类推，将绘制绿、蓝、黄等，若输入其他色，在窗体上输出“该程序不能识别此颜色”，同时绘制黑色的圆。 提示：VB中的表示常用颜色常量为： vbRed、vbYellow、 vbGreen、vbBlue、 vbBlack 1. 从窗体上输入A、B、C三个数，按照由大到小的顺序在窗体输出 3. 比较If－then－elseif语句和select case语句的相同与不同之处，并举例说明在什么情况下用If－then－elseif设计的程序不能转换成用select case语句设计的程序 * 练习 . 在多窗体的应用程序中，当前窗体模块的Form_Click事件过程中包含如下语句,单击该窗体,其中___32___一定可以将Hello显示在当前窗体上。 A. Form1.Print HelloB. Me.Print HelloC. Debug.Print HelloD. Form2.Print Hello * * * 总 · 结 赋值语句 条件语句 变量名=表达式 对象.属性=表达式 变量=对象.属性 变量赋值： 属性赋值： 1. If…Then 结构 2. If…Then…Else 结构 3. If…Then…ElseIf 结构 4. Select Case 结构 * §4.4 循环结构 循环