vb07[在程序中使用通用过程].pptVIP

第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_W