VB教学课件第9章.pptVIP

第9章 子程序与函数过程 9.1 子程序过程 9.2 函数过程 9.3 变量定义位置的确定 9.4 静态变量的使用 9.5 小结 9.1 子程序过程 9.1.1子程序过程的定义 9.1.2 子程序过程的调用 9.1.1 子程序过程的定义 【实例9.1】定义一个名为checknum的子程序过程，该子程序用来判断字符串s中的字符是否全为数字。如果均是数字，在消息框中显示“全是数字”，否则在消息框中显示“不全是数字”。 操作步骤 （1）代码窗口中键入： （2）自定义名为checknum的Sub过程。 子程序过程的一般定义格式 [Static][Private|Public]Sub子程序名 [(形参列表)] 语句组1 [Exit Sub] 语句组2 End Sub 9.1.2 子程序过程的调用 【实例9.2】单击“检查1” 按钮，判断文本框中所输入的字符是否为数字字符；单击“检查2” 按钮，判断输入框中所输入的字符是否为数字字符。如果输入的均是数字，在消息框中显示“全是数字”，否则在消息框中显示“不全是数字”。 操作步骤 （1）设计界面 Private Sub checknum(s As String) Dim n As Integer n = Len(s) For i = 1 To n If Not (IsNumeric(Mid(s, i, 1))) Then MsgBox 不全是数字, 16 , 错误 Exit For End If Next i If i n Then MsgBox 全是数字, 64 , 正确 End If End Sub Private Sub cmdCheck1_Click() If txtIn.Text Then Call checknum(txtIn.Text) Else MsgBox 请输入数字字符, 48 , 输入 End If End Sub Private Sub cmdCheck2_Click() Dim a As String a = InputBox(请输入数字字符) If a Then checknum a Else MsgBox 请输入数字字符, 48 , 输入 End If End Sub 子程序过程的调用格式 Call 过程名[( 实际参数)] 【实例9.3】窗体中有1个图片框和3个命令按钮（控件数组）。程序运行时，单击命令按钮，在图片框中画出指定数目的同心圆。 操作步骤 （1）设计界面 Private Sub Form_Load() picShow.Scale (-55, -55)-(55, 55) End Sub Private Sub Form_Load() picShow.Scale (-55, -55)-(55, 55) End Sub Private Sub Form_Load() picShow.Scale (-55, -55)-(55, 55) End Sub Private Sub dcircle(n As Integer) picShow.Cls For i = 1 To n picShow.Circle (0, 0), i * 7, QBColor(i) Next i End Sub Private Sub cmdCircle_Click(Index As Integer) Select Case Index Case 0 Call dcircle(3) Case 1 Call dcircle(5) Case 2 dcircle 7 End Select End Sub 【实例9.4】程序运行时单击“1+……+100” 按钮，在标签中显示1至100的和；单击“1+……+n” 按钮，由用户在输入框中输入n值，并在标签中显示1至n的和。 操作步骤 （1）设计界面 Private Sub sum(m As Integ