第3章循环结构(续).ppt

复****br/>变量超过终值?
循环变量加上步长
(Next语句)
语句块(循环体)
No
Yes
Next的下条语句
如果在循环体中遇到 Exit For 语句,则强行中止循环
循环变量=<初值>
保存终值和步长
(For语句)
For <变量>=<初值> to <终值> [step <步长>]
<语句块>
Next <变量>
第1章集成开发环境—— 1
一个炊事员上街采购,用500元钱买了90只鸡, 其中母鸡一只15元,公鸡一只10元,小鸡一只5元,正好把钱买完。问母鸡、公鸡、小鸡各买多少只?
分析:设母鸡I只,公鸡J只,则小鸡为90-I-J只,则15*I+ 10* J+(90-I-J)*5=500,显然一个方程求两个未知数是不能直接求解。必须组合出所有可能的i,j值,看是否满足条件。这里I的值可以是0到33,J的值可以0到50。
第1章集成开发环境—— 2
第1章集成开发环境—— 3
Dim i, j
For i = 0 To 33
For j = 0 To 50
If i * 15 + j * 10 + (90 - i - j) * 5 = 500 Then = & vbCrLf & "母鸡" & i & "只" & Space(2) & "公鸡" & j & "只" & Space(2) & "小鸡" & 90 - i - j & "只“
Next
Next
第1章集成开发环境—— 4
【编程:水仙花数问题】
所谓水仙花数,是指一个3位数,其各位数字立方和等于该数字本身。例如,153是水仙花数,因为153=1^3+5^3+6^3 。
方法1: 利用三重循环,将三个个位数连接成一个3位数进行判断。例如,将i,j,k三个个位数连成一个三位数的表达式为:i*100+j*10+k,判断i*100+j*10+k=i^3+j^3+k^3
方法2:对100-999的每个数分别判断是不是水仙花数:将数分解成个位,十位,百位,进行判断
第1章集成开发环境—— 5
Dim i, j, k, str, a
For i = 1 To 9
For j = 0 To 9
For k = 0 To 9
If (i * 100 + j * 10 + k) = (i ^ 3 + j ^ 3 + k ^ 3) Then
a = a & i & j & k & Space(2)
End If
Next
Next
Next
(a)
第1章集成开发环境—— 6
Dim i, a, b, c, str
For i = 100 To 999
a = Mid(i, 1, 1)
b = Mid(i, 2, 1)
c = Mid(i, 3, 1)
If a ^ 3 + b ^ 3 + c ^ 3 = i Then
str = str & i & Space(2)
End If
Next
(str)
第1章集成开发环境—— 7
例题:效果演示
编程实现以下功能,按下键盘wsad键控制图片上下左右移动,
思考:一般情况下图片应该放在哪个控件?设置什么属性?

按下键盘是什么事件
怎么返回按下的键?

如何改变图像的位置
keypress
Picturebox,image属性

Left,top
第1章集成开发环境—— 8
Private Sub Button1_KeyPress(ByVal sender As Object, ByVal e As ) Handles
a =
Select Case a
Case "w"
= - 1
Case "s"
= + 1
Case "a"
= - 1
Case "d"
= + 1
Case Else
(“请用wsad键控制图片上下左右移动")
End Select
第1章集成开发环境—— 9
例题
程序填空,编程实现右图效果
Dim I As Integer, J As Integer
For I = 1 To 5
= & Space(8 - I)
Fo