江苏 2025 春二级 Visual Basic 语言 （试卷代号 VB01）（本试卷完成时间 70 分钟）【考试须知】1. 改错题的界面不作要求，主要用来调试程序，若题目中有参考界面，则仅作参考；2. 考试结束后，文件必须存放在指定位置，否则适当扣分；考试盘中若无指定文件，则不予评分；3. 程序代码书写应呈锯齿形。一、改错题（14 分）【题目】下面程序功能是：找出 100 以内满足 N+1 个连续自然数之和等于其后 N 个连续自然数之和的序列（例如：4+5+6=7+8 就是满足要求的序列）。Option ExplicitPrivate Sub Command1_Click() Dim I As Integer,S As String,Flg As Boolean For I=2 To 10 Call Sub1(I,S,Flg) Flg=False If Flg Then Text1=Text1&S&vbCrLf End If Next IEnd Sub Private Sub Sub1(K As Integer,S As String,F As Boolean) Dim I As Integer,Sum1 As Integer,Sum2 As Integer Dim N As Integer, Start As Integer Do While Sum1<>Sum2 And N<100 Start=Start+1 N=Start S=N:Sum1=N For I=1 To K-1 N=N+1 Sum1=Sum1+N S=S&"+"&N Next I S=S&"="&N N=N+1 Sum2=N For I=1 To K-2 N=N+1 Sum2=Sum2+N S=S&"+"&N Next I N=N+1 If Sum1=Sum2 Then F=True End If LoopEnd Sub 【要求】1. 新建工程，输入上述代码，改正程序中的错误；2. 改错时，不得增加或删除语句，但可适当调整语句位置；3. 将窗体文件和工程文件分别命名为 F1 和 P1，并保存到软盘 A 的根目录下。二、编程题（26 分）【题目】本程序的功能是：按设定的数据位数 N（N=2、3、3、4、5、6），随机生成 20 个互不相等正整数，按 5 个一行的形式输出到文本框中，并从中找出所有降序数输出到列表框。所谓降序数是指所有高位数字都大于其低位数字的数。例如 973 就是一个降序数。【编程要求】1. 程序参考界面如图所示，编程时不得增加或减少界面对象或改变对象的种类，窗体及界面元素大小适中，且均可见；2. 在文本框 1 中输入 N 值，按“执行”按钮，则开始计算并在文本框 2 中显示生成的随机数，在列表框中输出其中的降序数；按“清除”按钮，则将 2 个文本框及列表框清空，焦点置于文本框 1 上；按“退出”按钮，结束程序运行；3. 程序中应定义一个用于推断一个 N 位数是否是降数的通用过程。【要求】将窗体文件和工程文件分别命名为 F2...
