程序改错
合集下载
相关主题
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
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)=======
work = b ^ 2 - 4 * a * c
=======(答案2)=======
root1 = (-b + Sqr(work)) / (2 * a)
=======(答案3)=======
root2 = (-b - Sqr(work)) / (2 * a)
=======(答案3)=======
N = N - 1
'题目：随机产生并输出100以内大于50的20个整数，输
'出时每5个数一行。
答案：
=======(答案1)=======
i = 0
=======(答案2)=======
Do while i < 20
=======(答案3)=======
If i mod 5 = 0 Then
If a(j) > a( j + 1 ) Then
=======(答案3)=======
Next j, i
'题目：输出40以内能够被3整除的数，要求输出结果为5
'个数一行。
'------------------------------------------------
答案：
=======(答案1)=======
'单击"排序"按钮时，在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)
'求出其中的偶数之和，并在标签框Label1上显示。
=======(答案1)=======
sum=0
=======(答案2)=======
rnddat = (10 + Int(90 * Rnd))
=========或=========
rnddat = ( 10 + Int(90 * Rnd))
=======(答案3)=======
答案：
=======(答案1)=======
x=1
=======(答案2)=======
x=x*j
=======(答案3)=======
C = fac(n) / fac(n - m) / fac(m)
'------------------------------------------------
'题目：随机产生n个两位正整数（n由输入对话框输入，且n>0），
=======(答案2)=======
For j = 2 To i - 1
=======(答案3)=======
For j = 1 To i
'题目:设窗体中有图片框Pic1，现要求在其中绘制10个同心圆，
'然后将此图以Test.BMP作文件名存入磁盘。
=======(答案1)=======
for i=0 to 9
s =0
=======(答案2)=======
For i = 7 To 832 step 30
=======(答案3)=======
Next i
---
'题目：下面程序用于将十个数字从小到大排序
答案：
=======(答案1)=======
For i = 1 To 10
=======(答案2)=======
' 5个数一行。
答案：
=======(答案1)=======
i = 0
=======(答案2)=======
Print x ;
=======(答案3)=======
Next x
'题目：用InputBox函数输入一个字符串，编写程序按与
'输入的字符相反的次序用Msgbox函数输出这个字
'符串。如输入字符串为"abcdefgh"，则输出为"h
'题目:下面函数的功能是：求变量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)=======
Print Tab( (k Mod 5) * 8 ); i;
=======(答案3)=======
If k Mod 5 = 0 Then Print
'题目:请根据下列描述编写购物优惠程序。某商场为了
'加速促成商品流通，采用购物打折的优惠办法，每
'位顾客一次购物（1）在100元以上者，按九五折优惠；
'（2）在200元以上者，按九折优惠；（3）300元以上
答案：
=======(答案1)=======
swit=0
=======(答案2)=======
While i <= k And swit = 0
=======(答案3)=======
i= i + 1
'题目：程序功能：求1+2+3……，直到其和超出3000为
'止，并输
答案：
=======(答案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整除的数，要求输出结果为
If rnddat Mod 2 = 0 Then
=========或=========
If rnddat / 2 = int(rnddat/2) Then
=========或=========
If rnddat / 2 = cint(rnddat/2) Then
' gfedcba"，输出效果如图1。
答案：
=======(答案1)=======
For i = 0 To Len(pristr) - 1
=======(答案2)=======
outstr = outstr + Mid(pristr, Len(pristr) - i, 1)
=======(答案3)=======
=======(答案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)=======
i = i + 1
=======(答案3)=======
Loop until s > 3000
'题目：下面程序的作用是产生100以内的全部素数，并
'按每行5个数据输出。
答案：
=======(答案1)=======
For i = 2 To n - 1
=======(答案2)=======
i = 0
=======(答案2)=======
Print x;
=======(答案3)=======
if i mod 5=0 then
'题目：下面的程序段用于实现以下功能：建立一顺序文
'件，存放10名同学的学号和三门功课成绩，显示
'该文件内所有记录，并同时显示其总分和平均分
答案：
=======(答案1)=======
'者，按八折优惠；（4）500元以上者按七折优惠。
=======(答案Leabharlann Baidu)=======
y = x
=======(答案2)=======
End If
=======(答案3)=======
Text2.Text = y
'题目：统计一顺序文件text.txt中的空格、字母、数字和其它字符个数。
答案：
=======(答案1)=======
MsgBox outstr, vbQuestion, "The Output Result "
'题目：下面的程序用来产生并输出图示的杨辉三角。
' 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
t = (a + b + c) / 2
=======(答案3)=======
s = Sqr(t * (t - a) * (t - b) * (t - c))
'题目:本程序求3~100之间的所有素数（质数）并统计个数；
'同时将这些素数从小到大依次写入顺序文件c:\dataout.txt；
'素数的个数显示在窗体Form1上。
【程序改错】
'------------------------------------------------
'题目：挑选单数并排序程序：程序启动后由计算机自动产
'生20个属于[100，300]之间的随机整数，单击"显
'示全体"按钮时，在Form1上显示这20个随机数；
'单击"显示奇数"按钮时，在Form1上显示其中的奇数；
=======(答案2)=======
Do Until I < 0
=======(答案3)=======
I = I - 1
'题目：已知C的公式表示如下:
' n!
' C=------------------
' (n-m)!*m!
'函数过程fac( )求k！函数,在Fomr_Click事件中完成运算，
'请修正程序中错误。
=======(答案2)=======
Open "c:\2.txt" For Input As #1
=======(答案3)=======
Input #1, n0, c1, c2, c3
'题目：以下程序段用于输出100-300的所有素数
'题目:程序功能为求解一元二次方程的实根，请修正程序中错误。
=======(答案1)=======
work = b ^ 2 - 4 * a * c
=======(答案2)=======
root1 = (-b + Sqr(work)) / (2 * a)
=======(答案3)=======
root2 = (-b - Sqr(work)) / (2 * a)
=======(答案3)=======
N = N - 1
'题目：随机产生并输出100以内大于50的20个整数，输
'出时每5个数一行。
答案：
=======(答案1)=======
i = 0
=======(答案2)=======
Do while i < 20
=======(答案3)=======
If i mod 5 = 0 Then
If a(j) > a( j + 1 ) Then
=======(答案3)=======
Next j, i
'题目：输出40以内能够被3整除的数，要求输出结果为5
'个数一行。
'------------------------------------------------
答案：
=======(答案1)=======
'单击"排序"按钮时，在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)
'求出其中的偶数之和，并在标签框Label1上显示。
=======(答案1)=======
sum=0
=======(答案2)=======
rnddat = (10 + Int(90 * Rnd))
=========或=========
rnddat = ( 10 + Int(90 * Rnd))
=======(答案3)=======
答案：
=======(答案1)=======
x=1
=======(答案2)=======
x=x*j
=======(答案3)=======
C = fac(n) / fac(n - m) / fac(m)
'------------------------------------------------
'题目：随机产生n个两位正整数（n由输入对话框输入，且n>0），
=======(答案2)=======
For j = 2 To i - 1
=======(答案3)=======
For j = 1 To i
'题目:设窗体中有图片框Pic1，现要求在其中绘制10个同心圆，
'然后将此图以Test.BMP作文件名存入磁盘。
=======(答案1)=======
for i=0 to 9
s =0
=======(答案2)=======
For i = 7 To 832 step 30
=======(答案3)=======
Next i
---
'题目：下面程序用于将十个数字从小到大排序
答案：
=======(答案1)=======
For i = 1 To 10
=======(答案2)=======
' 5个数一行。
答案：
=======(答案1)=======
i = 0
=======(答案2)=======
Print x ;
=======(答案3)=======
Next x
'题目：用InputBox函数输入一个字符串，编写程序按与
'输入的字符相反的次序用Msgbox函数输出这个字
'符串。如输入字符串为"abcdefgh"，则输出为"h
'题目:下面函数的功能是：求变量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)=======
Print Tab( (k Mod 5) * 8 ); i;
=======(答案3)=======
If k Mod 5 = 0 Then Print
'题目:请根据下列描述编写购物优惠程序。某商场为了
'加速促成商品流通，采用购物打折的优惠办法，每
'位顾客一次购物（1）在100元以上者，按九五折优惠；
'（2）在200元以上者，按九折优惠；（3）300元以上
答案：
=======(答案1)=======
swit=0
=======(答案2)=======
While i <= k And swit = 0
=======(答案3)=======
i= i + 1
'题目：程序功能：求1+2+3……，直到其和超出3000为
'止，并输
答案：
=======(答案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整除的数，要求输出结果为
If rnddat Mod 2 = 0 Then
=========或=========
If rnddat / 2 = int(rnddat/2) Then
=========或=========
If rnddat / 2 = cint(rnddat/2) Then
' gfedcba"，输出效果如图1。
答案：
=======(答案1)=======
For i = 0 To Len(pristr) - 1
=======(答案2)=======
outstr = outstr + Mid(pristr, Len(pristr) - i, 1)
=======(答案3)=======
=======(答案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)=======
i = i + 1
=======(答案3)=======
Loop until s > 3000
'题目：下面程序的作用是产生100以内的全部素数，并
'按每行5个数据输出。
答案：
=======(答案1)=======
For i = 2 To n - 1
=======(答案2)=======
i = 0
=======(答案2)=======
Print x;
=======(答案3)=======
if i mod 5=0 then
'题目：下面的程序段用于实现以下功能：建立一顺序文
'件，存放10名同学的学号和三门功课成绩，显示
'该文件内所有记录，并同时显示其总分和平均分
答案：
=======(答案1)=======
'者，按八折优惠；（4）500元以上者按七折优惠。
=======(答案Leabharlann Baidu)=======
y = x
=======(答案2)=======
End If
=======(答案3)=======
Text2.Text = y
'题目：统计一顺序文件text.txt中的空格、字母、数字和其它字符个数。
答案：
=======(答案1)=======
MsgBox outstr, vbQuestion, "The Output Result "
'题目：下面的程序用来产生并输出图示的杨辉三角。
' 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
t = (a + b + c) / 2
=======(答案3)=======
s = Sqr(t * (t - a) * (t - b) * (t - c))
'题目:本程序求3~100之间的所有素数（质数）并统计个数；
'同时将这些素数从小到大依次写入顺序文件c:\dataout.txt；
'素数的个数显示在窗体Form1上。
【程序改错】
'------------------------------------------------
'题目：挑选单数并排序程序：程序启动后由计算机自动产
'生20个属于[100，300]之间的随机整数，单击"显
'示全体"按钮时，在Form1上显示这20个随机数；
'单击"显示奇数"按钮时，在Form1上显示其中的奇数；
=======(答案2)=======
Do Until I < 0
=======(答案3)=======
I = I - 1
'题目：已知C的公式表示如下:
' n!
' C=------------------
' (n-m)!*m!
'函数过程fac( )求k！函数,在Fomr_Click事件中完成运算，
'请修正程序中错误。