1、盐城工学院盐城工学院 先对条件测试，根据测试的结果选择执行不同的分支先对条件测试，根据测试的结果选择执行不同的分支1.If1.If条件语句条件语句2.Select Case 2.Select Case 结构结构Visual Basic 程序设计程序设计3.3.条件函数条件函数 例：例：score=60 Then Print 祝贺你考试通过！祝贺你考试通过！Print“继续努力！继续努力！”：Score=60 Then Score=60 Then Print“Print“祝贺你考试通过！祝贺你考试通过！”Print“Print“继续努力继续努力!”!”格式格式:(1):(1)IfIf 条件条件
2、Then Then (A(A组语句组语句)EndIfEndIf (2)(2)If If 条件条件 Then Then 语句语句执行规则：若执行规则：若,执行执行A A组语句组语句;条件不成立条件不成立,跳过跳过A A组语句组语句.条件条件A组语句组语句TF使用前提：使用前提：,A,A组语句中只一条执行语句组语句中只一条执行语句 例：例：If score=60 Then Print score Print 祝贺你考试通过！祝贺你考试通过！End If Print“继续努力！继续努力！”例例1：输入两个数，分别放在：输入两个数，分别放在x和和y变量中，比较它们大小，变量中，比较它们大小，然后将大数
3、放在然后将大数放在x中，小数放在中，小数放在y中。中。x yx%=Text1.textY%=Text2.textIf x=60 Then Print“祝贺你考试通过！祝贺你考试通过！”Else Print“考试未通过考试未通过.”End If Print 继续努力！继续努力！格式：格式：条件条件 Then Then A A组语句组语句 ElseElse B B组语句组语句 执行规则执行规则:条件条件成立成立,执行执行A A组语句组语句,条件条件不成立不成立,执行执行B B组语句组语句例例2：计算分段函数：计算分段函数：(可用可用、和和实现）实现）Y=x2+1 (x0)x3+3x (x=0)条件
4、条件A组语句组语句TFB组语句组语句 If If条件语句条件语句双分支双分支F两边之和大于第三边？两边之和大于第三边？例例3:3:已知已知三边的长，设计三边的长，设计 求求面积的程序。面积的程序。(实验实验5)5)输入输入a,b,ca,b,c求求S S结束结束输出输出s s求半周长求半周长L LT提示提示数据错数据错开始开始例例4：输入二级考试成绩，要求显示对应三级制的：输入二级考试成绩，要求显示对应三级制的 评定。评定条件为：评定。评定条件为：优：优：Mark 90等级：等级：通过：通过：60 Mark 90 未通过：未通过：=90 Then Print 优ElseIf Mark=60 Th
5、en Print“通过Else Print“未通过End If格式：格式：条件条件1 Then1 Then （A A组语句）组语句）ElseIf ElseIf 条件条件2 Then2 Then （B B组语句）组语句）ElseIf ElseIf 条件条件3 Then3 Then （C C组语句）组语句）ElseElse （n n组语句）组语句）If If条件语句条件语句注意：注意：多分支语句中，有多分支语句中，有多个分多个分 支同时满足，只支同时满足，只执行执行与之匹配的与之匹配的语句块。语句块。注意注意 的写法的写法例例5 5 编写一个按月收入额计算个人收入调节税的程序编写一个按月收入额计算
6、个人收入调节税的程序 计算方法如下计算方法如下 0 Pay10000 Pay1000或离退休或离退休 (Pay-1000)(Pay-1000)*0.05 10000.05 1000Pay2000Pay2000 Z Z (Pay-2000)(Pay-2000)*0.15+50 20000.15+50 2000Pay3000Pay3000 (Pay-3000)(Pay-3000)*0.25+200 30000.25+200 3000Pay4000 Pay4000 (Pay-4000)(Pay-4000)*0.35+450 Pay4000 0.35+450 Pay4000：选择语句结构选择语句结构
7、每个条件的表示及先后顺序每个条件的表示及先后顺序If If条件语句条件语句多分支多分支If If条件语句条件语句 IfIf语句的嵌套是指语句的嵌套是指if if 或或elseelse后面后面的语句块中又包含的语句块中又包含IfIf语句。语句形式：语句。语句形式：Then1 Then Then11 Then (1)(1)对于嵌套结构，为了增强程序的可读性，应该采用缩进对于嵌套结构，为了增强程序的可读性，应该采用缩进 形式书写；形式书写；(2)If(2)If语句形式若不在一行上书写，必须与语句形式若不在一行上书写，必须与End IfEnd If配对配对 多个多个IfIf嵌套，嵌套，End IfEn
8、d If与它最接近的与它最接近的If If 配对。配对。单分支语句 双分支语句 多分支语句Select CaseSelect Case 测试表达式测试表达式 Case Case 测试项测试项1 1 A A组语句组语句 Case Case 测试项测试项2 2 B B组语句组语句 Case Case ElseElse n n组语句组语句End SelectEnd Select 测试表达式的值应是数字或字符型测试表达式的值应是数字或字符型 测试项的取值测试项的取值必须必须与测试表达式与测试表达式 的值的值类型相同，类型相同，常用形式为：常用形式为：具体取值，用逗号隔开具体取值，用逗号隔开如：如：1
9、1，5 5，9 9连续的范围：界连续的范围：界1 TO 1 TO 界界2 2如：如：12 To 2012 To 20 满足某个条件：满足某个条件：IsIs运算符运算符如：如：Is10Is10 三种形式可以组合使用三种形式可以组合使用例例5：输入二级考试成绩，要求显：输入二级考试成绩，要求显 示对应三级制的评定。示对应三级制的评定。Mark=Val(Text1.Text)Select case Mark case is=90 Print 优 case 90 to 60 Print“通过 Case Else Print“未通过End selectMark=Val(Text1.Text)K=mark
10、10Select case case 10,9 Print 优 case 8 to 6 Print“通过 Case Else Print“未通过End select例例7 7 编写一个加油站计费程序编写一个加油站计费程序 在在“种类种类”中选择油品种类，界面上的说明文字将中选择油品种类，界面上的说明文字将随之改变，并将随之改变，并将“数量数量”文本框设为焦点；在数量文本文本框设为焦点；在数量文本框中输入需购的油品数量后，单击框中输入需购的油品数量后，单击“计算计算”按钮，在按钮，在“总价总价”文本框显示所购油品种类应付的金额。已知汽油文本框显示所购油品种类应付的金额。已知汽油单价：单价：90号
11、 2.30元/升 95号 2.45元/升 100号 2.60元/升例例4-8:4-8:编写一个按月收入额计个人收入调节税编写一个按月收入额计个人收入调节税的应用程序的应用程序.计税公式如下计税公式如下:tax tax =0 pay=1000 0 pay=1000 (pay-1000)(pay-1000)*0.05 1000pay=15000.05 1000pay=1500 (pay-1500)(pay-1500)*0.1+25 1500pay=20000.1+25 1500pay=2000 (pay-2000)(pay-2000)*0.15+75 2000pay=25000.15+75 200
12、0pay=2500 (pay-2500)(pay-2500)*0.2+150 2500pay=30000.2+150 2500pay30000.3+300 pay3000赋值语句赋值语句分支语句分支语句 变量名变量名=表达式表达式 对象对象.属性属性=表达式表达式 变量变量=对象对象.属性属性变量赋值：变量赋值：属性赋值：属性赋值：1.1.IfThen IfThen 结构结构2.2.IfThenElse IfThenElse 结构结构3.3.IfThenElseIf IfThenElseIf 结构结构4.4.Select Case Select Case 结构结构循环循环:是在指定的条件下多次
13、重复执行一组语句是在指定的条件下多次重复执行一组语句1.For 1.For NextNext2.Do2.DoLoop Loop 3.3.循环嵌套循环嵌套 4.4.其他辅助控制语句其他辅助控制语句循环变量循环变量=循环变量循环变量+步长步长语句块语句块FExit ForExit For语句块语句块T循环变量循环变量=终值终值 For For 循环变量循环变量=初值初值 TO TO 终值终值 Step Step 步长步长 语句块语句块 Exit ForExit For 语句块语句块 Next Next 循环变量循环变量执行过程执行过程:(1)将初值赋循环变量；将初值赋循环变量；(2)判断循环变量值
14、是否判断循环变量值是否小于等于小于等于 终止值；终止值；(3)若是若是,执行循环体（语句块）；执行循环体（语句块）；(4)然后将变量增加一个步长；然后将变量增加一个步长；(5)重复重复24步骤。步骤。(6)否则，结束循环否则，结束循环步长省略，步长省略，默认为默认为1 1循环变量赋初值循环变量赋初值FT循环体循环体程序代码：程序代码：Dim I%,s%For I=1 To 10 step 1 Next I Print I,s例例1:1:求求1+2+3+4+101+2+3+4+10之和之和.分析分析:重复过程重复过程(循环体循环体):s:ss s+I+I初值、终值和增量初值、终值和增量:1、10
15、、I循环体的执行次数是多少循环体的执行次数是多少?输出的输出的I、S的值是多少的值是多少?For I=1 To 10执行多少次？执行多少次？s=s+IFor I=10 To 1 Step -1 For For 循环变量循环变量=初值初值 TO TO 终值终值 Step Step 步长步长 语句块语句块 Exit ForExit For 语句块语句块 Next Next 循环变量循环变量循环体循环体 Dim I,s As Integer For I=1 To 10 s=s+I Next I Print I,s 例例2:2:求求1010！分析分析:重复过程重复过程:*初值、终值与增量不变初值、终值
16、与增量不变 例例1:1:求求1+2+3+4+101+2+3+4+10之和之和.分析分析:重复过程重复过程(循环体循环体):+初值、终值和增量初值、终值和增量:1、10、1 Dim I,s As Integer For I=1 To 10 s=s*I Next I Print I,ss=1For I=1 To 10For I=1 To 10 s=1S1=0S2=0For I=S1=S1+INext I练习练习1 1：计算：计算1 110001000的奇数和与偶数和的奇数和与偶数和 方法一：方法一：方法二：方法二：For I=S2=S2+INext IPrint S1,S2S1=0S2=0For
17、I=If I mod 20 then S1=S1+I Else S2=S2+I End IfNext IPrint S1,S2练习练习2 2：输入一个正整数，求个位数字之和：输入一个正整数，求个位数字之和 输入正整数输入正整数k 求它的位数求它的位数 用用For循环循环 1，位数和步长，位数和步长 取取k的末位数，求和的末位数，求和 使使k去掉末位数去掉末位数 重复以上两步，直到结束重复以上两步，直到结束 在在text2中显示结果中显示结果例：分析下列程序段的输出结果：例：分析下列程序段的输出结果：Dim I As Integer,J As Integer J=0 For I=0 To 10
18、Step 2 I=I+3 J=J+1 Next I注意：注意：1.1.初值、终值、步长必须是初值、终值、步长必须是数值型数值型，步长为步长为正正，初值，初值 终值；终值；缺省缺省为默认为为默认为1 12.2.在已知循环次数时使用在已知循环次数时使用ForFor循环，循环，循环次数循环次数=int(=int(终值终值-初值初值)/)/步长步长)+1)+13.3.组成循环体的语句块可以是一条或多条语句组成循环体的语句块可以是一条或多条语句4.Exit For4.Exit For表示当遇到该语句时，退出循环体，执行表示当遇到该语句时，退出循环体，执行NextNext的下一句；的下一句；5.5.退出循
19、环后，循环变量保持退出时的值退出循环后，循环变量保持退出时的值6.6.只有当循环变量发生变化时只有当循环变量发生变化时,执行的次数才会改变执行的次数才会改变.1.Do 1.Do WhileWhile 循环体循环体 LoopLoop2.D0 2.D0 循环体循环体 Loop Loop WhileWhile 3.Do 3.Do UntilUntil 循环体循环体 Loop Loop4.Do 4.Do 循环体循环体 Loop Loop Until Until Do While Do While 循环体循环体 LoopLoop执行过程执行过程:（先判断，后执行）（先判断，后执行）先判断循环条件先判断循
20、环条件,若为真若为真:执行循环体执行循环体,再判断循环条件再判断循环条件否则，跳过循环体否则，跳过循环体,执行执行LoopLoop之后语句之后语句循环条件循环条件语句块语句块TF语句块语句块FExit DoExit DoT Do While Do While 循环体循环体 LoopLoop Dim I,s As Integer For I=1 To 10 s=s+I Next I Print I,s例例1:1:求求1+2+3+4+101+2+3+4+10的和的和.Dim I,s As Integer Dim I,s As Integer I=1I=1Do WhileDo WhileLoopLo
21、opPrint I,s Print I,s s=s+I s=s+I I=10I=10I=I+1I=I+1I=11I=11(1)(1)循环体执行了几次循环体执行了几次?(2)(2)没有没有I=1I=1会怎样会怎样?(3)(3)将将PrintPrint语句移到语句移到LoopLoop的的 前面结果怎样前面结果怎样?(4)I(4)I先赋值为先赋值为11,11,结果如何结果如何?D0 D0 循环体循环体 Loop While Loop While 执行过程执行过程:（先执行，后判断）（先执行，后判断）先执行循环体先执行循环体,再判断循环条件再判断循环条件,若为真，若为真，继续执行循环体继续执行循环体;
22、否则，结束循环否则，结束循环,执行执行LoopLoop之后语句之后语句循环条件循环条件语句块语句块TF语句块语句块FExit DoExit DoT D0 D0 循环体循环体 Loop While Loop While 例例4:4:修改例修改例3 3 Dim I,s As Integer Dim I,s As Integer I=1 I=1 Do Do While I=10While I=10 s=s+I s=s+I I=I+1 I=I+1 Loop Loop Print I,s Print I,s Dim I,s As Integer Dim I,s As Integer I=1 I=1 Do
23、 Do s=s+I s=s+I I=I+1 I=I+1 Loop Loop While I=10While I=10 Print I,s Print I,s Do Do WhileWhile 循环体循环体 LoopLoop D0 D0 循环体循环体 Loop Loop WhileWhile 区别区别:(1)(1)执行顺序不同执行顺序不同 形形式一式一:先判断先判断,后执行后执行循环体循环体;形式二形式二:先执行先执行循环体循环体,后判断后判断 (2)(2)执行次数不同执行次数不同（特殊情况下）形式一形式一:条件不满足条件不满足,循环体可能一次也不执行循环体可能一次也不执行 形式二形式二:不论条
24、件如何不论条件如何,至少执行一次至少执行一次练习练习3：用辗转相除法求两自然数：用辗转相除法求两自然数m、n的最大公约数的最大公约数和和 最小公倍数最小公倍数分析：分析：最大公约数最大公约数 已知两数已知两数m、n m Mod n的值为的值为r mn，nr，若若r0，则重复，则重复 否则，循环结束，否则，循环结束，m为所求的最大公约数，为所求的最大公约数，最小公倍数最小公倍数原两个数相乘，再除以最大公约数原两个数相乘，再除以最大公约数执行过程执行过程:（先判断，后执行）（先判断，后执行）先判断循环条件：先判断循环条件：条件为条件为假假:执行循环体执行循环体,然后再判断条件然后再判断条件.条件为
25、条件为真真:跳过循环体跳过循环体,执行执行LoopLoop之后语句之后语句 Do Until Do Until 循环体循环体 Loop Loop循环条件循环条件语句块语句块语句块语句块FExit DoExit DoT Do Until Do Until 循环体循环体 Loop Loop例例5:5:修改上例修改上例Dim I,s As Integer Dim I,s As Integer I=1I=1Do Do While I=10While I=10 s=s+I s=s+I I=I+1 I=I+1LoopLoopPrint I,s Print I,s Dim I,s As Integer Di
26、m I,s As Integer I=1I=1Do Do Until Until s=s+Is=s+I I=I+1 I=I+1LoopLoopPrint I,s Print I,s 条件应该如何写出条件应该如何写出?显示的显示的I、S值与值与 上例一样吗？上例一样吗？Do Do 循环体循环体 Loop Until Loop Until DoDo While While 循环体循环体 LoopLoop（While While ）Do Do Until Until 循环体循环体 LoopLoop（Until Until ）区别区别:While While 条件为条件为真真时执行循环体时执行循环体,
27、否则退出循环否则退出循环 Until Until 条件为条件为假假时执行循环体时执行循环体,否则退出循环否则退出循环关系：关系：whilewhile和和UntilUntil可以相互可以相互转换转换，但循环条件，但循环条件取反取反在一个循环体内又包含了一个完整的循环结构在一个循环体内又包含了一个完整的循环结构 For I=1 To 9 For J=1 To I s=I&J&=&I*J Picture1.Print Tab(J-1)*8+1);s;Next J Picture1.Print Next I注意：注意：内、外循环变量不能同名内、外循环变量不能同名 外循环必须完全包含内循环，不能出现交叉
28、外循环必须完全包含内循环，不能出现交叉 分析：用三种循环分析：用三种循环个位个位x x的可能取值为的可能取值为0 09 9十位十位y y的可能取值为的可能取值为0 09 9百位百位z z的可能取值为的可能取值为1 19 9，看三个位置上的数是否满足如下条件，若满足，即看三个位置上的数是否满足如下条件，若满足，即是其中一个解是其中一个解 x x3 3+y+y3 3+z+z3 3=z=z100100y y1010 x x 练习练习6 6：求水仙花数：求水仙花数 水仙花数是指一个水仙花数是指一个3 3位数，其各个数字的立方和等于位数，其各个数字的立方和等于数字本身。数字本身。满足循环条件的情况下，提
29、前跳出循环体，结束循环。满足循环条件的情况下，提前跳出循环体，结束循环。两种形式：两种形式：Exit For、Exit Do 作用：无条件的转移到标号或行号指定的语句作用：无条件的转移到标号或行号指定的语句 语法：语法：GoTo 标号标号|行号行号 100100 If I=100 Then If I=100 Then s=s+I s=s+I I=I+2 I=I+2 GoTo 100 GoTo 100 End If End IfDim I As IntegerIf I mod 17=0 then print I end If For I=100 to 200 Next IExit for分析：分
30、析：重复工作：判断每个数除重复工作：判断每个数除17的余数是否为的余数是否为0 初值、终值和增量：初值、终值和增量：练习练习7 7：求出求出100100200200之间的之间的第一个第一个能被能被1717整除的整数。整除的整数。5例例1 1：编写一个大奖赛统计选手得分的程序。：编写一个大奖赛统计选手得分的程序。要求单击要求单击“得分显示得分显示”按钮，则可以利用随机函数产生按钮，则可以利用随机函数产生1010个个8080100100分之间的随机整数，输出在窗体上，并将计算选手的分之间的随机整数，输出在窗体上，并将计算选手的最后得分也在窗体上显示。最后得分也在窗体上显示。如果在评委的给分中，去掉
31、一个最高分和一个最低分，然如果在评委的给分中，去掉一个最高分和一个最低分，然后计算最后得分后计算最后得分分析：由随机函数生成分析：由随机函数生成8080100100之间的之间的1010个数据个数据 连续求和连续求和 求平均值求平均值 例例2 2：求任一给定整数的阶乘，：求任一给定整数的阶乘，n n！分析：对于任意整数分析：对于任意整数n n，有三种可能：，有三种可能：若若 :n=0:n0:n0:用循环实现乘运算用循环实现乘运算 输出结果输出结果：1.1.已知已知n n，求，求1!1!n!n!之和之和 2.2.给定条件给定条件1!1!n!n!之和之和=5000=5000，求最大，求最大n n值值
32、 例例3 3：利用级数和求：利用级数和求cos(x)cos(x)函数的近似值函数的近似值(误差误差 10-6)=Ix=I时时 如果如果x mod Ix mod I0 0，I I是一个因子是一个因子 否则否则I I加加1 1：判断一个正整数：判断一个正整数n n是否是完数是否是完数 即一个数恰好等于它的因子之和即一个数恰好等于它的因子之和 如：如：28281 12 24 47 714 14 穷举法：就是将可能出现的各种情况一一测试，判断是否穷举法：就是将可能出现的各种情况一一测试，判断是否 满足条件满足条件 For x=0 To 100 For y=0 To 100 For z=0 To 100
33、 If x+y+z=100 And _ 3*x+2*y+0.5*z=100 Then Print x,y,z End If Next z Next y Next x例：百钱买百鸡例：百钱买百鸡 假设：小鸡假设：小鸡5 5角角/只，公鸡只，公鸡2 2元元/只，母鸡只，母鸡3 3元元/只，现有只，现有100100元钱要买元钱要买100100只鸡，编只鸡，编程列出所有可能的购鸡方程列出所有可能的购鸡方案案分析：设母鸡、公鸡、小分析：设母鸡、公鸡、小鸡分别买鸡分别买X X、Y Y、Z Z只只 X+Y+Z=100 X+Y+Z=100 3 3*X+2X+2*Y+0.5Y+0.5*Z=100Z=100 Fo
34、r x=0 To 33 For y=0 To 50 If 3*x+2*y+0.5*(100-x-y)_ =100 Then Print x,y,z End If Next y Next x例：将一个二进制的原码转换成反码例：将一个二进制的原码转换成反码分析：分析：循环语句循环语句决定转换的次数决定转换的次数 MidMid函数获取一个二进制位函数获取一个二进制位 IfIf语句判断该位语句判断该位0 01,11,10 0思考题：输入一个十进制整数，输出其原码和反码思考题：输入一个十进制整数，输出其原码和反码例：字符加密。将由大写英文字母组成的字符串的每个字符的例：字符加密。将由大写英文字母组成的字
35、符串的每个字符的ASCIIASCII代码转换成二进制，按位与指定密钥代码转换成二进制，按位与指定密钥“01111111”01111111”进行异进行异或运算，把得到的结果转换成十进制数，再转换成对应的加密字或运算，把得到的结果转换成十进制数，再转换成对应的加密字符符分析：其中一个字符的转换分析：其中一个字符的转换 获取每个字母的获取每个字母的ASCiiASCii码（码（ASCASC函数，函数，取子串函数）取子串函数）将十进制将十进制ASCIIASCII码转换成二进制码转换成二进制ASCIIASCII码。码。再与再与0111111101111111进行异或运算进行异或运算 再转换成对应的字符（再
36、转换成对应的字符（chrchr函数）函数）连接成字符串连接成字符串2.建立登录窗口建立登录窗口3.一家水果店出售苹果、桔子、香蕉和菠萝四种水果，编一程序，一家水果店出售苹果、桔子、香蕉和菠萝四种水果，编一程序，输入价格和重量，输出应付金额。输入价格和重量，输出应付金额。4.要求单击窗体时，在窗体上显示系统当前的日期。要求单击窗体时，在窗体上显示系统当前的日期。输出格式为输出格式为“年年月月日星期日星期”1.根据输入的半径长度，计算圆的周长和面积根据输入的半径长度，计算圆的周长和面积1.求求z的值，的值，z 本题能否用本题能否用select case语句替换实现？为什么？语句替换实现？为什么？2
37、.实验实验5-23.货币兑换（实验书货币兑换（实验书5-4）4.计算运费（实验书计算运费（实验书5-5）*5.编写一个高速公路收费程序编写一个高速公路收费程序 不同的车行不同的里数，收费标准不同。小型客车收费系数为不同的车行不同的里数，收费标准不同。小型客车收费系数为1，大型客车，大型客车的收费系数为的收费系数为1.5，货车的收费系数为，货车的收费系数为2，当行程不超过，当行程不超过100Km时，应付费时，应付费20收费系数，当行程不超过收费系数，当行程不超过200Km时，应付费时，应付费40收费系数收费，当行收费系数收费，当行程不超过程不超过300Km时，应付费时，应付费60收费系数收费当行
38、程超过收费系数收费当行程超过300Km时，应付时，应付费费80收费系数收费收费系数收费 实现：选择不同的车型，在实现：选择不同的车型，在text1中输入行使的里数，单击中输入行使的里数，单击“确定确定”按钮按钮，在，在text2中显示其应付费。中显示其应付费。ex+y x0，y0e2x-y 0=x=0lnx x=11.6-11.6-1求素数求素数2.6-32.6-3求近似值求近似值3.6-4,3.6-4,求字串的长度，反序求字串的长度，反序4.4.分析下列程序的运行结果，并得出相应的结论分析下列程序的运行结果，并得出相应的结论 Private Sub Form_Click()Private S
39、ub Form_Click()Dim M As Integer,N As IntegerDim M As Integer,N As IntegerDim K As IntegerDim K As IntegerN=-3N=-3：k=0k=0For M=6 To For M=6 To k k Step N Step N M=M+1M=M+1 N=N-MN=N-M K=K+1K=K+1Next MNext MPrint KPrint KPrint NPrint NEnd SubEnd SubPrivate Sub Form_Click()Private Sub Form_Click()Dim a
40、As IntegerDim a As Integera=1a=1Do until a=100Do until a=100 a=a+2 a=a+2looploopPrint aPrint aEnd SubEnd Sub1.6-51.6-5，读程序，读程序2.2.编程找出编程找出11001100之间的所有完数之间的所有完数 完数：一个数等于其各因子之和，如完数：一个数等于其各因子之和，如6=1+2+36=1+2+33.3.求满足如下条件的三位数，它除以求满足如下条件的三位数，它除以1111所得的商等于各位数字的所得的商等于各位数字的平方和平方和2.程序要求：程序要求：在窗体上有一个文本框和一个命令
41、按钮，在文本在窗体上有一个文本框和一个命令按钮，在文本框中输入框中输入“红红”，单击命令按钮，即可在窗体上绘制一个红色，单击命令按钮，即可在窗体上绘制一个红色的圆，依此类推，将绘制绿、蓝、黄等，若输入其他色，在窗的圆，依此类推，将绘制绿、蓝、黄等，若输入其他色，在窗体上输出体上输出“该程序不能识别此颜色该程序不能识别此颜色”，同时绘制黑色的圆。，同时绘制黑色的圆。提示：提示：VBVB中的表示常用颜色常量为中的表示常用颜色常量为：vbRed、vbYellow、vbGreen、vbBlue、vbBlack1.从窗体上输入从窗体上输入A、B、C三个数，按照由大到小的顺序在窗体输出三个数，按照由大到小
42、的顺序在窗体输出3.比较比较Ifthenelseif语句和语句和select case语句的相同与不同之语句的相同与不同之处，并举例说明在什么情况下用处，并举例说明在什么情况下用Ifthenelseif设计的程序不设计的程序不能转换成用能转换成用select case语句设计的程序语句设计的程序.在多窗体的应用程序中，当前窗体模块的在多窗体的应用程序中，当前窗体模块的Form_Click事件过程中包含事件过程中包含如下语句如下语句,单击该窗体单击该窗体,其中其中_32_一定可以将一定可以将Hello显示在当前窗体上。显示在当前窗体上。A.Form1.Print HelloB.Me.Print HelloC.Debug.Print HelloD.Form2.Print Hello
