程序改错-答案版

1、12592 题目：编程求一个十进制整数n的各位数字之和，设 n为小于或等于5位的数。MsgBox 不及格, vbCriticalEnd SelectOption ExplicitPrivate Sub Form_Click()Dim N As Integer, Sum As Integer, S1 AsString, S2 As StringDim i As Integer, Ch As StringSum = 0End Sub答案：Case 100 x orCase 90 to 100 x 0Case Else12616.题目：求s=1!+3!+5!+7!,阶乘的计算 用Function过程

2、fact实现.N = InputBox(输入整数 n)S1 = Str(N)S1 = Trim(S1)For i = 1 To Len(S1)Option ExplicitPrivate Sub Form_Click()Dim i As Integer, s As Integer*ERROR*I*ERROR*Fo门=1 To 7Ch = Mid(N, i, 1)I*ERROR*s = s + fact(i) Next iSum = Val(Ch)Next iPrint 该整数的各位数之和是：;SumEnd SubPrint sEnd Sub*ERROR*答案：Ch=Mid(S1 , i , 1

3、)Sum = Sum + Val(Ch)Public Function fact()Dim t As Integer, i As IntegerFor i = 1 To nNext i12610题目：程序功能根据输入的学习成绩 ， 分别显示优秀（90分以上），良好（75分以上）, 及格（60分以上）不及格四个等级.*ERROR*Option ExplicitPrivate Sub Form_Click()Clsfact = iDim i As Integeri = InputBox(请输入学习成绩) Select Case i答案：For i = 1 To 7 Step 2 Public Fu

4、nction fact%(n%) fact = tEnd FunctionI*ERROR*12620题目：编程实现从左到右的滚动字幕, 滚动的速度由滚动条控件来控制。Case 0 i 100MsgBox 成绩应该在0-100之间Option ExplicitI*ERROR*Private Sub HScroll1_Scroll()Case 90Print 优秀Case 75 To 89Print 良好Case 60 To 74I*ERROR*Timer1.Interval*= HScroll1.MinHScroll1.ValueEnd SubPrivate Sub Timer1_Timer()

5、Print 及格I*ERROR*I*ERROR*If Label1.Left = Form1.Width Then*ERROR*3). Label1.Left = 0Open c:2.txt For Output As #1Fori = 1 To 1012624.题目：程序功能：求 1+2+3 到其和超出3000为止，并输入结果。*ERROR*Print #1, no, c1, c2, c3Print no, c1, c2, c3, c1 + c2 + c3, (c1 + c2 +c3) / 3Next iClose #1Option ExplicitPrivate Sub Form_Clic

6、k()ClsDim i As Integer Dim s As Single i = 1End Sub答案：1) Open c:2.txt#1For Output As*ERROR*2) Open c:2.txt For Input As #13 ) Input #1, no, c1, c2, c3Do*ERROR*12677.，题目：求 s=72+102+132+832的值。Loop s 3000Print ”从 1 至ij:; i;的和是;sCls*ERROR*Option ExplicitPrivate Sub Form_Click()End Sub答案：s = 1i = i +1Dim

7、 s As LongDim i As Integer*ERROR*Loop Until s 3000*ERROR*12629.题目：下面的程序段用于实现以下功For i = 7 To 832*ERROR*loop 30答案：s=0For i = 7 to 832 step 30Loop until 30End Sub能：建立一顺序文件，存放10名同学的学号和三门功课成绩，显示该文件内所有记 录，并同时显示其总分和平均分。Print sOption ExplicitPrivate Sub Form_Click()Dim no%, c1%, c2%, c3%, i As Integer*ERROR

8、*Open c:2.txt Fo门nput As #1Fori = 1 To 1012683.题目：产生 30个小于100的不及格数的个数, 的成绩平均分。f算出成绩属于优秀段yx成绩随机数，并统计出优、良、中等、及格、Option ExplicitPrivate Sub Form_Click()Dim k%, a%, bjg%, jg%, zd%, lh%, As IntegerDim pjf As IntegerRandomizepjf = 0For k = 1 To 30*ERROR* a = Int(Rnd()Select Case aCase 0 To 59bjg = bjg + 1

