程序设计实验
- 格式:doc
- 大小:525.00 KB
- 文档页数:20
程序设计实训实验报告(热门20篇)c语言是在国内外广泛使用的一种计算机语言。
其语言功能丰富、表达能力强、使用灵活方便、既具有高级语言的优点,又具有低级语言的许多特点,适合编写系统软件。
其功能强大,不仅用在计算机上广泛用在电子,机械等方面上,而且,所有的windows,unix,linux,mac,os/2,无一例外,哪一个不是c 语言写的?很多新型的语言如,c++,java,c,j,perl...都是衍生自c语言。
掌握了c语言,可以说你就掌握了很多门语言。
学习c程序这门课一年了,这是我们学的第一门专业课,在大学里c语言不但是计算机专业的必修课程而且也是非计算机专业学习计算机基础的一门必修课程。
所以作为我这个计算机专业的学生来说当然十分重要,老师在第一节课说过,c语言是计算机的基础,大多数软件都需要用c语言来编写,通过一个年的学习,使我由初步掌握简单的应试知识到完成高难度的深入编程,如我们在编写一个较大的程序时应该把它分开成几个小程序来看,这样会容易得多。
同时,我觉得c语言应该是操作和理论相结合的课程,在不断地编写中去思考,两者是不可分割的。
在学习一年c语言的过程中我也在慢慢探索怎样才能学好c语言,并总结了一点经验:要了解c语言就要从语法规为基础来学习起,首先要是要了解它的结构,比如变量,首先要了解变量的定义方式(格式),其意义是什么(定义变量有什么用);其次就是要我要怎么去运用它(我要用什么型式去应用它)。
在c语言的命令行中所有的语句都是有它自己的一定格式和形式出现在我们面前,所以我们在学习某种语句或命令时你首先要了解的就是它的规则是什么、有什么用、怎么实现等。
这些都是语法基础也是c语言的基础如果把它们都了解很好了,那么你编起程序来就很得心应手了。
比如说ifelse和switchcase这两种条件语句都是用来判断执行功能的,那我要什么时侯用if什么时侯用switch呢?如果你很好地了解它们的结构和作用的话那么就知道:若它的条件分支是多个而且条件的值是整数或是一个字符值时就会选switch而不会选if。
Python程序设计实验四Python程序设计实验四实验四:Python程序设计引言:本实验主要内容是从实践出发,通过编写Python程序来学习与巩固Python程序设计的知识。
通过实验,我们将了解如何定义函数、使用条件语句与循环语句、处理异常等,并能够熟练使用Python语言进行程序设计。
具体实验内容如下:实验目的:1. 熟悉Python程序设计的基本语法和原理;2. 掌握使用Python编写函数、条件语句和循环语句的方法;3.学会处理异常和错误,增强程序的健壮性;4.提高编程能力,培养解决问题的思维。
实验内容:本实验中,我们将通过实例代码演示如何定义函数、使用条件语句与循环语句、处理异常等,具体实验内容如下:一、定义函数1.基本函数定义:我们首先会了解函数的基本定义方法,如何定义函数、传入参数和返回值等;2.函数的类型:这一部分我们会了解内置函数、匿名函数、递归函数等不同类型的函数。
二、条件语句1. if语句:我们将学习使用if语句来进行条件判断,并根据判断结果执行不同的代码;2. elif语句:在需要判断多个条件时,我们可以使用elif语句来进行连续条件判断;3. else语句:当所有条件判断都不满足时,我们可以使用else语句来执行默认的代码。
三、循环语句1. for循环:我们将学习使用for循环来遍历序列,如字符串、列表等,并执行相应的代码;2. while循环:当需要在满足一些条件时一直执行代码块时,我们可以使用while循环。
四、异常处理1. try-except语句:当我们预测到一些代码块可能会产生错误时,可以使用try-except语句来捕获并处理异常;2. finally语句:如果有代码需要被无论是否发生异常都执行的情况,可以使用finally语句。
五、实例演示本次实验中,我们将通过编写几个实例来演示如何使用函数、条件语句与循环语句等。
以一个计算器程序为例,我们将用Python编写一个简单的四则运算程序,可以实现输入两个数和运算符后进行运算,并输出结果。
程序设计实践实验报告实验报告课程名称___ 程序设计实践______实验项目_______子程序设计实验仪器_______PC _____系别_ 计算机科学与工程____专业______软件工程__________班级/学号___B软工0701/2007011801学生姓名_____ XX____________实验日期____2009-3-26__________成绩_______________________指导教师_____XX______________.实验二子程序设计一、实验目的1. 学习和掌握参数传递的方法;2.学习和掌握递归调用;3.了解goto语句的使用;4.了解降低嵌套深度的方法;5.了解复杂度的度量。
二、实验要求1.通过编程实现,学习和理解参数传递和递归调用的使用。
2.使用goto语句编写程序,用非goto语句改写程序;3.了解减少嵌套层次和度量复杂度的方法。
三、实验内容和结果1. 参数传递(1)创建控制台应用程序项目(CLR)。
定义函数swap,swap函数有两个整型形参x,y,swap的功能为交换x和y的值,并依次显示出交换后的x,y的值。
主函数定义两个整型变量a,b,并赋不同的初值,依次显示a和b的值,调用swap 函数,a,b作为实参,再在主函数中依次显示a和b的值。
(值传递)编写并运行以上程序,分析运行结果,思考值传递中是否会改变实参的值。
(2)创建控制台应用程序项目,修改(1)中程序,使swap函数的参数为两个指向整型的指针,swap函数中交换指针所指向的内容;主函数中调用swap函数,交换整型变量a和b的值。
编写并运行修改后的程序,比较与(1)中程序运行结果的不同之处及原因。
(3)创建控制台应用程序项目,修改(1)中程序,采用引用方式传递函数的参数。
编写并运行修改后的程序,比较与(1)、(2)中程序运行结果的异同以及(2)、(3)程序中改写的难易程度。
int swap1(int x,int y){int temp;temp=x;x=y;y=temp;return 0;} //实参传递函数int swap2(int &x,int &y){int temp;temp=x;x=y;y=temp;return 0;}//形参传递函数int swap3(int *x,int *y){int temp;temp=*x;*x=*y;*y=temp;return 0;}//指针传递函数int main(){int a,b;Console::WriteLine ("plesae input a and b interger:");a=Int32::Parse(Console::ReadLine());b=Int32::Parse(Console::ReadLine());Console::WriteLine ("实参传递函数交换a和b:");Console::WriteLine ("起始a和b:"+a+" "+b);swap1(a,b);Console::WriteLine ("交换后a和b:"+a+" "+b);Console::WriteLine ("-------------------");Console::WriteLine ("形参传递函数交换a和b:");Console::WriteLine ("起始a和b:"+a+" "+b);swap2(a,b);Console::WriteLine ("交换后a和b:"+a+" "+b);Console::WriteLine ("++++++++++++++++");Console::WriteLine ("指针传递函数交换a和b:");Console::WriteLine ("起始a和b:"+a+" "+b);swap3(&a,&b);Console::WriteLine ("交换后a和b:"+a+" "+b);Console::WriteLine ( "%%%%%%%%%%%%%%%%%" );Console::ReadLine();return 0;}2.递归调用.使用递归时,请注意如下原则:a.确认递归能够停止(子程序中至少含有一条非递归的路径);b.把递归限制在一个子程序内;c.留心栈空间;使用递归前,先考虑可否用其他方式编写程序,可能效果更好。
程序设计实验报告(matlab)实验一: 程序设计基础实验目的:初步掌握机器人编程语言Matlab。
实验内容:运用Matlab进行简单的程序设计。
实验方法:基于Matlab环境下的简单程序设计。
实验结果:成功掌握简单的程序设计和Matlab基本编程语法。
实验二:多项式拟合与插值实验目的:学习多项式拟合和插值的方法,并能进行相关计算。
实验内容:在Matlab环境下进行多项式拟合和插值的计算。
实验方法:结合Matlab的插值工具箱,进行相关的计算。
实验结果:深入理解多项式拟合和插值的实现原理,成功掌握Matlab的插值工具箱。
实验三:最小二乘法实验目的:了解最小二乘法的基本原理和算法,并能够通过Matlab进行计算。
实验内容:利用Matlab进行最小二乘法计算。
实验方法:基于Matlab的线性代数计算库,进行最小二乘法的计算。
实验结果:成功掌握最小二乘法的计算方法,并了解其在实际应用中的作用。
实验六:常微分方程实验目的:了解ODE的基本概念和解法,并通过Matlab进行计算。
实验内容:利用Matlab求解ODE的一阶微分方程组、变系数ODE、高阶ODE等问题。
实验方法:基于Matlab的ODE工具箱,进行ODE求解。
实验结果:深入理解ODE的基本概念和解法,掌握多种ODE求解方法,熟练掌握Matlab的ODE求解工具箱的使用方法。
总结在Matlab环境下进行程序设计实验,使我对Matlab有了更深刻的认识和了解,也使我对计算机科学在实践中的应用有了更加深入的了解。
通过这些实验的学习,我能够灵活应用Matlab进行各种计算和数值分析,同时也能够深入理解相关的数学原理和算法。
这些知识和技能对我未来的学习和工作都将有着重要的帮助。
程序设计基础课程设计实验一、课程目标知识目标:1. 让学生理解程序设计的基本概念,掌握编程语言的语法和结构。
2. 培养学生运用程序设计思想解决问题的能力,包括数据表示、逻辑判断和循环控制等。
3. 使学生了解程序设计的流程,学会编写、调试和优化程序。
技能目标:1. 培养学生运用编程工具进行程序设计和调试的能力。
2. 培养学生独立思考和解决问题的能力,提高编程解题技巧。
3. 培养学生团队协作和沟通能力,能够与他人共同完成程序设计任务。
情感态度价值观目标:1. 培养学生对程序设计的兴趣和热情,激发学生学习编程的积极性。
2. 培养学生勇于尝试、不怕失败的精神,提高学生面对编程挑战的自信心。
3. 引导学生认识到编程在科技发展和社会进步中的重要作用,培养学生的社会责任感和创新意识。
课程性质:本课程为程序设计基础课程,旨在让学生掌握编程基本技能,培养编程思维。
学生特点:学生为初中年级,具备一定的逻辑思维能力,好奇心强,对新鲜事物感兴趣。
教学要求:注重理论与实践相结合,以实例为主线,引导学生主动探索,培养实际编程能力。
将课程目标分解为具体的学习成果,便于教学设计和评估。
二、教学内容1. 程序设计基本概念:程序、编程语言、算法等基本概念介绍。
2. 编程环境搭建:安装编程软件,了解编程环境,学会使用开发工具。
3. 语法基础:变量、数据类型、运算符、表达式和语句等。
4. 控制结构:顺序结构、分支结构(if语句)、循环结构(for、while语句)。
5. 函数与模块:函数的定义、调用、参数传递,模块的导入和使用。
6. 数组与列表:数组的概念、使用,列表的创建、操作。
7. 文件操作:文件的打开、读取、写入和关闭。
8. 编程规范与调试:代码风格、命名规则,调试技巧和错误处理。
9. 综合实例分析:分析实际编程案例,学会运用所学知识解决问题。
教学内容安排与进度:第1-2周:程序设计基本概念,编程环境搭建。
第3-4周:语法基础,变量、数据类型、运算符。
实验项目名称:实验一C 语言的运行环境的使用实验目的及要求:1. 了解 Windows 系统下 C 语言的运行环境,熟悉 C 程序编辑、调试、运行的基本操作方法。
2. 熟练掌握编辑、编译、连接和运行 C 程序的方法。
3. 通过运行简单的 C 程序,初步了解 C 源程序的特点。
4. 初步理解 C 语言的数据类型,了解变量定义、变量赋值以及简单运算方法,了解程序运行结果的基本输出方法。
实验内容(方法和步骤):1、编程实现在屏幕上显示如下三行文字Hello, world !Wolcome to the C language world!Everyone has been waiting for程序代码:#include <stdio.h>int main(){printf("Hello,World!\n");printf("Welcome to the C language world!\n");printf(Everyone has been waiting for.\n");return 0;}运行结果:2、编写程序,将两个整数相加,并输出结果。
程序代码:#include <stdio.h>int main(){int a,b,c;a=12;b=26;c=a+b;printf("c=%d\n",c);return 0";}运行结果:3. 编写程序,要求从键盘输入2 个整数,输出其中较大的数程序代码:#include <stdio.h>int main(){int max(int x,int y);int a,b,c;scanf("%d,%d",&a,&b);c=max(a,b);pintf("max=%d",c);return 0;}int max(int x,int y){ int z;if (x>y) z=x;else z=y;return(z);}运行结果:4.输入并运行下程序,观察运行结果。
一、实验目的1. 理解循环程序设计的基本原理和方法。
2. 掌握不同编程语言中循环结构的实现方式。
3. 学会使用循环程序解决实际问题。
二、实验环境1. 操作系统:Windows 102. 编程语言:Python3.8.03. 编程工具:PyCharm三、实验内容1. 循环结构的基本概念循环结构是程序设计中的一种常见结构,用于重复执行一段代码。
在Python中,常见的循环结构有while循环、for循环和嵌套循环。
2. while循环while循环是一种基于条件的循环结构,当条件满足时,循环体中的代码会被重复执行。
实验示例:```pythoni = 0while i < 5:print(i)i += 1```3. for循环for循环是一种基于迭代对象的循环结构,通常用于遍历列表、元组、字符串等可迭代对象。
实验示例:```pythonfor i in range(5):print(i)```4. 嵌套循环嵌套循环是指在循环体内部再嵌套一个循环结构。
实验示例:```pythonfor i in range(3):for j in range(3):print(f"i={i}, j={j}")```5. 循环控制语句循环控制语句用于改变循环的执行流程,包括break、continue和pass。
实验示例:```pythonfor i in range(5):if i == 3:breakprint(i)```6. 循环程序解决实际问题(1)计算1到100的偶数之和```pythonsum = 0for i in range(1, 101):if i % 2 == 0:sum += iprint(sum)```(2)判断一个整数是否为水仙花数```pythonnum = int(input("请输入一个整数:")) temp = numsum = 0while temp > 0:digit = temp % 10sum += digit 3temp //= 10if sum == num:print(f"{num}是水仙花数")else:print(f"{num}不是水仙花数")```四、实验总结通过本次实验,我对循环程序设计有了更深入的了解。
《python语言实训》面向对象程序设计实验一、实验目的1、掌握面向对象程序设计的思想。
2、掌握类的定义。
3、掌握对象的创建和使用。
4、掌握属性和方法的访问控制、★△类属性和实例属性、类的方法。
5、掌握继承、多重继承、多态。
6、掌握程序流程控制语句、函数与模块、数据结构等知识内容与面向对象程序设计的综合应用。
二、实验内容1、对象的创建和使用,在Python中,用赋值的方式创建类的实例,创建对象后,通过实例对象访问这个类的属性和方法。
2、从面向过程到面向对象,面向过程程序设计采用自顶向下的方法,分析出解决问题所需要的步骤,将程序分解为若干个功能模块,每个功能模块用函数来实现。
3、定义属性、定义方法、创建实例对象、调用属性和方法。
4、构造方法,在生成对象时调用,可以用来进行一些属性初始化操作,不需要显示去调用,系统会默认去执行。
5、类方法、实例方法和静态方法,方法的访问控制使用。
6、类与对象的应用、属性与方法的应用。
7、类中内置的方法、类方法、实例方法、静态方法。
8、继承与多态的应用、面向对象程序设计案例的应用。
9、Python程序控制结构、数据结构、函数与模块与面向对象程序设计方法的综合案例。
三、主要实验设备及器材1、计算机终端1套(配备Windous10系统或Windows7系统,英特尔i5及以上的处理器,4G以上内存,256G硬盘)。
2、多媒体教学设备1套。
3、网络设备套件1套。
4、Python软件、PyCharm软件、Anaconda软件等Python软件1套。
四、实验步骤(1)演示性实验教师利用多媒体等设备,对本章节的知识在Python语言的相关软件上进行演练。
(2)验证性实验学生指对Python的语言对象有了一定了解,并提出自己的相关问题,然后学生利用实验室的电脑设备解决问题。
(3)设计性实验设计程序以解决金融工程中的计量分析问题。
2、实验步骤(1)Python的Car对象的创建。
(2)在精灵宝可梦游戏中创建小火龙角色,对给出的各个属性进行迭代和私有化。
《C++面向对象程序设计》实验内容实验1 C++程序设计初步1.实验目的(1)了解在C++编译系统(Visual C++6.0)上如何编辑、编译、连接和运行一个C++程序。
(2)通过运行简单的C++程序, 初步了解C++源程序的结构和特点。
(3)掌握简单C++程序的编写和调试方法。
(4)掌握重载函数的定义方法。
(5)能正确使用引用型变量。
2.实验内容和步骤(1)在Visual C++环境下编译和运行C++程序①先进入Visual C++6.0环境。
②在自己指定的子目录中建立一个名为test.cpp的新文件。
③从键盘输入以下程序int main(){int a,b;c=a+b;cout>> “a+b=”>>a+b;}选择Build→Compile test.cpp命令, 对此源程序进行编译。
观察和分析编译信息。
⑤根据编译信息指出的错误, 修改程序。
再进行编译, 如果还有错, 再重复此过程, 直到编译不出错为止。
⑥选择Build→Build test.exe命令, 对程序进行连接, 如果不出错, 就会生成可执行程序test.exe。
⑦选择Build→Execute test.exe命令, 执行可执行程序test.exe。
观察屏幕的变化。
在输出窗口应显示程序运行结果。
⑧分析结果是否正确, 如果不正确或认为输出格式不理想, 可以修改程序, 然后重新执行以上④和⑧步骤。
改过后的程序:#include<iostream>using namespace std;int add(int x,int y){int z;z=x+y;return(z);}int main(){int a,b,c;cin>>a>>b;c=add(a,b);cout<<"a+b="<<c<<endl;return 0;}实验2 C++对C的扩充(2)编一个程序, 用来求2个或3个正整数中的最大数。
C语言程序设计实验指导含答案实验一:C语言程序设计基础实验内容:本实验主要以C语言的基础语法为主,通过一些简单的示例和练习来帮助学生熟悉C语言的基本概念和语法规则。
实验步骤:1. 编写一个简单的C程序,输出"Hello, World!"。
要求程序能够顺利编译并执行。
答案:#include <stdio.h>int main(){printf("Hello, World!");return 0;}2. 基于上一题的程序,修改代码,要求程序输入一个整数,并将其乘以2输出。
答案:#include <stdio.h>int main(){int num;printf("请输入一个整数:");scanf("%d", &num);printf("乘以2的结果为:%d", num * 2);return 0;}3. 编写一个C程序,输入一个圆的半径,计算并输出其面积和周长。
要求保留2位小数。
答案:#include <stdio.h>#define PI 3.14159int main(){float radius;printf("请输入圆的半径:");scanf("%f", &radius);float area = PI * radius * radius;float circumference = 2 * PI * radius;printf("圆的面积为:%.2f\n", area);printf("圆的周长为:%.2f\n", circumference);return 0;}实验二:循环和判断语句实验内容:本实验主要通过不同的练习来帮助学生熟悉和掌握C语言中的循环和判断语句的使用方法。
VBA程序设计基础实验实验前预习:书本:例8-5、8-6、8-7、8-8、8-9、8-14、8-16实验教程:P61页习题8.5——8.15、习题8.18、习题8.20一、了解程序设计三种基本结构1 顺序结构程序运行时自上而下依次执行语句,称为顺序结构。
2 分支结构根据指定条件的当前值在两条或多条程序路径中选择一条执行。
1.单行If语句▪单行If语句格式如下:•If 条件Then 语句序列1 [Else 语句序列2]2.多行If语句•If 条件1 Then[语句序列1][ElseIf 条件2 Then[语句序列2]]……[ElseIf 条件n Then[语句序列n]][Else[语句序列n+1]]End If3.Case(情况)语句•Select Case 测试表达式Case 值列表1[语句序列1]Case 值列表2[语句序列2]]…[Case 值列表n[语句序列n]][Case Else[语句序列n+1]]End Select3 循环结构循环结构是根据指定条件的当前值来决定语句是否要重复执行。
1.For语句▪For语句格式如下:•For 循环变量=初值To 终值[Step 步长]循环体语句序列Next [循环变量]2.While语句▪While格式如下:•While 条件循环体语句序列Wend3.Do语句▪与While语句相比,Do语句可以先判断条件后执行循环体(格式一、格式二),也可以先执行循环体后判断条件(格式三、格式四)。
▪Until与While区别:while后的条件成立时,执行循环体语句,Until后的条件成立时,则是退出循环体语句。
二、动手编写下列程序,熟悉“立即窗口”和“窗体”两种编程环境。
'1输入一个数字,然后判断该数的奇偶性。
(书本例8-6)Public Sub oddeven_sub2()Dim x As Integerx = InputBox("请输入一个整数", "奇偶数判断")If x Mod 2 = 1 ThenMsgBox "奇数"ElseMsgBox "偶数"End IfEnd Sub'2输入一个分数,程序自动给出该分数的等级,85分以上为优秀,60-85分为合格,小于60为不合格。
(书本例8-7)Public Sub Grade_sub1()Dim score As Integer, grade As Stringscore = InputBox("输入百分制成绩:")If score >= 85 Thengrade = "优秀"ElseIf score >= 60 Thengrade = "合格"Elsegrade = "不合格"End IfMsgBox gradeEnd Sub'3计算100以内所有数字的和,即1+2+3+...+100=?(书本例8-14)Private Sub sum_sub1()Dim sum As Integersum = 0For i = 1 To 100 Step 1sum = sum + iNext iMsgBox "1-100的和为" & sumEnd Sub'4找出100到200之间的所有偶数,要求每个偶数单独一行显示。
(实验教程P64习题8.8)Public Sub even()Dim i As Integer, s As Strings = "100至200之间的偶数有:"For i = 100 To 200 Step 2s = s & Chr(10) + Chr(13) & i '换行Chr(10)+ 回车Chr(13),用于强制换行。
这里使得每个数字单独一行显示。
Next iMsgBox (s) '括号可以省略End Sub'5输入一个串字符,程序将该字符串倒序处理后输出。
(实验教程P66习题8.13)Public Sub reverse()Dim s$, i%, j%, t$ '定义s,t为字符型变量,i,j为整型变量。
s = InputBox("请输入字符串")Debug.Print "原字符串:"; si = 1: j = Len(s) '多行命令写成一行,需要用冒号:隔开While i < j 'i每次递增1,j递减1,当i<j,表示倒序置换完毕t = Mid(s, i, 1)Mid(s, i, 1) = Mid(s, j, 1)Mid(s, j, 1) = ti = i + 1j = j - 1WendDebug.Print "倒序后的字符串:"; sEnd Sub'6将上面第2题,改用窗体风格实现,运行界面如下图所示,文件名保存为成绩等级。
参考代码:Private Sub Command4_Click()Dim score As Integer, grade As Stringscore = Text0.ValueIf score >= 85 Thengrade = "优秀"ElseIf score >= 60 Thengrade = "合格"Elsegrade = "不合格"End IfText2.Value = gradeEnd Sub'7将上面第5题,改用窗体风格实现,运行界面如下图所示,文件名保存为倒序处理。
参考代码:Private Sub Command4_Click()Dim s$, i%, j%, t$ '定义s,t为字符型变量,i,j为整型变量。
s = text0.valuei = 1: j = Len(s) '多行命令写成一行,需要用冒号:隔开While i < j 'i每次递增1,j递减1,当i<j,表示倒序置换完毕t = Mid(s, i, 1)Mid(s, i, 1) = Mid(s, j, 1)Mid(s, j, 1) = ti = i + 1j = j - 1WendText2.value=sEnd Sub三、复制、运行、修改、调试,最终理解下列程序。
'1输入一个数字,然后判断该数的奇偶性。
(书本例8-5、例8-6)Public Sub oddeven_sub1() '方法一,单行if语句。
Dim x As Integerx = InputBox("请输入一个整数", "奇偶数判断")If x Mod 2 = 1 Then MsgBox "奇数" Else MsgBox "偶数"End SubPublic Sub oddeven_sub2() '方法二,多行if语句。
Dim x As Integerx = InputBox("请输入一个整数", "奇偶数判断")If x Mod 2 = 1 ThenMsgBox "奇数"ElseMsgBox "偶数"End IfEnd Sub'2输入一个年份,判断其是否闰年。
(实验教程P61习题8.5)Public Sub leap()Dim year As Integeryear = InputBox("请输入一个年份", "判断闰年")If (year Mod 4 = 0 And year Mod 100 <> 0) ThenMsgBox year & "是闰年"ElseMsgBox year & "不是闰年"End IfEnd Sub'3计算应付托运费,50kg以内0.20元/kg,超过部分0.50元/kg. (实验教程P61习题8.6)Private Sub Command1_Click() '确定按钮代码Dim w As SingleDim P As Singlew = Text1.ValueIf w > 50 ThenP = (w - 50) * 0.5 + 50 * 0.2ElseP = w * 0.2End IfText2.Value = PEnd SubPrivate Sub Command2_Click() '清除按钮代码Text1.Value = ""Text2.Value = ""End SubPrivate Sub Command3_Click() '退出按钮代码DoCmd.CloseEnd Sub'4输入三个数,程序给出最大数。
(实验教程P63习题8.7)Private Sub Command0_Click() '确定按钮代码Dim a As Single, b As Single, c As Single, max As Singlea = Text1.Valueb = Text2.Valuec = Text3.Valuemax = aIf b > max Then max = bIf c > max Then max = cText4.Value = maxEnd Sub'5输入一个分数,程序自动给出该分数的等级,85分以上为优秀,60-85分为合格,小于60为不合格。
(书本例8-7、例8-9)Public Sub Grade_sub1() '方法一:多行if语句。
Dim score As Integer, grade As Stringscore = InputBox("输入百分制成绩:")If score >= 85 Thengrade = "优秀"ElseIf score >= 60 Thengrade = "合格"Elsegrade = "不合格"End IfMsgBox gradeEnd SubPublic Sub Grade_sub2()'方法二:case(情况)语句1。
Dim score As Integer, grade As Stringscore = InputBox("输入百分制成绩:")Select Case scoreCase Is >= 85grade = "优秀"Case Is >= 60grade = "合格"Case Elsegrade = "不合格"End SelectMsgBox gradeEnd SubPublic Sub Grade_sub3() ''方法二:case(情况)语句2。