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

第1章 VB.NET集成开发环境—— 复习 一个炊事员上街采购,用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。 Dim i, j For i = 0 To 33 For j = 0 To 50 If i * 15 + j * 10 + (90 - i - j) * 5 = 500 Then Label1.Text = Label1.Text vbCrLf 母鸡 i 只 Space(2) 公鸡 j 只 Space(2) 小鸡 90 - i - j 只“ Next Next 【编程：水仙花数问题】 所谓水仙花数，是指一个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的每个数分别判断是不是水仙花数：将数分解成个位，十位，百位，进行判断 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 MessageBox.Show(a) 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 MessageBox.Show(str) 例题：效果演示 编程实现以下功能，按下键盘wsad键控制图片上下左右移动， 思考：一般情况下图片应该放在哪个控件？设置什么属性？ 按下键盘是什么事件 怎么返回按下的键？ 如何改变图像的位置 Private Sub Button1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Button1.KeyPress a = e.KeyChar Select Case a Case w Button1.Top = Button1.Top - 1 Case s Button1.Top = Button1.Top + 1 Case a Button1.Left = Button1.Left - 1 Case d Button1.Left = Button1.Left + 1 Case Else MessageBox.Show(“请用wsad键控制图片上下左右移动) End Select 例题 程序填空，编程实现右图效果 Dim I As Integer, J As Integer For I = 1 To 5 TextBox1.Text = TextBox1.Text Sp