9、 不及格Case 60 To 69jg = jg + 1 及格Case 70 To 79zd = zd + 1 中等Case 80 To 89lh = lh + 1 良好Case 90 To 100yx = yx + 1 优秀*ERROR*基本逻辑是：假设在考生目录中有一个名为exam.txt的文本文件。当点击打开 按钮（Command1）时，程序将 exam.Txt文件 中的内容显示在文本框（Text1）中，当点击新建按钮（Command2）时，清空 Text1中的 内容；用户可以在 Text1中进行编辑操作， 当点击保存按钮（Command3）时，将 Text1 中的内容保存在 exam.

10、txt文件中。当点击 退出按钮（Command4）时关闭本窗体。Option ExplicitPrivate Sub Command1_Click()Dim A As StringText1 =Open exam.txt For Input As #1Do While Not EOF(1)*ERROR*Input #0, AText1 = Text1 + ALoop*ERROR*Close #0End SubPrivate Sub Command2_Click()Text1 =End Subpjf = pjf + 1 End SelectNext k*ERROR*If yx 0 Then pj

11、f = pjf / 30Debug.Print 不及格+ Str$(bjg) + 人 及格+ Str$(jg) + 人，中等+ Str$(zd) + 人”；Debug.Print 良好+ Str$(lh) + 优秀 + Str$(yx) + 人Debug.Print 优秀分数段成绩平均分& pjfEnd Sub答案：a = Int (Rnd() * 100)Private Sub Command3_Click()Open exam.Txt For Output As #1*ERROR*Input #1, TextlClose #1End SubPrivate Sub Command4_Clic

12、k()Unload MeEnd Sub答案：Input #1, AClose #1Write #1, Textl 12697.题目：以下程序段用于打印如图 1所示的九九乘法表：pjf = pjf + aIf yx 0 Then pjf =pjf / yx12687.题目：使用顺序文件读写方式编写 个简单的记事本应用程序，Option ExplicitPrivate Sub Form_Click()Dim i As Integer, j As Integer, k As IntegerPrint Tab(30); 9*9 tablePrint: Print,*ERROR*Call gcd(a,

13、b)Print *;Print a, b, cFor i = 1 To 9End Sub,*ERROR*Print Tab(i * 6); iNext iPrintForj = 1 To 9答案：m = ngcd = n c= gcd(a,b)12710.题目：输出40以内能够被3整除的 数，要求输出结果为 5个数一行。Print j;*ERROR*For k = 1 To 9 ,*ERROR*Option ExplicitPrivate Sub Form_Click()ClsPrint Tab(j * 6); j * k;Next kPrintDim x As IntegerDim i As

14、 Integer*ERROR*For x = 1 To 40Next jEnd Sub答案：Print Tab(i* 6) ; i ;For k =1 To jIf (x / 3) = (x 3) Then*ERROR*Print xPrint Tab(k*6); j * k ;End If12701.题目：用辗转相除法求两个整数的最 大公约数。If i Mod 5 = 0 ThenOption ExplicitFunction gcd(ByVal m As Integer, ByVal n AsInteger) As IntegerEnd IfPrint,*ERROR*step iEnd S

15、ubDim r As Integer r = m Mod nDo While r 0答案：i = 0*ERROR*Print Tab( i Mod 5 ) * 8 ) ; x ;n = mNext xn = r12720.题目：请根据下列描述编写购物优惠r = m Mod n程序。某商场为JLoop加速促成商品流通，米用购物打折的*ERROR*优惠办法，每gcd = r位顾客一次购物（1）在100元以上者，End Function按九五折优惠；Private Sub Form_Click()（2）在200元以上者，按九折优惠；Dim a As Integer, b As Integer, c

16、As Integer（3） 300元以上a = InputBox（输入一个整数）者，按八折优惠；（4） 500元以上者b = InputBox(输入一个整数) a = Val(a)按七折优惠。b = Val(b)Option ExplicitPrivate Sub Command1_Click() Dim x As Single, y As Single x = Val(Text1.Text)For k = x To 10*ERROR*a(k) = a(k -1)If x 100 Then*ERROR*Next kPrint 删除后的数组:ElseFor i = 1 To 9If x 200 ThenPrint a(i);Next iElsey = 0.95 * xElsePrint 删除位置错误If x 300 Then*ERROR*y = 0.9 * x ElseEndIf x 500