下面程序的功能是
给定程序中函数fun的功能是将形...
1.给定程序的功能是调用fun函数建立班级通讯录。
通讯录中记录每位学生的编号、姓名和电话号码。
班级的人数和学生的信息从键盘读入，每个人的信息作为一个数据块写到名为myfile5.dat 的二进制文件中。
#include <stdio.h>#include <stdlib.h>#define N 5typedef struct{int num;char name[10];char tel[10];}STYPE;void check();/**********found**********/int fun(STYPE *std){/**********found**********/FILE *fp; int i;if((fp=fopen("myfile5.dat","wb"))==NULL)return(0);printf("\nOutput data to file !\n");for(i=0; i<N; i++)/**********found**********/fwrite(&std[i], sizeof(STYPE), 1, fp);fclose(fp);return (1);}2.给定程序MODI1.C中函数fun的功能是：先将在字符串s中的字符按正序存放到t串，然后把s中的字符按逆序连接到t串的后面。
例如：当s中的字符串为：“ABCDE”时，则t中的字符串应为：“ABCDEEDCBA”。
#include <stdio.h>#include <string.h>void fun (char *s, char *t){int i, sl;sl = strlen(s);/************found************/for(i=0; i<= sl; i++)t[i] = s[i];for (i=0; i<sl; i++)t[sl+i] = s[sl-i-1];/************found************/t[2*sl]='\0';}3.请编写函数fun，其功能是：将两个两位数的正整数a、b合并形成一个整数放在c中。
智能眼镜应用程序介绍
智能眼镜应用程序介绍智能眼镜是一种结合了眼镜和智能设备功能的创新产品。
通过内置的应用程序，智能眼镜可以实现诸如导航、日程管理、信息推送等多种功能。
下面将为大家介绍智能眼镜应用程序的一些主要功能。
1. 语音助手功能智能眼镜内置了强大的语音助手，用户只需通过口头指令即可实现各种操作。
比如，用户可以用语音命令进行导航，告诉眼镜目的地，它将为用户提供路线规划和实时导航。
同时，用户还可以通过语音助手设置闹钟、查询天气、发送短信等。
2. 健康管理功能智能眼镜还配备了健康管理功能，可以实时监测用户的健康状况。
例如，它可以测量用户的心率、体温和血压，并将数据同步到手机上的应用程序中，帮助用户全面了解自己的身体状况。
如果用户的健康数据异常，智能眼镜还会提醒用户去医院进行进一步检查。
3. 社交娱乐功能智能眼镜也具备丰富的社交娱乐功能，可以通过应用程序实现视频通话、社交网络浏览等功能。
用户可以通过眼镜上的摄像头进行实时视频通话，也可以浏览自己的社交媒体账号，随时获取朋友圈的最新动态。
此外，智能眼镜还支持观看在线视频、听音乐等娱乐功能，为用户提供更多的娱乐选择。
4. 智能家居控制功能智能眼镜还可以作为智能家居的控制中心，通过应用程序实现对家中智能设备的控制。
用户可以通过语音或手势操作控制家中的电灯、空调、电视等设备，实现智能家居的便捷控制。
这样，用户就可以在离开家的情况下，通过智能眼镜远程控制家中的设备，提高家居生活的智能化水平。
智能眼镜应用程序的不断创新和发展，为用户带来了更多的便利和体验。
它不仅是一种时尚的眼镜，更是智能科技的集合体。
未来，随着技术的不断进步，智能眼镜的应用将会变得更加广泛，为人们的生活带来更多的便捷和快乐。
总结：智能眼镜应用程序集合了语音助手、健康管理、社交娱乐和智能家居控制等多种功能。
它不仅方便用户的日常生活，还提供了更多的娱乐选择。
随着科技的不断进步，智能眼镜应用程序将会不断创新，为用户带来更多的便利和快乐。
流程图的功能
流程图的功能流程图是一种图示工具，用于展示一个过程中各个环节之间的关系和流动。
它通过图形化的方式将一个复杂的过程简化，使人们更加易于理解和记忆。
流程图常用于业务流程设计、系统分析和程序算法设计等领域。
下面将介绍流程图的功能。
首先，流程图可以清晰地展示一个过程的流程和步骤。
它将一个复杂的过程简化为一系列的流程步骤，通过箭头连线将它们连接在一起，形成一个连贯的整体。
这样，用户可以通过观察流程图来了解一个过程的每个步骤和它们之间的关系，从而更加清晰地理解整个过程的结构和流程。
其次，流程图可以帮助用户发现和解决问题。
当一个过程出现问题时，通过绘制流程图，用户可以更加容易地定位问题所在，找到瓶颈和障碍。
流程图可以帮助用户发现流程中的冗余和重复的步骤，从而提出优化和改进的建议。
它还可以帮助用户发现流程中的潜在风险和漏洞，并提出相应的预防和控制措施。
第三，流程图可以提高沟通和协作效率。
当多个人参与同一个过程时，通过绘制流程图，可以将每个人的角色和职责明确地展示出来。
每个人可以根据自己的角色和职责在流程图上操作和交互。
流程图还可以用于沟通和协调各个环节之间的关系和依赖，避免信息断层和信息滞后。
这样，流程图可以帮助团队成员更好地协同工作，提高工作效率。
最后，流程图可以用于系统设计和规划。
流程图可以帮助用户将一个复杂的系统分解成多个子系统和模块，并展示它们之间的关系和交互。
通过绘制流程图，用户可以更加清晰地了解系统的结构和功能，从而进行系统设计和规划。
流程图还可以帮助用户评估和选择不同的方案和策略，并进行风险分析和决策。
这样，流程图可以作为系统设计和规划的重要工具和参考。
综上所述，流程图具有清晰展示过程、发现和解决问题、提高沟通协作效率以及系统设计规划等功能。
它通过图形化的方式将复杂的过程简化，使人们更加易于理解和记忆。
无论是在业务流程设计、系统分析还是程序算法设计等领域，流程图都是一种非常有用的工具。
我们可以充分发挥流程图的功能，来提高工作和学习的效率。
1、下列语句中符合C语言语法的赋值语句是
1、下列语句中符合C语言语法的赋值语句是A) a=7+b+c=a+7; B) a=7+b++=a+7;C) a=7+b,b++,a+7 D) a=7+b,c=a+7;2、在C语言中,要求运算数必须是整型的运算符是A) % B) / C) < D) !3、已知字母A的ASCII码为十进制的65,下面程序的输出是main(){char ch1,ch2;ch1='A'+'5'-'3';ch2='A'+'6'-'3';printf("%d,%c\n",ch1,ch2);}A) 67,D B) B,C C) C,D D) 不确定的值4、下面程序的输出是main(){int x=10,y=3;printf("%d\n",y=x/y);}A) 0 B) 1 C) 3 D) 不确定的值5、若执行下面的程序时从键盘上输入3和4,则输出是main(){int a,b,s;scanf("%d %d",&a,&b);s=a;if(a<b)s=b;s=s*s;printf("%d\n",s);}A)14 B) 16 C) 18 D) 206、下面的程序main(){int x=0,y=0,z=0;if(x=y+z)printf("* * * *");else printf("# # # #");}A)有语法错误不能通过编译B) 输出* * * *。
B)可以通过编译,但是不能通过连接,因而不能运行。
D) 输出# # # #。
7、下面的程序A)输出的是1B)输出的是1和-2C)输出的是3和0D)是死循环8、下面程序的输出是main(){int x=023;printf(%d\n",--x);}A) 17 B) 18 C) 23 D) 249、若执行下面的程序时从键盘上输入5,则输出是main(){ int x;scanf("%d",&x);if(x++>5) printf("%d\n",x);else printf("%d\n",x--);}A) 7 B) 6 C) 5 D) 410、下面程序的输出是main(){ int a[10]={1,2,3,4,5,6,7,8,9,10},*p=a;printf("%d\n",*(p+2));}A) 3 B) 4 C) 1 D) 211、执行下面程序中的输出语句,a的值是main(){ int a＝5;printf("%d\n",(a=3*5,a*4,a+5));}A) 65 B) 20 C) 15 D) 1012、下面程序的输出是main(){ enum team {my,your=4,his,her=his+10};printf("%d %d %d %d\n",my,your,his,her);}A)0 1 2 3B)0 4 0 10C)0 4 5 15D) 1 4 5 1513、下面程序的输出是main(){ int a=-1, b=4,k;k=(a++<=0)&&(!(b--<=0));printf("%d %d %d\n",k,a,b);}A) 0 0 3 B) 0 1 2 C) 1 0 3 D) 1 1 214、下面函数的功能是int funl(char * x){char * y=x;while(*y++);return(y-x-1);}A) 求字符串的长度 B) 比较两个字符串的大小C) 将字符串x复制到字符串y D) 将字符串x连接到字符串y后面15、若fp是指向某文件的指针,且已读到该文件的末尾,则C语言函数feof(fp)的返回值是A) EOF B) -1 C) 非零值 D) NULL16、根据下面的定义,能打印出字母M的语句是struct person { char name[9]; int age;};struct person class[10]={"John",17,"Paul",19,"Mary",18,"Adam",16};A) printf("%c\n",class[3].name);B) printf("%c\n",class[3].name[1]);C) printf("%c\n",class[2].name[1]);D) printf("%c\n",class[2].name[0]);17、下面程序的输出是{ int x=100, a=10, b=20, ok1=5, ok2=0;if(a<b)if(b!=15)if(! ok1)x=1;elseif(ok2)x=10;x=-1;printf("%d\n",x);}A) -1 B) 0 C) 1 D) 不确定的值18、下面程序的输出是#include<stdio.h>#include<string.h>main(){ char *p1="abc",*p2="ABC",str[50]="xyz"; strcpy(str+2,strcat(p1,p2));printf("%s\n", str);}A) xyzabcABC B) zabcABC C) yzabcABC D) xyabcABC19、下面程序的输出是main(){ int y=9;for( ; y>0; y--){if(y%3==0){printf("%d", --y);continue;}}}A) 741 B) 852 C) 963 D) 87542120、下面程序的输出是main(){ char x=040;printf("%d\n",x=x<<1);}A) 100 B) 160 C) 120 D) 6421、下面程序的输出是{ struct cmplx{ int x;int y; }cnum[2]={1,3,2,7};printf("%d\n",cnum[0].y /cnum[0].x * cnum[1].x);} A) 0 B) 1 C) 3 D) 622、下面程序的输出是int aa[3][3]={{2},{4},{6}};main(){ int i, * p=&aa[0][0];for(i=0; i<2;i++){ if(i==0)aa[i][i+1]=*p+1;else++p;printf("%d",*p);}}A) 23 B) 26 C) 33 D) 3623、下面程序的输出是void prtv(int *x)｛printf("%d\n", ++*x);}main(){int a=25;prtv(&a);}A) 23 B) 24 C) 25 D) 2624、下面程序的输出是fun3(int x){static int a=3;a+=x;return(a);}main(){ int k=2, m=1, n;n=fun3(k);n=fun3(m);printf("%d\n",n);}A) 3 B) 4 C) 6 D) 925、已知字符‘0’的ASCII码为十六进制的30,下面程序的输出是main(){ union { unsigned char c;unsigned int i[4];} z;z.i[0]=0x39;z.i[1]=0x36;printf("%c\n",z.c);}A) 6 B) 9 C) 0 D) 326、下面程序的输出是main(){ int a[3][4]={ 1,3,5,7,9,11,13,15,17,19,21,23};int ( *p)[4]=a,i,j,k=0;for(i=0; i<3; i++)for(j=0; j<2; j++)k=k+*( *(p+i)+j);printf("%d\n",k);}A) 60 B) 68 C) 99 D) 10827、下面程序的输出是int m=13;int fun2(int x, int y){int m=3;return(x*y-m);}main(){int a=7, b=5;printf("%d\n",fun2(a,b)/m);}A) 1 B) 2 C) 7 D) 1028、下面程序的输出是typedef union { long x[2];int y[4];char z[8];} MYTYPE;MYTYPE them;main(){ printf("%d\n", sizeof(them));}A) 32 B) 16 C) 8 D) 2429、下面程序的输出是char s[]="ABCD";main(){ char *p;for(p=s; p<s+4; p++)printf("%s\n,p);}A) ABCD B) A C) D D) ABCDBCD B C ABCCD C B ABD D A A30 、下面程序的输出是（）。
高中数学必修3第一章 1.2.1
1 §1.2 基本算法语句 1.2.1 输入语句、输出语句和赋值语句 学习目标 1.了解输入语句、输出语句和赋值语句的作用.2.理解这些语句与相应逻辑结构的关系，并能转化为算法语句.
知识点一 输入语句 输入语句的格式：INPUT “提示内容”；变量. 输入语句的功能：输入提示内容要求的相应信息或值.即把程序使用者新输入的值赋给变量. 知识点二 输出语句 思考 一个程序如果没有输出语句，影响程序运行吗？你知道运行结果吗？ 答案 不影响.程序照常运行，但运行结果就不会告诉你. 梳理 输出语句 (1)格式：PRINT “提示内容”；表达式.
(2)功能： ①输出常量、变量的值和系统信息；②进行数值计算并输出结果. 知识点三 赋值语句 思考 赋值语句中的“＝”和平时所用的“＝”意义相同吗？ 答案 意义不同，赋值语句中的“＝”叫赋值号，它表示把右边的表达式所代表的常量、变量或算式赋给左边的变量，如C＝Y＋Z表示把计算Y＋Z所得的值赋给C. 梳理 赋值语句 (1)格式：变量＝表达式. (2)功能：将表达式所代表的值赋给变量.一般先计算“＝”右边表达式的值，然后把这个值赋给“＝”左边的变量.
1.输入语句的作用是计算.( × ) 2.输出语句的作用是实现算法的输出结果功能.( √ ) 3.赋值语句的作用是把赋值号左边的值赋值给右边.( × )
类型一 输入、输出语句的应用 2
例1 下面语句执行后输出的i＝________，j＝________. i＝5 j＝－2 i＝i＋j j＝i＋j PRINT i，j END
考点 输入语句、输出语句 题点 输入语句、输出语句的应用 答案 3 1 解析 第一句把5赋给i，第二句把－2赋给j，第三句把5＋(－2)的值3赋给i，第四句把3＋(－2)的值1赋给j，并最终输出3,1. 反思与感悟 (1)输入语句的理解中要注意的问题 ①“提示内容”必须加双引号，提示内容原样在计算机屏幕上显示，提示内容与变量之间用“；”隔开. ②一个输入语句可以输入多个变量，中间用“，”隔开，其格式为：INPUT“提示内容1，提示内容2，提示内容3，…”；变量1，变量2，变量3，…. 例如：INPUT “x，y，z＝”；x，y，z (2)输出语句的理解中要注意的问题 ①“提示内容”是提示用户要输出什么样的信息，提示内容必须加双引号，提示内容原样输出. ②同输入语句一样，输出语句也可以一次完成输出多个表达式的功能，不同的表达式之间用“，”隔开. 例如：PRINT “a，b，c＝”；a，b，c ③计算机先计算表达式的值再输出，即输出语句有计算功能. ④用来分隔提示内容及表达式的引号、分号等不会输出. 跟踪训练1 (1)下列给出的输入语句正确的是________. ①INPUT a；b；c ②INPUT x＝3 ③INPUT a，b，c ④INPUT “a＝，b＝”，a，b ⑤INPUT “a＝，b＝”a，b (2)下列给出的输出语句正确的是________. ①PRINT A＝4 ②PRINT “你的姓名”XM ③PRINT a，b，c ④PRINT 3*2 考点 输入语句、输出语句 题点 输入语句、输出语句的格式 答案 (1)③ (2)③④⑤ 3
洗衣机有哪些功能
洗衣机有哪些功能洗衣机是家庭中不可或缺的电器之一，随着技术的不断发展，洗衣机的功能也越来越多样化。
下面是一些常见的洗衣机功能。
1. 洗涤程序：洗涤程序是洗衣机最基本的功能之一，主要有正常洗、快洗、轻柔洗等多个选项。
不同的程序适用于不同种类的衣物和污渍，用户可以根据需要选择合适的洗涤程序。
2. 脱水功能：洗衣机的脱水功能可以有效去除衣物中的水分，使洗后的衣物快速干燥。
脱水功能的速度和效果也是用户购买洗衣机时的重要考虑因素。
3. 洗涤温度调节：洗涤温度对于不同种类的衣物非常重要，有些衣物需要在较高温度下洗涤以杀死细菌，而有些衣物则需要在较低温度下洗涤。
洗衣机的洗涤温度调节功能可以满足用户的不同需求。
4. 洗涤时间设定：洗涤时间设定功能可以根据用户的需求来调整洗衣机的洗涤时间，从而使衣物得到更好的洗涤效果。
5. 烘干功能：一些高端洗衣机还具备烘干功能，可以在洗涤完毕后直接对衣物进行烘干，省去了晾晒的麻烦。
6. 预约功能：一些洗衣机还具备预约功能，用户可以在离开家之前设置好洗衣机的工作时间，使洗衣机在固定的时间段内完成洗衣任务。
7. 漂洗功能：漂洗功能可以有效去除洗涤过程中产生的残留洗涤剂和污渍，使衣物更加干净。
8. 自动称重：一些洗衣机配备了自动称重功能，能够自动感知衣物的重量，并调整洗涤程序和用水量，以达到更好的洗涤效果。
9. 护理功能：一些洗衣机还具备特殊的护理功能，例如羊毛洗、防皱洗等，可以更好地保护某些特殊材质的衣物。
10. 节能功能：节能是现代洗衣机设计的重要目标之一，一些洗衣机具备节能功能，通过调整洗涤程序和水温、减少用水量等措施，来降低能耗。
总的来说，洗衣机的功能越来越丰富，能够满足不同用户的需求。
从基本的洗涤、脱水功能到更高级的烘干、预约、护理功能，洗衣机的持续创新将为用户提供更加便利和高效的洗衣体验。
nc程序讲解
nc程序讲解NC程序是数控机床加工过程中的一种控制指令，用于告诉机床如何进行加工。
下面是对NC程序的讲解：1. 程序格式：NC程序由一系列的指令组成，每条指令占一行。
指令由字母、数字和符号组成，可以使用空格或制表符进行分隔。
2. 指令分类：根据功能的不同，NC程序可以分为几何指令、辅助功能指令和机床控制指令。
- 几何指令用于描述加工图形的形状和尺寸，如直线插补、圆弧插补等。
- 辅助功能指令用于控制机床的辅助功能，如刀具半径补偿、切削速度等。
- 机床控制指令用于控制机床的动作，如进给速度、主轴转速等。
3. 坐标系：NC程序中使用坐标系来描述加工零件的位置和运动。
常用的坐标系有绝对坐标系和相对坐标系。
- 绝对坐标系是以机床坐标原点为参考点，确定零件位置和运动的坐标系。
- 相对坐标系是以当前位置为参考点，确定零件位置和运动的坐标系。
4. 指令示例：下面是一个简单的NC程序示例，用于描述机床沿x轴方向进行直线插补运动。
N10 G00 X10 Y20 ;快速定位到起始点N20 G01 X50 Y20 F100 ;以给定进给速度进行直线插补N30 M30 ;程序结束- N10是程序起始行号，用于标识程序的执行顺序。
- G00是快速定位指令，用于将机床迅速移动到指定位置。
- X10 Y20表示目标位置的坐标。
- N20是下一条指令的行号。
- G01是直线插补指令，用于按给定速度和轨迹进行直线插补运动。
- F100表示进给速度为100。
- N30是下一条指令的行号。
- M30是程序结束指令，用于标识程序的结束。
以上是对NC程序的基本讲解，NC程序的具体内容和格式还有很多，需要根据具体机床和加工要求进行编写。
文件管理程序范文
文件管理程序范文文件管理程序是一种用于管理电脑中文件和文件夹的工具，它通常包括文件的创建、移动、复制、删除、重命名等功能。
文件管理程序对于提高工作效率和组织数据非常重要，下面将以一个简单的文件管理程序为例，介绍其主要功能和设计思路。
一、需求分析首先，我们需要分析用户的需求，确定文件管理程序的功能。
一个基本的文件管理程序应该具备以下功能：1.创建文件或文件夹：用户可以通过程序创建新的文件或文件夹，并指定路径和文件名。
2.查看文件和文件夹：用户可以通过程序查看当前路径下的所有文件和文件夹，并显示相关属性，如大小、创建时间等。
3.移动或复制文件：用户可以将文件或文件夹移动或复制到指定的目录，以实现整理文件的目的。
4.删除文件或文件夹：用户可以选择删除指定的文件或文件夹，删除后将无法找回。
5.重命名文件或文件夹：用户可以为文件或文件夹重新命名，方便管理和查找。
二、程序设计基于以上需求，我们可以设计一个简单的文件管理程序。
程序主要分为以下几个模块：1.用户界面模块：负责与用户进行交互，接收用户的操作指令，并将指令传递给其他模块进行处理。
2.文件管理器模块：负责实现文件的创建、查看、移动、复制、删除和重命名等操作。
可以使用操作系统提供的文件管理功能，或自行实现。
3.文件属性模块：负责保存和管理文件的相关属性，如大小、路径、创建时间等。
4.错误处理模块：负责处理用户输入错误和文件操作出错的情况，并提供相应的提示和帮助。
三、主要功能实现基于以上设计，我们可以具体实现文件管理程序的主要功能：1.创建文件或文件夹：用户可以通过执行相应命令，在指定路径下创建新的文件或文件夹。
程序会检查用户输入的路径是否存在，如果不存在则提示用户创建路径。
2.查看文件和文件夹：用户可以执行查看命令，程序将列出当前路径下的所有文件和文件夹，并显示相关属性。
用户可以选择查看某个文件或文件夹的详细信息。
3.移动或复制文件：用户可以执行移动或复制命令，将文件或文件夹从起始路径移动或复制到目标路径。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
1 下面程序的功能是：计算f=1-1/(2*3)+1/(3*4)-1/(4*5)+„„+1/(19*20) Private Sub Form_Click() Dim f,i,sign As Integer ____ sign=1________ f = 1 ______ for i=2 to 19_______ f = f + sign / (i * (i + 1)) ________ sign=-1*sign_________ Next i Print “f=”;f End Sub 11.下面的程序是在一个字符串变量中查找“at”，并用消息框给出查找结果的报告：没有找到或找到的个数，程序如下： Public Sub Findat() Dim Str1 As String Dim length As Integer Dim sum As Integer Dim i As Integer Str1 = InputBox (“请输入一个字符串”) length = _______ len(Str1)_________ i = 1 sum = 0 Do While i <= _______ Length _________ If _______ mid(Str1,i,2)_______ = “at” Then sum = sum + 1 End If i = i + 1 Loop If _______ sum=0_______ Then MsgBox “没有找到！” Else MsgBox “找到了” & Str (sum) & “个” End If End Sub 下面程序的功能是：单击窗体后，输入英文句子，将其每个单词首字母变为大字字母，再输出 Private Sub Form_Click() Dim oldsen As String, newsen As String Dim char As String, lastchar As String Dim n As Integer, i As Integer oldsen = InputBox("请输入英文句子：") n = Len(oldsen)
lastchar = " " For i = 1 To n char = Mid(oldsen, i, 1) If lastchar = " " Then char = UCase(char) '变为大写 End If newsen = newsen & char lastchar = char Next i Print "input：" ； oldsen Print "output：" ； newsen End Sub 2
编写程序，使用InputBox函数输入两个电阻的值，求它们并联和串联的电阻值，使用MsgBox消息框输出结果，要要求保留三位小数 Sub Macro2() Dim s1, s2 As String Dim n5 Dim n1, n2, n3, n4 As Single s1 = InputBox("请输入两电阻的阻值，之间用半角逗号“,”分隔", "提示信息") n1 = Val(s1) n2 = Val(Mid(s1, InStr(s1, ",") + 1)) If n1 > 0 And n2 > 0 Then n3 = Round(n1 + n2, 3) '串联电阻值 n4 = Round(n1 * n2 / (n1 + n2), 3) '并联电阻值 n5 = MsgBox(n1 & "Ω和" & n2 & "Ω两个电阻的" & Chr(13) & "串联电阻值为：" & n3 & "Ω" & Chr(13) & "并联电阻值为：" & n4 & "Ω", , "计算结果") Else n5 = MsgBox("两电阻值输入有错，请重新输入！", , "错误提示") End If End Sub 用inputbox函数输入3个数据，如果这3个数据能构成三角形，计算并在窗体上输出三角形面积。 Private Sub Command1_Click() Dim a, b, c, s, x a = Val(InputBox("请输入第一条边长")) b = Val(InputBox("请输入第二条边长")) c = Val(InputBox("请输入第三条边长")) If a + b > c And a + c > b And b + c > a Then Print "能组成三角形" x = 1 / 2 * (a + b + c) s = Sqr(x * (x - a) * (x - b) * (x - c)) Print "三角形面积s="; s Else Print "不能组成三角形" End If End Sub 编程计算下列分段函数值 f(x)=1.x2+x-6 x<0且x不等于3 2.x2-5x+6 0<=x<10且x不等于2和3 3.x2-x-1 其他 if x<0 then f=x^2+x-6 elseif x<10 and x>=0 and x<>2 and x<>3 then f=x^2-5*x+6 else f=x^2-x-1 end if Function jc(n As Integer) As Long
编写程序计算1+2!+3!+4!+„„+10!的程序 Private Sub Form_Click() Dim s As Double m = 1 For n = 1 To 10 m = m * n s = s + m Next Print s End Sub 3
用VB编一程序，显示出所有的水仙花数。所谓水仙花数，是指一个3位数，其各位数字立方和等于该数本身。例如，153是水仙花数，因为153=13+53+33，
Private Sub Command1_Click() Dim i As Integer For i = 100 To 999 If (i \ 100) ^ 3 + (i \ 10 Mod 10) ^ 3 + (i Mod 10) ^ 3 = i Then Print i Next End Sub 下面的程序是将输入的一个数插入到递减的有序数列中，插入后使该序列仍有序。 SubButton1_Click(.....) Handles Button1.Click Dim i% , n% ,m% Dim a() As Integer={21,19,17,15,13,11,9,7,5,3,1} n=UBound(a) ReDim a(n+1) m= Val(InputBox("输出欲插入的数")) For i=UBound(a) -1 To Step -1 If m>=a(i) Then a(i-1) = a(i) If i=0 Then a(i)=m Else m=a(i+1) Exit For End If Next i For i=0 To m Label1.Text &=a(i) & " " Next i End Sub 编一程序，将一维数组中元素向右循环移位，移位次数键盘输入。 SUB SHIFT_LEFT() DIM TEMP I TEMP=A(1) FOR I=2 TO 10 A(I-1)=A(I) NEXT I A(10)=TEMP END SUB 输入对话框输入100个数值数据放入数组a。将其中的整数放入数组b，然后运用选择法将数组b中的数据按从小到大排序，并将数组b以每行10个数据在窗体上输出。 Private Sub Command1_Click() Dim I As Integer, J As Integer, K As Integer Dim a(1 To 100) As Single Dim b(100) As Integer J = 0 For I = 1 To 100 Randomize (Timer) K = Int(Rnd() * 2) + 1 'If K = 1 Then a(I) = Int(Rnd() * 1000 + 1) / 10 Else a(I) = Int(Rnd() * 100 + 1) a(I) = InputBox("请输入第" & I & "个数：") If a(I) = Int(a(I)) Then J = J + 1: b(J) = a(I) Next I For I = 2 To J For K = 1 To I If b(K) > b(I) Then b(0) = b(K) b(K) = b(I) b(I) = b(0) End If Next K Next I For I = 1 To J Print b(I); If I Mod 10 = 0 Then Print Next I End Sub 4
顺序文件的建立。建立文件名为" C：\stud1.txt"的顺序文件，内容来自文本框，每按Enter键写入一条记录，然后清除文本框的内容，直到文本框内输入"END"字符串。 Private Sub Form_Load() Open "C:\stud1.txt" For Output As #1 Text1.text = "" End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then If UCase(Text1.Text) = "END" Then Close #1 End Else Print #1 , Text1.Text Text1.text = "" End If End If End Sub 将C盘根目录下的一个文本文件old.txt复制到新文件new.txt中，并利用文件操作语句将old.txt文件从磁盘上删除。 Private Sub Command1_Click() Dim str1$ Open "C:\old.txt" For Input As #1 Open "C:\new.txt" For Output As #2 Do While Not EOF(1) Line Input #1,str1 Print #2 , str1 Loop Close #1,#2 Kill "C:\old.txt" End Sub 4. 下面程序的功能是将文本文件合并。即将文本文件“t1.txt”合并到“t.txt”文件中，请将程序填写完整。 Private Command1_Click() Dim s$ Open "t.txt" For Append As #1 Open "t1.txt" For Input As #2 Do While Not EOF(2) Line Input #2 , s Print #1 , s Loop Close #1, 2# End Sub 假定文本框名称为txtTest，文件名为MYFILE.TXT。可以通过下面三种方法来实现。 方法1：一行一行读 txtTest.Text ＝ "" Open "MYFILE.TXT" For Input As #1 Do While Not EOF(1) Line Input #1, InputData txtTest.Text ＝ txtTest.Text + InputData+vbCrLf Loop Close #1 方法2：一次性读 txtTest.Text ＝ "" Open "MYFILE.TXT" For Input As #1 txtTest.Text = Input( LOF(1),1) Close #1 方法3：一个个字符读 Dim InputData as String*1 txtTest.Text ＝ "" Open "MYFILE.TXT" For Input As #1 Do While Not EOF(1) Input #1, InputData txtTest.Text ＝ txtTest.Text + InputData Loop Close #1