第4–7讲程序设计.pptVIP

【示例3】打印图形 Return 输出一个* 输出一行 输出八行 起始位置 【示例3】打印图形 Return 输出一个* 输出一行 输出八行 起始位置 修改程序，打印如图所示的图形 【练习】打印数字金字塔 Return 【练习】 2. 找出1000之内的完全数 如果一个数恰好等于它的因子（除去它本身）之和，则称该数为完全数 如：28=1+2+4+7+14 Homepage Chapter Ⅳ Exercise 1. 输出图形 【练习】 3.一个两位的正整数，如果将它的个位数字与十位数字对调，则产生另一个正整数，我们把后者叫做前者的对调数。现给定一个两位的正整数，请找到另一个两位的正整数，使得这两个两位正整数之和等于他们各自的对调数之和。如：12+(32)=(23)+21 Homepage Chapter Ⅳ Exercise 4. 输出九九乘法表 【读程序】 Homepage Chapter Ⅳ Exercise 1.分析下面程序运行结果 Private Sub Form_Click() For K = 1 To 5 S = 0: J = 1 For M = 1 To K J = J + M Next M S = S + J Next K Print “S=“;S End Sub 2.分析下面程序运行结果 Private Sub Form_Click() Dim a As Integer, b As Integer a=1:b=0 Do While a=5 b=b+a*a a=a+1 Loop Print a；b End Sub S= 16 6 55 程序运行后，单击窗体，窗体上显示： 程序运行后，单击窗体，窗体上显示： 【上机作业】 3. 求351-432之间既不能被3整除又不能被8整除的数的个数及其和。 Homepage Chapter Ⅳ Exercise 2. 输出图形 1. 输出100-999之间的全部水仙花数 如果一个数的各个位的数字的立方和等于这个数本身， 则称这个数为水仙花数。如：153=13+53+33 【本章习题】 1. 如果要显示VB中的预定义输入对话框，需要调用VB提供的____函数。 A MsgBox B Open C Output D InputBox 2. 用MsgBox “你好”,vbOkOnly,“Hello”语句显示的消息框窗口的标题是____。 A 你好 B vbOkOnly C OK D Hello 3. 执行下列语句后整型变量a的值是多少? A 10 B 20 C 30 D 不确定 If (3-2)2 Then a=10 ElseIf (10/2)=6 Then a=20 Else a=30 EndIf 4. 在For...Next循环语句中，如果省略Step子句，则循环的步长为____。 A -1 B 0 C 1 D 10 单击鼠标查看答案 提示 Homepage Chapter Ⅳ Next 5.有如下程序： Private Sub Form_Click() For j = 1 To 15 A = A + j Mod 3 Next j Print A End Sub 运行后输出的结果是 。 A 1 B 15 C 90 D 120 6.下面四个语句中，能打印显示20*30字样的是 。 A Print 20 * 30 B Print Chr$(20) + * + Chr$(30) C Print 20*30 D Print Val(20) * Val(30