tceic.com
学霸学习网 这下你爽了
赞助商链接
当前位置:首页 >> 其它 >>

程序改错


【程序改错】 '-----------------------------------------------'题目:挑选单数并排序程序:程序启动后由计算机自动产 ' 生 20 个属于[100,300]之间的随机整数,单击"显 ' 示全体"按钮时,在 Form1 上显示这 20 个随机数; ' 单击"显示奇数"按钮时,在 Form1 上显示其中的奇数; ' 单击"排序"按钮时,在 Form1 上将这些奇数从小到大显示。 ' 要求显示格式为每行显示 5 个数据。 =======(答案 1)======= If a(I) mod 2 <>0 Then =======(答案 2)======= If I mod 5 = 0 Then Print =======(答案 3)======= a(I) = Int(Rnd() * 200 + 100)

'题目:编程将一个数从已经有序(设从小到大排序)的数组 ' 中删除,使数组还继续保持有序而且其余元素按照下 ' 标连续存放。 =======(答案 1)======= ReDim A(N) =======(答案 2)======= A(i) = A(i + 1) =======(答案 3)======= N=N-1 '题目:随机产生并输出 100 以内大于 50 的 20 个整数,输 ' 出时每 5 个数一行。 答案: =======(答案 1)======= i=0 =======(答案 2)======= Do while i < 20 =======(答案 3)======= If i mod 5 = 0 Then

'题目:程序功能为求解一元二次方程的实根,请修正程序中错误。 =======(答案 1)======= work = b ^ 2 - 4 * a * c =======(答案 2)======= root1 = (-b + Sqr(work)) / (2 * a) =======(答案 3)======= root2 = (-b - Sqr(work)) / (2 * a)

'题目:下面函数的功能是:求变量 s(s=a+aa+aaa+aaaa+……) ' 的值。其中,a 是一个 0-9 的数字,总共累加 a 项。 ' 例如,当 a=3 时,s=3+33+333 (共累加 3 项)。 答案: =======(答案 1)======= t=a =======(答案 2)======= t = t * 10 + a =======(答案 3)======= Call Calc(i)

'题目:给定三角形的三条边,计算三角形的面积。要求 ' 程序首先判断给定的三条边能否构成三角形。 答案: =======(答案 1)======= If a + b < c Or b + c < a Or a + c < b Then =======(答案 2)======= t = (a + b + c) / 2 =======(答案 3)======= s = Sqr(t * (t - a) * (t - b) * (t - c)) '题目:本程序求 3~100 之间的所有素数(质数)并统计个数; ' 同时将这些素数从小到大依次写入顺序文件 c:\dataout.txt; ' 素数的个数显示在窗体 Form1 上。

=======(答案 1)======= Open "dataout.txt" For Output As #1 =======(答案 2)======= If Flag Then =======(答案 3)======= Write #1, t1 '题目:求 s=72+102+132+……832 的值。

=======(答案 1)======= s =0 =======(答案 2)======= For i = 7 To 832 step 30 =======(答案 3)======= Next i --'题目:下面程序用于将十个数字从小到大排序

答案: =======(答案 1)======= For i = 1 To 10 =======(答案 2)======= If a(j) > a( j + 1 ) Then =======(答案 3)======= Next j, i

'题目:输出 40 以内能够被 3 整除的数,要求输出结果为 5 ' 个数一行。 '------------------------------------------------

答案: =======(答案 1)======= i=0 =======(答案 2)======= Print x; =======(答案 3)======= if i mod 5=0 then

'题目:下面的程序段用于实现以下功能:建立一顺序文 ' 件,存放 10 名同学的学号和三门功课成绩,显示 ' 该文件内所有记录, 并同时显示其总分和平均分

答案: =======(答案 1)======= Open "c:\2.txt" For Output As #1 =======(答案 2)======= Open "c:\2.txt" For Input As #1 =======(答案 3)======= Input #1, n0, c1, c2, c3

'题目:以下程序段用于输出 100-300 的所有素数

答案: =======(答案 1)======= swit=0 =======(答案 2)======= While i <= k And swit = 0 =======(答案 3)======= i= i + 1

'题目:程序功能:求 1+2+3……,直到其和超出 3000 为 ' 止,并输 答案: =======(答案 1)======= s =0 =======(答案 2)======= i= i + 1 =======(答案 3)======= Loop until s > 3000 '题目:下面程序的作用是产生 100 以内的全部素数,并 ' 按每行 5 个数据输出。 答案: =======(答案 1)======= For i = 2 To n - 1 =======(答案 2)======= Print Tab( (k Mod 5) * 8 ); i; =======(答案 3)======= If k Mod 5 = 0 Then Print '题目:请根据下列描述编写购物优惠程序。某商场为了 ' 加速促成商品流通,采用购物打折的优惠办法,每 ' 位顾客一次购物(1)在 100 元以上者,按九五折优惠; ' (2)在 200 元以上者,按九折优惠; (3)300 元以上 ' 者,按八折优惠; (4)500 元以上者按七折优惠。

