- 1、本文档共6页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
循环和模块
循环实验
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)