VB程序改错题.docx

程序改错1.题目：已知C的公式表示如下: n! C=------------------ (n-m)!*m!函数过程fac( )求k！函数,在Fomr_Click事件中完成运算，请修正程序中错误。------------------------------------------------Option ExplicitPrivate Function fac(k As Integer) As SingleDim x As Single, j As Integer x = 0 For j = 1 To kx = x ^ j Next j fac = xEnd FunctionPrivate Sub Form_Click()Dim C As Single Dim m As Integer, n As Integer m = Val(InputBox(请输入一个整数(m)：)) n = Val(InputBox(请输入一个整数(n)：))C = fac(n) / fac(n - m) * fac(m) Print C=; CEnd Sub2.题目：程序功能为打印下列图形： * ** *** **** *****------------------------------------------------Option ExplicitPrivate Sub Form_Click()ClsDim i As IntegerDim j As IntegerFor i = 1 To 7 For j = 1 To 5 Print *;LoopPrintNext iEnd Sub3.题目：本程序的功能是随机产生的10个两位正整数，并进行递减排序。------------------------------------------------Option ExplicitPrivate Sub CreateRND()Dim Temp As Integer Dim I As Integer Dim N As Integer Dim X(10) As Integer Dim J As Integer N = 10 Print 数据： For I = 1 To NX(I) = Int(Rnd() * 90) Print X(I); Next I Print Print 排序：For I = 0 To N - 1 For J = I + 1 To NIf X(I) X(J) Then Temp = X(I) X(J) = X(I) X(I) = Temp End If Next J Print X(I); Next I PrintEnd SubPrivate Sub Command1_Click() CreateRNDEnd Sub4.题目：随机产生并输出100以内大于50的20个整数，输出时每5个数一行。-----------------------------------------------Option ExplicitPrivate Sub Form_Click()Randomize TimerDim i As Integer, ma As Integeri = 1Do Until i 20 ma = Rnd() * 100 \ 1If ma 50 Then Print ma; i = i + 1If i \ 5 = 0 ThenPrint End IfEnd IfLoopEnd Sub5题目：以下程序段用于计算5的N次方。------------------------------------------------Option ExplicitPrivate Sub Form_Click()Dim n As Integer, k As Integer, s As Longn = InputBox( Input n )k = 0 s = 0 Do While k = n s = s * 5 k = k + 1Next Print 5的; n次方是; sEnd Sub6.题目：下面程序可输出如下图形： * ***