下载本文档
版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领
文档简介
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. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
最新文档
- 奶牛生物资产的乡村振兴
- 2023年青少年健康知识竞赛试题库及答案
- 幼儿园班级工作总结
- 中秋节月饼制作与节日团圆意
- 《cia考前培训讲义》课件
- 基层医院慢病管理
- 手机销售代理权合同
- 现代护理学新概念
- 糖尿病妊娠护理诊断
- 《期班干部培训》课件
- DB11-T1875-2021市政工程施工安全操作规程
- 人教版一年级上册道德与法治第三单元《9玩得真开心》课件(定稿)
- 钻床设备点检表
- 少儿美术-圣诞节的礼物PPT
- 幼儿园中班数学《长方形娃娃找家》课件
- 海螺牌水泥质量检验报告28天报告425加章2015
- 五年级上册数学课件-6.2 鸡兔同笼问题 北京版(17张PPT)
- 高考英语语法填空专项6篇(附解析)
- DB43∕T 859-2014 高速公路机电工程概预算编制办法及定额
- 达成赤泥综合利用目标需破解三大难题
- 实验一 伐倒木材积测定
评论
0/150
提交评论