原创力文档- 1、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。。
- 2、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
查看更多
复习与回顾; （1）、有以下程序段：?
For?i =?1 To?3?
For?j?=?1?To?5??
s =?i*j?
Next j
Next i
则语句s =?i*j?的执行次数是? ( )
（A）15（B）16（C）17（D）18;（2）、有如下程序段：
x?=?1?
y?=?0?
Do?While x10?
x?=?x?*?2?
y?=?y?+1?
Loop
该程序段运行后，y的值为( ) （A）0（B）2（C）3（D）4;4.4 过程与函数;过程：将程序划分为一个个较小的逻辑单元，
每个逻辑单元构成一个过程。过程中的代码
被重复的调用。过程分为??事件处理过程和
通用过程。;$4.4 过程与函数;二、过程的分类：;三、事件处理过程;四、过程的调用 ;五、函数;五、函数;2、自定义函数;Private Sub Text1_Change()
Dim a As Integer
a = Val(Text1.Text)
Label2.Caption = ou(a)
End Sub
Function ou(a) As String
If a Mod 2 = 0 Then
ou = 该数为偶数！
Else
ou = 该数为奇数！
End If
End Function
;应用实例：在文本框text1和text2中输入两个整数，单击按钮
对象command1，在标签label1中显示这两个数的较大数。;六、模块化程序设计的方法;七、总结:;Public Function f(m, n) As Integer
Do While m n
Do While m n
m = m - n
Loop
Do While n m
n = n - m
Loop
Loop
f = m
End Function
文档评论（0）