VB北邮版第7讲.pptVIP

Private Sub Command1_Click() Dim Score As Single, PassN As Integer, n As Integer Dim i As Integer, Sum As Single Text1 = : Text2 = : Text3 = Sum = 0: PassN = 0: n = 0 For i = 1 To 50 统计人数大于50时停止循环 Score = Val(InputBox(请输入学生成绩:)) If Score 0 Then 输入负数时停止循环 Exit For Else If Score = 60 Then PassN = PassN + 1 统计及格人数 n = n + 1 统计总人数 Sum = Sum + Score 统计总分 End If Next i Text1.Text = Str$(n) Text2.Text = Str$(PassN) Text3.Text = Str$(Sum / n) End Sub 2.While-Wend结构 形式如下： While 条件 [循环体] Wend 功能：当给定的“条件”为True时，执行循环体；否则，跳出循环体，执行Wend后面的语句。 代码如下： Private Sub Form_Click() Dim age As Integer age = 12 While age * 2 age + 30 age = age + 1 Wend Print 经过; age - 12; 年 Print 小红父女的年龄分别是：; age + 30; 和; age End Sub 5.4 常用算法 算法是对某个问题求解过程的描述。 1. 累加、连乘 定义Form_Click()事件过程如下： Private Sub Form_Click() Dim i%, n, t!, e! Cls e = 0: n = 1 e存放累加和、n存放阶乘 i = 0: t = 1 i计数器、t第i项的值 Do While t 0.00001 e = e + t: i = i + 1 累加、连乘 n = n * i: t = 1 / n Loop CurrentX = 200: CurrentY = 200 Print 计算了; i; 项的和是 ; e End Sub 本章小结 选择结构：if，select…case, iif,choose 循环结构: for,do…Loop语句,辅助语句（GoTo,Exit, End,Stop,With…End With） 常用算法:累加，连乘，最大值，最小值，穷举，递推 习题讲解 1. 在窗体中添加一个命令按钮（Name属性为Command1），然后编写如下代码： Private Sub Command1_Click() s = 0 For k = 1 To 3 If k = 1 Then x = 1 ElseIf k = 2 Then x = 2 ElseIf k = 3 Then x = 3 Else x = 4 End If Print x; s = s + x Next k Print s End Sub 程序运行后，单击命令按钮，输出结果是( ) A)3 3 3 9 B)1 2 1 6 C)1 1 1 3 D)1 2 3 6 2. 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click（） x=InputBox（请输入整数） Select Case x Case 1，3 Print 分支 1 Case Is 4 Print 分支 2 Case Else Print Else 分支 End S