=======(答案 1)======= y=x =======(答案 2)======= End If =======(答案 3)======= Text2.Text = y

'题目:统计一顺序文件 text.txt 中的空格、字母、数字和其它字符个数。 答案: =======(答案 1)======= Open App.Path & "\text.txt" For Input As #1 =======(答案 2)======= Do Until EOF(1) =======(答案 3)======= ElseIf C >= "0" And C <= "9" Then '题目:输出 40 以内能够被 3 整除的数,要求输出结果为 ' 5 个数一行。 答案: =======(答案 1)======= i=0 =======(答案 2)======= Print x ; =======(答案 3)======= Next x '题目:用 InputBox 函数输入一个字符串,编写程序按与 ' 输入的字符相反的次序用 Msgbox 函数输出这个字 ' 符串。如输入字符串为"abcdefgh",则输出为"h ' gfedcba",输出效果如图 1。 答案: =======(答案 1)======= For i = 0 To Len(pristr) - 1 =======(答案 2)======= outstr = outstr + Mid(pristr, Len(pristr) - i, 1) =======(答案 3)======= MsgBox outstr, vbQuestion, "The Output Result " '题目:下面的程序用来产生并输出图示的杨辉三角。 ' 1 ' 1 1 ' 1 2 1

' 1 ' 1 ' 1

3 4 5

3 1 6 4 1 10 10 5 1

答案: =======(答案 1)======= a(i, i) = 1 =======(答案 2)======= For j = 2 To i - 1 =======(答案 3)======= For j = 1 To i '题目:设窗体中有图片框 Pic1,现要求在其中绘制 10 个同心圆, ' 然后将此图以 Test.BMP 作文件名存入磁盘。 =======(答案 1)======= for i=0 to 9 =======(答案 2)======= Do Until I < 0 =======(答案 3)======= I=I-1 '题目:已知 C 的公式表示如下: ' n! ' C=-----------------' (n-m)!*m! '函数过程 fac( )求 k!函数,在 Fomr_Click 事件中完成运算, '请修正程序中错误。 答案: =======(答案 1)======= x=1 =======(答案 2)======= x=x*j =======(答案 3)======= C = fac(n) / fac(n - m) / fac(m) '------------------------------------------------

'题目:随机产生 n 个两位正整数(n 由输入对话框输入,且 n>0) , ' 求出其中的偶数之和,并在标签框 Label1 上显示。 =======(答案 1)======= sum=0 =======(答案 2)======= rnddat = (10 + Int(90 * Rnd)) =========或========= rnddat = ( 10 + Int(90 * Rnd)) =======(答案 3)======= If rnddat Mod 2 = 0 Then =========或========= If rnddat / 2 = int(rnddat/2) Then =========或========= If rnddat / 2 = cint(rnddat/2) Then



推荐相关:

C语言程序改错

C语言程序改错 - 〖第 1 题〗 『程序改错』(5 分)(题号:422) /*---【...


程序改错

(i==0||j==0||i==2||j==2) /*---【程序改错】 ---功能:某个公司采用公用电话传递数据, 数据是四位的整数,在 传递过程中是加密的,加密规则如下:...


程序改错题

程序改错题 - 程序改错练习题 /*---【程序改错】第 1 题 ---...


程序改错

[i]>number) /*---【程序改错】 ---功能:求1到10的阶乘的和。 ---*/ #...


C语言程序改错练习

(4.0 分) 题号:413 /*---【程序改错】 --- 难度:易 第2章 功能:读取 7 个数(1-50)的整数值,每读取一个值,程序打印 出该值个数的*。 ---...


程序改错

--【程序改错】 ---功能:将若干学生的档案存放在一个文件中,并显示其内容。 ---*/ #include <stdio.h> struct student { int num; char name[10]; int...


程序改错

程序改错 - 程序改错 〖第 1 题〗将一个正整数分解质因数。例如:输入 90,打印出 90=2*3*3*5 #include stdio.h main() { int n,i; printf(...


程序改错

long k=1; num/=10; 或 num=num/10; scanf("%ld",&n); printf("\n%ld\n",fun(n)); 显示序号:3 题号:22 科目:Turbo C 题型:程序改错 题干: ...


程序改错

程序改错 - 模拟 1 /*---【程序改错】 ---...


C语言题库之程序改错

a[i][j]*=n; 第 1 题(10.0 分) 题号:382 /*---【程序改错】 ---功能:读入一行英文文本,将其中每个单词的最后一个字母改成 大写,然后输出此文本行...

网站首页 | 网站地图
All rights reserved Powered by 学霸学习网 www.tceic.com
copyright ©right 2010-2021。
文档资料库内容来自网络,如有侵犯请联系客服。zhit325@126.com