《VB程序改错40题.doc》由会员分享，可在线阅读，更多相关《VB程序改错40题.doc（59页珍藏版）》请在金锄头文库上搜索。
1、第2题 （1.0分） 题号:129【程序改错】题目：该程序实现将输入的 0 - 255 之间的正整数转 换成二进制数Option ExplicitPrivate Sub Form_Click() Const n = 8 Dim a(n) As Integer, s As String, m As Integer, x As Integer x = Val(InputBox(请输入一个 0 - 255 之间的正整数：) Print x*FOUND* For m = 1 To n a(m) = x Mod 2*FOUND* x = x / 2 Next m s = For m = n To 0 S
2、tep -1*FOUND* s = Str(a(m) Next m Print s End Sub答案：(答案1)For m = 0 To n=(答案2)x= x 2或x= int(x/2)=(答案3)s = s + Str(a(m)第3题 （1.0分） 题号:463题目：以下程序功能是输入三个数，由大到小排序。-Option ExplicitDim A As IntegerDim B As IntegerDim C As IntegerPrivate Sub Form_Click() Dim nTemp As Integer A = Val(InputBox(Please input fir
3、st integer, 输入正整数) B = Val(InputBox(Please input second integer, 输入正整数) C = Val(InputBox(Please input third integer, 输入正整数) *FOUND* If A = C Then nTemp = A A = B B = nTemp End If *FOUND* If B = C Then nTemp = A A = C C = nTemp End If *FOUND* If A = B Then nTemp = B B = C C = nTemp End If Print The i
4、ntegers in order is; A; B; CEnd Sub答案：=(答案1)=If A = A Then=(答案2)=If A = A Then=(答案3)=If B = B Then第4题 （1.0分） 题号:127题目：下面程序可输出如下图形： * * * * *-Option ExplicitPrivate Sub Form_Click()Dim m As Integer, n As Integer, s As String, i As Integer, j As Integern = 4m = 1s = *For i = 5 To 1 Step -1 *FOUND* Pri
5、nt Spc(n) For j = 1 To 2 * m - 1 Print s; Next j Print *FOUND* n = n + 1 *FOUND* m = m - 1Next iEnd Sub答案：=(答案1)=Print Spc(n);=(答案2)=n = n - 1=(答案3)=m = m + 1第5题 （1.0分） 题号:469题目：已知一个函数f(x)=1000*sin(x)，利用绘图方法 在图片框中显示其图形。结果如图1-Option ExplicitPrivate Const pi = 3.14159Private Sub Command1_Click() *FOUN
6、D* Dim x As Integer Picture1.Scale (-pi, -1200)-(pi, 1200) *FOUND* For x = -pi To pi Step pi *FOUND* Picture1.PSet (x, 1000 * pi * Sin(x), vbRed Next xEnd Sub答案：=(答案1)=Dim x As Single=或=Dim x!=(答案2)=For x = -pi To pi Step pi / 180=(答案3)=Picture1.PSet (x, 1000 * Sin(x), vbRed=或=Picture1.PSet (x, Sin(
7、x)*1000), vbRed第6题 （1.0分） 题号:497题目:编程求一个十进制整数n的各位数字之和，设n为小于或等于5位的数Option ExplicitPrivate Sub Form_Click() Dim N As Integer, Sum As Integer, S1 As String, S2 As String Dim i As Integer, Ch As String Sum = 0 N = InputBox(输入整数n) S1 = Str(N) *FOUND* S1 = RTrim(S1) For i = 1 To Len(S1) *FOUND* Ch = Mid(N
8、, i, 1) *FOUND* Sum = Val(Ch) Next i Print 该整数的各位数之和是：; SumEnd Sub答案：=(答案1)=S1 = Trim(S1)=(答案2)=Ch = Mid(S1, i, 1)=(答案3)=Sum = Sum + Val(Ch)第7题 （1.0分） 题号:454题目：本程序的功能是随机产生的10个两位正整数，并进行递减排序。-Option ExplicitPrivate Sub CreateRND() Dim Temp As Integer Dim I As Integer Dim N As Integer Dim X(10) As Inte
9、ger Dim J As Integer N = 10 Print 数据： For I = 1 To N *FOUND* X(I) = Int(Rnd() * 90) Print X(I); Next I Print Print 排序： For I = 0 To N - 1 For J = I + 1 To N *FOUND* If X(I) X(J) Then *FOUND* 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 Sub答案：=(答案1)=X(I) = Int(10 + Rnd() * 90)=(答案2)=If X(I) X(J) Then=(答案3)=temp = X(J)第9题 （1.0分） 题号:130题目：以下程序段用于计算5的N次方。-Option ExplicitPrivate Sub Form_Click() Dim n As Integer, k As Integer, s As Long n = InputBox( Input n )*FOUND* k = 0*FOUND*
