下载本文档
版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领
文档简介
1、实验任务14课程名称:程序设计基础VB 实验名称实验十四 过程(2)一、实验目的:1 掌握过程的定义和调用二、实验内容(写明实验要求(题目)、实验步骤、程序清单、运行情况):实验0 弄清楚过程调用的程序执行流程,建议人工执行一遍,之后利用单步调试工具,进一步验证。注意观察过程定义和调用的格式,并分析说明函数的功能(1)设计一个名为cmd的命令按钮Private sub cmd_click() Print f(49,21)End subPrivate function f(m as integer,n as integer) As integer Do while mn Do while mn
2、m=m-n loop Do while nm n=n-m loop Loop F=mEnd function(2)Private Sub form_click() Dim n As Integer n = Val(InputBox(请输入一个整数:) Print n; =; If n 1 Then Print *; Loop Next k If n 1 Then Print nEnd Sub实验1编写一个判断回文数函数,实现回文数的判断。提示:在主程序中调用该函数,从而给出是否是回文数的结论。实验2编写一个子程序过程,实现字符串的大小写转换。分析:首先为子程序过程定义一个有意义的名称:Conv
3、ersion;其次,考虑要实现指定字符串的处理,需要外界提供给子程序过程一个字符串,因此,必须定义一个字符串类型的形参;最后,在过程体中采用穷举算法,实现大小写转换。注意,仅在本过程中用到的变量,都定义为本过程的局部变量。具体的大小写转换子程序过程的定义如下:Option ExplicitPrivate Sub Command1_Click() Dim ch As String ch = Text1 调用子程序过程Conversion实现字符串的大小写转换 Text1 = chEnd SubPrivate Sub Conversion( ) 子程序过程Conversion的定义 Dim i A
4、s Integer, ch As String * 1 For i = 1 To Len(s) ch = Mid(s, i, 1) If ch = A And ch = Z Then Mid(s, i, 1) = LCase(ch) ElseIf Then Mid(s, i, 1) = UCase(ch) End If Next iEnd Sub实验3编写一个标准模块,该模块包含一个判断是否是素数的函数过程和一个判断是否是素数的子程序过程,要求在主程序中分别调用这两个过程,给出具体数据是否是素数的结论。提示:要求自己编写好判断是否是素数的函数,在主程序中调用此素数函数,给出具体数据是否是素数的
5、结论(注意:若函数处理的结果是两种状态信息,则通常将函数返回值设置为Boolean,用True或False表示;主程序中往往利用if语句调用函数,完成条件判断,并输出结果)。函数过程改写为子程序过程,必须增设一个按地址传递的形参。 参考界面实验4实验书 8-5 找出100以内(含100)自然数对,使两个成对的自然数满足其和与差都是平方数,如26和10,其和为36,其差为16,均为平方数,运行界面如图所示。Private Sub Command1_Click() Dim i As Integer, j As Integer For i = 1 To 100 For j = To 100 If T
6、hen List1.AddItem i & & j End If Next j Next iEnd SubPublic Function Pf(x As Integer) As Boolean Dim y As Integer, p As Boolean If y * y = x Then Else Pf = False End IfEnd Function实验5实验书 8-6通过键盘向文本框输入正整数。在“除数”框架中选择一个单选按钮,然后单击“处理数据”命令按钮,将大于文本框中的正整数并且能够被所选除数整除的5个数添加到列表框List1中,如图所示。提示 选项按钮Option1是一个控件数
7、组。 执行结果Private Sub Command1_Click() Dim y As Integer For i = 0 To 2 If = True Then y = val(Option1(i). ) End If Next Call calc(y)End SubPrivate Sub calc(y As Integer) ClearList i = 1 x = Val(Text1.Text) + 1 Do While i = If x Mod y = 0 Then List1.AddItem i = i + 1 End If x = x + 1 LoopEnd SubPrivate
8、Sub ClearList() For k = List1.ListCount - 1 To 0 Step -1 List1.RemoveItem Next kEnd Sub实验6编写调用子程序过程实现数组a的选择法递减排序,数组元素是1,100之间的随机整数,注意当实参是数组,形式参数是如何定义的,参数的传递方式又如何.Option Base 1Private Sub Choose_Sort(arr() As Integer)Dim i As Integer, j As Integer, Temp As Integer For i = 1 To UBound(arr) - 1 For j = To UBound(arr) If Then arr(i) = arr(j) arr(j) = Temp End If Next j Next iEnd SubPrivate Sub Form_Click()Dim a(10) As Inte
温馨提示
- 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
- 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
- 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
- 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
- 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
- 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
- 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
最新文档
- 除螨喷雾安全研究报告
- 除法的意义 研究报告
- 陈姓氏调查的研究报告
- 错别字现状的研究报告
- 道路雷达探测服务方案
- 道路铁水管维修方案
- 道路裂缝沥青处理方案
- 奥运比赛中的数学应用
- 外研版必修五教案分享
- 地域的束缚与解脱
- GB/T 19342-2024手动牙刷一般要求和检测方法
- GB/T 15822.1-2024无损检测磁粉检测第1部分:总则
- 2024新版保密法知识测试题库及参考答案【综合卷】
- 美术课程与教学论智慧树知到期末考试答案章节答案2024年四川师范大学
- 小学《环境保护》校本课程教材
- 国开2022年春季《小学数学教学研究》形考任务1-4题库及答案
- 中耳炎病历(共6页)
- 《说文解字序》及翻译
- 钢结构拆除专项施工方案(完整版)
- 35kv线路验收规范
- 《宏观经济学》课程标准
评论
0/150
提交评论