资源描述：
《信息技术学业水平考试程序分析试题》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。
1、高二信息技术综合练习⑴圆周率H值的计算公式有多种，其屮一种近似值计算公式如下：对于n的不同取值，得到71值的精度不同。女口：当n=100000时，计算出n=3.14158310432646当21000000时，计算出r=3.14159169866051以下程序是当n=10000000时R的近似值的主要程序段，请你补全代码(4分)DimsasdubleDimpiasdoubleS=0Fori=lto10000000S=s+l/(i*i)NextIPi=sqr(Print"兀二〃;pi⑵已知在vb语言中，int(x)函数的功能是返回不人于x的最大整数
2、，abs(x)函数的功能是返回x的绝对值，则表达式abs(int(2.88)+int(-3.14))的值是()⑶如果一个4位数恰好等于它的各位数字的4次方和，则这个四位数被称为“玫瑰花”数，例如1634就是一个玫瑰花数：1634=14+64+34+44,如果要求出所有玫瑰花数，下列算法最合适的是()o(4)“完数”是指一个自然数恰好等于它的因子(不包含本身)的和，如6的因子为1.2.3,而6二1+2+3,而6就是完数。再如28的因子为1.2.4.7.14,而28二1+2+4+7+14因而28就是完数。问题：输入一个正整数n,判断该正整数是否为完数
3、。要判断一个正整数n是否为完数，最简单的方法是：求出1到n-1之间n的所有因了和为sum,如果snm的值和n的值相同，则n就是完数。以下代码是判断n是否为完数的程序片段，请你补全代码。(3分)DimnAsLongDimSnmAsLongn二InputBox(“n二fori=lton~lSum用來记录n的因了和求n的因了和和sumifnmodi=0thensumNextiIfThenPrintn&“是完数”ElsePrintn&“不是完数”Endif.(5)Fori=lTo10Forj=1ToiPrintv*”NextjPrintNexti运行结果
4、是：A^7xXrx^Tx>Tx>Txi控制*的行数j控制每行*的个数输出*输出换行（请用英文字母填写，6分）vizZjJZj、✓JxXTxZTSZTXZTX✓J%#J、sixsix^lzvlxvfx^lz^lzvizvlxXTXXTXxjxxjx✓TXxjxxjxXJ>xjxsixsixsix✓TxXTXXTXXjXXTXXTXXjXXTXvlx✓Js#jx✓T^^7^XTSyjXZ7^xjx✓jx✓jxxjx**********>L^^lx>1^>1^>1^>1^sixsix>lx^lx^lx^IxxlxXJXxjxxjx^JxxjxxTxxT
5、xxTxxTxxTxslzsixsixsixxlx^T%ZTS>JX^T>***********D*******************zTxzTx#T%#TS#TS#TS#TS#TSsixXjXXjXXJXXJXzjxzTszTszTxxTxxTx✓Tx%lz%fz%lz%fz#TS#TS#TS^TH#TS#TS#TS#TSsix>JxsXz>Jx>IxzTxZT^zTxZT^ZT^zTxxTx✓Tx%lzslzsVsVsVXT%ZT^XTXZTS^TXXTXZTXZT%(6)考拉兹猜想：考拉兹猜想又称为3n+l猜想，是指对于每一个正整数，如果
6、它是奇数，则对于它乘3再加1；如果它是偶数，贝I」对它除以2；……；如此循环，最终都能够得到1・如n二6,根据以上规律，得出6^3^10^5^16^8^4-2-1。(共有八个步骤)以下是验证考拉兹猜想的主要VB程序片段，请你补全代码；(8分)n=Val(InputBox(un=n))cnt=0统计步骤数DoWhilen>lCnt=cnt+1IfnMod2=0Thenn=lelsen=EndifLoopPrintent输出步骤(7)VB语言中绘制元的方法是：Circle(x,y),r格式说明：其中（X,y）为圆心坐标，r为圆的半径。下表中算法1是在
7、窗体中绘制以（2000,2000）为圆心,半径以次为100,200,……,800,的八个同心圆。请补充完成算法2，使其实现与算法1相同的功能。（6分）算法1算法2Circle(2000,2000),100Circle(2000,2000),200Circle(2000,2000),300Circle(2000,2000),400Circle(2000,2000),500Circle(2000,2000),600Circle(2000,2000),700Circle(2000,2000),800DimkasIntegerFork=1To8Circl
8、e(2000,2000)Nextk(8)DimnaslongDimsaslongDimxaslongn=Val（InputBox（un=
