VB程序改错40题含答案.pdf

【程序改错】 题目：该程序实现将输入的 0 - 255 之间的正整数转换成二进制数 Option Explicit Private 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 For m = 1 To n a(m) = x Mod 2 x = x / 2 Next m s = “ “ For m = n To 0 Step -1 s = Str(a(m) Next m Print s End Sub 答案：答案： =(=(答案答案 1)=1)= ForFor m m = = 0 0 ToTo n n =(=(答案答案 2)=2)= x=x= x x 2 2 =或或= x=x= int(x/2)int(x/2) =(=(答案答案 3)=3)= s s = = s s + + Str(a(m)Str(a(m) 第 3 题 （1.0 分） 题号:463 【程序改错】 题目：以下程序功能是输入三个数，由大到小排序。 Option Explicit Dim A As Integer Dim B As Integer Dim C As Integer Private Sub Form_Click() Dim nTemp As Integer A = Val(InputBox(“Please input first integer“, “输入正整数“) B = Val(InputBox(“Please input second integer“, “输入正整数“) C = Val(InputBox(“Please input third integer“, “输入正整数“) If A = A A ThenThen =(=(答案答案 2)=2)= IfIf A A = A A ThenThen =(=(答案答案 3)=3)= IfIf B B = B B ThenThen 第 4 题 （1.0 分） 题号:127 【程序改错】 题目：下面程序可输出如下图形： * * * * * - Option Explicit Private Sub Form_Click() Dim m As Integer, n As Integer, s As String, i As Integer, j As Integer n = 4 m = 1 s = “*“ For i = 5 To 1 Step -1 Print Spc(n) For j = 1 To 2 * m - 1 Print s; Next j Print n = n + 1 m = m - 1 3、管路敷设技术通过管线敷设技术，不仅可以解决吊顶层配置不规范高中资料试卷问题，而且可保障各类管路习题到位。在管路敷设过程中，要加强看护关于管路高中资料试卷连接管口处理高中资料试卷弯扁度固定盒位置.保护层防腐跨接地线弯曲半径标高等，要求技术交底。管线敷设技术中包含线槽、管架等多项方式，为解决高中语文电气课件中管壁薄、接口不严等问题，合理利用管线敷设技术。线缆敷设原则：在分线盒处，当不同电压回路交叉时，应采用金属隔板进行隔开处理；同一线槽内，强电回路须同时切断习题电源，线缆敷设完毕，要进行检查和检测处理。 4、电气课件中调试技术对全部高中资料试卷电气设备，在安装过程中以及安装结束后进行高中资料试卷调整试验；通电检查所有设备高中资料试卷相互作用与相互关系，根据生产工艺高中资料试卷要求，对电气设备进行空载与带负荷下高中资料试卷调控试验；对设备进行调整使其在正常工况下与过度工作下都可以正常工作；对于继电保护进行整核对定值，审核与校对图纸，编写复杂设备与装置高中资料试卷调试方案，编写重要设备高中资料试卷试验方案以及系统启动方案；对整套启动过程中高中资料试卷电气设备进行调试工作并且进行过关运行高中资料试卷技术指导。对于调试过程中高中资料试卷技术问题，作为调试人员，需要在事前掌握图纸资料、设备制造厂家出具高中资料试卷试验报告与相关技术资料，并且了解现场设备高中资料试卷布置情况与有关高中资料试卷电气系统接线等情况，然后根据规范与规程规定，制定设备调试高中资料试卷方案。5、电气设备调试高中资料试卷技术电力保护装置调试技术，电力保护高中资料试卷配置技术是指机组在进行继电保护高中资料试卷总体配置时，需要在最大限度内来确保机组高中资料试卷安全，并且尽可能地缩小故障高中资料试卷破坏范围，或者对某些异常高中资料试卷工况进行自动处理，尤其要避免错误高中资料试卷保护装置动作，并且拒绝动作，来避免不必要高中资料试卷突然停机。因此，电力高中资料试卷保护装置调试技术，要求电力保护装置做到准确灵活。对于差动保护装置高中资料试卷调试技术是指发电机一变压器组在发生内部故障时，需要进行外部电源高中资料试卷切除从而采用高中资料试卷主要保护装置。 Next i End Sub 答案：答案： =(=(答案答案 1)=1)= PrintPrint Spc(n);Spc(n); =或或= PrintPrint Spc(i);Spc(i); =或或= ? ? Spc(n);Spc(n); =或或= ? ? Spc(i);Spc(i); =(=(答案答案 2)=2)= n n = = n n - - 1 1 =或或= n n = = - - 1+n1+n =(=(答案答案 3)=3)= m m = = m m + + 1 1 第 5 题 （1.0 分） 题号:469 【程序改错】 题目：已知一个函数 f(x)=1000*sin(x)，利用绘图方法 在图片框中显示其图形。结果如图 1 Option Explicit Private Const pi = 3.14159 Private Sub Command1_Click() Dim x As Integer Picture1.Scale (-pi, -1200)-(pi, 1200) For x = -pi To pi Step pi Picture1.PSet (x, 1000 * pi * Sin(x), vbRed Next x End Sub 答案答案： =(=(答案答案 1)=1)= DimDim x x AsAs SingleSingle =或或= DimDim x!x! =(=(答案答案 2)=2)= ForFor x x = = -pi-pi ToTo pipi StepStep pipi / / 180180 =(=(答案答案 3)=3)= Picture1.PSetPicture1.PSet (x,(x, 10001000 * * Sin(x),Sin(x), vbRedvbRed =或或= Picture1.PSetPicture1.PSet (x,(x, Sin(x)*1000),Sin(x)*1000), vbRedvbRed 第 6 题 （1.0 分） 题号:497 【程序改错】 题目:编程求一个十进制整数 n 的各位数字之和，设 n 为小于或等于 5 位的数。 Option Explicit Private Sub Form_Click() 3、管路敷设技术通过管线敷设技术，不仅可以解决吊顶层配置不规范高中资料试卷问题，而且可保障各类管路习题到位。在管路敷设过程中，要加强看护关于管路高中资料试卷连接管口处理高中资料试卷弯扁度固定盒位置.保护层防腐跨接地线弯曲半径标高等，要求技术交底。管线敷设技术中包含线槽、管架等多项方式，为解决高中语文电气课件中管壁薄、接口不严等问题，合理利用管线敷设技术。线缆敷设原则：在分线盒处，当不同电压回路交叉时，应采用金属隔板进行隔开处理；同一线槽内，强电回路须同时切断习题电源，线缆敷设完毕，要进行检查和检测处理。 4、电气课件中调试技术对全部高中资料试卷电气设备，在安装过程中以及安装结束后进行高中资料试卷调整试验；通电检查所有设备高中资料试卷相互作用与相互关系，根据生产工艺高中资料试卷要求，对电气设备进行空载与带负荷下高中资料试卷调控试验；对设备进行调整使其在正常工况下与过度工作下都可以正常工作；对于继电保护进行整核对定值，审核与校对图纸，编写复杂设备与装置高中资料试卷调试方案，编写重要设备高中资料试卷试验方案以及系统启动方案；对整套启动过程中高中资料试卷电气设备进行调试工作并且进行过关运行高中资料试卷技术指导。对于调试过程中高中资料试卷技术问题，作为调试人员，需要在事前掌握图纸资料、设备制造厂家出具高中资料试卷试验报告与相关技术资料，并且了解现场设备高中资料试卷布置情况与有关高中资料试卷电气系统接线等情况，然后根据规范与规程规定，制定设备调试高中资料试卷方案。5、电气设备调试高中资料试卷技术电力保护装置调试技术，电力保护高中资料试卷配置技术是指机组在进行继电保护高中资料试卷总体配置时，需要在最大限度内来确保机组高中资料试卷安全，并且尽可能地缩小故障高中资料试卷破坏范围，或者对某些异常高中资料试卷工况进行自动处理，尤其要避免错误高中资料试卷保护装置动作，并且拒绝动作，来避免不必要高中资料试卷突然停机。因此，电力高中资料试卷保护装置调试技术，要求电力保护装置做到准确灵活。对于差动保护装置高中资料试卷调试技术是指发电机一变压器组在发生内部故障时，需要进行外部电源高中资料试卷切除从而采用高中资料试卷主要保护装置。 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) S1 = RTrim(S1) For i = 1 To Len(S1) Ch = Mid(N, i, 1) Sum = Val(Ch) Next i Print “该整数的各位数之和是：“; Sum End Sub 答案答案： =(=(答案答案 1)=1)= S1S1 = = Trim(S1)Trim(S1) =或或= S1S1 = = lTrim(S1)lTrim(S1) =(=(答案答案 2)=2)= ChCh = = Mid(S1,Mid(S1, i,i, 1)1) =(=(答案答案 3)=3)= SumSum = = SumSum + + Val(Ch)Val(Ch) =或或= SumSum = = SumSum + + Val(Ch)Val(Ch) 第 7 题 （1.0 分） 题号:454 【程序改错】 题目：本程序的功能是随机产生的 10 个两位正整数，并进行递减排序。 Option Explicit Private 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 N X(I) = Int(Rnd() * 90) Print X(I); Next I Print Print “排序：“ For I = 0 To N - 1 For J = I + 1 To N If X(I) X(J) Then 3、管路敷设技术通过管线敷设技术，不仅可以解决吊顶层配置不规范高中资料试卷问题，而且可保障各类管路习题到位。在管路敷设过程中，要加强看护关于管路高中资料试卷连接管口处理高中资料试卷弯扁度固定盒位置.保护层防腐跨接地线弯曲半径标高等，要求技术交底。管线敷设技术中包含线槽、管架等多项方式，为解决高中语文电气课件中管壁薄、接口不严等问题，合理利用管线敷设技术。线缆敷设原则：在分线盒处，当不同电压回路交叉时，应采用金属隔板进行隔开处理；同一线槽内，强电回路须同时切断习题电源，线缆敷设完毕，要进行检查和检测处理。 4、电气课件中调试技术对全部高中资料试卷电气设备，在安装过程中以及安装结束后进行高中资料试卷调整试验；通电检查所有设备高中资料试卷相互作用与相互关系，根据生产工艺高中资料试卷要求，对电气设备进行空载与带负荷下高中资料试卷调控试验；对设备进行调整使其在正常工况下与过度工作下都可以正常工作；对于继电保护进行整核对定值，审核与校对图纸，编写复杂设备与装置高中资料试卷调试方案，编写重要设备高中资料试卷试验方案以及系统启动方案；对整套启动过程中高中资料试卷电气设备进行调试工作并且进行过关运行高中资料试卷技术指导。对于调试过程中高中资料试卷技术问题，作为调试人员，需要在事前掌握图纸资料、设备制造厂家出具高中资料试卷试验报告与相关技术资料，并且了解现场设备高中资料试卷布置情况与有关高中资料试卷电气系统接线等情况，然后根据规范与规程规定，制定设备调试高中资料试卷方案。5、电气设备调试高中资料试卷技术电力保护装置调试技术，电力保护高中资料试卷配置技术是指机组在进行继电保护高中资料试卷总体配置时，需要在最大限度内来确保机组高中资料试卷安全，并且尽可能地缩小故障高中资料试卷破坏范围，或者对某些异常高中资料试卷工况进行自动处理，尤其要避免错误高中资料试卷保护装置动作，并且拒绝动作，来避免不必要高中资料试卷突然停机。因此，电力高中资料试卷保护装置调试技术，要求电力保护装置做到准确灵活。对于差动保护装置高中资料试卷调试技术是指发电机一变压器组在发生内部故障时，需要进行外部电源高中资料试卷切除从而采用高中资料试卷主要保护装置。 Temp = X(I) X(J) = X(I) X(I) = Temp End If Next J Print X(I); Next I Print End Sub Private Sub Command1_Click() CreateRND End Sub 答案：答案： =(=(答案答案 1)=1)= X(I)X(I) = = Int(10Int(10 + + Rnd()Rnd() * * 90)90) =或或= X(I)X(I) = = Int(10Int(10 + + Rnd()Rnd() * * 90)90) =(=(答案答案 2)=2)= IfIf X(I)X(I) X(I)X(I) ThenThen =或或= IfIf X(J)X(J) = X(I)X(I) ThenThen =(=(答案答案 3)=3)= temptemp = = X(J)X(J) 第 9 题 （1.0 分） 题号:130 【程序改错】 题目：以下程序段用于计算 5 的 N 次方。 Option Explicit Private Sub Form_Click() Dim n As Integer, k As Integer, s As Long n = InputBox(“ Input n “) k = 0 s = 0 Do While k b(J) Then Temp = b(I): b(I) = b(J): b(J) = Temp Next J Next I For I = 1 To k Print b(I); If Int(I / 5) = I / 5 Then Print Next I End Sub 答案：答案： =(=(答案答案 1)=1)= IfIf a(I)a(I) / / 2 2 Int(a(I)Int(a(I) / / 2)2) ThenThen =或或= IfIf a(I)a(I) modmod 2 2 00 ThenThen =或或= IfIf 0a(I)0a(I) modmod 2 2 ThenThen =或或= IfIf a(I)a(I) / / 2 2 a(I)a(I) 2 2 ThenThen =或或= IfIf int(a(I)int(a(I) / / 2)2) a(I)a(I) / / 2 2 ThenThen =或或= IfIf a(I)a(I) 2 2 a(I)/2a(I)/2 ThenThen =(=(答案答案 2)=2)= IfIf Int(IInt(I / / 5)5) = = I I / / 5 5 ThenThen PrintPrint =或或= IfIf I I modmod 5 5 = = 0 0 ThenThen PrintPrint =或或= IfIf 0 0 = = I I modmod 5 5 ThenThen PrintPrint =或或= IfIf I I / / 5=5= int(Iint(I / / 5)5) ThenThen PrintPrint =或或= 3、管路敷设技术通过管线敷设技术，不仅可以解决吊顶层配置不规范高中资料试卷问题，而且可保障各类管路习题到位。在管路敷设过程中，要加强看护关于管路高中资料试卷连接管口处理高中资料试卷弯扁度固定盒位置.保护层防腐跨接地线弯曲半径标高等，要求技术交底。管线敷设技术中包含线槽、管架等多项方式，为解决高中语文电气课件中管壁薄、接口不严等问题，合理利用管线敷设技术。线缆敷设原则：在分线盒处，当不同电压回路交叉时，应采用金属隔板进行隔开处理；同一线槽内，强电回路须同时切断习题电源，线缆敷设完毕，要进行检查和检测处理。 4、电气课件中调试技术对全部高中资料试卷电气设备，在安装过程中以及安装结束后进行高中资料试卷调整试验；通电检查所有设备高中资料试卷相互作用与相互关系，根据生产工艺高中资料试卷要求，对电气设备进行空载与带负荷下高中资料试卷调控试验；对设备进行调整使其在正常工况下与过度工作下都可以正常工作；对于继电保护进行整核对定值，审核与校对图纸，编写复杂设备与装置高中资料试卷调试方案，编写重要设备高中资料试卷试验方案以及系统启动方案；对整套启动过程中高中资料试卷电气设备进行调试工作并且进行过关运行高中资料试卷技术指导。对于调试过程中高中资料试卷技术问题，作为调试人员，需要在事前掌握图纸资料、设备制造厂家出具高中资料试卷试验报告与相关技术资料，并且了解现场设备高中资料试卷布置情况与有关高中资料试卷电气系统接线等情况，然后根据规范与规程规定，制定设备调试高中资料试卷方案。5、电气设备调试高中资料试卷技术电力保护装置调试技术，电力保护高中资料试卷配置技术是指机组在进行继电保护高中资料试卷总体配置时，需要在最大限度内来确保机组高中资料试卷安全，并且尽可能地缩小故障高中资料试卷破坏范围，或者对某些异常高中资料试卷工况进行自动处理，尤其要避免错误高中资料试卷保护装置动作，并且拒绝动作，来避免不必要高中资料试卷突然停机。因此，电力高中资料试卷保护装置调试技术，要求电力保护装置做到准确灵活。对于差动保护装置高中资料试卷调试技术是指发电机一变压器组在发生内部故障时，需要进行外部电源高中资料试卷切除从而采用高中资料试卷主要保护装置。 IfIf I I / / 5=5= II 5 5 ThenThen PrintPrint =或或= IfIf I I 5=5= I/I/ 5 5 ThenThen PrintPrint =(=(答案答案 3)=3)= a(I)a(I) = = Int(Rnd()Int(Rnd() * * 200200 + + 100)100) 第 19 题 （1.0 分） 题号:499 【程序改错】 题目:编程将一个数从已经有序（设从小到大排序）的数组 中删除，使数组还继续保持有序而且其余元素按照下 标连续存放。 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(“输入元素个数“) Dim A(N) For i = 1 To N A(i) = InputBox(“输入数组的第“ 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 A(i + 1) = A(i) Next i N = N + 1 Print “删除元素后的数组:“ For i = 1 To N Print A(i); Next i End Sub 答案答案： =(=(答案答案 1)=1)= ReDimReDim A(N)A(N) =(=(答案答案 2)=2)= A(i)A(i) = = A(iA(i + + 1)1) =或或= A(i)A(i) = = A(1A(1 + + i)i) 3、管路敷设技术通过管线敷设技术，不仅可以解决吊顶层配置不规范高中资料试卷问题，而且可保障各类管路习题到位。在管路敷设过程中，要加强看护关于管路高中资料试卷连接管口处理高中资料试卷弯扁度固定盒位置.保护层防腐跨接地线弯曲半径标高等，要求技术交底。管线敷设技术中包含线槽、管架等多项方式，为解决高中语文电气课件中管壁薄、接口不严等问题，合理利用管线敷设技术。线缆敷设原则：在分线盒处，当不同电压回路交叉时，应采用金属隔板进行隔开处理；同一线槽内，强电回路须同时切断习题电源，线缆敷设完毕，要进行检查和检测处理。 4、电气课件中调试技术对全部高中资料试卷电气设备，在安装过程中以及安装结束后进行高中资料试卷调整试验；通电检查所有设备高中资料试卷相互作用与相互关系，根据生产工艺高中资料试卷要求，对电气设备进行空载与带负荷下高中资料试卷调控试验；对设备进行调整使其在正常工况下与过度工作下都可以正常工作；对于继电保护进行整核对定值，审核与校对图纸，编写复杂设备与装置高中资料试卷调试方案，编写重要设备高中资料试卷试验方案以及系统启动方案；对整套启动过程中高中资料试卷电气设备进行调试工作并且进行过关运行高中资料试卷技术指导。对于调试过程中高中资料试卷技术问题，作为调试人员，需要在事前掌握图纸资料、设备制造厂家出具高中资料试卷试验报告与相关技术资料，并且了解现场设备高中资料试卷布置情况与有关高中资料试卷电气系统接线等情况，然后根据规范与规程规定，制定设备调试高中资料试卷方案。5、电气设备调试高中资料试卷技术电力保护装置调试技术，电力保护高中资料试卷配置技术是指机组在进行继电保护高中资料试卷总体配置时，需要在最大限度内来确保机组高中资料试卷安全，并且尽可能地缩小故障高中资料试卷破坏范围，或者对某些异常高中资料试卷工况进行自动处理，尤其要避免错误高中资料试卷保护装置动作，并且拒绝动作，来避免不必要高中资料试卷突然停机。因此，电力高中资料试卷保护装置调试技术，要求电力保护装置做到准确灵活。对于差动保护装置高中资料试卷调试技术是指发电机一变压器组在发生内部故障时，需要进行外部电源高中资料试卷切除从而采用高中资料试卷主要保护装置。 =(=(答案答案 3)=3)= N N = = N N - - 1 1 第 20 题 （1.0 分） 题号:139 【程序改错】 题目：随机产生并输出 100 以内大于 50 的 20 个整数，输 出时每 5 个数一行。 Option Explicit Private Sub Form_Click() Randomize Timer Dim i As Integer, ma As Integer i = 1 Do Until i 50 Then Print ma; i = i + 1 If i 5 = 0 Then Print End If End If Loop End Sub 答案：答案： =(=(答案答案 1)=1)= i i = = 0 0 =(=(答案答案 2)=2)= DoDo whilewhile i i i i =或或= DoDo whilewhile i i =i=i =(=(答案答案 3)=3)= IfIf i i modmod 5 5 = = 0 0 ThenThen 第 23 题 （1.0 分） 题号:474 【程序改错】 题目:程序功能为求解一元二次方程的实根，请修正程序中错误。 Option Explicit Private Sub Form_Load() Dim a!, b!, c!, root1#, root2#, work As Double a = Val(InputBox(“ 请输入系数 a 的值“) b = Val(InputBox(“ 请输入系数 b 的值“) c = Val(InputBox(“ 请输入系数 c 的值“) work = b * 2 - 4 * a * c If work = 0 And a 0 Then root1 = (Sqr(work) / (2 * a) 3、管路敷设技术通过管线敷设技术，不仅可以解决吊顶层配置不规范高中资料试卷问题，而且可保障各类管路习题到位。在管路敷设过程中，要加强看护关于管路高中资料试卷连接管口处理高中资料试卷弯扁度固定盒位置.保护层防腐跨接地线弯曲半径标高等，要求技术交底。管线敷设技术中包含线槽、管架等多项方式，为解决高中语文电气课件中管壁薄、接口不严等问题，合理利用管线敷设技术。线缆敷设原则：在分线盒处，当不同电压回路交叉时，应采用金属隔板进行隔开处理；同一线槽内，强电回路须同时切断习题电源，线缆敷设完毕，要进行检查和检测处理。 4、电气课件中调试技术对全部高中资料试卷电气设备，在安装过程中以及安装结束后进行高中资料试卷调整试验；通电检查所有设备高中资料试卷相互作用与相互关系，根据生产工艺高中资料试卷要求，对电气设备进行空载与带负荷下高中资料试卷调控试验；对设备进行调整使其在正常工况下与过度工作下都可以正常工作；对于继电保护进行整核对定值，审核与校对图纸，编写复杂设备与装置高中资料试卷调试方案，编写重要设备高中资料试卷试验方案以及系统启动方案；对整套启动过程中高中资料试卷电气设备进行调试工作并且进行过关运行高中资料试卷技术指导。对于调试过程中高中资料试卷技术问题，作为调试人员，需要在事前掌握图纸资料、设备制造厂家出具高中资料试卷试验报告与相关技术资料，并且了解现场设备高中资料试卷布置情况与有关高中资料试卷电气系统接线等情况，然后根据规范与规程规定，制定设备调试高中资料试卷方案。5、电气设备调试高中资料试卷技术电力保护装置调试技术，电力保护高中资料试卷配置技术是指机组在进行继电保护高中资料试卷总体配置时，需要在最大限度内来确保机组高中资料试卷安全，并且尽可能地缩小故障高中资料试卷破坏范围，或者对某些异常高中资料试卷工况进行自动处理，尤其要避免错误高中资料试卷保护装置动作，并且拒绝动作，来避免不必要高中资料试卷突然停机。因此，电力高中资料试卷保护装置调试技术，要求电力保护装置做到准确灵活。对于差动保护装置高中资料试卷调试技术是指发电机一变压器组在发生内部故障时，需要进行外部电源高中资料试卷切除从而采用高中资料试卷主要保护装置。 root2 = (Sqr(work) / (2 * a) Debug.Print “有二个实根“ + Str$(root1) + “,“ + Str$(root2) Else Debug.Print “无实根!“ End If End Sub 答案：答案： =(=(答案答案 1)=1)= workwork = = b b 2 2 - - 4 4 * * a a * * c c =或或= workwork = = b b *b*b - - 4 4 * * a a * * c c =(=(答案答案 2)=2)= root1root1 = = (-b(-b + + Sqr(work)Sqr(work) / / (2(2 * * a)a) =或或= root1root1 = = ( ( Sqr(work)Sqr(work) -b-b ) ) / / (2(2 * * a)a) =或或= root1root1 = = (-b(-b + + Sqr(work)Sqr(work) / / ( ( a*2)a*2) =或或= root1root1 = = ( ( Sqr(work)Sqr(work) -b-b ) ) / / ( ( a*2)a*2) =(=(答案答案 3)=3)= root2root2 = = (-b(-b - - Sqr(work)Sqr(work) / / (2(2 * * a)a) =或或= root2root2 = = (-(- Sqr(work)Sqr(work) - - b)b) / / (2(2 * * a)a) =或或= root2root2 = = (-b(-b - - Sqr(work)Sqr(work) / / ( ( a*2)a*2) =或或= root2root2 = = (-(- Sqr(work)Sqr(work) - - b)b) / / (a*2)(a*2) 第 28 题 （1.0 分） 题号:133 【程序改错】 题目：下面程序将 10 个整数从大到小排序 Option Explicit Private Sub Form_Click() Dim t%, m%, n%, w% Dim a(10) As Integer For m = 1 To 10 a(m) = Int(10 + Rnd() * 90) Print a(m); “ “; Next m Print For m = 1 To 9 t = m For n = 2 To 10 If a(t) a(n) Then n = t Next n If t = m Then w = a(m) a(m) = a(t) a(t) = w 3、管路敷设技术通过管线敷设技术，不仅可以解决吊顶层配置不规范高中资料试卷问题，而且可保障各类管路习题到位。在管路敷设过程中，要加强看护关于管路高中资料试卷连接管口处理高中资料试卷弯扁度固定盒位置.保护层防腐跨接地线弯曲半径标高等，要求技术交底。管线敷设技术中包含线槽、管架等多项方式，为解决高中语文电气课件中管壁薄、接口不严等问题，合理利用管线敷设技术。线缆敷设原则：在分线盒处，当不同电压回路交叉时，应采用金属隔板进行隔开处理；同一线槽内，强电回路须同时切断习题电源，线缆敷设完毕，要进行检查和检测处理。 4、电气课件中调试技术对全部高中资料试卷电气设备，在安装过程中以及安装结束后进行高中资料试卷调整试验；通电检查所有设备高中资料试卷相互作用与相互关系，根据生产工艺高中资料试卷要求，对电气设备进行空载与带负荷下高中资料试卷调控试验；对设备进行调整使其在正常工况下与过度工作下都可以正常工作；对于继电保护进行整核对定值，审核与校对图纸，编写复杂设备与装置高中资料试卷调试方案，编写重要设备高中资料试卷试验方案以及系统启动方案；对整套启动过程中高中资料试卷电气设备进行调试工作并且进行过关运行高中资料试卷技术指导。对于调试过程中高中资料试卷技术问题，作为调试人员，需要在事前掌握图纸资料、设备制造厂家出具高中资料试卷试验报告与相关技术资料，并且了解现场设备高中资料试卷布置情况与有关高中资料试卷电气系统接线等情况，然后根据规范与规程规定，制定设备调试高中资料试卷方案。5、电气设备调试高中资料试卷技术电力保护装置调试技术，电力保护高中资料试卷配置技术是指机组在进行继电保护高中资料试卷总体配置时，需要在最大限度内来确保机组高中资料试卷安全，并且尽可能地缩小故障高中资料试卷破坏范围，或者对某些异常高中资料试卷工况进行自动处理，尤其要避免错误高中资料试卷保护装置动作，并且拒绝动作，来避免不必要高中资料试卷突然停机。因此，电力高中资料试卷保护装置调试技术，要求电力保护装置做到准确灵活。对于差动保护装置高中资料试卷调试技术是指发电机一变压器组在发生内部故障时，需要进行外部电源高中资料试卷切除从而采用高中资料试卷主要保护装置。 End If Next m For m = 1 To 10 Print a(m) Next m End Sub 答案：答案： =(=(答案答案 1)=1)= ForFor n n = = m m + + 1 1 ToTo 1010 =(=(答案答案 2)=2)= IfIf a(t)a(t) a(t) ThenThen t t = = n n =(=(答案答案 3)=3)= IfIf t t m m ThenThen =或或= IfIf notnot t t = = m m ThenThen =或或= IfIf notnot m m = = t t ThenThen 第 30 题 （1.0 分） 题号:480 【程序改错】 题目:下面函数的功能是：求变量 s(s=a+aa+aaa+aaaa+) 的值。其中，a 是一个 0-9 的数字，总共累加 a 项。 例如，当 a=3 时,s=3+33+333 (共累加 3 项)。 Option Explicit Public Function Calc(a As Integer) Dim s As Long Dim t As Long Dim i As Integer s = a t = 1 For i = 2 To a 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）:“) Calc call i End Sub 答案：答案： =(=(答案答案 1)=1)= t t = = a a 3、管路敷设技术通过管线敷设技术，不仅可以解决吊顶层配置不规范高中资料试卷问题，而且可保障各类管路习题到位。在管路敷设过程中，要加强看护关于管路高中资料试卷连接管口处理高中资料试卷弯扁度固定盒位置.保护层防腐跨接地线弯曲半径标高等，要求技术交底。管线敷设技术中包含线槽、管架等多项方式，为解决高中语文电气课件中管壁薄、接口不严等问题，合理利用管线敷设技术。线缆敷设原则：在分线盒处，当不同电压回路交叉时，应采用金属隔板进行隔开处理；同一线槽内，强电回路须同时切断习题电源，线缆敷设完毕，要进行检查和检测处理。 4、电气课件中调试技术对全部高中资料试卷电气设备，在安装过程中以及安装结束后进行高中资料试卷调整试验；通电检查所有设备高中资料试卷相互作用与相互关系，根据生产工艺高中资料试卷要求，对电气设备进行空载与带负荷下高中资料试卷调控试验；对设备进行调整使其在正常工况下与过度工作下都可以正常工作；对于继电保护进行整核对定值，审核与校对图纸，编写复杂设备与装置高中资料试卷调试方案，编写重要设备高中资料试卷试验方案以及系统启动方案；对整套启动过程中高中资料试卷电气设备进行调试工作并且进行过关运行高中资料试卷技术指导。对于调试过程中高中资料试卷技术问题，作为调试人员，需要在事前掌握图纸资料、设备制造厂家出具高中资料试卷试验报告与相关技术资料，并且了解现场设备高中资料试卷布置情况与有关高中资料试卷电气系统接线等情况，然后根据规范与规程规定，制定设备调试高中资料试卷方案。5、电气设备调试高中资料试卷技术电力保护装置调试技术，电力保护高中资料试卷配置技术是指机组在进行继电保护高中资料试卷总体配置时，需要在最大限度内来确保机组高中资料试卷安全，并且尽可能地缩小故障高中资料试卷破坏范围，或者对某些异常高中资料试卷工况进行自动处理，尤其要避免错误高中资料试卷保护装置动作，并且拒绝动作，来避免不必要高中资料试卷突然停机。因此，电力高中资料试卷保护装置调试技术，要求电力保护装置做到准确灵活。对于差动保护装置高中资料试卷调试技术是指发电机一变压器组在发生内部故障时，需要进行外部电源高中资料试卷切除从而采用高中资料试卷主要保护装置。 =(=(答案答案 2)=2)= t t = = t t * * 1010 + + a a =或或= t t = = t t * * 1010 + + a a =或或= t t = = t t * * 1010 + + a a =(=(答案答案 3)=3)= CalcCalc i i =或或= CallCall Calc(i)Calc(i) =或或= CalcCalc (i)(i) 第 31 题 （1.0 分） 题号:489 - 【程序改错】 - 题目: