江苏省高校计算机等级考试二级VB上机改错题题型与总结
- 格式:docx
- 大小:424.54 KB
- 文档页数:28
1、给定程序MODI1.C 中函数 fun 的功能是:计算n!。
例如,给n 输入5,则输出120.000000。
请改正程序中的错误,使程序能输出正确的结果。
注意:不要改动main 函数,不得增行或删行,也不得更改程序的结构! 给定源程序: #include <stdio.h> double fun ( int n ) { double result = 1.0 ; /************found************/ if n = = 0 return 1.0 ; while( n >1 && n < 170 ) /************found************/ result *= n-- return result ; } main ( ) { int n ; printf("Input N:") ; scanf("%d", &n) ; printf("\n\n%d! =%lf\n\n", n, fun(n)) ; } 解题思路: 第一处:条件语句书写格式错误,应改为:if (n==0)。
第二处:语句后缺少分号。
2、给定程序MODI1.C 中函数fun 的功能是: 依次取出字符串中所有数字字符, 形 成新的字符串, 并取代原字符串。
请改正函数fun 中指定部位的错误, 使它能得出正确的结果。
注意: 不要改动main 函数, 不得增行或删行, 也不得更改程序的结构! 给定源程序: #include <stdio.h> void fun(char *s) { int i,j; for(i=0,j=0; s[i]!='\0'; i++) if(s[i]>='0' && s[i]<='9') /**********found**********/ s[j]=s[i]; /**********found**********/ s[j]="\0"; } main() { char item[80]; printf("\nEnter a string : ");gets(item); printf("\n\nThe string is : \"%s\"\n",item); fun(item); printf("\n\nThe string of changing is : \"%s\"\n",item ); } 解题思路: 第一处: 要求是取出原字符串中所有数字字符组成一个新的字符串,程序中是使用变量j 来控制新字符串的位置,所以应改为:s[j++]=s[i];。
二、基本操作题(共18分)请补充函数proc(),该函数的功能是计算下面公式SN的值:SN=1+1/3十4/5+...+2N-1/SN-1例如,当N=20时,SN=29.031674。
注意:部分源程序给出如下。
请勿改动main()函数和其他函数中的任何内容,仅在函数proc()的横线上填入所编写的若干表达式或语句。
试题程序:#include#include#includedouble proc(int n){double s=1.0,sl=0.0;int k;for(【k=2】;k<=n;k++){sl=S;【s+=(2*k一1)/sl】}return 【s】;)void main(){int k=0:double sum;system("CLS");printf("\nPlease input N=");scanf("%d",&k);sum=proc(k);printf("\nS=%If",sum);)三、程序改错题(共24分)下列给定程序中,函数proc()的功能是根据整型形参n,计算如下公式的值:Y=1-1/(22)+1/(33)-1/(44)+…+(-1)(n+1)/(nn)例如,n中的值为l0,则应输出0.817962。
请修改程序中的错误,使它能得到正确结果。
注意:不要改动main()函数,不得增行或删行,也不得更改程序的结构。
试题程序:#include#include#includedouble proc(int n){double y=1.0;f|****found****int J=1;.int i;for(i=2;i<=n;i++){j=-l*j;//****found****y+=1/(i*i);)return(y);)void main(){int n=10:system("CLS"):printf("\nThe result is%lf\n",proc(n));)四、程序设计题(共18分)编写一个函数,从传人的M个字符中找出最长的一个字符串,并通过形参指针max传回该串地址(用****作为结束输入的标志)。
程序编程题目1、第一大类(交换类)共7道心之所向,所向披靡2. 程序修改(第3套)给定程序中函数fun 的功能是:通过某种方式实现两个变量的交换,规定不允许增加语句和表达式。
例如变量a中的值原为8,b中的值原为3,程序运行后a中值为3,b 中的值为8./**found**/t=*x; *x=y;/**found**/return(t);2. 程序修改(第60套)给定程序中函数fun的功能是:实现两个整数的交换。
例如给a和b分别输入60和65,输出为:a=65 b=60 /**found**/void fun(int *a,int *b)/**found**/t=*b;*b=*a;*a=t;2. 程序修改(第88套)给定程序中函数fun的功能是:将主函数中两个变量的值进行交换。
例如,若变量a中的值为8,b中的值为3,则程序运行后,a中的值为3,b中的值为8。
/**found**/void fun(int *x, int *y)/**found**/t=*x,*x=*y,*y=t;2、第二大类(计算类)共22道2. 程序修改(第1套)给定程序中函数fun的功能是:求出以下分数序列的前n 项之和。
2/1+3/2+5/3+8/5+13/8+21/13+……和值通过函数值返回main函数。
例如n=5,则应输出:8.391667。
/**found**/double fun(int n)/**found**/s=s+(double)a/b;2. 程序修改(第6套)给定程序中函数fun的功能是:用递归算法计算列中第n 项的值。
从第一项起,斐波拉契数列为:1、1、2、3、5、8、13、21、……/**found**/switch(g)/**found**/case 1:case 2:return 1;2. 程序修改(第13套)给定程序中函数fun的功能是:求s=aa…aa—…—aaa—aa—a(此处aa…aa表示n个a,a和n的值在1至9之间)。
江苏省计算机二级vb考试题库及答案一、单项选择题(每题2分,共20分)1. VB中的变量声明语句是:A. Dim x As IntegerB. Integer xC. Declare x As IntegerD. Var x As Integer答案:A2. 在VB中,下列哪个函数用于计算两个数的绝对差值?A. AbsB. SgnC. RoundD. Int答案:A3. VB中,以下哪个控件用于显示文本信息?A. LabelB. TextBoxC. ComboBoxD. ListBox答案:A4. 在VB中,要实现一个按钮的点击事件,应该使用哪个关键字?A. OnClickB. ClickC. ButtonClickD. Button答案:A5. VB中,下列哪个数据类型用于存储日期和时间?A. DateB. TimeC. DateTimeD. String答案:C6. 在VB中,下列哪个操作符用于比较两个字符串是否相等?A. =B. ==C. <>D. <>=答案:B7. VB中,下列哪个函数用于计算一个数的平方?A. SqrB. PowC. ExpD. Log答案:B8. 在VB中,下列哪个属性用于设置文本框的只读状态?A. ReadOnlyB. EnabledC. VisibleD. BackColor答案:A9. VB中,下列哪个控件用于显示和编辑多行文本?A. LabelB. TextBoxC. ComboBoxD. ListBox答案:B10. 在VB中,下列哪个关键字用于定义一个子程序?A. FunctionB. SubC. PropertyD. Class答案:B二、填空题(每题2分,共20分)1. 在VB中,使用________关键字可以声明一个变量。
答案:Dim2. VB中的________函数可以将小数四舍五入到最接近的整数。
答案:Round3. 在VB中,使用________属性可以设置窗体的标题。
计算机等级考试二级VB上机考试解题技巧第1篇:计算机等级考试二级VB上机考试解题技巧计算机二级考试是全国计算机等级考试是四个等级中的一个等级,考核计算机基础知识和使用一种高级计算机语言编写程序以及上机调试的基本技能。
按照新大纲,vb考试需要学习的内容有:vb基本概念、集成开发环境、可视化编程方法、基本输入输出、常用控件功能及使用、vb控制结构语句等。
以下是小编为大家整理的2015计算机二级vb上机考试解题技巧,供大家参考和学习。
常用算法熟练地掌握算法原理、编程思想和代码实现,就能够做到举一反三,轻松备考,顺利过关。
1.累加与连乘基本思想:设置初值,循环计算。
扩展:(1)计算指定范围内某一个数的倍数之和。
(2)计算某范围内所有数的乘积。
(3)求某一个数列的和。
2.生成n个不同的随机数基本思想:将生成的数送入一个数组,每生成一个数后与数组中已有的数比较,如相同则丢弃,重新生成可使用语句exitfor。
3.求素数、极值求素数基本思想:素数的意义;实现方法:双重循环,外循环判断每一个数,内循环判断能否被某数整除。
求极值基本思想:设第一个数为极值数,然后进入循环与其比较,超过则替换。
4.排序(1)选择法:每次先找出最小数所在的f标,排序结束后,交换最小数的位置。
(2)冒泡法:两两比较后交换。
(3)合并法:将两个有序的数组合并成一个仃序的数组。
两个数组中的数两两比较,小者放入目标数组,直到.个数组为窄。
(4)*入法:每输入或生成一个数马上*入到数组中使其有序。
5.数列的*入、删除和重组(1)*入:对原数组进行扩充,循环查找*入位置(逐个比较),找到后,从后向前依次移动每一个数字,直到该位置,然后将数据*入。
(2)删除:与*入类似,也是先查找位置,找到后,将该位置以后的每一个元素依次前移。
(3)重组:采用排序或移动元素的思想,具体情况具体分析,如奇偶数的分开等。
6.穷举与递推(1)穷举:利用循环将所有可能逐个测试,直到条件成立为止,如百钱买百鸡问题、钱*折零问题等。
江苏省计算机等级考试二级VB考试真题及答案第二部分 Visual Basic 程序设计一、选择题(用答题卡答题,答案依次填在21~30答题号内)21.下列语句中,正确的是A. Text1.SetFocusB. Form1.ClearC. Label1.SetFocusD.List1.Cls22.创建一个名为“文件”的菜单项,使其可用Alt+F方式访问,则在菜单编辑器的标题文本框中应输入A. 文件($F)B. 文件(&F)C. 文件(#F)D. 文件(%F)23.数学表达式的VB算术表达式为A. Sin(27) + Sqr(x + Exp3)/(x + y)B. Sin(27 * 3.14159 / 180) + Sqr(x + Exp(3)) / Abs(x + y)C. Sin(27 * 3.14159 / 180) + Sqr(x + e ^ 3) / Abs(x + y)D. Sin(27 * pi / 180) + Sqr(x + Exp(3) / Abs(x + y)24.以下说法不正确的是 24 。
A. 使用不带关键字Preserve的ReDim语句可以重新定义数组的维数B. 使用不带关键字Preserve的ReDim语句可以改变数组各维的上、下界C. 使用不带关键字Preserve的ReDim语句可以改变数组的数据类型D. 使用不带关键字Preserve的ReDim语句可以对数组中的所有元素进行初始化25.下列是合法的变量名。
A. absB. -a1C. cdc dD. Abc_1026.要向文件data.txt添加数据,正确的文件打开命令是A.Open data1.txt For Output As #1B.Open data1.txt For Input As #1C.Open data1.txt For Append As #5D.Open data1.txt For Write As #527. 以下对数组参数的说明中,错误的是A.在过程中可以用Dim语句对形参数组进行声明B.形参数组只能按地址传递C.实参为动态数组时,可用ReDim 语句改变对应形参数组的维界D.只需把要传递的数组名作为实参,即可调用过程28.设a = 3,b = 2,c = 1,运行print a > b > c的结果是 28 。
85 (1)【考点分析】本题考点有:文本框的Name、Height、Width、Font、FontSize属性,窗体的Caption、MaxButton、MinButton属性。
【解题思路】根据题意添加控件并设置相应属性。
不显示窗体的最大化和最小化按钮只需将其MaxButton和MinButton属性设为False即可。
【操作步骤】步骤1:建立界面,添加控件并设置控件的属性。
程序中用到的控件及属性见表3.275。
步骤2:调试并运行程序,关闭程序后按题目要求存盘。
(2)【考点分析】本题考点有:图像框的Name、Picture、Stretch属性,命令按钮的Name、Caption属性。
【解题思路】图像框(Image)的Picture属性用于在设计阶段设置在图像框中显示的图片,它的Stretch(自动伸缩)属性用来设定载入其中的图片是否需要自动调整大小,以适应图像框的大小。
本题要在单击按钮时实现"向右移动"或"向下移动"的功能,应在程序中动态设置图像框的Left和Top属性。
【操作步骤】步骤1:建立界面,添加并设置控件的属性。
程序中用到的控件及属性见表3.276。
4 步骤2:编写程序代码。
参考答案Private Sub Command1_Click()Image1.Left = Image1.Left + 100End SubPrivate Sub Command2_Click()Image1.Top = Image1.Top + 100End Sub步骤3:调试并运行程序,关闭程序后按题目要求存盘。
(1)【考点分析】本题考点有:命令按钮的Caption属性和Click事件,直线控件的X1、X2、Y1、Y2属性,形状控件的Shape属性,Sin( )函数,Cos( )函数以及计时器的Enabled属性和Timer事件。
【解题思路】Sin( )函数和Cos( )函数分别返回变量的正弦和余弦值;通过X1、X2、Y1、Y2属性来设置直线的端点。
江苏省计算机二级VB真题参考答案及解析江苏省计算机二级Visual Basic 2009年春笔试试卷参考答案及解析第一部分计算机基础知识1D【解析】光纤主要用于数字通信它采用波分多路复用技术以增大信道容量。
2B【解析】最人的1()位无符号二进制整数为1111111111转换成八进制为17773位二进制表示1位八进制。
3B【解析】“双核”是指PC机主板上不是含有两个独立的CPU芯片。
双核处理器是指在一个处理器上集成两个运算核心从而提高计算能力。
4D【解析】主板上的BIOS芯片是一种只读存储器具内容可以通过特殊软件改写绝人多数主板上仅有一个内存插朋但并不表示PC机只能安装一根内存条内存分为DRAM和ROM两种前者乂叫动态随机存储器它的一个主要特征是断电后数据会丢失平时说的内存就是指这一种后者又叫只读存储器平时开机首先启动的是存于主板上ROM屮的BIOS 程序然后再由它去调用硬盘中的WindowsROM的一个主要特征是断电后数据不会丢失。
5B【解析】对于光盘刻录机來说其刻录信息的速度一•般小于读取信息的速度。
6D【解析】从其发展计划來看未来的SATA也将通过提升时钟频率來提高接口传输速率让硬盘也能够超频。
7A【解析】通常用户需要付费才能得到商品软件的使用权这类软件的升级在一淀时间内是免费的。
8C【解析】Oracle是世界领先的信息管理软件开发商因其复杂的关系数据库产品而闻名。
Oracle 数据库产品为财富排行榜上的前1()0()家公司所采用许多人型网站也选用了Oracle 系统。
Oracle 的关系数据库是世界第一个支持SQL语言的数据库。
9D【解析】硬盘可使用FAT文件系统或者NTFS文件系统格式。
10A【解析】一个算法应该具有以下五个重要的特征有穷性一个算法必须保证执行有限步Z后结束确切性算法的侮一步骤必须有确切的定义输入一个算法有o个或多个输入以刻M运算对象的初始情况输出一个算法有一个或多个输出以反映对输入数据加工示的结果。
国家二级计算机vb考试试题及答案一、单项选择题(每题1分,共10分)1. 在VB中,用于定义变量的关键字是()。
A. DimB. SubC. FunctionD. Const答案:A2. 下列哪个选项不是VB中的控制结构?()A. 顺序结构B. 选择结构C. 循环结构D. 函数结构答案:D3. VB中,用于声明一个子程序的关键字是()。
A. FunctionB. SubC. DimD. Const答案:B4. 在VB中,用于表示逻辑“与”运算符的是()。
A. AndB. OrC. NotD. Xor答案:A5. VB中,用于表示逻辑“或”运算符的是()。
A. AndB. OrC. NotD. Xor答案:B6. 在VB中,用于声明一个数组的关键字是()。
A. DimB. SubC. FunctionD. Const答案:A7. VB中,用于声明一个常量的关键字是()。
A. DimB. SubC. FunctionD. Const答案:D8. 在VB中,用于表示逻辑“非”运算符的是()。
A. AndB. OrC. NotD. Xor答案:C9. VB中,用于声明一个函数的关键字是()。
A. FunctionB. SubC. DimD. Const答案:A10. 在VB中,用于表示逻辑“异或”运算符的是()。
A. AndB. OrC. NotD. Xor答案:D二、填空题(每题2分,共10分)1. 在VB中,使用____关键字可以定义一个全局变量。
答案:Public2. 当需要在VB中定义一个私有变量时,应使用____关键字。
答案:Private3. 在VB中,使用____关键字可以定义一个局部变量。
答案:Dim4. VB中,使用____关键字可以定义一个过程。
答案:Sub5. VB中,使用____关键字可以定义一个函数。
答案:Function三、简答题(每题5分,共20分)1. 请简述VB中事件驱动编程的概念。
第一套:下列程序是将从键盘上输入的字符(只含数字或字母)按下列规则编成密码后输出:对输入的数字字符用其ASCII码减10;小写字母用该字母的ASCII码前面加星号(*);大写字母用其ASCII码加左右括号,输入其他字符则表示输入结束。
例如,从键盘输入字符串"A12bMc",输出的密码为"(65)3940*108(77)*109"。
要求:(1)将下列程序输入到项目中的程序文件progm中,并对其中的两条错误语句进行修改。
(2)在修改程序时,不允许修改程序的总体框架和算法,不允许增加或减少语句数目。
CLEARcpassword="ckey1="DO WHILE.T.WAIT WIND"请输入字符串……(按[Enter]键结束)"TO ckeyIF BETWEEN(ckey, 0 , 9 )ckey1=ALLT(STR(ASC(ckey)-10))ELSEIF BETWEEN(ASC(ckey),ASC("A"),ASC("Z"))ekey1= ( +ALLT(STR(ASC(ckey)))+ )ELSEIF BETWEEN(ASC(ckey),ASC( a ),ASC( z ))ckey1= * +ALLT(STR(ASC(ckey)+10))ENDIFEXITENDIFENDIFENDIFcpassword=ckey1+cpasswordENDDO?cpassword【答案】(1)第14行改为:ELSE(2)第19行改为:cpassword = cpassword+ckey1【分析】(1)IF语句未结束。
(2)ckey1应接在cpassword后面构成新的cpassword。
第二套:下列程序是将从键盘上输入的字符串(只含数字或字母)按下列规则编成密码后输出:对输入的数字字符用其ASCII码减10;小写字母用该字母的ASCII码前面加星号(*);大写字母用其ASCII码加左右括号,输入其他字符则结束输入。
江苏计算机二级VB上机改错攻略赋值错共有以下几种类型:位置错 2005年(春)02卷赋值数错误 2004年(秋)06卷赋值数组元素不对应 2003(秋)05卷/2003年(春)08卷其中2003(秋)与2003(春)相似被赋值数组元素不对应 2005年(春)07卷/2004年(春)02卷/2003年(秋)04卷/2003年(春)04卷其中2005(春)与2003(春)相似③、结构错结构错共有以下几种类型:Do-loop结构错 2003年(春)01卷/2003年(春)03卷2003年(春)04卷/ 2003年(春)05卷2003年(春)06卷退出语句错 2004年(秋)05卷/2004年(春)01卷2003年(春)01卷/ 2003年(春)02卷2003年(春)07卷For循环语句缺少step-1 2003年(秋)02卷④、定义错定义错共有以下几种类型:调用过程变量定义错 2005年(春)03卷/2002年(秋)02卷调用函数名定义错 2004年(秋)04卷重新定义数组元素不对应 2004年(春)04卷/2004年(春)06卷2004年(春)08卷缺少重新定义数组错 2004年(秋)07卷重新定义缺少 Preserve 2004年(春)05卷定义静态变量 2004年(秋)08卷变量定义类型错 2003年(秋)06卷⑤、循环语句错循环语句错共有以下几种类型:循环上界错 2005年(春)02卷/2004年(秋)02卷2004年(春)05卷/2002年(秋)04卷其中2004年(秋)卷与2004年(春)卷相似循环下界错 2004年(秋)01卷/2002年(秋)03卷⑥、比较问题:比较问题共有以下几种类型:If条件 2005年(春)05卷/2004年(春)07卷2003年(秋)01卷/2003年(秋)03卷2002年(秋)02卷/2002年(秋)06卷Do-while条件 2002年(秋)08卷⑦、函数错函数错共有以下几种类型:Mid函数错 2005年(春)02卷/2004年(春)02卷2003年(春)08卷说明:2004年(春)中Mid只与Cstr函数连用整除与Mod函数 2005年(春)04卷Right与Len函数错 2005年(春)05卷/2004年(秋)03卷Right函数错 2003年(秋)02卷Chr 函数错 2003年(秋)07卷缺少Val函数 2002年(秋)05卷Cstr与str用错 2005年(春)04卷/2003年(春)03卷2002年(秋)05卷⑧、调用问题调用错误共有以下几种类型:调用实参错 2002年(秋)01卷/2002年(秋)08卷调用表达式错 2003年(春)06卷调用形参形式错 2004年(秋)01卷/2004年(秋)02卷2004年(秋)07卷/2003年(秋)05卷2003年(秋)06卷/2002年(秋)06卷循环体I按数值传递 2005年(春)03卷/2005年(春)04卷⑨、数组问题数组问题共有以下几种类型:数组元素错 2005年(春)06卷/2003年(秋)04卷数组名称没有写 2004年(秋)05卷⑩、语句错Else语句不全 2005年(春)08卷If 语句不全 2004年(秋)08卷缺少If语句 2003年(春)05卷⑾、其它问题共有以下几种类型:逻辑词用错 2004年(春)03卷/2002年(秋)05卷List.listCount语句 2003年(秋)02卷资料如有不足之处,敬请读者不吝指正。
省二级考试VB试题汇总(2006.6月)前言:本辅导资料主要在于介绍省二级考试的基本题型和基本考点,所以建议大家在第一遍看本资料时,应认真做好每一题,在遇到不会或不懂的题时,立即到课本中找本题相关的知识点并弄懂这些知识点,然后再来分析此题,以达到对考点各各击破的目的,如此下去便可掌握省二级考试的几乎所有考点,从而可以应付千变万化的考题了。
本资料内的考题只是考试题库中的一小部分而已,切不可只做出本资料内各题的答案,而没掌握其考点知识,这将会导致后悔莫及的后果。
此外,建议大家在掌握考试题型和考点后,应上机实际操作,尤其对于能力测试题更应已上机练习为主,掌握做题步骤和基本技巧,方可取得理想的成绩。
最后预祝大家在省二级考试中取得优异的成绩!第一部分知识测试题一、选择题(每套试卷有20个选择题,每题1分)1 以下4种描述中,错误的是_______。
DA. 常量在程序执行期间其值不会发生改变B. 根据数据类型不同,常量可分为字符型常量、数值常量、日期/时间型常量和布尔型常量C. 符号常量是用一个标识符来代表一个常数,好象是为常数取一个名字,但仍保持常数的性质D. 符号常量的使用和变量的使用没有差别2 下面合法的常量是_______。
DA. 1/2B. 'abcd'C. 1.2*5D. False3 Visual Basic中可以用类型说明符来标识变量的 C类型,其中表示货币型的是_______。
A. %B. #C. @D. $4 以下关键字中,不能定义变量的是_______。
AA. DeclareB. DimC. PublicD. Private5 用十六进制表示Visual Basic的整型常数时,前面要加上的符号是_______。
AA) &H B) &O C) H D) O6 Visual Basic日期常量的定界符是_______。
AA. ##B.…‟C. ()D. {}7 数学关系3≤x<10表示成正确的VB表达式为_______。
江苏省计算机二级vb考试题库及答案在计算机技术的不断发展和应用的推广下,计算机二级考试在各个地区都成为了一个非常重要的考试内容。
江苏省计算机二级VB考试题库及答案是众多考生备考时必备的资料之一。
本文将就江苏省计算机二级VB考试题库及答案进行详细的介绍。
一、江苏省计算机二级VB考试题库1. VB程序的基本结构是什么?答案:VB程序的基本结构由窗体、控件和代码组成。
2. VB中如何定义一个变量?答案:可以使用“Dim”关键字定义一个变量。
例如:Dim num As Integer。
3. VB中如何实现画图功能?答案:可以使用绘图工具或者画布控件来实现画图功能。
4. VB程序中如何实现输入输出?答案:可以使用输入框控件或者消息框来实现输入输出功能。
5. VB中如何调用函数?答案:可以使用函数名+参数的方式来调用函数。
二、江苏省计算机二级VB考试答案1. 请简述VB程序的运行过程。
答案:VB程序的运行过程包括以下几个步骤:- 加载窗体和控件;- 执行代码;- 响应用户操作。
2. 请写出VB程序中定义一个计算两数之和的函数的代码。
答案:```Function Add(num1 As Integer, num2 As Integer) As IntegerAdd = num1 + num2End Function```3. 如何实现在VB程序中播放音乐?答案:可以使用“WindowsMediaPlayer”控件来实现音乐的播放功能。
4. 请写出VB程序中实现文件读取的代码。
答案:```Dim file As Stringfile = FreeFileOpen "文件路径" For Input As fileInput #file, dataClose file```5. VB中如何处理异常错误?答案:可以使用“On Error Resume Next”语句来处理异常错误。
以上就是江苏省计算机二级VB考试题库及答案的相关内容介绍。
江苏省高校计算机等级考试二级上机改错题题型与总结应该用、而错用成、应该用、而错用成、类型一类型二类型三\n<0等→0(用于一个数中数字提取或者进制转换)(*特殊情况:被改成)n<0等→1(用于关于一个数的质因子分析)/”与整除号“\”结束条件(非n<0等→0)题目:本程序的功能是:查找四位整数,它的9倍正好等于n的反序数。
程序界面参见下图。
1()n , k1 = "结果是:" &n = 1000 2400k = 9 * n(n) = k= n & "" & k1 = 1 & &n(n )i ,ki = 1 此处原题有错,不应该有这句话k = n 10= & (k)n = n /10n > 0=题目:本程序的功能是:随机生成一个有n个元素的数组(n由函数输入),找出其中的最大元素并将它删除,再输出删除后的数组。
1a() , n1()in = ("请输入数组个数", , 10)a(n)i = 1 na(i) = ( * 100) + 11 = 1 & (a(i))i(a)i = 1 n2 = 2 & (a(i))i(a() ), , i= a(1): = 1i = 2 na(i) >= a(i): = ii(a, )(a() , k )ii = k + 1 (a)a(i) = a(i + 1)ia((a) - 1)题目:本程序的功能是查找80~150范围内的特殊十进制数据,其特点是该十进制数对应的8进制数为回文数(指从左向右读与从右向左读是一样的数)。
例如十进制数据105对应八进制数为151,151属于回文数,所以105就是符合要求的数。
1()i , ,i = 80 150=8(i, , )= (i) & ">" & & ""1i8( n , , f )k , () * 1, i= ""k = k + 1(k)(k) = n 8= (k) &n = n \ 8n < 0i = 1 () / 2(i) <> (() - i + 1)if =题目:本程序的功能是将密文解密。
密文中被非数字字符分隔的连续的数字是五进制数,每个五进制数对应一个明文字符的代码。
例如五进制数242对应的代码值是72,也就是字母“H”,密文末尾以非数字字符结束。
11(), , ip , t() , k= 1= ""i = 1 ()p = (, i, 1)p >= "0" p <= "4"= & p() <> 0k = k + 1t(k)t(k) =ii = 1 (t)k = (t(i))= & (k)i2 =(p )i , k , ni = (p) 1n = n + ((p, i, 1)) * 5 ^ kk = k + 1i= n题目:本程序的功能是:查找800~1200范围内的所有具有两个相同数字的素数。
例如811、877等都是符合要求的数。
1()ii = 800 1200(i) (i)1 ii(n )() , ki , jk = k + 1(k)(k) = n 10n = n \ 10n <= 0k = 0i = 1 () - 1j = i + 1 ()(i) = (j) k = k + 1jik = 1 =(n )ii = 2 (n)n i = 0I=题目:本程序的功能是:找出100以内的含有三个不同质因子的所有整数。
程序界面参见下图。
11()i , j , a() , si = 2 100(i, a)(a) = 3s = i & "的质因子:"j = 1 (a)s = s & (a(j))j1 si(x , a() )i , jj = 2x j = 0i = i + 1a(i)a(i) = jx = x \ jx j = 0x = x \ jLoopj = j + 1x = 0题目:本程序的功能是:在自然数序列中,依次找出指定个数的连续合数。
例如输入5,则可得到24、25、26、27、28。
所谓合数是指除了可被1和自身整除之外,还可被其他整数整除的数。
(函数的功能是判断一个数是否是合数)。
11()k , n , i()n = 1k = 2i = n(k)i = i + 1(i)(i) = ki <> ni = 0k = k + 1Loopi = 1 n2 = 2 & ((i))i(n )ii = 2 n - 1n i = 0i <= n - 1 =题目:本程序的功能是:把10到20范围内的数分别表示为若干质因子连乘的形式。
程序界面参见下图。
11()i , () , ji = 10 20(i, )= (i) & "=:"j = 1 ()= & ((j)) & "*"j= & ((j))1i(n , a() )i , ki = 2n i = 0k = k + 1a(k)a(k) = in = n \ ii = i + 1n <= 0题目:本程序的功能是,将24位真彩色图像的一个像素的颜色值,转换成用十进制表示的红、绿、蓝三基色的亮度值。
11(), c(3) * 8k , (3)(1) = "红色"(2) = "绿色"(3) = "蓝色"= 1k = k + 1c(k) = (, 8)= (, () - 8)k > 3k = 1 32 = 2 & (k) & ":"& b2d(c) &b2d(s )kb2d = b2d + ((s, 1)) * 2 ^ ks = (s, (s) - 1)k = k + 1k = (s)题目:本程序的功能是,找出所有两位整数中的“镜反平方数对”。
所谓“镜反平方数对”是指数对n与m,它们满足条件:①n与m不含有数字0,且n不等于m;②n的反序数是m,n的平方数的反序数等于m的平方。
例如12与21,12的平方是144,其反序数是441,而21的平方正好等于441;所以12与21是镜反平方数对。
1()n , ,n = 11 99((n), "0") <> 0= (n)(n, ) n <= n & "^2=" & n ^ 2 & "," & & "^2=" & ^ 21n1 = 0 1 "无镜反平方数"(n )ss = s & (n 10)n = n \ 10n = 0= s(p , q )(p ^ 2) = q ^ 2=题目:本程序的功能是:找出指定范围内的五位整数中,由不同数字组成的所有素数。
程序界面参见下图。
1()nn = 34567 40000(n) (n)1 = 1 & n &n1 = "" 1 = "无符合要求的数"(n )ii = 2 (n)n i = 0i=(n )(5) , i , ki = 1 5(i) = n 10n = n / 10ii = 1 4k = i + 1 5(i) = (k)ki=题目:本程序的功能是:随机生成n个两位整数。
存入一个数组。
先求出最后两个数组元素的最大公约数,用最大公约数对第1个元素进行约分,并删除第n个元素。
如此反复,直到数组只有一个元素为止。
程序界面参见下图。
1()a() , ni , j ,n = ("元素个数:", "数组处理", 10)a(n)i = 1 na(i) = ( * 90) + 101 = 1 & (a(i))i= ""i = n 2 -1a(i - 1) = a(i - 1) / (a(i), a(i - 1))a(i - 1)j = 1 (a)= & (a(j))j1i( a , b )cc = a ba = bb = cc = 0= b题目:本程序的功能是利用随机函数生成n个可被3整除、且至少包含一个8的三位整数。
1()n , a() , in = ("数据个数n:", "查找", 15)a(n)(a)i = 1 nn 3 <> 0= & (a(i))= & (a(i)) &i1 =(a() ), k , ps= (a)p = ( * 899) + 100s = (p)(s, "8") <> 0 p 3 = 0k = k + 1a(k) = pk >题目:本程序的功能是:找出指定数组范围内所有其平方数是升序数的数,所谓升序数是指从最高位到最低位的数字依次增加的整数。
例如,1369就是一个升序平方数。
程序界面参见下图。
1()n , kn = 20 180k = n ^ 2(k)1 n & "^2=" & kn1 <> 0 1 "无升序平方数"( n )() , k , pip = n 10k = k + 1(k)(k) = pn = n \ 10n < 0i = 2 ()(i) > (i - 1)i=题目:本程序的功能是将三种颜色的亮度值(0-255间的十进制数)分别转换为8位二进制数,再拼接成一个24位的二进制表示。
十进制亮度值以逗号分隔、以#号结尾。
1(), (3) , ip * 1, q , k= 1i = 1p = (, i, 1)p <> "," p <> "#"q = q & pk = k + 1(k)q = ""i = i + 1i > ()i = 1 32 = 2 & d2b()id2b(d )d2b = d 2 & d2bd = d \ 2d < 0d2b = ("00000000" & d2b, 8)题目:本程序的功能是,找出由1、2、3、4、5这五个数字组成的无重复数字,并且十位数与千位数字为偶数的五位整数。