VB重点复习
VB知识点复习
一、关于VB1、Visual Basic语言是一种面向对象的程序设计语言。
2、强制变量声明：工具-选项-编辑器-选中要求变量声明，语句是Option Explicit。
3、代码书写规则：可以用续行符（一个空格后跟一个下划线“ _”）将一个语句分为多行来写；可将多个语句合并写到同一行，用“：”隔开；可以添加注释，“’”或Rem后的语句。
二、变量1、标识符命名原则之一：以字母开头，以数字、字母、下划线或“＄”结尾。
2、基本数据类型：字符型：用””括起来；声明固定长度的字符串，String * size。
字节型：一个字母占一个字节，一个汉字占两个字节。
日期型：用##括起来；声明语句，#月/日/年#、#年-月-日#变体型：具有三个特殊的值，Empty、Null、ErrorEmpty:变体型数据的默认值，不同于0、零长度字符串和Null，可用IsEmpty函数测试。
Null：未知或丢失的数据，Null值只能赋给变体数据，表达式中含有Null，则结果为Null。
Error：用来标识已经发生过的过程中的错误状态。
3、变量命名原则：只能由字母、汉字、数字及下划线组成，必须以字母或汉字开头4、变量作用域5、变量生命周期动态变量：变量所在过程开始至该过程结束，值不保留。
静态变量：变量所在过程开始至程序运行结束，值保留。
全局变量：程序开始至整个应用程序结束。
6、赋值原则：赋值号左边不能是表达式或者常量三、运算符1、优先级：算术运算符——连接运算符——关系运算符——逻辑运算符算术运算符：指数^ > 乘法* > 除法/ > 求余Mod > 整除\ > 加法+ > 减法-逻辑运算符：逻辑非Not>逻辑与And >逻辑或Or > 逻辑异或Xor > 逻辑等Eqv >逻辑蕴含Imp 2、关系运算符：也叫比较运算符。
若直接比较两个单个字符，则比较字符的ASCII码值的大小；若比较两个汉字字符，则比较两个汉字字符的区位码。
vb复习资料
vb复习资料VB复习资料近年来，计算机技术的快速发展使得编程成为了一项重要的技能。
而在编程学习的过程中，VB（Visual Basic）作为一种易学易用的编程语言，备受广大初学者的喜爱。
为了帮助大家更好地复习VB知识，本文将提供一些实用的复习资料和学习方法。
一、VB的基础知识在学习VB之前，我们首先需要了解一些基础知识。
VB是一种基于事件驱动的编程语言，它具有图形化的开发环境，使得编写程序变得更加直观和简单。
因此，我们需要掌握VB的基本语法、变量和数据类型、运算符、控制结构等内容。
可以通过阅读相关的教材或者参考资料来深入了解这些知识点。
二、VB的常用控件和功能VB作为一种用于开发Windows应用程序的语言，拥有丰富的控件和功能。
掌握这些常用的控件和功能对于开发实用的应用程序至关重要。
例如，文本框、标签、按钮、列表框、下拉框等控件的使用；对话框、文件操作、数据库连接、图形绘制等功能的实现。
可以通过编写小型的实例程序来熟悉这些控件和功能的使用方法。
三、VB的面向对象编程面向对象编程（OOP）是现代编程语言中的重要概念之一，也是VB编程的核心。
在VB中，我们可以使用类、对象、继承、封装等OOP的特性来实现更加灵活和可维护的代码。
因此，我们需要了解类的定义和使用、对象的创建和调用、继承和多态等概念。
可以通过编写简单的类和对象来加深对这些概念的理解。
四、VB的调试和错误处理在编程过程中，调试和错误处理是必不可少的环节。
VB提供了丰富的调试工具和错误处理机制，帮助我们快速定位和解决问题。
例如，可以使用断点来逐行调试程序，查看变量的值和执行流程；可以使用异常处理来捕获和处理程序运行中的异常。
熟练掌握这些调试和错误处理的技巧，可以提高程序的质量和效率。
五、VB的实践和项目开发学习VB不仅仅是为了掌握语法和知识，更重要的是能够应用到实际项目中。
因此，我们需要进行一些实践和项目开发。
可以选择一些简单的项目，例如制作一个学生管理系统、一个简单的游戏或者一个界面友好的计算器等。
(完整版)VB知识点整理
通用属性：修改对象的前景颜色：ForeColor属性。
修改对象的背景颜色：BackColor属性。
对象的标题或内容：Caption属性。
对象是否需要三维立体的外观：Appearance属性。
对象是否自动对齐到它所在容器的边缘：Align属性。
对象是水平放置还是垂直放置：Orientation属性。
0为水平，1为垂直。
对象在它所在容器内的位置和大小：Left,Top,Width,Height属性。
对象内部坐标系统的左上角位置和内部大小:ScaleLeft,ScaleTop,ScaleWidth,ScaleHeight属性。
当鼠标在对象上时显示的不同形状：MousePointer属性。
当鼠标在对象上时显示的提示文字：TooltipText属性。
在对象外部是否包围有1个边框：BorderStyle属性。
对象边框的颜色：BorderColor属性。
改变对象上文字成不同字体：Font属性。
可分别开来：①是否要粗体：FontBold属性；②是否要斜体：FontItalic属性；③设置字体名称：FontName属性。
④设置字号大小：FontSize属性。
⑤是否要加删除线：FontStrikethru属性。
⑥是否要加下划线：FontUnderline属性。
由用户自定义的1个对象标记：Tag属性。
设置1个对象是否可自动拖放操作，同时不响应对象事件：DragMode属性。
对象在拖放过程中显示的图标：DragIcon属性。
当对象中内容很多，对象大小不够时，是否自动扩大对象的尺寸以完全显示对象的内容：AutoSize属性。
对象是否在界面中可见：Visible属性。
对象是否有效：Enabled属性。
当对象是对象数组时，确定对象的下标：Index属性。
对象是否可通过TAB键转移获得焦点：TabStop属性。
用TAB键转移焦点时本对象所处的顺序位置：TabIndex属性。
如果对象可设置为不同样式，选择各种样式：Style属性。
VB复习要点
VB复习要点1．1 知识要点1．VB的特点、安装和启动了解VB面向对象、可视化、事件驱动的特点。
2．VB集成开发环境初学者主要掌握菜单栏、工具栏、工具箱窗口、属性窗口、代码窗口、工程资源管理器窗口的使用。
3．VB对象的概念，对象的属性、方法和事件三要素4．创建VB应用程序的过程5．掌握窗体、标签、文本框、命令按钮控件的常用属性、方法和事件的使用6．VB应用程序的构成和管理VB应用程序的组成：一个.vbp工程文件、一个(或多个)．frm窗体文件、.exe 可执行文件。
掌握在完成一个应用程序的创建、编辑、调试后，保存时不要遗漏了某个文件；掌握在工程中添加或删除窗体的方法；区分窗体名称和窗体文件名。
1．2 常见错误和难点分析1．标点符号错误在VB中只允许使用西文标点，任何中文标点符号在程序编译时产生"无效字符"错误，统在该行以红色字显示。
用户在进入VB后不要使用中文标点符号。
中、西文状态下标点号对照见下表所示。
中、西状态下标点符号对照2．字母和数字形状相似L的小写字母"1"和数字"l"形式几乎相同、O的小写字母"。
"与数字"0"也难以区，这在输入代码时要十分注意，避免单独作为变量名使用。
3．对象名称(Name)属性写错在窗体上创建的每个控件都有默认的名称，用于在程序中唯一地标识该控件对象。
系统为每个创建的对象提供了默认的对象名，例如，Text1、Text2、Command1、Label1等。
用户可以将属性窗口的(名称)属性改为自己所指定的可读性好的名称，如txtInput、txtOutput、 cmdOk等。
对初学者，由于程序较简单、控件对象使用较少，还是用默认的控件名较方便。
4．Name属性和Caption属性混淆Name属性的值用于在程序中唯一地标识该控件对象，在窗体上不可见；而Caption属性的值是在窗体上显示的内容。
vb程序设计复习资料
vb程序设计复习资料VB程序设计复习资料VB（Visual Basic）是一种广泛应用于软件开发的编程语言，它的简单易学和强大的功能使得它成为了很多开发者的首选。
无论是初学者还是有一定编程经验的人，都需要不断复习和巩固自己的知识。
本文将为大家提供一些VB程序设计的复习资料，希望能够帮助大家更好地掌握这门语言。
一、VB语言基础在进行VB程序设计之前，我们首先需要了解VB语言的基础知识。
VB是一种基于事件驱动的编程语言，它的语法结构和其他编程语言有一些不同之处。
在复习VB语言基础时，我们可以从以下几个方面入手：1. 数据类型：VB中有许多不同的数据类型，包括整型、浮点型、字符串型等。
了解各种数据类型的特点和使用方法是非常重要的。
2. 变量和常量：在VB中，我们可以通过声明变量来存储数据，并通过赋值来改变变量的值。
同时，我们也可以使用常量来存储不可改变的值。
3. 运算符：VB中的运算符和其他编程语言类似，包括算术运算符、关系运算符、逻辑运算符等。
熟悉运算符的使用方法可以帮助我们更好地进行程序设计。
4. 控制语句：控制语句是编程中非常重要的一部分，它可以帮助我们控制程序的执行流程。
在VB中，我们可以使用条件语句（如if语句和select语句）和循环语句（如for循环和while循环）来实现程序的控制。
二、VB窗体设计VB的窗体设计是其独特之处之一，通过窗体设计，我们可以创建出具有交互性的界面。
在复习VB窗体设计时，我们可以从以下几个方面入手：1. 窗体属性：了解窗体的各种属性和方法，可以帮助我们更好地控制窗体的外观和行为。
例如，我们可以通过设置窗体的标题、大小和位置来使其符合我们的需求。
2. 控件使用：VB中有许多不同的控件，包括按钮、文本框、标签等。
了解这些控件的使用方法和属性，可以帮助我们创建出更加丰富多样的界面。
3. 事件处理：在VB中，我们可以通过编写事件处理程序来响应用户的操作。
了解各种事件的触发条件和编写方法，可以帮助我们实现更加灵活和交互性的界面。
vb知识点总结
vb知识点总结VB（Visual Basic）是一种广泛应用于软件应用开发的编程语言，它具有简单易学、功能强大和灵活的特点。
本文将总结一些VB的知识点，从基础概念到高级应用，帮助读者更好地理解和运用VB。
1. VB的基础概念VB是一种基于事件驱动的编程语言，它的核心思想是根据用户的操作（如点击按钮、输入文本等），来触发相应的事件处理程序。
在VB中，开发者可以通过编写代码，来定义和控制这些事件的响应行为。
此外，VB还支持对象导向编程（OOP），开发者可以使用类、对象等概念来组织和管理程序。
2. VB的开发环境VB的开发环境提供了直观、友好的界面，使得开发者可以方便地创建、编辑和调试代码。
在VB的开发环境中，开发者可以通过拖放控件的方式来设计用户界面，例如窗体、按钮、文本框等。
同时，开发者可以在代码编辑器中编写事件处理程序，实现自定义功能。
3. VB的数据类型与变量在VB中，数据类型是用来定义变量和常量的数据类型。
常见的数据类型包括整型、浮点型、字符串型等。
开发者可以根据需要选择合适的数据类型，并使用变量来存储和操作数据。
VB还支持变量的声明和初始化，开发者可以通过赋值语句来初始化变量的值。
4. VB的控件与事件VB提供了丰富的控件库，包括文本框、按钮、列表框等。
开发者可以通过操作这些控件，实现用户界面和功能的设计。
每个控件都有一些内置的事件，例如按钮的点击事件、文本框的文本变化事件等。
开发者可以通过编写事件处理程序，来响应这些事件，实现相应的功能。
5. VB的函数与过程函数和过程是VB中组织和管理代码的重要方式。
函数是具有返回值的代码块，可以接受输入参数并返回结果；而过程则是不返回值的代码块，仅执行一系列操作。
开发者可以自定义和调用函数或过程，使得代码更加模块化和可复用。
6. VB的条件和循环结构条件和循环结构是控制程序执行流程的重要手段。
VB提供了if语句、select语句等条件结构，可以根据不同的条件执行不同的代码块。
VB 考点整理,期末复习
程序设计：1.题目：（事件）双击窗体（响应）求1+5+10+15+……+500的和，并将结果输出到窗体上。
将结果存入到SUM中Private Sub Form_dblClick()Dim sum As Longsum = 1'**************Begin************For i = 5 To 500 Step 5sum = sum + iNext iPrint sum'**************end************TestFunc (sum)End Sub2.题目：求两个数m，n的最大公约数p和最小公倍数q注意：在指定的事件内编写代码。
Private Sub Form_Load()ShowDim p, q As IntegerDim m, n, As IntegerDim t, r As Integerm = 21n = 28'**************Begin************If m <n Then t = m: m= n: n = tDor = m Mod nIf r = 0 Then Exit Dom = nn = rLoopp = nq = 28 * 21 / p'**************end************Print "最大公约数=", pPrint "最小公倍数=", qtestfunc p, qEnd Sub3.题目：（事件）单击窗体（响应）我国现有人口13亿，设年增长率为1%，计算多少年后增加到20亿。
并将结果输出在窗体上，将结果存入变量year中。
使用do while……loop语句完成程序。
Private Sub Form_dbClick()Dim year As Integer'**************Begin************n = 13Do While n < 20n = n * 1.01year = year + 1LoopPrint year'**************end************4.题目：以下程序段用于求∑n！Private Sub Form_Click()Dim sum As Long, n As Longn = InputBox("请输入一个正整数")sum = 0For i = 1 To nsum = sum + mul(i)Next iPrint sumEnd SubPrivate Function mul(ByVal x As Long)Dim s As Long, i As Longs = 1For i = 1 To xs = s * iNext imul = sEnd Function5.题目：（事件）双击窗体。
VB复习资料
VB复习资料1.重要的部分1）排序：选择法（重要），冒泡法排序法包括数的排序和数组的排序：排序x,y,z大小Dim t%If x > y Thent = x: x = y: y = tEnd IfIf y > z Thent = y: y = z: z = tIf x > y Thent = x: x = y: y = tEnd IfEnd IfPrint x,y,z数组的排序参考书上例5.8冒泡法程序参考例5.92）选择与循环（与数组的综合利用）比较重要的循环语句有：For next 循环及其嵌套。
注意：嵌套的内外循环变量不能相同！Do loop 循环。
3）菜单的编辑菜单编辑很简单，但是必考！看看书就OK了！4）取特定的字符：Mid 函数mod 函数（重要）Mid函数指在指定字符串中，特定位置开始，向右截取指定长度的字符，其格式为：Mid(“abcdefghijk”,4,3),其结果为“def”假设需要将text1中的字符一个一个的取出，其代码为：Dim a() as stringn=len(text1.text) 计算text1中的字符长度For i=1 to na(i)=mid(text1,i,1) 每个字符都放在对应的a()数组中next imod函数指取两个数相除的余数。
例如8 mod 3=2mod函数可以用于将数字的各个位数分离，例如，将256的各个位数分离，代码为：n1=256 mod 10 取个位n2=fix(256/10) mod 10 取十位或者n2=(256\10) mod 10n3=256\100 取百位其中，“\”表示整除，取其商的整数部分。
5）Timer 事件，静态声明（static）Timer控件的最主要属性是Interval。
同时，timer_time事件有循环功能，在其中写循环语句时，其变量声明一般采取static关键字，令其成为静态变量。
例如，在画同心圆时，有以下代码：Private Sub Timer1_Timer()Static II = I + 1r = 20 * IDrawWidth = IForm1.Circle (0, 0), r, QBColor(Int(Rnd * 16))If I > 10 ThenForm1.Cls: I = 0End IfEnd Sub6）随机数的产生(randomize) （重要）随机数的产生通过随机数函数，rnd函数，而我们一般在其前面加上取整数函数Int函数，所以，随机数函数的格式为：n=int(rnd*101+20) 表示在20到120之间随机产生一个数。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
VB重点一、选择题（30×1.5′=45′）1.在VB程序设计中，响应对象的外部动作称为事件，而对象可以执行的动作或对象本身的行为则称为方法。
2.在VB6.0集成开发环境中不能完成的工作是自动查找并改正程序中的错误。
3.VB6.0集成开发环境不包括DOS界面窗口。
4.当运行程序时，系统自动执行启动窗体的Load事件过程。
5.下面关于对象的描述中，对象就是自定义结构变量是错误的。
6.如果在窗体上已经创建了一个文本框对象Text1，可以通过事件KeyPress 获得输入键值的ASCII码。
7.VB是一种基于对象的可视化程序设计语言，采取了事件驱动的编程机制。
8.在VB中最基本的对象是窗体，它是一块“画布”，是其他控件的容器。
9.有程序代码如下：Text1.Text=”Text1text”则Text1、Text、Text1text分别代表对象、属性、值。
10.要使标签控件显示时不覆盖其背景内容，需对其BackStyle属性进行设置。
11.要使命令按钮不可操作，需对其Enabled属性进行设置。
12.文本框没有Caption属性。
13.不论何种控件，共同具有的是Name属性。
14.要使Form1窗体的标题栏显示“欢迎使用VB”，下列语句中Form1.Caption=”欢迎使用VB”是正确的。
15.要使窗体在进行时不可改变大小和没有最大化和最小化按钮，只要对其BorderStyle属性进行设置即可。
15.文本框的ScrollBars属性设置了非零值，却没有效果，原因是文本框的MultiLine属性为False。
15.要判断在文本框中是否按下了Enter键，应使用文本框的KeyPress事件。
16.保存新建的工程时，默认的路径是Windows。
17.将调试通过的工程经“文件”菜单中的“生成exe文件”命令编译成.exe文件后，该可执行文件到其他机器上不能进行的主要原因是运行的机器上无VB系统。
18.在安装了VB帮助系统后，当需要上下文帮助时，选择要帮助的“难题”，然后按F1键，就可出现MSDN窗口及显示所需“难题”的帮助信息。
19.要存放某人的年龄，下面的数据类型中Byte占用的字节数最小。
20.一条语句要在下一行继续写，用_符号作为续行符。
21.X_yz是合法的变量名22.%100是不合法的整常数23.”ABC”是合法的字符常数24.num！是合法的单精度型变量25.100.0D＋2是不合法的单精度常数26.表达式16/4-2ˆ5*8/4Mod5/2的值为4。
27.对于数学表达式3≤x＜10，表示成正确的VB表达式为3＜=xANDx＜10。
28.在\、/、Mod、*这4个算术运算符中，优先级别最低的是Mod。
29.对于数学表达式ab／3cd，正确的VB表达式是a*b/3*c*d。
30.Rnd函数值不可能为1。
31.Int（198.555*100+0.5）/100的值为198.56。
32.已知A$=”12345678”，则表达式Val（Left$(A,4)﹢Mid$(A,4,2))的值为123445。
33.MsfBox函数返回值的类型是整型数值。
34.InputBox函数返回值的类型是字符串。
35.表达式Len(“123程序设计ABC”)的值是10。
36.以下关系表达式中，其值为False的是”BASIC”=UCase(“basic”)。
37.下列赋值语句中，正确的是y=x+30。
38.为了给x、y、z三个变量赋初值1，下列赋值语句中正确的是x=1：y=1：z=1。
39.赋值语句a=123+Mod（“123456”，3，2）执行后，变量a的是157。
40.赋值语句a=123&Mid（“123456”，3，2）执行后，变量a的是”123434”。
41.语句Print”Sqr(9)=”;Sqr(9)的输出结果是Sqr（9）=3。
42.若要处理一个值为50000的整数，应采用的VB基本数据类型是Long。
43.VB提供了结构化程序设计的3种基本结构，分别是选择结构、循环结构、顺序结构。
44.按照结构化程序设计的要求，下面GoTo语句是非结构化程序设计语句。
45.下面程序段运行后，显示的结果是1。
Dim x%If x Then Print x Else Print x+146.关于语句If x=1 Then y=1，下列说法正确的是x=1为关系表达式，y=1为赋值语句。
47.单选按钮与复选框控件的本质区别是若窗体上有多个单选按钮和复选框控件且没有分组，单选按钮只能选中一个，复选框可以选中多个。
48.程序运行中中断并退出运行按Ctrl+Break。
49.For x=3 To ―3 Step ―3 是正确的For…Next结构…Next x52.下列循环结构能正常结束循环的是i=19DoI=i+1Loop Until i〈053.下面程序段的运行结果为*****For i=3 To 1 Step―1 ***Print Spc(5―i); *For j =1 To 2*i―1Print “i”;Next jPrintNext i54.执行以下程序段，当文本框中输入“ABCD”4个字符时，窗体上显示的是AABABCABCDPrivate Sub Text1_Change()Print Text1;End Sub55.下列关于Do…Loop循环结构执行循环体次数的描述中，正确的是Do While…Loop循环至少执行一次，Do…Loop Unril 循环可能不执行。
56.下面的程序段运行后显示的结果是1。
Private Sub Command1_Click()For i= 1 To 5n=0For j = i To 5n=n+1Next jNext iPrint nEnd Sub57.要使如下方阵的数据分配存储空间，可使用Dim a(-1 To 1,-5 To -3)As Single数组声明语句。
1.1 2.2 3.34.45.56.67.7 8.8 9.958.在如下数组声明语句，数组a包含的元素为120。
Dim a(3,-2,To2,5)59.以下程序输出的结果是程序出错。
Dim aa= Array(1,2,3,4,5,6,7)For i = LBound (a) To UBound (a)a(i)=a(i)*a(i)Next iPrint a(i)60.以下程序输出的结果是1 2 3 Option Base 14 6Private Sub Command1_Click()9Dim a,b(3,3)a=Array(1,2,3,4,5,6,7,8,9)For i = 1 To 3For j = 1 To 3b(i,j)= a(i*j)If(j〉=i)Then Print Tab (j*3);Format(b(i,j),”###”);Next jPrintNext iEnd Sub61.下面过程运行后显示的结果是2 34 。
Public Sub F1 (ByRef n%,ByVal m%) SubCommand1_Click()n= n Mod 10 Dim x%,y%m=m\10 x=12:y=34End Sub Call F1(x,y)MsgBox(x &”“& y)End Sub62.907890属于长整型数据。
63.在代码中引用一个控件时，应使用控件的Name属性。
64.下面程序段表示求两个数中的大数，If y〉=x Then max=y不正确Max=x65.用来设置粗体字的属性是FontBold。
66.VB这种高级计算机语言编写的源程序必须经过编译才能在计算机中运行。
二．填空题（15′）1.VB是建立在BASIC语言基础上的可视化编程环境。
2.VB程序一般以解释方式运行，也可编译成扩展名为.exe的文件以编译方式运行。
3.在属性窗口中，属性的显示方式分为“按字母顺序”，“按分类顺序”两种。
4.工程资源管理器窗口顶部有3个按钮，分别为“查看代码”，“查看对象”和“切换文件夹”。
5.属性是描述和反映对象外部特征的参数。
6.在刚建立工程时，要是窗体上的所有控件具有相同的字母格式，应对窗体的Font属性进行设置。
7.当对命令按钮的Picture属性装入图形文件后，按钮上并没有显示所需的图形，原因是没有将Style属性设置为1（Graphical）。
8.在文本框中，通过SelStart时能获得当前插入点所在的位置。
9.要对文本框中已有的内容进行编辑，按键盘上的按键就是不起作用，原因是设置了Locked 属性值为True。
10.文本框获得焦点的方法是设置SetFocus属性。
11.表示x是5的倍数或是9的倍数的逻辑表达式为xMod5=0 Or xMod9=0。
12.要是下列For循环语句执行20次，循环变量的初值应是：For k = 33 To ―5 Step ―213.下面程序段将显示10个For i = 1 To 5For j = 2 To iPrint “*”;Next jNext i14.传地址方式是当过程被调用时，形参和实参共享存储单元。
15.当形参是数组时，在过程体内对该数组进行操作时，为了确定数组的上界，应用UBound（）函数。
16.VB中的变量按其作用域分为全局变量、模块级变量和局部变量。
18.模块文件.Bas 窗体文件.frm 工程文件.vbp19.属性、方法和事件构成了对象的三要素。
20.建立用户坐标系语法形式：［对象.］Scale［(xLeft,yTop) - (xRight,yBottom)］21.顺序文件是要求按顺序进行访问的文件，每条记录可以不等长。
随机文件是由长度相同的记录所组成的集合。
22.如果要将某个命令按钮不显示，则可将Visible属性设置为False。
三、判断题（10′）四、编程题（30′）Private Sub Command1_Click()x=Text1.TextIf x〉20 Theny=x*x+3*x+2ElseIf x〉=10 Theny=Sqr(3*x) -2ElseIf x〉0 Theny=1/x+Abs(x)End IfPrint yEnd Sub输入一个年份，判断它是否为闰年，并显示是否是闰年的有关信息，判断闰年的条件是：年份能被4整除但不能被100整除，或者能被400整除。
Sub Command1_Click()Dim y%y=Year(Now)If y Mod 4=0 And y Mod100〈〉0 Or y Mod 400=0 ThenMsgBox(y&”年是闰年”)ElseMsgBox(y&”年是平年”)End IfEnd Sub求和例：Private Sub Command1_Click()Dim i%,sum%,t%For i = 1 To 30t = t + isum = sum + tNext iLabel1.Caption = “前” & i - 1 & ”项的和= ” & sumEnd Sub求最大、最小、平均值（程序经改编不一定正确）例：Private Sub Command1_Click()Dim mark(9) As IntegerFor i = 0 To 9Mark(i) = Int(Rnd() *71 + 30)Next iavg = mark(0): min = mark(0): max =mark(0)Label1.Caption =””For i = 1 To 9If mark (i)<min Then min = mark(i)If mark(i)〉max Then max=mark(i)avg = avg + mark(i)Next iPrint min,max,avgEnd Sub。