VB程序改错40题含答案(3)

=======(答案3)======= N = N - 1

第20题 （1.0分） 题号:139 '【程序改错】

'题目：随机产生并输出100以内大于50的20个整数，输 ' 出时每5个数一行。 Option Explicit

Private Sub Form_Click() Randomize Timer

Dim i As Integer, ma As Integer i = 1

Do Until i < 20

ma = Rnd() * 100 \\ 1 If ma > 50 Then Print ma; i = i + 1 If i \\ 5 = 0 Then Print End If End If Loop End Sub 答案：

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

=======(答案2)======= Do while i < 20

=========或========= Do while 20 > i

=========或========= Do while i <=19

=========或========= Do while 19 > =i

=======(答案3)======= If i mod 5 = 0 Then

第23题 （1.0分） 题号:474 '【程序改错】

'题目:程序功能为求解一元二次方程的实根，请修正程序中错误。 Option Explicit

Private Sub Form_Load()

Dim a!, b!, c!, root1#, root2#, work As Double a = Val(InputBox(\请输入系数a的值\ b = Val(InputBox(\请输入系数b的值\ c = Val(InputBox(\请输入系数c的值\

work = b * 2 - 4 * a * c If work >= 0 And a <> 0 Then

root1 = (Sqr(work)) / (2 * a)

root2 = (Sqr(work)) / (2 * a)

Debug.Print \有二个实根\ Else

Debug.Print \无实根!\ End If End Sub 答案：

=======(答案1)======= work = b ^ 2 - 4 * a * c =========或========= work = b *b - 4 * a * c =======(答案2)=======

root1 = (-b + Sqr(work)) / (2 * a) =========或=========

root1 = ( Sqr(work) -b ) / (2 * a) =========或=========

root1 = (-b + Sqr(work)) / ( a*2) =========或=========

root1 = ( Sqr(work) -b ) / ( a*2) =======(答案3)=======

root2 = (-b - Sqr(work)) / (2 * a) =========或=========

root2 = (- Sqr(work) - b) / (2 * a) =========或=========

root2 = (-b - Sqr(work)) / ( a*2) =========或=========

root2 = (- Sqr(work) - b) / (a*2) 第28题 （1.0分） 题号:133 '【程序改错】

'题目：下面程序将10个整数从大到小排序 Option Explicit

Private Sub Form_Click() Dim t%, m%, n%, w% Dim a(10) As Integer For m = 1 To 10

a(m) = Int(10 + Rnd() * 90) Print a(m); \Next m Print

For m = 1 To 9 t = m

For n = 2 To 10

If a(t) > a(n) Then n = t Next n

If t = m Then w = a(m) a(m) = a(t) a(t) = w

End If Next m

For m = 1 To 10 Print a(m) Next m End Sub 答案：

=======(答案1)======= For n = m + 1 To 10 =======(答案2)======= If a(t)

If a(n) >a(t) Then t = n =======(答案3)======= If t <> m Then =========或========= If not t = m Then =========或========= If not m = t Then

第30题 （1.0分） 题号:480 '【程序改错】

'题目:下面函数的功能是：求变量s(s=a+aa+aaa+aaaa+??) ' 的值。其中，a是一个0-9的数字，总共累加a项。 ' 例如，当a=3时,s=3+33+333 (共累加3项)。 Option Explicit

Public Function Calc(a As Integer) Dim s As Long Dim t As Long Dim i As Integer s = a

t = 1

For i = 2 To a

t = t + a s = s + t Next i Calc = s Print s End Function

Private Sub Command1_Click() Dim i As Integer

i = InputBox(\请输入数字（0-9）:\

Calc call i End Sub 答案：

=======(答案1)======= t = a

=======(答案2)======= t = t * 10 + a

=========或========= t = t * 10 + a

=========或========= t = t * 10 + a

=======(答案3)======= Calc i

=========或========= Call Calc(i)

=========或========= Calc (i)

第31题 （1.0分） 题号:489

'------------------------------------------------ '【程序改错】

'------------------------------------------------ '题目:给定三角形的三条边，计算三角形的面积。要求 ' 程序首先判断给定的三条边能否构成三角形。 '------------------------------------------------ Option Explicit

Private Sub Form_Click()

Dim a As Single, b As Single, c As Single Dim s As Single, t As Single start:

a = InputBox(\输入1边长：\ b = InputBox(\输入2边长：\ c = InputBox(\输入3边长：\

If a + b < c Or b + c < a Then

MsgBox (\不能构成三角形，请重新输入个边\ GoTo start End If

t = (a + b) / 2

s = Sqr((t - a) * (t - b) * (t - c)) Print \该三角形的面积：\End Sub 答案：

=======(答案1)=======

If a + b < c Or b + c < a Or a + c < b Then =======(答案2)======= t = (a + b + c) / 2 =========或========= t = (a + b + c ) / 2 =======(答案3)=======

s = Sqr(t * (t - a) * (t - b) * (t - c)) =========或=========

s = Sqr( t * (t - a) * (t - b) * (t - c) )

第32题 （1.0分） 题号:475

'------------------------------------------------ '【程序改错】

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

'题目:本程序求3~100之间的所有素数（质数）并统计个数；

' 同时将这些素数从小到大依次写入顺序文件c:\\dataout.txt； ' 素数的个数显示在窗体Form1上。

'------------------------------------------------ Option Explicit

Private Sub Command1_Click()

Dim Count As Integer, Flag As Boolean Dim t1 As Integer, t2 As Integer

Open \ Count = 0

For t1 = 3 To 100 Flag = True

For t2 = 2 To Int(Sqr(t1))

If t1 Mod t2 = 0 Then Flag = False Next t2

If Flag = False Then Count = Count + 1

Write #1, t2 End If Next t1

Form1.Print \素数个数\ Close #1 End Sub 答案：

=======(答案1)=======

Open \=========或=========

Open \=======(答案2)======= If Flag Then

=========或========= If Flag=true Then

=======(答案3)======= Write #1, t1

=========或========= Write 1, t1

第33题 （1.0分） 题号:137

'------------------------------------------------ '【程序改错】

'------------------------------------------------ '题目：求s=72+102+132+??832的值。

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

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说综合文库VB程序改错40题含答案(3)在线全文阅读。