vb在程序中使用通用过程.ppt

第7章 通用过程程序设计 目录 7.1 问题引入和问题分析 Sub过程引例1 不使用通用过程: Dim sx !, sy!, sz! Dim x!, y !, z! Dim s ! x =Val( InputBox(请输入x的值)) y =Val( InputBox(请输入y的值)) z =Val( InputBox(请输入z的值)) For i = 1 To x sx = sx + 1 / i Next For i = 1 To y sy = sy + 1 / i Next For i = 1 To z sz = sz + 1 / i Next s = sx + sy + sz 7.2 自定义Sub过程的创建 自定义Sub过程的创建 相关知识:标准模块 7.3 自定义Sub过程的调用 7.4 自定义Sub过程的参数传递 7.5 自定义Sub过程与事件过程的异同点： 在VB案例中使用自定义Sub过程 Private Sub s_Disp(k as Integer) txt_WageInfo(0).text = m_strArrNum(k) txt_WageInfo(1).text = m_strArrName(k) txt_WageInfo(2).text = m_intArrWage(k) txt_WageInfo(3).text = m_intArrPrz(k) txt_WageInfo(4).text = m_intArrSud(k) End Sub 在VB案例中使用自定义Sub过程 7.6 自定义Sub过程的应用:课堂实训1 自定义Sub的应用:课堂实训3 7.7 初步认识Function自定义过程 7.8 自定义Function过程的创建 自定义Function过程的创建 用Function过程计算VB案例中的个人所得税 在事件过程中调用Function 7.9 Function函数的应用:课堂实训2 Function函数的应用:课堂实训2代码 Dim cj%(5),dj$(5) Private Sub cmd_1_Click() ‘Cmd_1为数据输入按钮: for i = 1 to 5 cj(i) = val(Inputbox(请输入第 i 个成绩)) txt_cj.text = txt_cj.text cj(i) next End Sub cmd_2为数据转换: Private Sub cmd_2_Click() for i = 1 to 5 dj(i) = f_chg(cj(i)) txt_dj.text = _ txt_cj.text dj(i) next End Sub 7.10 API函数初步知识 API文本浏览器 API函数的应用举例 7.11 本章容易出错的地方 7.12 课堂实训和课后作业 * 师生共勉 勿以恶小而为之，勿以善小而不为。惟贤惟德，能服于人。 7.1 问题引入与问题分析 7.2 自定义Sub过程的创建 7.3 自定义Sub过程的调用 7.4 自定义Sub 过程的参数传递 7.5 自定义Sub 过程与事件过程的异同点 7.6 自定义Sub过程的应用 7.7 初步认识自定义Function函数 7.8 自定义Function过程的创建 7.9 自定义Function过程的应用 7.10 API函数的初步知识 7.11 本章容易出错的地方 7.12 课堂实训与课后作业 师生共勉 勿以恶小而为之，勿以善小而不为。惟贤惟德，能服于人。 当多个事件过程都包含有相同程序代码块，或某事件过程中包含具有较独立功能的代码块时，可以使用自定义过程将它们分离出来，然后在需要这一语句块的地方用调用语句替代，而不必再将所有的语句重复书写一遍。 同一语句块反复出现在程序中，这样无疑增加了程序的书写负担，使得程序显得冗长，也影响了程序在整体结构上的紧凑性，需对其进行简化。本章中将学习Visual Basic6.0用户自定义过程，并利用用户自定义过程简化“员工工资管理系统”中各过程中的重复语句。 使用通用Sub过程: Dim sx !, sy!, sz! Dim x!, y !, z! Dim s ! x =Val( InputBox(请输入x的值)) y =Val( InputBox(请输入y的值)) z =Val( InputBox(请输入z的值)) Call s_sum(sx, x) Call s_sum(sy, y) Call s_sum(sz, z) 编程计算(1+1/2+1/3+…+1/x) + (1+1/2+1/