下载文档原格式
vb考试试题和答案**VB考试试题和答案**一、单项选择题（每题2分，共20分）1. 在VB中，以下哪个选项是正确的数据类型？A. IntegerB. IntC. DoubleD. All of the above**答案：D**2. VB中，哪个函数用于计算一个数的平方根？A. SqrB. PowC. LogD. Abs**答案：A**3. 下列哪个选项是VB中的保留字？A. MyB. MeC. DimD. All of the above**答案：D**4. 在VB中，下列哪个选项用于声明一个变量？A. ConstB. DimC. FunctionD. Sub**答案：B**5. VB中，哪个控件用于显示文本，但不能编辑？A. TextBoxB. LabelC. ComboBoxD. CheckBox**答案：B**6. 在VB中，下列哪个选项用于循环遍历数组中的每个元素？A. For EachB. ForC. WhileD. Do**答案：A**7. VB中，哪个函数用于将字符串转换为大写？A. LCaseB. UCaseC. StrCompD. Trim**答案：B**8. 在VB中，哪个事件用于响应按钮点击？A. ClickB. DoubleClickC. MouseDownD. MouseUp**答案：A**9. VB中，哪个属性用于设置控件的可见性？A. VisibleB. EnabledC. CaptionD. BackColor**答案：A**10. 在VB中，下列哪个选项用于声明一个过程？A. FunctionB. SubC. ClassD. Module**答案：B**二、填空题（每题2分，共20分）1. 在VB中，声明一个整型变量的关键字是________。
**答案：Integer**2. VB中，用于定义一个函数的关键字是________。
**答案：Function**3. VB中，用于定义一个子程序的关键字是________。
VB试题库及答案最新VB题库及答案⼀、选择题第1部分1、在窗体（名称为Form1）上画⼀个名称为Text1的⽂本框和⼀个名称为Command1的命令按钮，然后编写⼀个事件过程。
程序运⾏后，如果在⽂本框中输⼊⼀个字符，则把命令按钮的标题设置为“计算机等级考试”。
以下能实现上述操作的事件过程是A、Private Sub Text1_Change()Command1.Caption = "计算机等级考试"End SubB、Private Sub Command1_Click()Caption = "计算机等级考试"End SubC、Private Sub Form_Click()Text1.Caption = "计算机等级考试"End SubD、Private Sub Command1_Click()Text1.Text = "计算机等级考试"End Sub2、在⼀⾏内写多条语句时，每个语句之间⽤（）符号分隔。
A、 ,B、：C、.D、；3、下⾯（）是合法的变量名。
A、X_YZB、123ABCC、INTEGERD、X-Y4、下⾯（）是合法的字符常量。
A、 ABC$B、“ABC”C、‘ABC’D、 ABC5、表达式16/4 - 2^5*8 MOD 5\2的值为（）。
A、14B、 4C、20D、26、设a=”MicrosoftVisualBasic”，则以下使变量的b值为”VisualBasic”的语句是A、b=Left(a,10)B、b=Mid(a,10)C、b=Right(a,10)D、b=Mid(a,11,10)7、设a="a"，b="b"，c="c"，d="d"，执⾏语句x = IIf((a < b) Or (c > d), "A", "B")后，x的值为A、"a"B、"b"C、"B"D、"A"8、在窗体上画⼀个⽂本框，然后编写如下事件过程：Private Sub Form_Click()x = InputBox("请输⼊⼀个整数")Print x + Text1.TextEnd Sub程序运⾏时，在⽂本框中输⼊456，然后单击窗体，在输⼊对话框中输⼊123，单击“确定”按钮后，在窗体上显⽰的内容为A、123B、456C、579D、1234569、在BASIC中，三个逻辑运算符NOT，AND，OR在运算过程中，优先级从⾼到低的顺序是（）。
vb考试试题题库及答案VB（Visual Basic）是一种由微软公司开发的编程语言，广泛用于开发Windows应用程序。
以下是一些VB考试的试题题库及答案，供参考：一、单选题1. 在VB中，以下哪个是正确的数据类型？- A. Integer- B. Real- C. String- D. All of the above答案：D2. VB中的“Sub”过程与“Function”过程的区别是什么？- A. Sub过程可以返回值，Function过程不能- B. Function过程可以返回值，Sub过程不能- C. 两者都可以返回值- D. 两者都不能返回值答案：B3. 在VB中，以下哪个是正确的变量声明方式？- A. Dim x- B. Declare x As Integer- C. Both A and B- D. None of the above答案：C二、多选题1. VB中的控件可以具有哪些属性？- A. Name- B. Caption- C. Font- D. All of the above答案：D2. VB中，以下哪些是事件驱动的编程语言的特点？- A. 事件驱动的程序在事件发生时执行代码- B. 程序的执行顺序由事件的触发顺序决定- C. 程序可以同时响应多个事件- D. 程序必须等待事件的发生才能执行答案：A, B, C三、判断题1. VB是一种编译型语言。
- 正确- 错误答案：错误2. 在VB中，可以使用“Print”方法在文本框中显示文本。
- 正确- 错误答案：正确3. VB中的“Option Explicit”语句可以强制声明所有变量。
- 正确- 错误答案：正确四、简答题1. 简述VB中的事件和方法的区别。
答案：事件是用户或系统触发的动作，如点击按钮、键盘输入等。
方法是一种过程，可以包含代码来执行特定的任务或计算。
事件通常与控件相关联，并可以触发方法的执行。
2. 解释VB中“类”的概念。
程序设计第一题、题目：（事件）单击窗体（响应）求50以内所有偶数的和，并在窗体上输出来。
将结果存入变量S中。
代码：Dim I As IntegerFor i = 2 To 50If (i Mod 2)=0 ThenS=s+iEnd IfNextPrint (CStr(s))第二题题目：（事件）双击窗体（响应）求s=1+1*2+1*2*3+….+1*2*3*….*10并将结果存入变量S中代码：Dim i,j As IntegerDim k As Longk=1s=0For i =1To 10For j=1 To ik=k*jNexts=s+kk=1NextPrint(CStr(s))第三题题目：（事件）单击窗体（响应）求100以内偶数的和，并将结果输出在窗体上。
将结果存入变量SUM中代码：Dim i As IntegerFor i =1 To 100If i Mod 2 =0 ThenSum=sum+iEnd IfNextPrint sum第四题题目：（事件）单击窗体（响应）编写程序求10*11*12+11*12*13+….+15*16*17的结果并将结果输出到窗体上。
将结果存入变量M中。
代码：Dim i,j As IntegerDim s As LongFor i =10 To 15s=1For j = i To i +2s=s*jNextm=m+sNextPrint (CStr(m))第五题题目：（事件）双击窗体（响应）求100以内奇数的和，并将结果输出在窗体上。
将结果存入变量SUM中。
代码：Dim i As IntegerFor i=1 To 100If i Mod 2 = 1 Thensum = sum + iEnd IfNextPrint sum第六题题目：（事件）单击窗体（响应）已知S=1+1/4+1/9+1/16+1/25+…+1/100,结果输出在窗体上代码：Dim s As SingleFor i=1 To 10a=i*iSum =1/a + SumNextPrint Sum第七题题目：（事件）双击窗体（响应）求1+1*2+1*2*3+....+1*2*3*. (10)并将结果存到变量S中代码：Dim s As Longj=1For i = 1 To 10j= j*iSum = Sum + jNextPrint Sum第八题题目：（事件）单击窗体（响应）求1—1/2+1/3—1/4+….+1/99—1/100的值。
VB填空题:1、Visual Basic 6.0分为3种版本，这3种版本是______、______和______。
其中，最完整的是______。
答案：1：学习版#专业版#企业版2：学习版#专业版#企业版3：学习版#专业版#企业版4：企业版知识点：VB知识点/第一章2、可以通过______快捷键或______快捷键退出Visual Basic。
答案：1：Alt+F4#Alt+Q2：Alt+F4#Alt+Q知识点：VB知识点/第一章3、传统的程序设计语言主要是面向______的，而现在涌现出的许多可视化程序设计语言，如Visual Basic主要是面向______进行程序设计的。
答案：1：过程#问题2：对象知识点：VB知识点/第一章4、在面向对象程序设计中，对象是由______和______组成的概念。
答案：1：代码#数据2：代码#数据知识点：VB知识点/第一章5、Visual Basic开发环境中，在标题栏的方括号内能指出目前正处在______、______状态或______状态。
答案：1：设计#中断#运行#设计状态#中断状态#运行状态2：设计#中断#运行#设计状态#中断状态#运行状态3：设计#中断#运行#设计状态#中断状态#运行状态知识点：VB知识点/第一章6、在设计模式下，工程中的某个窗体没有出现，可通过双击______窗口中的相应窗体名来使之出现。
答案：1：工程资源管理器知识点：VB知识点/第一章7、Visual Basic开发环境中，当属性窗口在界面上末出现时，可使用______菜单中的______选项让它显示出来。
答案：1：视图2：属性窗口知识点：VB知识点/第一章8、在属性窗口中，属性显示方式分为两种，即按______顺序和按______顺序，分别通过单击相应的按钮来实现。
答案：1：字母#分类2：字母#分类知识点：VB知识点/第一章9、菜单命令中有"…"标记表示该命令是一个______的命令。
vb试题及答案一VB试题及答案VB（Visual Basic）是一种面向对象的编程语言，广泛应用于Windows系统的应用程序开发。
本文将提供一些VB试题及答案，帮助读者加深对VB的理解和应用。
一、选择题1. VB是哪种类型的编程语言？A. 面向过程B. 面向对象C. 脚本语言D. 函数式语言答案：B2. 在VB中，下面哪种变量类型可以存储整数数据？A. IntegerB. StringC. BooleanD. Double答案：A3. 下面哪个事件在用户单击按钮时触发？A. Load事件B. Click事件C. KeyPress事件D. MouseHover事件答案：B4. 在VB中，用于循环执行一段代码块的结构是什么？A. If语句B. Do While循环C. For循环D. Select Case语句答案：C5. 下面哪个关键字用于声明一个新的子程序或函数？A. FunctionB. SubC. DimD. Private答案：B二、填空题1. 完善下面的代码，实现求和功能：```vbDim num1 As IntegerDim num2 As IntegerDim sum As Integernum1 = 10num2 = 20sum = ___________```答案：num1 + num22. 完善下面的代码，实现判断一个数是否为偶数： ```vbDim num As Integernum = 12If num ___________ ThenMsgBox("偶数")ElseMsgBox("奇数")End If```答案：num Mod 2 = 0三、简答题1. 请解释VB中的常量和变量的区别。
答：常量是一种固定不变的值，其值在程序运行过程中不能被修改。
在VB中，可以使用`Const`关键字声明常量。
变量是一种存储数据的容器，其值可以在程序运行过程中发生改变。
vb二级考试题库带答案1. 题目：在VB中，如何声明一个整型变量并为其赋值？答案：在VB中，声明一个整型变量并为其赋值可以使用以下代码： ```Dim myInteger As IntegermyInteger = 10```2. 题目：在VB中，如何实现一个简单的循环结构？答案：在VB中，可以使用`For`循环来实现一个简单的循环结构，例如：```For i = 1 To 10Print iNext i```3. 题目：在VB中，如何使用条件语句来判断一个数是否为偶数？答案：在VB中，可以使用`If`条件语句来判断一个数是否为偶数，如下所示：```Dim number As Integernumber = 4If number Mod 2 = 0 ThenPrint "The number is even."ElsePrint "The number is odd."End If```4. 题目：在VB中，如何创建一个数组并初始化其元素？答案：在VB中，可以通过以下方式创建一个数组并初始化其元素： ```Dim myArray(5) As IntegerFor i = 0 To 5myArray(i) = i * 2Next i```5. 题目：在VB中，如何使用函数来计算两个数的和？答案：在VB中，可以通过定义一个函数来计算两个数的和，如下所示：```Function Sum(ByVal num1 As Integer, ByVal num2 As Integer) As IntegerSum = num1 + num2End FunctionDim result As Integerresult = Sum(5, 10)Print "The sum is: " & result```6. 题目：在VB中，如何使用事件处理程序来响应按钮点击事件？答案：在VB中，可以通过定义一个事件处理程序来响应按钮点击事件，如下所示：```Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickMessageBox.Show("Button was clicked.")End Sub```7. 题目：在VB中，如何使用类来封装数据和方法？答案：在VB中，可以通过定义一个类来封装数据和方法，如下所示：```Public Class MyClassPrivate myData As StringPublic Sub New(ByVal data As String)myData = dataEnd SubPublic Function GetData() As StringReturn myDataEnd FunctionEnd ClassDim myObject As New MyClass("Hello World")Print myObject.GetData()```8. 题目：在VB中，如何使用异常处理来捕获和处理错误？答案：在VB中，可以通过使用`Try`、`Catch`和`Finally`块来捕获和处理错误，如下所示：```Try' Code that might cause an errorCatch ex As ExceptionMessageBox.Show("An error occurred: " & ex.Message) Finally' Code that always runs, regardless of an errorEnd Try```以上是VB二级考试题库中的部分题目及其答案。
vb考试题库及答案大一一、选择题（每题2分，共20分）1. 在VB中，以下哪个是正确的变量声明语句？A. Dim a$B. Dim a IntegerC. Dim a As StringD. Dim a As Integer答案：C2. VB中，以下哪个是正确的字符串连接操作符？A. +B. ||C. &D. *答案：C3. 在VB中，以下哪个函数用于将字符串转换为数值？A. Val()B. Str()C. CInt()D. CDbl()答案：A4. 在VB中，以下哪个是正确的条件语句？A. If x > 0 Then Print "Positive"B. If x > 0 Print "Positive"C. If x > 0 Then Print "Positive" Else Print "Negative"D. If x > 0 Then "Positive"答案：C5. 在VB中，以下哪个是正确的循环结构？A. For i = 1 To 10B. For i = 1 To 10 Step -1C. For i = 10 To 1D. All of the above答案：D6. 在VB中，以下哪个是正确的数组声明语句？A. Dim arr(10)B. Dim arr(10) As IntegerC. Dim arr() As IntegerD. Dim arr As Integer(10)答案：B7. 在VB中，以下哪个是正确的函数声明语句？A. Function myFunction() As IntegerB. Function myFunction As IntegerC. Function myFunction() IntegerD. Function myFunction Integer答案：A8. 在VB中，以下哪个是正确的事件处理程序声明？A. Private Sub Form_Click()B. Private Sub Form_Click(ByVal sender As Object, ByVal e As EventArgs)C. Private Sub Form_Click(ByVal sender As Object)D. Private Sub Form_Click(ByVal e As EventArgs)答案：A9. 在VB中，以下哪个是正确的窗体属性？A. CaptionB. TextC. NameD. All of the above答案：D10. 在VB中，以下哪个是正确的控件事件？A. ClickB. DoubleClickC. MouseDownD. All of the above答案：D二、填空题（每题2分，共20分）1. 在VB中，使用___________关键字可以声明一个全局变量。
VB题库(带答案)VB练习题1.下面哪一个叙述为正确的？D（A）VB的编程非常简单，只要将窗体上的控件设置好，再将控件的属性按要求设置即可完成程序的编制。
（B）VB的特点中的可视化编程是指随时可使用打印预览看一下效果。
（C）VB的特点中的事件驱动机制是系统已经编制好的一些针对控件的程序，可以直接调用。
（D）VB系统提供了数据库管理功能。
2.下面哪一个叙述为错误的？D（A）VB的编程非常简单，因为系统提供了很多编制好的控件，可直接放到界面上使用。
（B）VB是面向对象的程序设计，并且具有结构化的程序设计语言。
（C）VB的特点中的事件驱动机制是系统可以感知一些动作，当该动作产生时自动去执行对应的事件过程。
（D）VB系统没有提供数据库管理功能。
3.下面哪一个叙述为正确的？B（A）VB源程序有工程文件、窗体文件、模块文件等，工程文件包含所有的文件，源程序备份只需要备份工程文件即可。
（B）VB源程序有工程文件、窗体文件、模块文件等，工程文件包含所有的文件，源程序备份需要备份所有相关文件。
（C）VB源程序有工程文件、窗体文件、模块文件等，源程序备份只需要备份窗体文件和模块文件即可。
（D）VB源程序如果有多个窗体文件，没有模块文件，源程序备份只需要备份窗体文件即可。
4.VB窗体设计器的主要功能是：A（A）建立用户界面（B）编写程序代码（C）画出图形控件（D）显示标准控件5下面哪一个叙述为正确的？A（A）在安装有VB系统程序的计算机上，修改一个以前编制的VB源程序，只需要双击工程文件即可。
（B）在安装有VB系统程序的计算机上，修改一个以前编制的VB源程序，只需要双击窗体文件即可。
（C）在安装有VB系统程序的计算机上，修改一个以前编制的VB源程序，只需要双击模块文件即可。
（D）在安装有VB系统程序的计算机上，修改一个以前编制的VB源程序，双击源程序中的任何文件都不能打开源程序。
6.什么是对象？A（A）对象是具有特殊属性和行为方式的实体。
2021vb考试题库及答案1. 以下哪个选项是Visual Basic（VB）中用于声明变量的关键字？A. DimB. ConstC. FunctionD. Sub答案：A2. 在VB中，哪个函数用于计算一个数的平方根？A. SqrB. PowC. LogD. Exp答案：A3. VB中的哪个控件用于显示文本，但不允许用户编辑？A. TextBoxB. LabelC. ComboBoxD. CheckBox答案：B4. 如何在VB中创建一个数组？A. 使用New关键字B. 使用Array关键字C. 使用Dim关键字并指定下标范围D. 使用List关键字答案：C5. 在VB中，哪个事件是在表单加载到内存时触发的？A. LoadB. ClickC. MouseDownD. KeyPress答案：A6. VB中的哪个属性用于设置控件的可见性？A. VisibleB. EnabledC. CaptionD. Height答案：A7. 在VB中，哪个关键字用于循环遍历数组或集合中的每个元素？A. ForB. EachC. WhileD. Do答案：B8. VB中的哪个函数用于将字符串转换为大写？A. UCaseB. LCaseC. StrCompD. Trim答案：A9. 在VB中，哪个控件用于创建下拉选择列表？A. ListBoxB. ComboBoxC. CheckBoxD. RadioButton答案：B10. VB中的哪个属性用于获取或设置一个控件的文本？A. TextB. CaptionC. ValueD. Name答案：A11. 在VB中，哪个事件是在文本框内容改变时触发的？A. ChangeB. ClickC. KeyDownD. MouseUp答案：A12. VB中的哪个函数用于获取当前日期？A. NowB. DateC. TimeD. Today答案：D13. 在VB中，哪个关键字用于声明一个过程，该过程不返回任何值？A. FunctionB. SubC. ConstD. Dim答案：B14. VB中的哪个属性用于设置控件的宽度？A. WidthB. HeightC. TopD. Left答案：A15. 在VB中，哪个事件是在按钮被点击时触发的？A. ClickB. LoadC. MouseDownD. KeyPress答案：A。
115．下面程序是求数列的和，计算结果精确到第n 项小于10-5为止。
+⨯⨯⨯⨯++⨯⨯+⨯+=ny 26421642142121 式中，n=1,2,3,…。
Private Function fact(n As Integer) As LongDim i As Integer, k As Integerfact = 1k = 2For i = n To 1 Step -1______(272)_____k = k + 2Next IEnd FunctionPrivate Sub Cmdstart_Click()Dim y As Single, n As Integer, temp As Singlen = 1Do_____(273)_____If temp <= 0.00001 Then Exit Doy = y + tempn = n + 1LoopPrint "n="; n, "y="; yEnd Sub116．如下的程序是，生成若干个互不相同的1～100之间的随机整数。
Option ExplicitOption Base 1Private Sub Command1_Click()Dim data() As Integer, i As Integer, k As IntegerDim temp As Integer, flag As BooleanRandomizeReDim data(1)data(1) = Int(100 * Rnd()) + 1For i = 1 To 20temp = Int(100 * Rnd()) + 1flag = False_____(274)_____If flag = True Thenk = k + 1ReDim Preserve data(k)data(k) = tempEnd IfNext iPrint k; "个互不相同的整数为："For i = 1 To kPrint Format(data(i), "@@@@");If i Mod 10 = 0 Then PrintNext IEnd SubPrivate Sub compare(arry() As Integer, m As Integer, logic As Boolean)Dim n As Integer, i As Integern =_____(275)_____For i = 1 To nIf arry(i) = m ThenExit SubEnd IfNext ilogic = TrueEnd Sub129．输入一串数字字母间隔的字符串，将其中数字挑选出来，并且在相应的数字之间用“*”分开，如“alb2c3d4f”输出的结果为“[1*2*3*4*]”，如图所示。
请将下列程序补充完整。
程序代码如下：Private Sub Form_Click()dim st As String, i As Integerst=InputBox("输入数字字母混合的字符串")I=1Print "["; …字符串的第一个加”[”Do While i<=____(299)____If (Mid(st, I, 1)>= "0") And (Mid(st, I, 1)<= "9") ThenPrint Mid(st, I, 1);Else____(300)____End IfI=i+1 …准备取下一个字符LoopPrint “]”End Sub149．C盘根目录下文件file．txt的内容是：2，4，6，8，10，1，3，5，7，9。
下面程序的功能是将文件后半部分的奇数分别按序插入到前半部分的适当位置，得到的新数列是：1 2 3 4 5 6 7 8 9 10。
完善下列程序。
(实现方法：第一次调整后的数列是：1 2 4 6 8 10 3 5 7 9，第二次调整后的数列是：1 2 3 4 6 8 10 5 7 9，…)Option ExplicitPrivate Sub Form_Click()Dim a(10) As Integer, i As Integer, j As IntegerOpen "C:\file.txt" For Input As #12Do While Not EOF(12)(346)Input#12，a(j)Loop(347)For I=l To 10Print a(i);Next iClose #12End SubPrivate Sub Insert((348) )Dim i As Integer, Putp As Integer, J As IntegerDim Getp As Integer, n As Integer, Tem As Integern = UBound(a) / 2Putp = 2Getp = n + 1For i = 1 To nTem = a(Getp)For J = Getp - 1 To Putp - 1 Step -1If a(J) > Tem Then (349)Next Ja(Putp - 1) = Tem(350Putp = Putp + 2Next iEnd Sub170．下面的程序可从一个由字母与数字相混的字符串中选出字符串，并把子字符串写入一个名为List1的列表框中，程序运行界面如图所示。
请完善下面程序。
Option ExplicitPrivate Sub Command1_Click()Dim s As String, k As Integer, d()As StringDim P As String, i As Integer, t As StringS="00aa11bb22cc33dd44ff55gg"K=1For I=1 To Len(s)t = Mid(S, I, 1)If t>="a" And t<="z" Or t>="A" And t<="Z" ThenP = （387）ElseIf P<>"" ThenReDim Preserve d(k)d(k)=p（388）p = ""End IfEnd IfNext iReDim Preserve d(k)d(k)=pFor I=1 To kList1.Additem d(i)Next iEnd Sub171．窗体中有一文本框Text1，执行下面程序后，窗体上显示的结果是（389），文本框中输出结果是（390）。
Option ExplicitPrivate Sub Form_Click()Dim a As Integera=2Call Sub1(a)Text1.Text=aEnd SubPrivate Sub Sub1(X As Integer)X=X*2+1If X<10 ThenCall Sub1(x)End IfX=X*2+1Print x;End Sub176．窗体上有两个控件，一个是驱动器列表框Drive1，另一个是目录列表框Dir1，现在要使目录列表框跟随驱动器列表框的变化而变化，则需在Drive1_Change事件过程中填入语句（402）。
180．如下程序的功能是将一位整数转换为二进制形式的字符串，如果字符串长度小于4，将在其前面补“0”至4位。
完善下列程序。
Private Sub Command1_Click()Dim t As Integer, b As String, k As Integert = InputBox("输入一位整数")Do Until t = 0k = （410）b = CStr(k) & bt = t \ 2LoopIf （411）< 4 Thenb = "0000" & bb = Right(b, 4)End IfPrint bEnd Sub程序运行后，如果单击命令按钮，如在输入框输入数值“8”，则在窗体上显示的内容是（412）。
181．有一程序，将一个正整数分解为质因数乘积。
例如，78=2×3×13。
程序代码如下：Option ExplicitPrivate Sub Command1_Click()Dim n As Integer, k As Integern =InputBox("输入正整数n= ")k=2Print n; "= ";Do While n>=kIf n Mod k=0 ThenIf （413）ThenPrint kElsePrint k; "×";End If（414）Else（415）End ifLoopEnd Sub243．下面程序的功能是：从键盘上输入一个不超过4位的十进制正整数，先把该十进制数的每一位数字转换为一个4位二进制数，再把得到的二进制数依次合并成为一个16位的二进制数。
例如，输入十进制数359，会得到二进制数0000001101011001。
Private Sub Form_Click()Dim num As Integer, S As String, M As IntegerDim i As Integer, j As Integer, n As Integernum=InputBox(" 输入一个长度不超过4位的十进制正整数：", , 1)（521）Do While num>0J = J + 1n = num Mod 10S = Cover(n) & S（522）LoopFor I =1 To 4-jS = " 0000" & SNext iText1.Text="十进制数" & CStr(M) & "的转换结果是：" & sEnd SubPrivate Function Cover( （523） )As StringDim i As Integer, S As String, k As IntegerDo Until n<1（524）S =CStr(k) & Sn = n \ 2LoopIf Len(s)<4 ThenS ="0000" & SCover = （525）ElseCover=SEnd IfEnd Function三、改错题1．【题目】求下面数列的和，计算到第n 项的值小于等于10-4为止。
