VB程序设计例题程序改错程序填空程序设计

'以下程序段用于输出杨辉三角:结果样式如图1

'

Private Sub Form_Click()

Const n = 10

Dim arr(n, n) As Integer

For I = 1 To n

arr(I, I) = 1

'**********SPACE**********

【arr(I, 1) = 1】

Next I

For I = 3 To n

For j = 2 To I - 1

'**********SPACE**********

arr(i, j) =arr(i-1,j-1)+arr(i-1,j)

Next j

Next I

For I = 1 To n

For j = 1 To I

'**********SPACE**********

【print arr(I,j)】

Next j

Print

Next I

End Sub

Option Explicit

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

'【程序改错】

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

'题目：用自定义函数的方法求sum（x），求当-1≤x≤1时，' sum（x）=x/2！+x^2/3!+x^3/4!+……+x^n/(n+1)!，

' 当x〉1或x〈-1时，函数值为0。当n〈=0时，输入数' 据错误。X、N都是由用户输入。

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

'注意：不可增加或删除程序行，也不可以更改程序结构

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

Private Sub Command1_Click()

Dim s As Single

Dim n As Integer, x As Single, k As Integer

n = Val(InputBox("Please input a integer value:"))

x = Val(InputBox("Please input a single value:"))

If n <= 0 Then

k = MsgBox("数据输入错误！", vbRetryCancel + vbExclamation, "数据输入")

Exit Sub

End If

s = Sum(x, n)

Print s

End Sub

Function Sum(x As Single, n As Integer)

Dim i As Integer, ss As Long

ss = 1

Sum = 0

If x > 1 Or x < -1 Then

'**********FOUND**********

Exit Do 改为Exit Function

Else

'**********FOUND**********

For i = 2 To n 改为For i = 2 To n+1

ss = ss * i

'**********FOUND**********

Sum = x ^ (i - 1) / ss 改为Sum =sum+ x ^ (i - 1) / ss

Next i

End If

End Function

Option Explicit

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

'【程序改错】

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

'题目:编程将一个数从已经有序（设从小到大排序）的数组

' 中删除，使数组还继续保持有序而且其余元素按照下

' 标连续存放。

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

'注意：不可增加或删除程序行，也不可以更改程序结构

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

Private Sub Form_Click()

Dim A() As Integer, N As Integer, Flag As Integer

Dim i As Integer, X As Integer, P As Integer

Flag = 0

N = InputBox("输入元素个数")

'**********FOUND**********

Dim A(N) 改为ReDim A(N)

For i = 1 To N

A(i) = InputBox("输入数组的第" & i & "个元素") Next i

Print "删除某元素前的数组"

For i = 1 To N

Print A(i);

Next i

Start:

X = InputBox("输入要删除的元素：")

For i = 1 To N

If X = A(i) Then P = i: Flag = 1

Next i

If Flag = 0 Then MsgBox ("没有此元素"): GoTo Start

For i = P To N - 1

'**********FOUND**********

A(i + 1) = A(i) 改为A(i) = A(i+1)

Next i

'**********FOUND**********

N = N + 1 改为N = N- 1

Print "删除元素后的数组:"

For i = 1 To N

Print A(i);

Next i

End Sub

Private Sub Form_Click()

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

'【程序设计】

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

'题目：(事件)单击窗体。

' (响应)输出一个如图所示的由数字组成的倒三角形

' 请将结果存入变量S中(要求利用msgbox函数' 显示结果，使用for...next语句完成程序)

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

'注意：请在指定的事件内编写代码。

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

Dim s As String

'***************** Program **************

Dim i%, j%, w$

w = ""

For i = 10 To 1 Step -1

For j = 0 To i - 1

w = w & CStr(j)

Next

w = w & vbCrLf

Next

MsgBox w

s = w

'*************** End *************************

Call YZJ(s)

End Sub

Private Sub YZJ(i As String)

Dim OUT As Integer

OUT = FreeFile

Open App.Path & "\out.txt" For Output As #OUT

Print #OUT, i

Close #OUT

End Sub

Private Sub Form_Click()

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

'【程序设计】

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

'题目：(事件)单击窗体。

' (响应)求100到500之间奇数的和，将结果输出' 在窗体上并存入变量SUM中。

' 使用do...loop until语句完成程序

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

'注意：请在指定的事件内编写代码。

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

Dim sum As Long

'***************** Program **************

'*************** End ************************* Call YZJ(sum)

End Sub

Private Sub YZJ(i As Long)

Dim OUT As Integer

OUT = FreeFile

Open App.Path & "\out.txt" For Output As #OUT

Print #OUT, i

Close #OUT

End SubOption Explicit

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

'【程序填空】

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

'题目：下面的程序用于求三个数中最大数

'请在【?】处填入正确的内容

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

'

Private Sub Command1_Click()

Dim a, b, c, max, min As Integer

a = Val(InputBox("请输入第一个数："))

b = Val(InputBox(" 请输入第二个数："))

c = Val(InputBox("请输入第三个数："))

'**********SPACE**********

【?】= a

min = a

'**********SPACE**********

If b > max Then 【?】

If b < min Then min = b

'**********SPACE**********

If 【?】Then max = c

If c < min Then min = c

Print "最大数为："; max

