04 控制构及算法一.pptVIP

4.1 顺 序 结 构 顺序结构:代码按照书写顺序执行，主要语句包括赋值语句、输入语句、输出语句等。 流程图如： Private Sub Command1_Click() If Text2.Text = 12345 Then MsgBox 恭喜您！ ElseIf vbRetry = MsgBox(密码输入错误！, vbRetryCancel + 48, 错误提示) ThenText2.SetFocusText2.Text = ElseEndEnd If End If End Sub Private Sub Text1_LostFocus() If IsNumeric(Text1.Text) = False Or Len(Text1.Text) 6 ThenIf vbRetry = MsgBox(用户名不是数字或者长度超过6位，重试, vbRetryCancel + 48, 错误提示) ThenText1.SetFocusText1.Text = ElseEndEnd 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 IntegerOUT = FreeFileOpen App.Path \26.out For Output As #OUTPrint #OUT, iClose #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 IntegerOUT = FreeFileOpen App.Path \17.out For Output As #OUTPrint #OUT, iClose #OUTEnd 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 IntegerOUT = FreeFileOpen App.Path \21.out For Output As #OUTPrint #OUT, iClose #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 To 832 s = s + i **********FOUND********** Next 30 Print s End Sub Private Sub Form_Click() Dim i As Integer i = 1 Do While i = 20 Print i i = i + 1 Loop End Sub 四、基本的控制结构 4.1 顺序结构 4.2 选择结构 4.3 循环结构 4.4 其他辅助控制语句 4.5 常用算法（一） 4.6 常见错误 （顺序、条件、循环） 赞组匙忆阎幽浚枉拱桨学窘愚饱谤霹寐袄龋钩顷荤伤窟枕