实验三 顺序结构
实验3 结构化程序设计初步
实验3 结构化程序设计初步1.实验目的(1)掌握C++赋值语句与输入输出语句的使用方法，区别C语言的输入输出语句(2)掌握关系运算符、逻辑运算符与条件运算符的运算规则并能熟练计算由这些运算符构成的表达式(3)深入掌握C++各种流程控制语句（选择语句、循环语句和跳转语句）的要点和使用方法(4)能够灵活地运用C++各种语句进行综合程序设计2.实验内容2.1程序分析题。
分析下面程序的运行结果，上机运行程序，观察其输出结果与你的分析结果是否相同？(1)有如下程序，从键盘输入123456.78↙后，变量c1、c2、a、b的值分别是多少？#include <iostream.h>void main( ){char c1,c2;int a;float b;cin>>c1>>c2>>a>>b;cout<<c1<<" "<<c2<<" "<<a<<" "<<b<<'\n';}(2)#include <iostream.h>#include <iomanip.h>void main( ){double a=123.456789012345;cout<<a<<endl;cout<<setprecision(9)<<a<<endl;cout<<setprecision(6)<<a<<endl;cout<<setiosflags(ios::fixed)<<a<<endl;cout<<setiosflags(ios::fixed)<<setprecision(8)<<a<<endl;}(3)#include <iostream.h>#include <iomanip.h>void main( ){double a=123.456789012345;cout<<setiosflags(ios::scientific)<<a<<endl;cout<<setiosflags(ios::scientific)<<setprecision(4)<<a<<endl;}#include <iomanip.h>void main( ){int b=123456;cout<<b<<endl;cout<<hex<<b<<endl;cout<<setiosflags(ios::uppercase)<<b<<endl;cout<<dec<<setw(10)<<b<<','<<b<<endl;cout<<setfill('*')<<setw(10)<<b<<endl;cout<<setiosflags(ios::showpos)<<b<<endl;}(5)有如下程序，从键盘输入86 24 75↙后，程序的输出结果为多少，为什么？#include <iostream.h>void main( ){int a,b,c;cin>>a>>oct>>b>>hex>>c;cout<<a<<" "<<b<<" "<<c<<endl;}(6)#include <iostream.h>#include <iomanip.h>void main( ){short a=-1;cout<<dec<<a<<" "<<oct<<a<<" "<<hex<<a<<endl;}(7)#include <stdio.h>void main( ){int a=-1;printf("dec:%d,oct:%o,hex:%x,unsigned:%u\n",a,a,a,a);}(8)以下程序中，为了给整型变量k1,k3赋值为10，给k2,k4赋值为20，如何输入数据？#include <stdio.h>void main( ){int k1,k2,k3,k4;scanf("%d%d",&k1,&k2);scanf("%d,%d",&k3,&k4);printf("k1=%d,k2=%d,k3=%d,k4=%d\n",k1,k2,k3,k4);}void main( ){int a=3,b=4,c=5,d=6,e,f;e=a>b&&(c=8);cout<<c<<" "<<e<<endl;f=a<b&&(e=c<d);cout<<e<<" "<<f<<endl;f=a<b||(d>0?d++:d--);cout<<d<<" "<<f<<endl;}(10)#include <iostream.h>void main( ){int x,y,z,w;z=(x=-1)?(y=-1,y+=x+5):(x=7,y=9);w=y*'a'/4;cout<<x<<" "<<y<<" "<<z<<" "<<w<<endl;}(11)#include <iostream.h>void main( ){int a=5,b=7,c=3,t;if(a= -1) cout<<"Yes"<<endl;else cout<<"No"<<endl;if(a>b) { t=a;a=b;b=t; }if(a>c) { t=a;a=c;c=t; }if(b>c) { t=b;b=c;c=t; }cout<<a<<" "<<b<<" "<<c<<endl;}解析：a被赋值为-1，输出YESIf语句成立则执行，不成立则不执行分析只有b>c成立，=后面的值赋给左边的，顺序从左到右(12)#include <iostream.h>void main( ){ char c='3';switch(c-'1'){case 0:case 1:cout<<c+1<<endl;case 2:cout<<c+2<<" "<<char(c+2)<<endl;default:cout<<c+3<<" "<<char(c+3)<<endl;}}‘3’是字符型，ASCLL码为051，执行Switch时，根据switch表达式的值找到与之匹配的case子句，就从此子句开始执行下去，不再进行判断(13)#include <iostream.h>void main( ){int a=2,b=7,c=5;switch(a>0){case 1:switch(b<0){case 1: cout<<"+";break;case 2: cout<<"-";break;}case 0:switch(c==5){case 0: cout<<"*";break;case 1: cout<<"/";break;default: cout<<"#";break;}default: cout<<"$";}cout<<"\n";}a>0是真，值为1，执行case1，继续下面，b<0是假，不执行其中的case1.case2c==5是真，值为1，执行case1,输出/,其后有break，被中断不再执行分句里其下的命令，default: cout<<"$"前面没有break，则输出$(14)#include <iostream.h>void main( ){int a=10,b=0;do{a+=2;b+=a;cout<<"a="<<a<<",b="<<b<<endl;if(b>20) break;}while(a!=14);}(15)#include <iostream.h>void main( ){int i,j;for(i=10;i<20;i++){for(j=2;j<=i/2;j++)if(i%j==0) break;if(j>i/2)cout<<i<<" ";}cout<<endl;}(16)#include <iostream.h>void main( ){int i,j,m=0;for(i=0;i<5;i++)for(j=0;j<5;j++)if(j>=i) m++;cout<<m<<endl;}(17)#include <iostream.h>void main( ){int i,j;for(i=1;i<=9;i++){for(j=1;j<=9;j++){ if(j>i) break;cout<<i<<"*"<<j<<"="<<i*j<<" ";}cout<<endl;}}(18)#include <iostream.h>void main( ){int i=1,sum=0;while(i<=100){if(i%2==0){ i++; continue;}sum+=i;i++;}cout<<sum<<endl;}2.2编程题(1)编写程序从键盘输入一个大写字母，将其转换为小写字母并输出。
实验三 程序控制结构
实验（实训）报告项目名称实验三程序控制结构所属课程名称C语言程序设计项目类型验证性实验(实训)日期2011.4.2班级10信息与计算科学学号100112200134姓名邹雯指导教师马雪英浙江财经学院教务处制一、实验（实训）概述：【实验目的】1．熟练掌握顺序结构、分支语句、循环结构的使用；理解break语句在多路分支处理中的作用。
2．理解break，continue语句的作用。
3．熟练掌握程序测试和调试。
【实验要求】1．正确建立控制台工程。
2．正确定义变量、正确使用控制结构表达程序逻辑。
3．能区分break，continue等语句的作用。
4．熟练使用VC的DEBUG功能对程序进行调试。
【基本原理】见第三章课件【实施环境】（使用的材料、设备、软件）Visual C++ 6.0二、实验（实训）内容：实验任务一用DEBUG跟踪程序流程，回答问题第1题【项目内容】一只1英寸的蠕虫在一口长为n英寸的井的底部。
每分钟蠕虫可以爬u英寸，但必须休息1分钟才能接着爬。
在休息的过程中，蠕虫又下滑了d英寸。
上爬和下滑重复进行。
蠕虫需要多长时间才能爬出井？不足一分钟按一分钟计，并且假定只要在某次上爬过程中蠕虫爬到了井的顶部，那么蠕虫就完成任务了。
已经有如下正确的程序了，请为该程序建立控制台工程，然后按照要求进行测试和调试。
#include <iostream>using namespace std;int main(){int n; //n是井的高度(0<n<100)int u; //u是蠕虫每分钟上爬的距离int d; //d是蠕虫在休息的过程中下滑的距离(假定d<u,u>0,d>0)int time=0; //所花时间int curh=0; //当前高度int s=1; //s=1表示上爬，s=-1表示下滑cin >> n >> u >> d;while(curh<n){if(s==1) //上升curh+=u;//上升u距离else//下滑curh-=d;//下滑d距离time++;s=-s;}cout << time << endl;return 0;}【方案设计】请画出该程序的流程图。
实验三 实现顺序栈的插入和删除算法
实验三顺序栈的插入和删除算法一．实验目的：掌握栈在顺序存储结构上的插入和删除运算。
二．实验要求：1. 给出程序设计的基本思想、原理和算法描述。
2. 画出程序流程图；根据数据结构有关知识编出算法程序；3. 源程序给出注释。
4. 保存和打印出程序的运行结果，并结合程序进行分析。
三．实验内容：1．编写函数实现顺序栈中的插入（入栈）;2．编写函数实现顺序栈中的删除（出栈）;3．编写程序实现以下功能:(1) 创建一个顺序栈:22,33,45,99,8;(2) 调用插入函数,令元素58入栈;(3) 调用删除函数,删除栈顶的三个元素;(4) 输出最终顺序栈中的元素。
算法分析：进栈，判断栈是否已满，若栈满，则进行溢出处理，若栈未满，将栈顶指针加一，将新元素送入到栈顶指针所指的位置。
出栈，判断栈是否为空，若栈空，进行下溢处理，若栈不空，将栈顶元素赋给变量，将栈顶指针退一。
流程图：源程序：#include<stdio.h>#include<stdlib.h>#define MAXSIZE 50/*定义数组长度*/int stack[MAXSIZE];/*栈元素的数据类型*/ int top;void push(int x){if(top==MAXSIZE-1){printf("栈满溢出\n");exit(1);}else{top++;stack[top]=x;}}int pop(){int x;if(top==-1){printf("栈空溢出\n");exit(1);}else{x=stack[top];top--;}return x;}main(){ int i;top=0;printf("请输入顺序栈\n");for(i=1;i<=5;i++){scanf("%d",&stack[i]);top++;}push(58);for(i=1;i<=top;i++)printf("%3d",stack[i]);/*输出删除后的数组*/printf("\n");for(i=1;i<=3;i++)pop();for(i=1;i<=top;i++)printf("%3d",stack[i]);printf("\n");}实验小结：通过本次实验让我对栈的算法有了进一步了解，让我受益良多。
实验3-顺序结构、选择结构
实验3-顺序结构、选择结构以下是为大家整理的实验3-顺序结构、选择结构的相关范文，本文关键词为实验,顺序,结构,选择,c语言程序设计,实验,报告,序号,项，您可以从右上方搜索框检索更多相关文章，如果您觉得有用，请继续关注我们并推荐给您的好友，您可以在教育文库中查看更多范文。
《c语言程序设计》实验报告实验序号：3实验项目名称：顺序结构、选择结构学号实验地点1507052114实1-316姓名指导教师何蕾吴芸专业、班级实验时间15软件工程1班20XX/11/10一、实验目的及要求1.2.3.4.掌握正确使用逻辑运算符和逻辑表达式表示逻辑判断；熟练掌握用if语句编写选择结构的程序；掌握switch语句的正确使用；初步了解调试程序的一般方法。
二、实验设备（环境）及要求使用Turboc或Visualc++6.0；windows 系列操作系统的环境。
三、实验内容与步骤0.根据输入的百分制成绩score，转换成相应的五分制成绩grade并打印输出。
标准为：grade=A90≤score【算法提示】1）定义实变量c,f2）提示输入\3）读入f4）根据公式计算c5）打印两位精度的结果。
测试结果：华氏温度f100.250.523.782．有一函数x(x=10)用scanf函输入x的值,求y 值。
【算法提示】1)定义实变量x,y2)提示输入\3)读入x4)判断x所在的区间，对应出y的计算公式并求值（进一步细化）5)打印结果。
运行结构截图：摄氏温度c37.92-17.50-4.573．从键盘上输入一个正整数，判断这个数能否同时被3和5整除；运行结构截图：4．设计算法输入一个四位正整数，将它们倒排，例如输入1234，输出4321。
(提示：分别应用/求整数部分，%求余数部分。
例如7/5=1，7%5=2)。
运行结构截图：5．某公司的招聘条件如下：①experiencewithc②bachelordegree③lessthan30要求屏幕输出如下：根据应聘者输入数据逐步提问，如应聘者输入n，则提示应聘者全满足则输出【提示】：必须考虑用户输入大写Y或者n。
科学实验的步骤和要点 → 科学实验的顺序和要素
科学实验的步骤和要点→ 科学实验的顺序和要素科学实验的顺序和要素科学实验是科学研究和探索的重要手段之一，它通过系统性的步骤和要点来获取数据、验证假设和推断结论。
下面是科学实验的顺序和要素：步骤1. 提出问题：明确研究的焦点，提出一个明确可量化的问题。
提出问题：明确研究的焦点，提出一个明确可量化的问题。
2. 背景研究：调查和收集与研究问题相关的现有信息和数据。
背景研究：调查和收集与研究问题相关的现有信息和数据。
3. 制定假设：根据背景研究的结果，制定一个可以进行实验检验的假设。
制定假设：根据背景研究的结果，制定一个可以进行实验检验的假设。
4. 实验设计：确定实验的变量、控制组和实验组，设计实验步骤和测量方法。
实验设计：确定实验的变量、控制组和实验组，设计实验步骤和测量方法。
5. 数据收集：按照实验设计收集数据，并进行准确的记录。
数据收集：按照实验设计收集数据，并进行准确的记录。
6. 数据分析：使用适当的统计方法和工具分析收集到的数据。
数据分析：使用适当的统计方法和工具分析收集到的数据。
7. 得出结论：根据数据分析的结果，判断实验是否支持或拒绝假设，并得出结论。
得出结论：根据数据分析的结果，判断实验是否支持或拒绝假设，并得出结论。
8. 数据展示：使用图表、表格等方式清晰地展示实验结果。
数据展示：使用图表、表格等方式清晰地展示实验结果。
9. 讨论和解释：对实验结果进行讨论和解释，探索可能的误差或其他因素对结果的影响。
讨论和解释：对实验结果进行讨论和解释，探索可能的误差或其他因素对结果的影响。
10. 提出建议：根据实验结果，提出对进一步研究或实践的建议。
提出建议：根据实验结果，提出对进一步研究或实践的建议。
要点1. 准确性：实验步骤和数据收集需要准确无误，以确保结果的可靠性和可重复性。
准确性：实验步骤和数据收集需要准确无误，以确保结果的可靠性和可重复性。
2. 重复性：实验应该能够被其他研究者重复进行，以验证实验的结果和推断的有效性。
实验三指导
实验三顺序结构程序设计一、实验目的(1) 掌握汇编程序的基本格式和结构(2) 掌握顺序结构程序的设计方法(3) 掌握ADD、ADC、SUB、SBC、MUL、IMUL、DIV、IDIV等算术运算指令。
(4) 掌握各种运算过程中各标志位的变化情况。
二、实验要求1、在数据段定义若干变量，计算由各变量组成的加减乘除混合多项式，结果送内存变量。
三、试验内容1、编程实现：首先将FIRST字变量与SECONFD字变量相加，结果存入THIRD1存储字中，然后将FIRST与SECOND 两个字变量相乘，结果存入THIRD2开始的两个字中。
提示：FIRST与SECOND都是字变量，因此存放和的THIRD1单元也必须是字变量。
而存放积的单元THIRD2必须是双字。
2、编写程序完成下式的计算，其中X、Y、Z和W均为存放32位无符号数的单元地址：W=Z-（X+6）-（Y-8）3、编程实现综合算术运算功能：(V-(X*Y+Z-540))/X其中，X、Y、Z、V均为16位带符号数，已分别装入X、Y、Z、V单元中，要求上式计算结果的商存入AX，余数存入DX寄存器。
4、编写一个32位无符号数除法的程序。
要求将存放在NUM1中的32位无符号数与存放在NUM2中的16位无符号数相除，结果存放在NUM3和NUM4中。
根据题目要求，应把存放在数据段内的被除数NUM1定义为32位，除数NUM2定义为16位，商NUM3定义为16位，余数NUM4定义为16位。
提示：①数据段定义②32位被除数与16位除数相除的程序段③本程序执行结果为：2A8B7654H÷5ABCH＝7809H……25B8H5、试编写一个程序，要求把BL中的数除以CL中的数，并把其商乘以2，最后的结果存入DX寄存器中。
6、编程计算24，要求将123B0H~123BAH的内存单元定义为数据段四、实验报告要求1、源程序在DEBUG状态下查看运行。
2、标准的实验报告，实验报告中要有源程序和执行结果并附带必要的屏幕截图。
c语言第二部分 实验内容
三、实验内容
1．阅读并输入如下程序，查看运行结果，并分析其功能。 # include "stdio.h" main ( ) { int a, b, c, s ; a = 5; b = 4; c = 6； s = (a+b+c)/ 3; printf (" a = %d, b = %d, c = %d \n, s = %d ", a, b, c, s) ; }
C语言程序设计实验·设计·习题
2．下面是一正方形面积的计算程序，通过输入不同的边长，求 出不同的面积。输入此程序并试运行。 注意：程序中含有输入语句，运行时将会停留在另一窗口中等待 输入数据。 # include"stdio.h" main ( ) { int r, s ; scanf (" %d "，&r) ; s= r*r; printf (" s = %d ", s) ; } 3．在Turbo C中调试并修改以下C程序中的错误。
C语言程序设计实验·设计·习题
三、实验内容
1．改正书中所给的相关程序的错误。 2．程序填空。 （1）按程序中注释的要求填输出语句。 （2）要求运行时必须按如下格式输入数据，请填空。 3．程序编译成功，只是说明没有语法错误，但并不一定能得出 正确结果，因为有可能存在编程逻辑错误。这时，我们需要跟踪变量、 调试程序，找出问题所在。调试的一般方法有： （1）单步跟踪：选择Run菜单下的Step命令，也可以直接按快捷键 F7（可跟踪进函数、过程）或快捷键F8，这样可以每条语句单独运行。 （2）运行至光标处：先将光标移至目标语句，然后选择Run菜单下 的Go to Cursor命令，或按快捷键F4，这样可以连续运行从开始到光 标处的一段程序。
c语言顺序结构实验报告
c语言顺序结构实验报告篇一：实验三顺序结构程序设计实验报告实验三顺序结构程序设计实验报告一、实验目的1. 掌握掌握赋值语句的使用方法。
2. 各种类型数据的输入输出的方法，能正确使用各种格式转换符。
3. 进一步掌握编写程序和调试程序的方法。
二、实验内容(源代码)1. sy3-(1) ①#includeint main() { int a,b;//基本整型float d,e; //单精度浮点型 char c1,c2;//字符型 double f,g;//双精度浮点型long m,n; //长整型unsigned int p,q;//"unsiguld"改成"unsigned" 无符号整型a=61,b=62; c1='a';c2='b';//'a''b'的"'"不能掉了d=3.56;e=-6.87; //d,e之间用";"隔开f=3157.890121;g=0.9; m=50000;n=-60000; p=32768;q=40000;printf("a=%d,b=%d\nc1=%c,c2=%c\nd=%6.2f,e=%6.2f\n", a,b,c1,c2,d,e);//"""与"a"之间的","不能掉了,"\"不能写成"/" printf("f=%15.6f,g=%15.12f\nm=%1d,n=%1d\np=%u,q=%u\ n",f,g,m,n,p,q); //f后的q改为g}③#includeint main() {int a,b;//基本整型 float d,e; //单精度浮点型char c1,c2;//字符型double f,g;//双精度浮点型 long m,n; //长整型unsigned int p,q;//"unsiguld"改成"unsigned" 无符号整型 a=61,b=62;c1=a;c2=b; //c1,c2之间用";"隔开 f=3157.890121;g=0.9; d=f;e=g;p=a=m=50000;q=b=n=-60000;printf("a=%d,b=%d\nc1=%c,c2=%c\nd=%6.2f,e=%6.2f\n", a,b,c1,c2,d,e);//"""与"a"之间的","不能掉了,"\"不能写成"/"printf("f=%15.6f,g=%15.12f\nm=%1d,n=%1d\np=%u,q=%u\ n",f,g,m,n,p,q); //f后的q改为g④#includeint main() {int a,b;//基本整型 float d,e; //单精度浮点型char c1,c2;//字符型double f,g;//双精度浮点型 long m,n; //长整型unsigned int p,q;//"unsiguld"改成"unsigned" 无符号整型 a=61,b=62;c1=a;c2=b; //c1,c2之间用";"隔开f=3157.890121;g=0.9; d=f;e=g;p=a=m=50000;q=b=n=-60000;printf("a=%d,b=%d\nc1=%d,c2=%d\nd=%d,e=%d\n",sizeof (a),sizeof(b),sizeof(c1),sizeof(c2),sizeof(d),sizeo f(e));printf("f=%d,g=%d\nm=%d,n=%d\np=%d,q=%d\n",sizeof(f ),sizeof(g),sizeof(m),sizeof(n),sizeof(p),sizeof(q) );}2. sy3-(2)#include int main() {float h,r,c,s1,s2,v1,v2; //定义float pi=3.1415926; //赋值printf("圆半径r=,圆柱高h=:");//提示scanf("%f,%f",&r,&h); //输入c=2*pi*r; //计算s1=pi*r*r;//"*"不可省略s2=4*s1;v1=4.0/3.0*s1*r; v2=s1*h;printf("圆周长:c=%6.2f\n",c); //输出 printf("圆面积:s1=%6.2f\n",s1);printf("圆球表面积:s2=%6.2f\n",s2); printf("圆球体积:v1=%6.2f\n",v1); printf("圆柱体积:v2=%6.2f\n",v2); return 0;}3. sy3-(3)#include#include //不要忘了数学函数 int main() {float p,r5,r3,r2,r1,r0,p1,p2,p3,p4,p5; //定义p=1000;//赋值printf("r5=,r3=,r2=,r1=,r0=:");//提示 scanf("%f,%f,%f,%f,%f",&r5,&r3,&r2,&r1,&r0); //输入 p1=p*r5*5; //计算}p2=p*(1+2*r2)*(1+3*r3)-p; p3=p*(1+3*r3)*(1+2*r2)-p; p4=p*pow(1+r1,5)-p; p5=p*pow(1+r0/4,20)-p;printf("方案1的利息:p1=%f\n",p1); //输出printf("方案2的利息:p2=%f\n",p2); printf("方案3的利息:p3=%f\n",p3); printf("方案4的利息:p4=%f\n",p4); printf("方案5的利息:p5=%f\n",p5); return 0;4. sy3-(4)① #include int main() {char c1='C',c2='h',c3='i',c4='n',c5='a';//定义与赋值 c1=c1+4;//计算 c2=c2+4; c3=c3+4; c4=c4+4; c5=c5+4;printf("用printf语句输出结果为:");//提示printf("%c%c%c%c%c\n",c1,c2,c3,c4,c5);//输出c1,c2之间的","不可省略 printf("用putchar语句输出结果为:");//提示putchar(c1);//输出putchar(c2); putchar(c3); putchar(c4); putchar(c5);printf("\n");//换行不要省略 return 0;}② #include int main(){ }char c1='T',c2='o',c3='d',c4='a',c5='y';//定义与赋值 c1=c1-22;//计算 c2=c2-22; c3=c3-22; c4=c4-22; c5=c5-22;printf("用printf语句输出结果为:");//提示printf("%c%c%c%c%c\n",c1,c2,c3,c4,c5);//输出c1,c2之间的","不可省略 printf("用putchar语句输出结果为:");//提示putchar(c1);//输出putchar(c2); putchar(c3); putchar(c4); putchar(c5);printf("\n");//换行不要省略 return 0;③ #include int main(){char c1='T',c2='o',c3='d',c4='a',c5='y';//定义与赋值 c1=c1-4;//计算 c2=c2-4; c3=c3-4; c4=c4-4; c5=c5-4;printf("用printf语句输出结果为:");//提示printf("%c%c%c%c%c\n",c1,c2,c3,c4,c5);//输出c1,c2之间的","不可省略 printf("用putchar语句输出结果为:");//提示putchar(c1);//输出putchar(c2); putchar(c3); putchar(c4); putchar(c5);printf("\n");//换行不要省略 return 0;}篇二：C语言实验二程序、总结顺序结构与输入、输出方法实验二顺序结构与输入/输出方法1 学会使用C的有关算术运算符，以及包含这些运算符的表达式，特别是自增减运算符的使用。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
实验三顺序结构
【实验目的】
1．熟练掌握VB的基本数据类型。
2．熟练掌握基本的输入输出函数和语句。
3．掌握顺序结构程序设计的方法。
【实验内容】
1、定义两个变量a和b，它们的值分别由键盘输入。
编程计算并输出a 与b的和、差、积、商、a除以b的余数、a b的值。
（要求自己设计窗体及输
入、输出，必须有明确的示意提示）。
程序代码：
Private Sub Command1_Click()
Dim a#, b#
a = Val(InputBox("a=", "输入a值"))
b = Val(InputBox("b=", "输入b值"))
Print "a="; a, "b="; b
Print "和:a+b="; a + b
Print "差:a-b="; a - b, "或", "b-a="; b - a
Print "积:a*b="; a * b
Print "商:a/b="; a / b, "或", "b/a="; b / a
Print "a除以b的余数:"; a Mod b
Print "a^b的值:a^b="; a ^ b
End Sub
2、定义一个变量a，由键盘输入其值为任意四位整数，编程实现分别将个、
十、百、千位四个数字提取出来并打印输出结果。
【提示】利用mod和\运算符将每一位分离。
程序代码：
Private Sub Command1_Click()
Dim a%
a = Val(InputBox("输入任意四位整数"))
Print "一个四位整数:a="; a
Print "处于千位的数字是:"; a \ 1000
Print "处于百位的数字是:"; a \ 100 Mod 10
Print "处于十位的数字是:"; a \ 10 Mod 10
Print "处于个位的数字是:"; a Mod 10
End Sub
3、窗体上有两个标签标题分别为“身高”和“体重”，两个文本框，以及一
个标题为“输入”的按钮。
单击按钮则先后弹出两个输入对话框，分别输入身高和体重并显示在窗体中对应的文本框中（要求在程序中不使用任何变量）。
程序代码：
Private Sub Command1_Click()
Text1.Text = Val(InputBox("身高=(单位:cm)", "输入身高:"))
Text2.Text = Val(InputBox("体重=(单位:kg)", "输入体重:"))
End Sub
4、窗体上有一个文本框，标题为“复制”的命令按钮C1 。
编程实现：
运行时窗体标题为“修改文本框内容”（要求在Form_Activate ()事件中实现）；
单击按钮，按钮上的标题复制到文本框，并使按钮不可见；
单击窗体空白处，按钮可见但不可用
程序代码：
Private Sub Command1_Click()
Text1.Text = Command1.Caption
Command1.Visible = False
End Sub
Private Sub Form_Activate()
Form1.Caption = "修改文本框内容"
End Sub
Private Sub Form_Click()
Command1.Visible = True
Command1.Enabled = False
End Sub
5、P262 实验B 二、1。
程序代码：
Private Sub Command1_Click()
Dim F!, C!
F = Val(Text1)
C = 5 / 9 * (F - 32)
Text2.Text = Format(C, "0.00")
End Sub
Private Sub Command2_Click()
Dim F!, C!
C = Val(Text2)
F = 9 / 5 * C + 32
Text1.Text = Format(F, "0.00")
End Sub
6、设计窗体并实现：
•点选“连接”，将Text1和Text2的内容连接起来显示在Text3；
•点选“求和”，求出Text1和Text2之和显示在Text3 ；
•要求：在点“连接”之前Text3不可见，点“连接”之后“连接”按钮不可用；
程序代码：
Private Sub Command1_Click()
Text3.Visible = True
Text3.Text = Text1.Text & Text2.Text
Command1.Enabled = False
End Sub
Private Sub Command2_Click()
Dim a!, b!
Text3.Visible = True
a = Val(Text1.Text)
b = Val(Text2.Text)
Text3.Text = a + b
End Sub
【选作题】编程解决古代数学问题“鸡兔同笼”。
即已知在同一个笼子里有总数为m只鸡和兔，鸡和兔的总脚数为n只，求鸡和兔各有多少只？
【提示】鸡和兔的只数可通过已知输入的m，n列出方程求解。
但注意不要出现荒唐的解。
程序代码：
Private Sub Command1_Click()
Dim m%, n%
m = Val(Text1.Text)
n = Val(Text2.Text)
Text3.Text = (n - 2 * m) / 2
Text4.Text = (4 * m - n) / 2
End Sub
【提高题】参考教材P33的例2.5及P65的例4.2，完成P263实验2。
程序代码：
Private Sub Command1_Click()
Dim r!, s!
r = val(Text1.Text)
If Text1.Text <= 0 Then
MsgBox "输入错误，请输入正数", , "警告"
Else
s = 3.14 * r ^ 2
Text2.Text = Format(s, "0.00")
End If
End Sub
Private Sub Command2_Click()
Dim r!, d!
r = val(Text1.Text)
If Text1.Text <= 0 Then
MsgBox "输入错误，请输入正数", , "警告"
Else
d = 2 * 3.14 * r
Text3.Text = Format(d, "0.00")
End If
End Sub
Private Sub Text1_LostFocus()
If Not IsNumeric(Text1) Then
MsgBox "输入有非数字字符，请重新输入", , "警告"
Text1.Text = ""
Text1.SetFocus
End If
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer) If keyAsaxcii = 13 Then
End If
End Sub。