Print "最小数为："; min

End Sub

'下面过程max()用于求3个数中最大值，利用这个过程求5个数中最大值。'

Private Sub Form_Click()

Print "5个数34、124、68、73、352的最大值是："

max1 = max(34, 124, 68)

'**********SPACE**********

max1 =【?】

Print max1

End Sub

Public Function max(ByVal a%, ByVal b%, ByVal c%)

'**********SPACE**********

If 【?】Then

m = a

Else

m = b

End If

'**********SPACE**********

If 【?】Then

max = m

Else

max = c

End If

End Function

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

'【程序填空】

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

'题目：本程序执行功能为，输入系列字符串，按递减次序排列。

'（1）在文本框输入字符串，按回车键后存放到数组a（）中；

'（2）单击"排序"按钮（Command1）时，进行递减次序排列，并在图形框控件显示。'请在【】处填入正确的内容

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

Dim a() As String, n As Integer

Private Sub Command1_Click()

n = n - 1

For i = 0 To n - 1

imin = i

'**********SPACE**********

For j = 【?】To n

'**********SPACE**********

If a(imin) 【?】Then imin = j

Next j

t = a(i)

'**********SPACE**********

【?】

a(imin) = t

Next i

For i = 0 To n

Me.Picture1.Print a(i)

Next i

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

'**********SPACE**********

ReDim 【?】

'**********SPACE**********

a(n) = 【?】

Text1.Text = ""

n = n + 1

End If

End Sub

Option Explicit

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

'【程序改错】

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

'题目:下列程序进行-n阶乘运算，当阶乘的值超过-21147483648 ' 溢出报错，并将结果输出为-1。

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

'注意：不可增加或删除程序行，也不可以更改程序结

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

'【程序改错】

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

'题目:下列程序进行-n阶乘运算，当阶乘的值超过-21147483648 ' 溢出报错，并将结果输出为-1。构

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

'**********FOUND**********

Private Function jc(ByVal n As Integer) As Integer

Dim I As Integer

Dim result As Long

result = 1

I = 1

Do While I <= n

If result < 2114748348 / I Then

'**********FOUND**********

result = result

I = I + 1

Else

lblerr.Caption = "溢出"

'**********FOUND**********

jc = -I

Exit Function

End If

Loop

jc = result

End Function

Private Sub Form_Click()

MsgBox jc(3)

End Sub

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边长：")

'**********FOUND**********

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

MsgBox ("不能构成三角形，请重新输入个边")

GoTo start

End If

'**********FOUND**********

t = (a + b) / 2

'**********FOUND**********

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

Print "该三角形的面积："; s

End Sub

Option Explicit

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

'【程序改错】

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

'题目:下面函数的功能是：求变量s(s=a+aa+aaa+aaaa+……)

' 的值。其中，a是一个0-9的数字，总共累加a项。列如，' 当a=3时,s=3+33+333 (共累加3项)。

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

'注意：不可增加或删除程序行，也不可以更改程序结构

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

Public Function Calc(a As Integer)

Dim s As Long

Dim t As Long

Dim i As Integer

s = a

'**********FOUND**********

t = 1

For i = 2 To a

'**********FOUND**********

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）:")

'**********FOUND**********

Calc (i)

End Sub

Option Explicit

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

'【程序设计】

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

'题目：：编写函数fun其功能是:判断一个整数w的各位

' 数字平方之和能否被5整除, 可以被5整除则返

' 回1 , 否则返回0

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

'注意：请在指定的事件内编写代码。

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

Private Function fun(w As Integer) As Boolean

'********** Program *********

'********** End *************

End Function

Private Sub Form_Load()

Show

Print fun(50)

WWJT

End Sub

Private Sub WWJT()

Dim i As Integer

Dim s As String

Dim l As Integer

Dim d As Double

Dim a(10) As String

Dim fIn As Integer

Dim fOut As Integer

fIn = FreeFile

Open App.Path & "\in.dat" For Input As #fIn

fOut = FreeFile

Open App.Path & "\out.dat" For Output As #fOut

For i = 1 To 10

Line Input #fIn, a(i)

l = Val(a(i))

Print #fOut, fun(l)

Next

Close #fIn

Close #fOut

End Sub

Private Sub Form_Click()

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

'【程序设计】

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

'题目：(事件)单击窗体。

' (响应)如果一个数的真因子之和等于这个数本身，

' 则称这样的数为“完全数”。例如，整数

' 28的真因子为1、2、4、7、14，其和是28。

' 因此28是一个完全数。请编写一个程序，

' 求出500以内最大的完全数。并存入变量SUM中。' 使用for...next语句完成程序

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

'注意：请在指定的事件内编写代码。

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

Dim sum As Integer

'***************** Program **************

Dim i%, a&, max&

For i = 1 To 500

max = i

For j = 1 To 500

If i Mod j = 0 Then

Print j

End If

Next j

If i = a + j Then

Print i

End If

If max > i Then

i = max

End If

sum = i

Next i

Print sum

'*************** End *************************

Call cs(sum)

Private Sub cs(i As Integer)

Dim OUT As Integer

OUT = FreeFile

Open App.Path & "\out.txt" For Output As #OUT

Print #OUT, i

Close #OUT

End Sub