最新基本的控制结构教学课件PPT控制结构及算法一.ppt

4.1 顺 序 结 构 顺序结构:代码按照书写顺序执行，主要语句包括赋值语句、输入语句、输出语句等。 流程图如： Private Sub Command1_Click() If Text2.Text = 12345 Then MsgBox 恭喜您！ Else If vbRetry = MsgBox(密码输入错误！, vbRetryCancel + 48, 错误提示) Then Text2.SetFocus Text2.Text = Else End End If End If End Sub Private Sub Text1_LostFocus() If IsNumeric(Text1.Text) = False Or Len(Text1.Text) 6 Then If vbRetry = MsgBox(用户名不是数字或者长度超过6位，重试, vbRetryCancel + 48, 错误提示) Then Text1.SetFocus Text1.Text = Else End End If End If End Sub 题目：(事件)单击窗体。 (响应)求100以内偶数的和，并将结果输出在窗体上。将结果存入变量SUM中 注意：请在指定的事件内编写代码。 Dim sum As Integer ******* Program ************ ******* End **************** YZJ (sum) End Sub Private Sub YZJ(i As Integer) Dim OUT As Integer OUT = FreeFile Open App.Path \26.out For Output As #OUT Print #OUT, i Close #OUT End Sub Option Explicit 题目：(事件)双击窗体。 (响应)求出100~200之间，能被5整除，但不能被3整除的数。并求所有数之和，存入变量中SUM中 注意：请在指定的事件内编写代码。 Dim sum As Integer sum = 0 ********** Program ********* ********** End ************* Print sum YZJ (sum) End Sub Private Sub YZJ(i As Integer) Dim OUT As Integer OUT = FreeFile Open App.Path \17.out For Output As #OUT Print #OUT, i Close #OUT End Sub Option Explicit 题目：(事件)单击窗体。 (响应)求1!+2!+3!+……+10!的值，并在窗体上输出。 结果存入变量L中 ------------------------------------------------- 注意：请在指定的事件内编写代码。 ------------------------------------------------- Dim l As Long ********* Program ************ *********** End ************** YZJ (l) End Sub Private Sub YZJ(i As Long) Dim OUT As Integer OUT = FreeFile Open App.Path \21.out For Output As #OUT Print #OUT, i Close #OUT End Sub 【程序改错】 题目：求s=72+102+132+……832的值。 注意：不可增加或删除程序行，也不可以更改程序结构 Private Sub Form_Click() Cls Dim s As Long Dim i As Integer **********FOUND********** s = 1 **********FOUND********** For i = 7