下载文档原格式
1. Visual Basic集成开发环境中不包括下列哪些窗口( )。
A、工具箱窗口B、工程资源管理器窗口C、属性窗口D、命令窗口参考答案是：D2. 在设计应用程序时，通过( )窗口可以查看到应用程序工程中的所有组成部分。
A、代码窗口B、窗体设计窗口C、属性窗口D、工程资源管理器窗口参考答案是：D3. 在正常安装Visual Basic6.0后，可以通过多种方式启动Visual Basic。
以下方式中不能启动Visual Basic的是：( )。
A、通过“开始”菜单中的“程序”命令B、通过“我的电脑”找到vb6.exe，双击该文件名C、通过“开始”菜单中的“运行”命令D、进入DOS方式，执行vb6.exe文件参考答案是：D4. Visual Basic 6.0工程文件的扩展名是( )。
A、.vbpB、.frmC、.basD、.cls参考答案是：A5. Visual Basic6.0是面向( )的程序设计语言。
A、过程B、工程C、事件D、对象参考答案是：D6. 下列关于Visual Basic编程特点的叙述中，错误的是( )。
A、Visual Basic 是采用事件驱动编程机制的语言B、构成Visual Basic 程序的多个过程没有固定的执行顺序C、Visual Basic 程序既可以编译运行，也可以解释运行D、Visual Basic 程序不是结构化程序，不具备结构化程序的3 种基本结构参考答案是：D7. Visual Basic 6.0集成开发环境有三种工作状态，不属于三种工作状态之一的是( )。
A、设计状态B、编写代码状态C、运行状态D、中断状态参考答案是：B8. 在Visual Basic 6.0中要获取上下文相关帮助，只需将光标定位在相应位置，再按( )A、F1B、F2C、F3D、F4参考答案是：A9. Visual Basic 6.0集成开发环境的主窗口中不包括( )。
A、标题栏B、菜单栏C、状态栏D、工具栏参考答案是：C10. 下列可以激活属性窗口的操作是( )。
VB程序设计习题集VB程序设计习题集目录1·简介1·1 什么是 VB 程序设计1·2 学习 VB 程序设计的重要性2·VB 程序设计基础2·1 VB 的开发环境2·2 VB 的基本语法2·3 变量与数据类型2·4 运算符2·5 控制流程2·5·1 条件语句2·5·2 循环语句3·VB 程序设计进阶3·1 函数与过程3·2 数组与集合3·3 字符串处理3·4 文件操作3·5 错误处理与调试4·VB 程序设计实践4·1 用户界面设计4·2 数据库操作4·3 网络通信4·4 图形处理4·5 多媒体应用5·附录5·1 示例代码5·2 常用工具5·3 参考资料1·简介1·1 什么是 VB 程序设计VB（Visual Basic）是一种基于事件驱动的编程语言，它可以轻松创建 Windows 应用程序和图形用户界面。
VB 程序设计是利用VB 语言进行软件开发的过程，它广泛应用于商业软件、数据库应用、游戏开发等领域。
1·2 学习 VB 程序设计的重要性学习 VB 程序设计能够帮助您掌握快速开发 Windows 应用程序的技能。
VB 是一种易学易用的编程语言，适合初学者入门，并具有良好的图形用户界面设计能力。
掌握 VB 程序设计不仅可以提高开发效率，还能够加强对计算机科学基础的理解。
2·VB 程序设计基础2·1 VB 的开发环境VB 有多个版本，建议使用最新的 Visual Studio 等集成开发环境进行开发。
Visual Studio 提供了丰富的工具和功能，使得 VB 程序的开发更加便捷和高效。
《VB程序设计》复习题一、选择题1.改变控件在窗体中的上下位置，应修改控件的__A_____属性A .Top B. Left C.Width D. Right2.将通用对话框类型，设置为字体对话框，可修改该控件的____D_____属性A. fontB. filenameC. filterD. action3.标签控件最重要的属性是__A______A. captionB. textC. nameD. width4.文本框中选定的内容，由下列____C_____属性反映。
A. TextB.CaptionC. SeltextD. sellenght5.选中复选框控件时，value属性的值，可以是_ D______A.trueB. falseC. 0D.16.设置列表框选中的文本用____D____属性A. selectedB. captionC. textD. list7.简单组合框的style值为____B_____A .0 B. 1 C. 2 D. 38.在文件列表框的实现文件的多重选择，应修改该控件的___D______属性A. filenameB. pattemC. pathD. multiselect9.语句listl.removeitem 1 将删除list.listindext等于___D______的项目。
A. 0B. 2C. 3D. 110.计时器的interval属性为0时，表示____A_____。
A. 计时器失效 C. 相隔0 毫秒B. 相隔0秒 D. 计时器的enable属性为false11.以下的vb 常量中非法的是(B)a. “Good Luck”b. PIc. 1.5E-03d. 16.341212.要想返回文本框中输入的内容则可利用其( B )属性进行编程a.captionb. textd. righttoleft13.下列不能用commondialog 控件调用的对话框是( D)a. open/saveb. helpc. fontd. search14.vb 应用程序是分层管理的,其最高的层次为( A)a. 工程b. 模块c. 窗体d. 过程15.vb 程序设计中的窗体在oop 中称为( C)a. 屏幕b. 事件c. 对象d. 控件16.欲使某命令按钮失效，应修改命令按钮的(D) 属性。
vb程序设计试题及答案(三)一、单选题1. 在VB中，用于声明变量的关键字是（）。
A. DimB. SubC. FunctionD. Const答案：A2. VB中，用于结束一个程序的运行的语句是（）。
A. EndB. ExitC. StopD. Quit答案：A3. VB中，用于实现循环的关键字是（）。
A. ForB. NextC. DoD. Loop答案：A4. 在VB中，以下哪个不是合法的变量名？（）A. _nameB. name$C. 123nameD. name答案：C5. VB中，用于定义一个数组的关键字是（）。
A. DimB. ReDimC. EraseD. New答案：A二、判断题1. VB中的所有变量都必须先声明后使用。
（）答案：错误2. VB中，If语句后面必须跟Then。
（）答案：正确3. VB中，可以同时声明多个变量。
（）答案：正确4. VB中，使用Mid$函数可以返回字符串中的任意字符。
（）答案：错误5. VB中，可以创建一个没有名称的过程。
（）答案：错误三、填空题1. 在VB中，使用________关键字可以定义一个过程。
答案：Sub 或 Function2. VB中，使用________函数可以获取当前日期。
答案：Date3. VB中，使用________函数可以获取当前时间。
答案：Time4. VB中，使用________函数可以将字符串转换为数字。
答案：Val5. VB中，使用________函数可以将数字转换为字符串。
答案：Str四、简答题1. 请简述VB中事件驱动编程的概念。
答案：事件驱动编程是一种编程范式，程序的执行流程由外部事件（如用户操作、系统消息等）触发，而不是按照预先定义的顺序执行。
2. VB中如何实现一个简单的计算器？答案：可以通过创建一个窗体，添加两个文本框用于输入数字，添加一个按钮用于触发计算事件，再添加一个文本框用于显示结果。
在按钮的点击事件中编写代码实现加、减、乘、除等基本运算。
一、填空1、VB集成环境的工作状态主要有三种不同的模式_ ____,___ ___和__ ____。
2 创建一个新的工程可以用"文件"菜单中的__ ____命令或_ _____命令。
3 在面向对象程序设计中，__ ____是基本构成单元，并从相同类型的对象中抽出分类，对象只是类的实例。
4 面向对象程序设计中的__ ___是对一类对象进行分析.概括，得到一类对象的公共性质，并加以描述的过程。
5 __ ____是把相关的数据和代码结合成一个有机的整体，形成数据和操作代码的封装体，对外只提供一个可以控制的接口，内容大部分的实现细节对外隐蔽。
6 __ __描述了类之间的关系，这种关系使得一类可以继续另一类的属性和行为，从而，提供了通过现有的类创建新类的方法，也提高了软件复用的程度。
7函数Str$(256.36)的值是8逻辑型（布尔型）数据其值只有和两种。
9Mid(“什么是ASCII编码”,5,6)的结果。
10在VB中123456&，,1.2346E+5，1.2346D+5这3个常数分别表示，，类型。
11 VB的数组常见有三种类型：定长数组、变长数组和＿＿＿。
12 根据是否有返回值可将VB中的过程分为两类和。
13 处理窗体事件的过程是。
14 操作控件时会产生相应的控件事件，处理该事件的过程是。
15 可以用提前结束过程，并返回到调用该过程语句的下一条语句。
16 参数定义时若有限定词ByV al，则参数传递。
17 定义时没有修饰词或带关键字ByRef，则参数传递。
18 形参数组只能按地址传递参数，对应的实参也必须是。
19 过程的是指在一个函数中直接或间接地调用自己。
20 在vb中设置大部分属性的方法有两种，这两种方法是和。
21 caption属性用来设置控件对象的。
22 菜单分为和菜单，设计菜单需要在中设计。
23 数据项由若干个组成，用来表示一项数据，即一个对象的某个属性。
24 记录是文件中存取的，由一组相关的数据项组成，用来描述一个对象，相当于登记表表格中的一行。
《算法与程序设计》复习题一、选择题部分(100题)一章一节：了解计算机解决问题的过程1．用计算机解决问题时，首先应该确定程序“做什么？”，然后再确定程序“如何做？”请问“如何做？”是属于用计算机解决问题的哪一个步骤？（）A、分析问题B、设计算法C、编写程序D、调试程序答案：B2.学校要举行运动会，请你设计一个能够对运动员分数自动排序的软件，如果要设计此软件，以下最好的方法和步骤是（）。
A、分析问题，编写程序，设计算法，调试程序B、设计算法，编写程序，提出问题，调试程序C、提出问题，设计算法，编写程序，调试程序D、设计算法，提出问题，编写程序，调试程序答案：C3．下列步骤不属于软件开发过程的是（）。
A、任务分析与系统设计B、软件的销售C、代码编写与测试D、软件测试与维护答案：B4．用计算机解决问题的步骤一般为（）①编写程序②设计算法③分析问题④调试程序。
A．①②③④ B．③④①② C．②③①④ D．③②①④答案：D5．以下描述中最适合用计算机编程来处理的是（）。
A、确定放学回家的路线B、计算某个同学期中考试各科成绩总分C、计算100以内的奇数平方和D、在因特网上查找自己喜欢的歌曲答案：C6．以下问题中最适合用计算机编程处理的是（）。
A、制定本学期的学习计划B、计算正方形的周长C、创作一首歌曲D、求1000以内的所有素数答案：D7．由“上车—掏钱—投币”所描述的问题是（）。
A、无人售票车投币过程B、乘公交车过程C、上车过程D、下车过程答案：A一章二节：算法和算法描述8．下面说法正确的是（）。
A、算法+数据结构=程序B、算法就是程序C、数据结构就是程序D、算法包括数据结构答案：A9．算法描述可以有多种表达方法，下面哪些方法不可以描述“水仙花数问题”的算法（）。
A.自然语言B.流程图C.伪代码D.机器语言答案：D10．下面关于算法的说法错误的是（）。
A、算法必须有输出B、算法就是程序C、算法不一定有输入D、算法必须在有限步执行后能结束答案：B11.算法的三种基本控制结构是顺序结构、分支结构和（）。
程序设计第一题、题目：（事件）单击窗体（响应）求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的值。
ＶB程序设计一、判断题1．同一Ｆoｒm窗体中的各控件能够相互重叠，其显示的上下层次的次序不能够调整。
（X ）ﻫ2．一个对象的若能识别多个事件,我们只能对其中一个事件编程( )ﻫ3．单项选择按钮与复选框对象的Vａlｕe属性类型不一样，且只能取值Ｔrｕｅ和Falｓe。
（√ )4. 事件过程由某个用户事件或系统事件触发执行,它不能被其他过程调用。
( )5． 图片框的Move措施不但能够移动图片框,并且还能够变化该图片框的大小，同时也会变化该图片框有关属性的值。
( √ )6. “A=B=C”是一个合法的Vｉsual Bａsic语句。
( )７. 当在一个简单组合框的文本框中输入一个它的列表框中没有的条目时，组合框会自动把这一条目添加到它的列表框中。
（ )ﻫ8. Visｕal Bａsｉｃ程序的运行能够从 Ｍａiｎ（）过程开启,也能够从某个窗体开启。
( √ ）ﻫ９. 在图片框中放置的控件既能够在该图片框内移动,也能够移出该图片框外。
( ）１0. 对于文献系统控件，当驱动器控件Drivｅl中的驱动器符变化时，文献夹列表控件Dir1中显示的文献夹也作对应的变化,能够在Dｒive1中的Cｈange事件中使用如下命令。
Dｉｒ1. Path＝ Drivｅ1．Ｄrｉve( √）11. 滚动条控件可作为用户输入数据的一个措施。
（ √）ﻫ１２．单项选择按钮控件和复选框控件都具备Vaｌuｅ属性，它们的作用完全相同。
( ）ﻫ13. 静态变量是一个局部变量，当原过程再次被执行时，静态变量的初值是上一次过程调用后的值。
( √ )ﻫ14． Vｉsual Basｉｃ提供的几个标准坐标系统的原点都是在绘图区域的左上角，假如要把坐标原点放在其他位置，则需使用自定义坐标系统。
（√ ）ﻫ15．注释语句ＲＥM可自成一语句。
( √ )ﻫ１6．用鼠标选中某菜单控件时，触发Clｉcｋ事件；而用键盘选中该菜单控件时，触发 KeyPress（ ）17．组合框兼有文本框和列表框二者的功效,用户能够通过键人文本或选择列表中的项目来进行选择。
《VB程序设计》综合复习资料第一章Visual Basic程序设计概述一、填空题1、Visual Basic是一种面向___对象_______的可视化程序设计语言，采取了____事件驱动______的编程机制。
2、在VB中工程文件的扩展名是___vbp_________，窗体文件的扩展名是_____frm_______，标准模块文件的扩展名是_____bas_______。
3、执行“工程”菜单下的____部件______命令，可选择并添加ActiveX控件。
控件。
4、Visual Basic 6.0用于开发___windows______环境下的应用程序。
环境下的应用程序。
二、选择题1、下面不是VB工作模式的是（C ）A．设计模式．汇编模式 D．中断模式．中断模式．运行模式 C．汇编模式．设计模式 B．运行模式2、可视化编程的最大优点是（C ）A．具有标准工具箱．具有标准工具箱B．一个工程文件由若干个窗体文件组成．一个工程文件由若干个窗体文件组成C．不需要编写大量代码来描述图形对象．不需要编写大量代码来描述图形对象D．所见即所得．所见即所得3、下列不能打开属性窗口的操作是（C ）A．执行“视图”菜单中的“属性窗口”命令．执行“视图”菜单中的“属性窗口”命令B．按F4键C．按Ctrl+T D．单击工具栏上的“属性窗口”按钮．单击工具栏上的“属性窗口”按钮4、下列可以打开立即窗口的操作是（D ）A．Ctrl+D B．Ctrl+E C．Ctrl+F D．Ctrl+G 5、Visual Basic的编程机制是（D ）A．可视化．面向图形 D．事件驱动．事件驱动．面向对象 C．面向图形．可视化 B．面向对象三、简答题1、代码窗口主要包括哪几部分？2、在工程资源管理器窗口中，主要列出了哪三类文件？3、窗体布局窗口的主要用途是什么？4、VB的基本特点是什么？5、怎样理解可视化设计？6、怎要理解事件驱动编程？、怎要理解事件驱动编程？第二章简单的VB程序设计一、填空题1、设置是否可以用Tab键来选取命令按钮，应该用___tabstop___________属性。
VB程序设计笔试题题库一、选择题1 以下常量中，是 Integer种类常量的是（C ）。
A、123&B、-38844C、123%D、327682 下边选项中 () 是字符连结运算符 . （ A ）A、&B、AndC、%D、Mod3下边关于 VB 的集成开发环境（ IDE ）的叙述中，不正确的是（B ）。
A、IDE是设计、调试、运转 VB程序的工具。
B、用户不可以任意封闭 IDE中的窗口。
C、" 窗体设计 " 窗口是用来设计应用程序界面（窗体）的。
D、翻开 / 封闭各窗口的命令主要在 IDE的" 视图 " 菜单中。
4 len( “程vb序设计”)=( C ) 。
A、 5B、2C、 6D、105 表达式 15 Mod 4 + 13 \ 5 * 2 的值是 DA、7B、0C、2D、46 赋值语句 A=123 + Mid$( “123456”,3,2)履行后， A= （ A ）。
A、157B、12334C、123D、"12334"7 在一个语句内写多条语句时 , 用来分开每条语句的符号是 ( C ).A、,B、;C、:D、、8 将逻辑型数据变换成整型数据时，变换规则是（ D ）。
A、将 True 变换为 1 ，将 False 变换为 0B、将 True 变换为 1 ，将 False 变换为 -1C、将 True 变换为 0 ，将 False 变换为 -1D、将 True 变换为 -1 ，将 False 变换为 09 表达式 2+3*4^5-SIN(X+1)/2 中最初进行的运算是 ( D ).A、SINB、4^5C、3*4D、x+110 假如 x=2 ，则表达式And 3>x+3 的值（ B ）。
A、不可以计算B、 TrueC、5D、False11 随机产生 [10，50] 之间整数的正确表达式是（ D ）。
A、Round( Rnd*50)B、 Int(Rnd*40+10)C、Round( Rnd*51)D、 10+Int(Rnd*41)12 每成立一个窗体 , 工程管理器窗口中就会增添一个 ( C ).A、类模块文件B、工程文件C、窗体文件D、程序模块文件13 INT(100*RND(1)) 产生的随机整数的闭区间是 ( B ).A、[1,100]B、[0,99]C、[0,100]D、[1,99]14以下数据种类中 , 占用内存最小的是 ( D ). A、IntegerB、SingleC、BooleanD、Byte15 VisualBasic是一种( B ) 程序设计语言 .A、过程式B、非过程式C、机器D、初级16函数 Int(10*Rnd) 是在 ( A ) 范围内的整数 . A、[0,9]B、[0,1]C、[1,9]D、[1,10]17 以下合法的一组 Visual Basic 用户表记符是（ C ）A、Sum 和 8abcB、a#x 和 PiC、ForLoop 和 TotalD、Const 和 DoWhile18 函数 Len(Str(Val("123.4"))) 的值为 ( B ).A、5B、6C、8D、1119 Int(198.555*100+0.5)/100 的值为（ B ）A、B、C、200D、19820以下各表达式中 , 计算结果为 0的是 ( A ). A、FIX(12.4)+FIX(-12.6)B、CINT(12.4)+CINT(-12.6)C、INT(12.4)+INT(-12.6)D、FIX(13.6)+FIX(-12.6)21 MsgBox() 的正确语法是（D）。
V B程序设计题库(全)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/3—1/4+….+1/99—1/100的值。
将结果存入变量J中代码：Dim j As SingleDim i As Singlej=0For i = 1 To 100k=(-1)^(i+1)/i j=k+jNext iPrint j第九题题目：（事件）双击窗体（响应）s=20+21+22+…+263,求s的值，并将结果存储到变量S中。
代码：Dim s As Longs=20For s= 21 To 263b=s+1Sum=Sum+bNextPrint Sum第十题题目：（事件）单击窗体（响应）求出100以内所有素数的和，并将结果输出到窗体上，并存入所给变量SUM中代码：Dim sum As IntegerFor i = 1 To 100For j = 2 To i - 1Exit ForNext jNext iIf i Mod j = 0 ThenEnd IfIf j - i Thensum = sum + iEnd IfPrint sum第十二题题目：（事件）单击窗体（响应）求10~20之间所有素数的乘积并输出在窗体上。
将结果存入变量L中代码：Dim l As Longl=1For i=10 To 20For j=2 To i-1If i Mod j = 0 ThenExit ForEnd IfNext jIf j = i Thenl=l*iEnd IfNext iPrint lNextPrint s第十五题题目：（事件）单击窗体（响应）求200~300之间既能被3整除又能被7整除的数。
并求出所有数之和存入变量SUM中。
代码：Dim sum As Integersum = 0For i = 200 To 300If i Mod 3 = 0 And i Mod 7 = 0 Then sum = sum +iEnd IfNextPrint sum第十七题题目：（事件）双击窗体（响应）求1!+2!+3!+4!+5!并将结果输出到窗体上。
结果存入变量S中代码：Dim s As Integers = 0t = 1For i = 1 To 5t = i*tSum = sum + tNextPrint Sum第十八题题目：（事件）双击窗体（响应）求3+6+9+12+15+18+…..+300的和，并将结果输出到窗体上。
将结果存入变量SUM中代码：Dim sum As Integersum = 0For i = 3 To 300 Step 3sum= sum +iNext iPrint sum第十九题题目：（事件）单击窗体（响应）求10!的值，并将结果输出在窗体上。
将结果存入变量SUM中代码：Dim sum As LongDim i As Integersum = 1For i = 1 To 10sum = i*sumNextPrint sum第二十二题题目：（事件）单击窗体（响应）已知S=1+1/4+1/9+1/16+1/25+…+1/100，结果输出在窗体上。
将结果存入变量S中代码：Dim i As Integers=0For i = 1 To 10s = s + 1/(i^i)NextPrint(s)第二十三题题目：（事件）单击窗体（响应）在窗体上打印数列2/1,3/2,5/3,8/5,13/8…..的前10项，并求其和。
代码：Dim i ,j,k,m As Integers=0i=2j=1For k = 1 To 10m = jPrint （CStr(i)）& “/” & CStr(j)j = ii=i+ms=s+i/jNext第二十四题题目：（事件）单击窗体（响应）一球从100米高度自由落下，每次落地返回。
原高度的一半，求第10次落地时，共经过多少米？并将结果在窗体上输出。
代码：Dim j,i As Integers=0j=100For i = 2 To 10j=j / 2s=s+2*jNexts=100+sPrint(CStr(s))第二十七题题目：（事件）单击窗体。
（响应）求出1000-9999之间具有如下特点的四位数字，它的平方根恰好就是它中间的两位数字，例如，2500开平方为50，恰为2500的中间两位，找出所有这样的四位数。
并求出所有这样的数的和存入SUM中。
代码：Dim i As IntegerDim j As IntegerFor i = 1000 To 9999j= Val(Mid(Trim( Str(i)), 2, 2))If j ^ 2 = i ThenPrint i,sum = sum + iEnd IfNext第二十八题题目：（事件）双击窗体（响应）把一元钞票换成一分、二分、和五分的硬币（每种至少有一枚），求出其所有的换法，把结果输出在窗体上。
将所有的换法的数目存入变量N中代码：Dim i, j,k As IntegerFor i = 1 To 100For j = 1 To 50For k = 1 To 20If ((i+2*j +k*5)=100) ThenPrint (CStr(i))Print (CStr(j))Print (CStr(k))n=n+1End IfNextNextNext 第三十一题题目：（事件）单击窗体。
（响应）生成一个一维数组（10个数组元素依次为：15、23、72、43、96、23、3、65、88、17），写程序求出这个数组中的最大值、最小值和平均值，并输出在窗体上。
将最大值，最小值，平均值分别存入变量Max,Min,Aver中。
Dim aDim i, s As Integera = array(15,23,72,43,96,23,3,65,88,17)Max = a(0)Min = a(0)s = 0For i = 0 to 90If a(i)>max Thenmax = a(i)End IfIf a(i)<min Thenmin = a(i)End Ifs = s + a(i)Nextaver = Int(s/10)Print (CStr(max))Print (CStr(min))Print (CStr(aver))第三十二题题目：（事件）单击窗体。
（响应）在窗体上输出100~200之间的所有合数。
求出所有数之和存入SUM 中。
代码：Dim i,j,s As IntegerFor i = 100 To 200For j = 2 To Sqr(i)If (i Mod j) = 0 ThenPrint(CStr(i))sum = sum + iExit ForEnd IfNextNextPrint sum第三十八题题目：（事件）：单击窗体。
（响应）：求1-1/2+1/3-1/4+…+1/99-1/100的值。
将结果存入变量J中。
代码：Dim i As IntegerFor i = 1 To 100NextIf i Mod 2 = 1 Thenj = j + 1 / iElseEnd IfIf i Mod 2 = 0 Thenj = j - 1 / iEnd IfPrint j第三十九题题目：（事件）：单击窗体。
（响应）：求1+2+3+4+…+100的值，并把结果输出在窗体上。
结果存入变量SUM中。
代码：Dim i As IntegerFor i = 1 To 100Sum = Sum + iNextPrint Sum第四十题题目：（事件）：双击窗体。
（响应）：求1+2+3+5+8+13+….的前20项和，并将结果在窗体上输出。
将结果存入变量SUM中。
代码：Dim i As IntegerDim j(1 To 20) As IntegerFor i = 1 To 20If i < 3 Thenj(i) = 1Elsej(i) = j(i - 1) + j(i - 2)End IfSum = Sum + j(i)NextPrint Sum第四十三题题目：（事件）：双击窗体。
（响应）：求1+5+10+15+…+500的和，并将结果输出在窗体上。
将结果存入变量SUM中。
代码：Dim i As IntegerFor i = 1 To 500If i Mod 5 = 0 ThenSum = Sum + iEnd IfNextPrint Sum第四十六题题目：（事件）：单击窗体。
（响应）：求数列1+3+3+9+27+…前6项的和，并将结果输出在窗体上。
将结果存入变量SUM中。
代码：Dim i As IntegerDim j(1 To 6) As IntegerFor i = 1 To 6If i < 3 Thenj(i) = 3 ^ (i - 1)Elsej(i) = j(i - 1) * (i - 2)End IfSum = Sum + j(i)NextPrint Sum。
