程序改错

【程序改错】

'------------------------------------------------

'题目：挑选单数并排序程序：程序启动后由计算机自动产 ' 生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 \

=======(答案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 \

=======(答案2)======= Open \

=======(答案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 & \=======(答案2)======= Do Until EOF(1)

=======(答案3)=======

ElseIf C >= \

'题目：输出40以内能够被3整除的数，要求输出结果为 ' 5个数一行。 答案：

=======(答案1)======= i = 0

=======(答案2)======= Print x ;

=======(答案3)======= Next x

'题目：用InputBox函数输入一个字符串，编写程序按与 ' 输入的字符相反的次序用Msgbox函数输出这个字 ' 符串。如输入字符串为\，则输出为\' gfedcba\，输出效果如图1。

答案：

=======(答案1)======= For i = 0 To Len(pristr) - 1

=======(答案2)=======

outstr = outstr + Mid(pristr, Len(pristr) - i, 1) =======(答案3)=======

MsgBox outstr, vbQuestion, \

'题目：下面的程序用来产生并输出图示的杨辉三角。 ' 1 ' 1 1 ' 1 2 1

' 1 3 3 1 ' 1 4 6 4 1 ' 1 5 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

本文来源：https://www.bwwdw.com/article/hec2.html