VB程序设计4程序控制结构与算法基础.pptVIP

赋值语句 执行过程： 首先计算等号右边表达式的值。 然后将此值保存到等号左边的变量中。 var可以是变量名（如：student）或属性名(如text1.text)。 “=”是赋值号，不是数学中的等号。 变量中的值以最近一次赋值为准。 赋值语句举例 T=A A=BB=T上述三条语句实现什么功能？ 赋值语句举例 不同数据类型数据的赋值 数值类型 Integer、Long Single、Double Byte 分支结构与分支结构语句 分支语句结构举例 输入一个数，判断是奇数或偶数、正数或负数 输入一个1-1000之间的数，判断是几位数。 输入一个字符，判断是大写字母、小写字母、数字或其他。 输入一个年份，判断是否为闰年。 凡是能被400整除的年份为闰年。如2000年 凡是不能被100整除，但能被4整除的年份为闰年。如2008年 输入一个月份，输出该月的天数。 已知三角形三条边的长度，求三角形的面积。 已知一元二次方程的三个系数，求方程的根。 For-Next循环 格式： For V=E1 To E2 [Step E3] …… [Exit For] …… Next V For V=E1 To E2 [Step E3] …… [Exit For] …… Next V 编程练习 求N! 编程练习 生成20个1到100之间的随机数，统计其中1位数、2位数和3位数的个数。 输入一个字符串，统计其中大写字母、小写字母以及数字的个数。 输入一个字符串，将其中的大写字母改为小写字母，小写字母改为大写字母。 输入一段英文文本，查找某单词出现的次数。 求一个整数的各位上的数字之和。 输入一个自然数，判断其是否为素数。 (三种算法) 输入一个自然数，判断其是否为回文数。(两种算法) 输入一个自然数，判断其是否为升序数。如123 找出100之内的所有勾股数。 勾股数：满足条件a2+b2=c2(ab) 如：3 4 5 输入一个正整数，判断其是否是完全数。 完全数：该数的因子（不包含本身）之和等于其本身。 如：28=1+2+4+7+14 找出2~999之间所有的同构数。 同构数：该数出现在它的平方数的右边。 如：5—25， 6—36， 25—625 输入两个正整数M和N，求它们的最小公倍数。 循环结构与循环结构语句 Do-Loop循环(4种形式) Do 循环用于控制循环次数未知的循环结构 For 循环用于控制循环次数预知的循环结构 13. 求满足条件:1+2+3+4+……+N1000的最小N。 14. 求满足条件:1+2+3+4+……+N2000的最大N。 15. 计算表达式 * * 赋值语句的形式：var=表达式 A=1 A=A+1 B=3 B=B*4 A=1 A=2 x=“This is a book” Number%=72Label1.FontSize=8 Y=(a+b)/2 A B T 1 2 3 T为中间变量 思考：如何实现三个数交换，即A的值给B，B的值给C，C的值给A？ A B C T 1 2 3 4 T为中间变量 逻辑型 Boolean 字符串型 String 非O值转换为True O值转换为False True转换为负1 False 值转换为O 可能出错 转换为字符串形式 True转换为字符串“True” False转换为字符串“False” 首先转换为数值类型，可能出错 Dim b As Boolean, n As Integer, s As String, m As Singleb = 0 将整型数据赋值给逻辑型变量b为Falseb = 2 将整型数据赋值给逻辑型变量b为Truen = b 将逻辑型数据赋值给整型变量n为-1s = b 将逻辑型数据赋值给字符串变量s为“True”m = -1012.567s = m 将数值数据赋值给字符串变量s为“-1012.567”n = “12” 将字符串数据赋值给整型变量n为12n = “12abc” 将字符串数据赋值给整型变量（出错）n = “asds” 将字符串数据赋值给整型变量（出错）b = “12” 将字符串数据赋值给逻辑型变量b为Trueb = “0” 将字符串数据赋值给逻辑型变量b为Falseb = asds 将字符串数据赋值给逻辑型变量（出错） 下列语句的执行结果是什么？ Dim A As Integer A=2=3 Print A Dim A As Integer A=2=2 Print A Dim S As String Dim A As Integer S=2*A2 Print S D