VB程序改错40题Word格式文档下载.docx

1、答案：=（答案1）=For i = 0 To Len（pristr） - 1=或=For i = 0 To -1+Len（pristr）=（答案2）=outstr = outstr + Mid（pristr, Len（pristr） - i, 1）outstr = Mid（pristr, Len（pristr） - i, 1）+outstr=（答案3）=MsgBox outstr, vbQuestion, 第59题 （1.0分） 题号:147下面的程序用来产生并输出图示的杨辉三角。 1 1 1 1 2 1 1 3 3 1 1 4 6 4 1 1 5 10 10 5 1Public Sub re

2、adin（a（） As Integer, n As Integer） Dim i, j As Integer For i = 1 To n a（i, n） = 1 a（i, 1） = 1 For i = 3 To n For j = 2 To n a（i, j） = a（i - 1, j） + a（i - 1, j - 1） Next jPublic Sub printf（a（） As Integer, n As Integer） For j = 1 To n Print Tab（5 * j + 10）; a（i, j）; PrintPrivate Sub Form_Click（） Dim x

3、（10, 10） As Integer Call readin（x（）, 6） Call printf（x（）, 6）a（i, i） = 1For j = 2 To i - 1For j = 2 To -1 + iFor j = 1 To i第60题 （1.0分） 题号:146用辗转相除法求两个整数的最大公约数。Function gcd（ByVal m As Integer, ByVal n As Integer） As Integer Dim r As Integer r = m Mod n Do While r 0 n = m n = r Loop gcd = rEnd Function

4、Dim a As Integer, b As Integer, c As Integer a = InputBox（输入一个整数 b = InputBox（ a = Val（a） b = Val（b） Call gcd（a, b） Print a, b, cm = ngcd = nc = gcd（a, b）第65题 （1.0分） 题号:492题目:输入两个正整数m和n，求其最大公约数。 Dim m As Integer, n As Integer, r As Integer m = InputBox（输入m的值： n = InputBox（输入n的值： Do While n y Then A

5、= x x = y y = A End If If y = z Then Print y ElseIf x = z Then Print z Else Print x FindMidNumIf x x Then= z ThenIf z ElseIf z = x Then第70题 （1.0分） 题号:142程序功能根据输入的学习成绩,分别显示优秀 （90分以上）, 良好（75分以上）,及格（60分以上） 不及格四个等级.ClsDim i As Integeri = InputBox（请输入学习成绩Select Case i Case 0 i 100 ,is0 case is100Case 90

6、to 100Case else第71题 （1.0分） 题号:473下列程序进行-n阶乘运算，当阶乘的值超过-21147483648 溢出报错，并将结果输出为-1。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 = a（i） Then a1 = a（i） a（i） = a（j） a（j） = a（i） For i = 0 To 9 Print a（i）For j = i + 1 To 9F

7、or j = 1 + i To 9If a（i） = a（j） Thena（j） = a1第77题 （1.0分） 题号:490输入一个字符串，将所有的小写字母都转换为大写字母。 Dim s1 As String, s2 As String, i As Integer, t As String s1 = InputBox（输入字符串，#号结束 i = 1 s1 = Mid（s1, i, 1） While t = a And t Then t = Chr（Asc（t） - 32）新字符串为: s2第79题 （1.0分） 题号:487设窗体中有图片框Pic1，现要求在其中绘制10个同心圆， 然后将此图以Test.BMP作文件名存入磁盘。 Dim X As Integer Dim Y As Integer Dim