计算机二级考试VB一般程序设计习题
全国计算机二级《VB》练习题及答案
全国计算机二级《VB》练习题及答案全国计算机二级《VB》练习题及答案9月计算机等级考试将于9月23日-26日举行，目前处于紧张的备考阶段，以下是店铺搜索整理的一份全国计算机二级《VB》练习题及答案，供参考练习，预祝考生们考出自己理想的成绩!想了解更多相关信息请持续关注我们店铺!1.双击窗体中的对象后，VB将显示的窗口是(C)(单)A.工具箱B.项目(工程)窗口C.代码窗口D.属性窗口2.下述选项中，VB的程序设计方法是(B)(单)A.面向对象、顺序驱动B.面向对象、事件驱动C.面向过程、事件驱动D.面向过程、顺序驱动3.在VB中，要将一个窗体装载到内存进行变量初始化等预处理，但没有显示该窗体，应使用的方法或语句是(C)(单)A.ShowB.UnloadC.LoadD.Hide4.文本框的默认属性是(B)(单)A.CaptionB.TextD.Top5.标签默认属性是(A)(单)A.CaptionD.Top6.执行以下程序段：a$="abbacddcba"For I=6 To 2 Step -2X=Mid(a,I,I)Y=Left(a,I)z=Right(a,I)z=Ucase(X&Y&z)Next IPrint z输出结果为(B)(单)A.ABAB.BBABBAC.ABBABAD.AABAAB7.在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：Option Base 1Private Sub Command1_Click( )Dim a As Varianta=Array(1,2,3,4,5)Sum=0For I=1 To 5Sum = sum+a(I)Next Ix=Sum/5For I =1 To 5If a(I)>x Then Print a(I);End Sub程序运行后，单击命令按钮，在窗体上显示的内容是(D)(单)A.1 2B.1 2 3C.3 4 5D.4 58.假定一个工程由一个窗体文件Form1和两个标准模块文件Model1及Model2组成。
江苏省计算机二级考试VB程序设计复习题
江苏省计算机二级考试VB程序设计复习题一、填空题：（第一章Visual Basic程序设计概述）1、Visual Basic是一种面向_对象_的可视化程序设计语言，采取了__事件驱动__的编程机制。
2、在VB中工程文件的扩展名是_ Vbp ，窗体文件的扩展名是frm _，标准模块文件的扩展名是_ bas _。
3、执行“工程”菜单下的部件命令，可选择并添加ActiveX控件。
4、Visual Basic 6.0用于开发_ WINDOWS环境下的应用程序。
第二章简单的VB程序设计1、设置是否可以用Tab键来选取命令按钮，应该用_ Tabstop ___属性。
2、一个控件在窗体的位置由__ Left ___和_ top ___属性决定，其大小由__ height _和_ width _属性决定。
3、利用对象的属性setfocus可获得焦点，对于一个对象，只有其visible属性和_ enabled __属性为true，才能接受焦点。
4、设置控件背景颜色的属性名称是_ backcolor __。
5、所有控件都具有的共同属性是__ name __属性。
6、一般情况下，控件有两个属性项的缺省值是相同的，这两个属性项是_ name和caption。
7、VB中的每个对象（控件）都有一组特征，这组特征称为_属性_，我们通过修改它可以控制对象的外观和操作。
8、通常情况下，VB中一个工程主要包括如下四个文件：窗体文件、工程文件、类模块文件和_标准模块文件_文件，后者的扩展名为.Bas，通常由Basic语言编写，是一个可共用的子程序。
9、VB有三种工作模式，分别是设计（Design）模式、_运行模式__和中断（Break）模式。
第三章1、一般可以使用____ Const ______关键字声明常量。
2、_ Variant _类型也称变体类型，是一种通用的、可变的数据类型，它可表示或存储任何一种数据类型。
3、变量的声明分为两种方法：_隐式声明__和__显示声明__。
计算机vb二级考试试题及答案
计算机vb二级考试试题及答案一、单项选择题（每题2分，共20分）1. 在Visual Basic中，下列哪个选项是正确的变量声明方式？A. Dim a$B. Dim a% IntegerC. Dim a As IntegerD. Dim a Integer答案：C2. 下列哪个函数用于计算一个数的平方？A. SqrB. AbsC. RoundD. Sq答案：A3. 在Visual Basic中，哪个控件用于显示图像？A. LabelB. PictureBoxC. TextBoxD. ComboBox答案：B4. 下列哪个选项是正确的Visual Basic程序结构？A. Sub Main()B. Function Main()C. Procedure Main()D. Process Main()答案：A5. 在Visual Basic中，哪个关键字用于声明一个子程序？A. FunctionB. SubC. ClassD. Module答案：B6. 下列哪个选项是正确的数组声明方式？A. Dim arr(10)B. Dim arr As Integer(10)C. Dim arr(10) As IntegerD. Dim arr Integer(10)答案：C7. 在Visual Basic中，哪个控件用于创建下拉列表？A. ListBoxB. ComboBoxC. CheckBoxD. OptionButton答案：B8. 下列哪个选项是正确的条件语句？A. If condition ThenB. If condition BeginC. If condition Then ElseD. If condition Begin Else答案：C9. 在Visual Basic中，哪个关键字用于退出当前的循环？A. ContinueB. ExitC. BreakD. Return答案：C10. 下列哪个选项是正确的Visual Basic事件处理方式？A. Function eventname()B. Sub eventname()C. Procedure eventname()D. Call eventname()答案：B二、填空题（每题2分，共20分）1. 在Visual Basic中，使用________关键字可以声明一个全局变量。
大学计算机二级vb试题及答案
大学计算机二级vb试题及答案1. VB语言基础知识VB（Visual Basic）是一种基于事件驱动的编程语言，以下是一些VB语言的基础知识：1.1 数据类型VB中支持的数据类型有：- 整数类型（Integer）：用于表示整数，范围为-32768到32767。
- 长整型（Long）：用于表示较大的整数，范围为-2,147,483,648到2,147,483,647。
- 单精度浮点型（Single）：用于表示带有小数点的数字，范围为-1.401298E-45到3.402823E+38。
- 双精度浮点型（Double）：用于表示较大范围的浮点数，范围为-4.94065645841247E-324到1.79769313486232E+308。
- 字符串型（String）：用于表示文本数据。
- 布尔型（Boolean）：用于表示真或假的值。
1.2 变量声明与赋值在VB中，可以使用Dim语句声明变量并赋初值。
例如：```Dim num As Integernum = 10```1.3 运算符VB支持常见的算术运算符（+、-、*、/）和比较运算符（>、<、=），以及逻辑运算符（And、Or、Not）等。
2. VB程序设计题2.1 编写程序，计算并输出1到100之间所有偶数的和。
```Dim sum As Integersum = 0For i = 1 To 100If i Mod 2 = 0 Thensum = sum + iEnd IfNextMsgBox "1到100之间所有偶数的和为：" & sum```2.2 编写程序，判断一个正整数是否为素数。
```Dim num As IntegerDim isPrime As Booleannum = InputBox("请输入一个正整数：") isPrime = TrueFor i = 2 To num - 1If num Mod i = 0 ThenisPrime = FalseExit ForEnd IfNextIf isPrime ThenMsgBox num & "是素数。
计算机二级vb试题题目及答案
计算机二级vb试题题目及答案一、选择题（每题2分，共20分）1. 在VB中，以下哪个选项是正确的字符串比较？A. "Hello" > "hello"B. "Hello" < "hello"C. "Hello" = "hello"D. "Hello" <> "hello"答案：B2. VB中，哪个函数可以用来计算数组中元素的个数？A. UBoundB. LBoundC. CountD. Size答案：A3. 在VB中，以下哪个选项表示创建一个名为“myForm”的窗体？A. Form myFormB. Dim myForm As FormC. Dim myFormD. Form myForm As New Form答案：D4. VB中，下列哪个选项是正确的文件打开模式？A. Open "filename" For Input As #1B. Open "filename" For Output As #1C. Open "filename" For Append As #1D. All of the above答案：D5. 在VB中，以下哪个选项是正确的数据类型？A. IntegerB. IntC. FloatD. All of the above答案：D6. VB中，哪个关键字用来声明一个变量？A. DimB. DeclareC. ConstD. All of the above答案：D7. 在VB中，以下哪个选项是正确的循环结构？A. ForB. DoC. WhileD. All of the above答案：D8. VB中，哪个函数可以用来获取当前系统日期？A. NowB. DateC. TimeD. Today答案：D9. 在VB中，以下哪个选项表示创建一个名为“myButton”的按钮？A. Button myButtonB. Dim myButton As ButtonC. Dim myButtonD. Button myButton As New Button答案：D10. VB中，哪个关键字用来结束一个程序的运行？A. EndB. ExitC. StopD. All of the above答案：D二、填空题（每题2分，共20分）1. 在VB中，使用________关键字可以声明一个全局变量。
安徽省vb二级考试真题及答案
安徽省vb二级考试真题及答案一、选择题（每题2分，共20分）1. 在Visual Basic中，以下哪个选项不是窗体的属性？A. CaptionB. NameC. TextD. Font答案：C2. 下列哪个函数用于计算一个数的绝对值？A. AbsB. SqrC. IntD. Round答案：A3. 在Visual Basic中，以下哪个关键字用于声明一个子程序？A. FunctionB. SubC. ClassD. Property答案：B4. 如果要为一个文本框控件设置初始文本，应该使用哪个属性？A. TextB. CaptionC. ValueD. Name答案：A5. 在Visual Basic中，以下哪个控件用于显示图像？A. PictureBoxB. ImageBoxC. LabelD. TextBox答案：A6. Visual Basic中，以下哪个事件用于响应鼠标单击操作？A. ClickB. DoubleClickC. MouseDownD. MouseUp答案：A7. 在Visual Basic中，以下哪个数据类型用于存储日期和时间？A. DateB. TimeC. DateTimeD. String答案：C8. 以下哪个选项不是Visual Basic中的流程控制语句？A. If...Then...ElseB. For...NextC. While...WendD. Switch...Case答案：D9. 在Visual Basic中，以下哪个函数用于将字符串转换为整数？A. StrB. ValC. CIntD. Chr答案：C10. 如果要创建一个数组，应该使用哪个关键字？A. ArrayB. DimC. ReDimD. New答案：B二、填空题（每题2分，共20分）1. 在Visual Basic中，使用____关键字可以声明一个变量。
答案：Dim2. 要创建一个按钮控件，应该在工具箱中选择____控件。
国家二级计算机vb考试试题及答案
国家二级计算机vb考试试题及答案一、单项选择题（每题1分，共10分）1. 在VB中，用于定义变量的关键字是（）。
A. DimB. SubC. FunctionD. Const答案：A2. 下列哪个选项不是VB中的控制结构？（）A. 顺序结构B. 选择结构C. 循环结构D. 函数结构答案：D3. VB中，用于声明一个子程序的关键字是（）。
A. FunctionB. SubC. DimD. Const答案：B4. 在VB中，用于表示逻辑“与”运算符的是（）。
A. AndB. OrC. NotD. Xor答案：A5. VB中，用于表示逻辑“或”运算符的是（）。
A. AndB. OrC. NotD. Xor答案：B6. 在VB中，用于声明一个数组的关键字是（）。
A. DimB. SubC. FunctionD. Const答案：A7. VB中，用于声明一个常量的关键字是（）。
A. DimB. SubC. FunctionD. Const答案：D8. 在VB中，用于表示逻辑“非”运算符的是（）。
A. AndB. OrC. NotD. Xor答案：C9. VB中，用于声明一个函数的关键字是（）。
A. FunctionB. SubC. DimD. Const答案：A10. 在VB中，用于表示逻辑“异或”运算符的是（）。
A. AndB. OrC. NotD. Xor答案：D二、填空题（每题2分，共10分）1. 在VB中，使用____关键字可以定义一个全局变量。
答案：Public2. 当需要在VB中定义一个私有变量时，应使用____关键字。
答案：Private3. 在VB中，使用____关键字可以定义一个局部变量。
答案：Dim4. VB中，使用____关键字可以定义一个过程。
答案：Sub5. VB中，使用____关键字可以定义一个函数。
答案：Function三、简答题（每题5分，共20分）1. 请简述VB中事件驱动编程的概念。
全国计算机二级VB试题
下面的138道题目，在二级考试中命中率极高。
一、选择题(1) 下面叙述正确的是(C)A. 算法的执行效率与数据的存储结构无关B. 算法的空间复杂度是指算法程序中指令（或语句）的条数C. 算法的有穷性是指算法必须能在执行有限个步骤之后终止D. 以上三种描述都不对(2) 以下数据结构中不属于线性数据结构的是(C)A. 队列(3)(4)A.(5)A. 对象(6)A.(7)A.C.(8)A. 数据模型B. 数据库管理系统C. 软件工具D. 数据库(9) 下列叙述中正确的是(C)A.数据库是一个独立的系统，不需要操作系统的支持B.数据库设计是指设计数据库管理系统C.数据库技术的根本目标是要解决数据共享的问题D.数据库系统中，数据的物理结构必须与逻辑结构一致(10) 下列模式中，能够给出数据库物理存储结构与物理存取方法的是(A) 注：P108A. 内模式B. 外模式C. 概念模式D. 逻辑模式(11) 算法的时间复杂度是指(C)A. 执行算法程序所需要的时间B. 算法程序的长度C. 算法执行过程中所需要的基本运算次数D. 算法程序中的指令条数(12) 算法的空间复杂度是指(D)A. 算法程序的长度B. 算法程序中的指令条数C. 算法程序所占的存储空间D. 算法执行过程中所需要的存储空间(13)(14)A.C.(15)(D)A.(16)A.(17)以及A.(18) 下述关于数据库系统的叙述中正确的是(A)A. 数据库系统减少了数据冗余B. 数据库系统避免了一切冗余C. 数据库系统中数据的一致性是指数据类型的一致D. 数据库系统比文件系统能管理更多的数据(19) 关系表中的每一横行称为一个(A)A. 元组B. 字段C. 属性D. 码(20) 数据库设计包括两个方面的设计内容，它们是(A)A. 概念设计和逻辑设计B. 模式设计和内模式设计C. 内模式设计和物理设计D. 结构特性设计和行为特性设计(21) 下列叙述中正确的是(A)A. 线性表是线性结构B. 栈与队列是非线性结构C. 线性链表是非线性结构D. 二叉树是线性结构(22)A.C.(23)A.C.(24)A.C.(25)A.C.(26)A. 工具B. 过程C. 方法D. 环境(27) 程序流程图（PFD）中的箭头代表的是(B) 注：P81A. 数据流B. 控制流C. 调用关系D. 组成关系(28) 在数据管理技术的发展过程中，经历了人工管理阶段、文件系统阶段和数据库系统阶段。
全国计算机二级vb考试试题及答案
全国计算机二级vb考试试题及答案一、单项选择题（每题2分，共40分）1. VB中，以下哪个不是基本数据类型？A. IntegerB. DoubleC. StringD. Object答案：D2. 在VB中，以下哪个关键字用于声明变量？A. DimB. ConstC. FunctionD. Sub答案：A3. VB中，以下哪个函数用于计算字符串的长度？A. LenB. LengthC. SizeD. Count答案：A4. 在VB中，以下哪个是正确的循环结构？A. ForB. WhileC. LoopD. All of the above答案：D5. VB中，以下哪个不是控制结构？A. IfB. Select CaseC. DoD. Call答案：D6. 在VB中，以下哪个不是数组的声明方式？A. Dim arr(10) As IntegerB. Dim arr() As Integer = New Integer(10)C. ReDim arr(10)D. Dim arr As Integer = {1, 2, 3}答案：D7. VB中，以下哪个不是窗体(Form)的属性？A. NameB. CaptionC. TextD. Color答案：C8. 在VB中，以下哪个不是基本的输入输出函数？A. InputBoxB. MsgBoxC. PrintD. MessageBox答案：D9. VB中，以下哪个不是事件驱动编程中的事件？A. ClickB. LoadC. ChangeD. Execute答案：D10. 在VB中，以下哪个不是常用的控件？A. LabelB. TextBoxC. ButtonD. Chart答案：D11. VB中，以下哪个不是控件的属性？A. NameB. TextC. ValueD. Execute答案：D12. 在VB中，以下哪个不是控件的事件？A. ClickB. DoubleClickC. MouseDownD. Open答案：D13. VB中，以下哪个不是文件操作的函数？A. OpenB. CloseC. WriteD. Execute答案：D14. 在VB中，以下哪个不是数据库访问的方法？A. OpenB. FetchC. UpdateD. Execute答案：D15. VB中，以下哪个不是错误处理的关键字？A. On ErrorB. ResumeC. ExitD. Err答案：C16. 在VB中，以下哪个不是面向对象编程的概念？A. ClassB. ObjectC. InterfaceD. Function答案：D17. VB中，以下哪个不是类的成员？A. PropertyB. MethodC. EventD. Variable答案：D18. 在VB中，以下哪个不是继承的特性？A. 单继承B. 多继承C. 覆盖D. 封装答案：B19. VB中，以下哪个不是多态性的表现？A. 方法重载B. 方法重写C. 接口实现D. 函数调用答案：D20. 在VB中，以下哪个不是封装的体现？A. PrivateB. PublicC. ProtectedD. Friend答案：D二、填空题（每题2分，共20分）1. VB中，声明一个整型变量并赋值为10的语句是：Dim num As Integer; num = _______。
vb二级计算机考试试题及答案
vb二级计算机考试试题及答案一、单选题（每题2分，共20分）1. VB中，用于声明变量的关键字是：A. DimB. DeclareC. ConstD. Type答案：A2. 下列哪个选项不是VB中的控制结构？A. 顺序结构B. 选择结构C. 循环结构D. 函数结构答案：D3. 在VB中，用于定义类模块的关键字是：A. ClassB. ModuleC. FormD. Interface答案：A4. VB中，用于读取文件内容的函数是：A. DirB. FileGetC. FileOpenD. FilePut答案：C5. 在VB中，下列哪个选项不是数组的声明方式？A. Dim arr(5) As IntegerB. Dim arr() As Integer = New Integer(5)C. Dim arr(5 To 10) As IntegerD. Dim arr As Integer = New Integer(5)答案：D6. VB中，用于创建一个窗体的关键字是：A. FormB. DialogC. WindowD. Frame答案：A7. VB中，用于实现事件驱动编程的关键字是：A. EventB. SubC. FunctionD. Property答案：B8. 在VB中，下列哪个选项不是字符串函数？A. LeftB. RightC. MidD. Round答案：D9. VB中，用于定义常量的关键字是：A. DimB. ConstC. StaticD. Private答案：B10. VB中，下列哪个选项不是循环结构？A. For EachB. ForC. Do WhileD. If答案：D二、填空题（每题2分，共20分）1. VB中，用于声明全局变量的关键字是________。
答案：Public2. VB中，用于定义一个过程的关键字是________。
答案：Sub3. 在VB中，用于定义一个函数的关键字是________。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
般程序设计习题'〖第1题〗:(事件)单击窗体。
'(响应)求100以内偶数的和，并将结果输出在窗体上。
'将结果存入变量SUM中'答案：DimiAsIntegerFori=ITolOOlfiMod2=0Thensum=sum+iEndIfNextPrintsum'〖第2题〗:(事件)双击窗体。
'(响应)求s=1+1X 2+1 X 2X 3+…+1X 2 X 3X …X 10,'并将结果存到变量S中答案：DimijAsIntegerDimkAsLongk=1s=0Fori=1To10Forj=1Toik=k*jNexts=s+kk=1NextPrint(CStr(s))'〖第3题〗:(事件)单击窗体。
'(响应)求1+2+3+……+100的值，并把结果输出在窗体上。
'结果存入变量SUM中o'答案：DimiAsIntegerFori=1To100sum=sum+iNextPrintsum'〖第4题〗：判断一个数是否是素数。
'答案：DimiAsIntegerPrime=TrueFori=2ToInt(Sqr(m))lfmModi=0ThenPrime=False:ExitForNexti'〖第5题〗:(事件)单击窗体。
'(响应)求1-1/2+1/3-1/4+ ……+1/99-1/100 的值。
'将结果存入变量J中。
DimiAsIntegerFori=1To100IfiMod2=1Thenj=j+1/iElseIfiMod2=0Thenj=j-1/iEndIfNextPrintj”〖第6题〗:(事件)单击窗体。
'(响应)求200~300之间既能被3整除又能被7整除的数'并求出所有数之和存入变量SUM中'答案：DimiAsIntegerFori=2 0仃o300If((iMod3)=0)And((iMod7)=0)ThenPrint(CStr(i))sum=sum+iEndIfNextPrintsum' 〖第7 题〗：( 事件) 单击窗体。
'(响应)求数列1+3+3+9+27+••…前6项的和，并将'结果输出到窗体上。
将结果存入变量SUM中。
' 答案：DimiAsIntegerDimj(1To6)AsIntegerFori=1To6Ifi<3Thenj(i)=3F-1)Elsej(i)=j(i-1)*j(i-2)EndIfsum=sum+j(i)NextPrintsum' 〖第8 题〗：( 事件) 单击窗体。
'( 响应)求10!的值，并将结果输出到窗体上。
'将结果存入变量SUM中。
' 答案：DimiAsIntegersum=1Fori=1To10sum=sum*iNextPrintsum' 〖第9 题〗：( 事件) 双击窗体。
'( 响应)求出1 00~200之间，能被5整除，但不能被3' 整除的数。
并求所有数之和，存入变量中'SUM 中。
' 答案：DimiAsIntegerFori=100To200If((iMod5)=0)And((iMod3)<>0)ThenPrint(CStr(i))sum=sum+iEndIfNext' 〖第10 题〗：( 事件) 双击窗体。
'( 响应)把一元钞票换成一分、二分和五分的硬币' (每种至少有一枚)，求出其所有的换法，' 把结果输出在窗体上。
'将所有的换法的数目存入变量N中答案：Dimi,j,kAsIntegerFori=1To100Forj=1To50Fork=1To20If((i+2*j+k*5)=100)ThenPrint(CStr(i))Print(CStr(j))Print(CStr(k))n=n+1EndIfNextNextNext'〖第11题〗：求两个数m,n的最大公约数p和最小公倍数q ' 答案：nm=n*mIfm<nThent=m:m=n:n=tr=mModnDoWhile(r<>0)m=nn=rr=mModnLoopp=nq=nm/n' 〖第12题〗：（事件）双击窗体。
'（响应）s=20+21+22+…+263，求s的值，并将结果' 存储到变量S 中。
答案：DimiAsIntegeri=20Whilei<=263s=s+ii=i+1WendPrint（CStr（s））' 〖第13 题〗：（事件）双击窗体。
'（响应）求3+6+9+12+15+18+••…+300的和，并将结'果输出到窗体上。
将结果存入变量SUM中。
' 答案：DimiAsIntegerFori=3To300IfiMod3=0Thensum=sum+iEndIfNextPrintsum' 〖第14 题〗：（事件）双击窗体。
'（响应）编写代码功能如（图1）。
'将结果存入变量S中’' 答案：DimiAsIntegers=1Fori=1To10s=s*i*iNextPrint（CStr（s））' 〖第15 题〗：（事件）双击窗体。
'（响应）求1+5+10+15+……+500的和，并将结果输'出到窗体上。
将结果存入变量SUM中。
答案：DimiAsIntegerFori=1To500IfiMod5=0Thensum=sum+iEndIfNextPrintsum' 〖第16 题〗：（事件）单击窗体。
'（响应）编写程序求10X 11 X 12+11X 12X 13+…+15X 16X 17的结果，' 并将结果输出到窗体上。
'将结果存入变量M中' 答案：Dimi,jAsIntegerDimsAsLongFori=10To15s=1Forj=iToi+2s=s*jNextm=m+sNextPrint（CStr（m））' 〖第17 题〗：（事件）双击窗体。
'（响应）求出50以内所有奇数的和。
'将结果存入变量SUM中答案：DimiAsIntegerFori=1To50IfiMod2=1Thensum=sum+iEndIfNextPrintsum' 〖第18 题〗：用迭代法求某个数的平方根。
已知求平方根的迭代公式如图：'算法思想：对于一个问题的求解X,可由给定的一个初值x0,根据某-'迭代公式得到一个新的值X1,这个新值X1比初值X0更接近要求的值X；'再以新值作为初值，即：X1T X0,重新按原来的方法求x1,重复这一过和'直到|X1-XO|V_(某一给定的精度)。
此时可将X1作为问题的解。
' 答案：DimX0AsSingle,X1AsSingleXO=a/2' 迭代初值X1=O.5*(XO+a/XO)DoXO=X1' 为下一次迭代作准备X1=O.5*(XO+a/XO)LoopWhileAbs(X1-XO)>O.OOOO1Fsqrt=X1' 〖第19 题〗：( 事件) 单击窗体。
'(响应)求10〜20之间所有素数的乘积并输出在窗体上。
' 将结果存入变量L 中。
答案：DimiAsIntegerDimjAsIntegerDimbAsBooleanl=1b=FalseFori=10To20Forj=2Toi-2IfiModj=0Thenb=TrueEndIfNeXtIfb=FalseThenl=l*iEndIfb=FalseNeXtPrintStr(l)〖第20题〗：编写函数fun其功能是：能计算从1开始到n的' 自然数中偶数的平方的和，n 由键盘输入，'(n 是偶数)' 答案：DimsumAsInteger,iAsIntegersum=0Fori=2TonStep2sum=sum+i*iNeXtfun=sum'〖第21题〗：(事件)单击窗体。
'( 响应)求出1000-9999 之间具有如下特点的四位数字，' 它的平方根' 恰好就是它中间的两位数字，例如，2500 开' 平方为50，恰为2500 的中间两位，找出所有' 这样的四位数。
'并求出所有这样的数的和存入SUM中' 答案：DimiAsIntegerDimjAsIntegerFori=1000To9999j=Val(Mid(Trim(Str(i)),2,2))lfjA2=iThenPrinti,sum=sum+iEndlfNeXt'〖第22题〗：(事件)双击窗体。
'( 响应)求100以内奇数的和，并将结果输出在窗体上。
'将结果存入变量SUM中答案：DimiAslntegerFori=1To100lfiMod2=1Thensum=sum+iEndlfNeXtPrintsum〖第23 题〗：( 事件)单击窗体。
'(响应)在窗体上打印数列2/1,3/2,5/3,8/5,13/8 …' 的前10 项，并求其和。
' 答案：Dimi,j,k,mAsIntegers=0i=2j=1Fork=1To10m=jPrint(CStr(i))&"/"&CStr(j)j=ii=i+ms=s+i/jNext' 〖第24题〗：(事件)双击窗体。
'( 响应)写程序解决百钱买百鸡问题：公鸡3元1只，' 母鸡5 元1 只，小鸡一元3 只，怎样用100 元买'100 只鸡。
把结果输出到窗体上。
'将答案数存放在变量N中' 答案：Dimi,j,kAsIntegerFori=1To20' 母鸡Forj=1To33' 公鸡Fork=3To100' 小鸡If((kMod3)=0)And((i*5+j*3+k/3)=100)And((i+j+k)=100)ThenPrint(CStr(i))Print(CStr(j))Print(CStr(k))n=n+1EndIfNextNextNext' 〖第25题〗：( 事件)单击窗体。
'( 响应)一球从1 00米高度自由落下，每次落地返回' 原高度的一半，求第10 次落地时，共经过多' 少米？并将结果在窗体上输出。
' 答案：Dimj,iAsIntegers=0j=100Fori=2To10j=j/2s=s+2*jNexts=100+sPrint(CStr(s))' 〖第26题〗：(事件)单击窗体。