03、VB基本控制语句.pptVIP

* Private Sub Command1_Click() ‘“答题” h = 23 : f = 56 总头数及总脚数 j1 = (4 * h - f) / 2 求出的鸡数 t1 = (f - 2 * h) / 2 求出的兔数 j2 = Val(InputBox(鸡的只数是多少？, 请回答)) t2 = Val(InputBox(兔的只数是多少？, 请回答)) Select Case True 选择真值 Case j1 = j2 And t1 = t2 MsgBox 回答完全正确! Case j1 = j2 MsgBox 鸡数回答正确，但兔数不对! Case t1 = t2 MsgBox 兔数回答正确，但鸡数不对! Case Else MsgBox 回答错误! End Select End Sub * 三、循环结构 循环是指在指定的条件下多次重复执行一组语句；被重复执行的一组语句称为循环体 例：求 S = 1 + 2 + 3 + … + 10 s = 0 For k = 1 To 10 s = s + k Next k Print s=; s n = 1: s = 0 Do While n = 10 s = s + n n = n + 1 Loop Print s=; s * For一Next循环 For 循环变量=初值 To 终值 [Step 步长] 语句块 Next 循环变量 * 格式中参量的含义 循环变量：用做循环计数器的数值变量 初值：循环变量的起始值。 终值：循环变量的结束值。 步长：循环变量的增量(可正可负）。 语句块：在For语句和Next语句之间的一条或多条语句,称为循环体。 Next语句：循环终端语句。 循环次数=INT((终值-初值)/步长+1) * Dim x As Integer,sum As Integer Private Sub Command1_Click() sum=0 For x = 1 To 100 Step 1 ‘x是循环变量 sum = sum + x ‘sum存放累加结果 Next x Print “1+2+3+……+100=”,sum End Sub 例8-10:计算1到100自然数的和 * 2.DO-Loop循环 2)Do While |Until 循环条件 语句块 Loop 说明： While是当条件为True时，返回DO执行循环体； Until则是在条件变为True时跳出循环； 1) Do 语句块 Loop While |Until 循环条件 * Do While 循环条件 语句块 Loop Do 语句块 Loop While 循环条件 * 例8-12 计算1+1/2!+1/3!+…+1/n!,当1/n!10-6时结束计算 Dim i as Integer,t as double, s as double i=0 :t=1:s=0 Do while t0.000001 i=i+1 t=t/i s=s+t Loop Print “1+1