原创力文档- 1、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。。
- 2、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
- 4、该文档为VIP文档，如果想要下载，成为VIP会员后，下载免费。
- 5、成为VIP后，下载本文档将扣除1次下载权益。下载后，不支持退款、换文档。如有疑问请联系我们。
- 6、成为VIP后，您将拥有八大权益，权益包括：VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 7、VIP文档为合作方或网友上传，每下载1次， 网站将根据用户上传文档的质量评分、类型等，对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
循环与模块
循环实验
1、新建窗体，名称为“循环实验”，添加六个命令按钮，名称分别为Command0, Command3, Command4, Command5, Command6, Command7，其标题分别为“DoWhile循环”、“DoUntil循环”、“ExitFor循环”、“For处理数组”、“二维数组”、“ReDim处理数组”；
2、在窗体上添加两个标签，名称分别为Label1和Label2，其标题分别为“A”和“B”；
3、添加一个文本框，名称为“Text8”，将其对应的标签删除；
4、各命令按钮的Click事件代码如下所示：
（1）“DoWhile循环”的Click事件代码
（2）“DoUntil循环”的Click事件代码
（3）“EixtFor循环”的Click事件代码
（4）“For处理数组”的Click事件代码
（5）“二维数组”的Click事件代码
（6）“ReDim处理数组”的Click事件代码
4、保存，运行调试。
模块和过程
1、计算圆面积。
(1) 新建窗体，命名为“圆面积计算”，添加两个文本框，名称分别为“SR”和“SS”，其对应的标签的标题属性为“圆半径：”和“圆面积：”
(2) 添加一个命名按钮，标题为“计算”，其Click事件代码为：
(3) 新建标准模块，名称为“模块1“，创建标准模块的方法：
1）在数据库中，选择“模块”，选择“新建”，打开标准模块的代码窗口；
2）在类模块的代码窗口中，选择“工程资源管理器”中的模块，单击右键，选择“插入”，选择“模块”，打开标准模块的代码窗口；
该模块的代码如下：
（4）保存，运行调试。
2、对两个数排序，实现X值大于Y值。
(1) 新建窗体，命名为“排序”，添加两个文本框，名称分别为“Sinx”和“Siny”，其对应的标签的标题属性为“X值”和“Y值”
(2) 添加一个命名按钮，标题为“排序”，其Click事件代码为：
(3) 新建标准模块，名称为“模块2“，代码如下：
（4）保存运行调试。
3、参数传递
(1) 新建窗体，命令为“参数传递”，添加一个命令按钮，标题为“参数传递”，其Click事件代码如下：
(2) 新建标准模块，名称为“模块3“，代码如下：
(3) 保存，运行调试。
文档评论（0）