2023年全国计算机二级笔记.doc

第一讲：Visual Basic概述
重点：
1、掌握面向对象程序设计概念：对象、办法、属性与事件
2、事件驱动过程程序设计原理
3、简介VB集成开发环境
4、VB开发环境基本操作
1.1 Visual Basic简介
•具有面向对象可视化设计工具
•事件驱动编程机制
•提供了易学易用应用程序集成开发环境
•构造化程序设计语言
•支持各种数据库访问
•支持DDE、DLL、OLE技术
•完备Help联机协助功能
1.
1.2面向对象程序设计办法基本
2. 对象及对象类：动作体逻辑模型，称为“对象”
3. 属性： 属性是用来描述对象特性。
4.
5.
办法： 办法指对象可以进行动作或行为。

VB 对象具有属性、办法和事件。

属性是描述对象数据；办法告诉对象应做事情；事件是对象所产生事情，事件发生时可以编写代码进行解决。

VB 窗体和控件是具有自己属性、办法和事件对象。可以把属性看作一种对象性质，把办法看作对象动作，把事件看作对象响应。
寻常生活中对象，如小孩玩气球同样具有属性、办法和事件。气球属性涉及可以看到某些性质，如它直径和颜色。其他某些属性描述气球状态（充气或未充气）或不可见性质，如它寿命。通过定义，所有气球都具有这些属性；这些属性也会因气球不同而不同。
 气球还具有自身所固有办法和动作。如：充气办法（用氦气充满气球动作），放气办法（排出气球中气体）和上升办法（放手让气球飞走）。所有气球都具有这些能力。

1. 3基于Windows环境下应用程序工作方式——事件驱动
在老式或“过程化”应用程序中，应用程序自身控制了执行哪一某些代码和按何种顺序执行代码。从第一行代码执行程序并按应用程序中预定途径执行，必要时调用过程。
 在事件驱动应用程序中，代码不是按照预定途径执行，而是在响应不同事件时执行不同代码片段。事件可以由顾客操作触发、也可以由来自操作系统或其他应用程序消息触发、甚至由应用程序自身消息触发。这些事件顺序决定了代码执行顺序，因而应用程序每次运营时所通过代码途径都是不同。

由于事件顺序是无法预测，因此在代码中必要对执行时“各种状态”作一定假设。当作出某些假设时（例如，假设在运营来解决某一输入字段过程之前，该输入字段必要涉及拟定值），应当组织好应用程序构造，以保证该假设始终有效（例如，在输入字段中有值之前严禁使用启动该解决过程命令按钮）。
  在执行中代码也可以触发事件。例如，在程序中变化文本框中文本将引起文本框 Change 事件。假如 Change 事件中包具有代码，则将导致该代码执行。假如本来假设该事件仅能由顾客交互操作所触发，则也许会产生意料之外成果。正由于这一因素，因此在设计应用程序时理解事件驱动模型并牢记在心是非常重要。
　　在VB中事件调用形式是：
　　Private Sub对象名_事件名
　　　（事件内容）
　　End Sub

1.4 Visual Basic 集成开发环境
VB 集成开发环境 (IDE——Integrated Developing Environment ) 由如下元素构成：
1． 标题栏
用于显示正在开发或调试工程名和系统工作状态（设计态、运营态、中断态）。
2． 菜单栏
　    用于显示所使用 Visual Basic 命令。VB6.0原则菜单涉及：
3． 工具栏
　    在编程环境下用于迅速访问惯用命令。缺省状况下，启动 VB后显示“原则”工具栏，附加编辑、窗体设计和调试工具 栏可以从“视图”菜单上“工具栏”命令中移进或移出。
4． 窗体设计器
　　 用来设计应用程序界面。启动VB后，窗体设计器中自动浮现一种名为Form1空白窗体，可以在该窗体中添加控件、图形和图片等来创建所但愿外观，窗体外观设计好后，从菜单中选取“文献”→“保存窗体”→在保存对话框中给出适当文献名（注意扩展名），并选取所需保存位置→拟定。需要再设计另一种窗体时，单击工具栏上“添加窗体”按钮即可。
5． 控件（工具）箱
　　由一组控件按钮构成，用于设计时在窗体中放置控件。除了缺省工具箱布局之外，还可以通过从上下文菜单中选定“添加选项卡”并在成果选项卡中添加控件来创建自定义布局。6． 弹出式（上下文）菜单
　　 在要使用对象上单击鼠标右键即可打开快捷菜单，其上会浮现与当前对象有关经常执行操作，以加快操作速度。
7． 工程管理器窗口
　　 用于浏览工程中所涉及窗体和模块，还可以从中查看代码、查看对象。
8． 属性窗口
　　是VB中一种比较复杂窗口，其中列出了对选定窗体和控件属性设立值。VB中正是通过变化属性来变化对象特性，如大小、标题或颜色。
9． 对象浏览器
　　 列出工程中有效对象，并提供在编码中漫游迅速办法。可以使用“对象浏览器”浏览在 VB中对象和其他应用程序，查看对那些对象有效办法和属性，并将代码过程粘贴进自己应用程序。
１０． 对象浏览器
　　 右击窗体中对象、从工程管理器中点“查看代码”按钮。
11．窗体布局窗口
　　 Form Layout window允许使用表达屏幕小图象来布置应用程序中各窗体位置。
12． 及时、本地和监视窗口
这些附加窗口是为调试应用程序提供，它们只在 IDE 之中运营应用程序时才有效。

1.5 创建VB应用程序普通环节

一种VB程序也称为一种工程，由窗体、原则模块、自定义控件及应用所需环境设立构成。开发环节普通如下：
1． 创建程序顾客界面
2． 设立界面上各个对象属性
3． 编写对象响应事件程序代码
4． 保存工程
5． 测试应用程序，排除错误
6． 创建可执行程序
•硬件环境：486以上解决器、16MB以上内存、50MB以上硬盘空间、CD-ROM驱动器、鼠标等
•软件环境：Windows95或 indowsNT3.51以上版本
•初次安装：
1)启动Windows95
2)插入具有VB6.0系统光盘
3)运营VB6.0安装程序Setup.exe
4)选取“典型安装”或“自定义安装”或“最小安装”
•添加或删除VB6.0部件：
1)插入具有VB6.0系统光盘
2)运营“开始/设立/控制面板”
3)双击控制面板中“添加/删除程序”图标
4)选取其中“Visual Basic 6.0”选项
•启动
1.桌面：开始/程序/Visual Basic 6.0
2.建立快捷方式，双击图标
•退出
1.选取文献菜单下退出命令
2.单击窗口关闭按钮
举例：
1 启动VB，开始新工程
2创建程序顾客截面
3加入程序代码
4 保存工程文献
5 运营和调试应用程序，检查并排除程序中错误
6 生成可执行程序
7 打印窗体和代码
第二讲 惯用控件与界面设计
重点：
1、掌握窗体惯用属性、办法与事件，重点掌握窗体Print办法使用
2、掌握标签、文本框、命令按钮等控件惯用属性、办法、事件
2．1 创建窗体
补充内容：调节窗体布局 生成可执行文献
2．2 VB惯用控件（P19）
概述：
控体是用来进行顾客界面设计可视化部件。
惯用VB6 控件一览表 P20
惯用控件：P21
(1) 文本框（TextBox）：用于接受顾客在框内输入 信息或显示由程序提供信息。
文本框在工具箱中图标P25；在窗体中形式
属性：
名称：文本框名称。命名规则同窗体名。（普通以“Txt”作为前缀。）
Text ：文本属性。该属性值为顾客从文本框中输入内容。
PasswordChar：口令属性。设立与否可以看到顾客从文本框中输入文本内容。
取值：空字符串：（默认值）：可以看到输入字符。
某一字符：顾客每输入一种字符，文本框内就浮现一种该字符。
MaxLength ：最大长度属性。设立文本框Text 属性中所能放入字符总个数。
取值：０：（默认值）。
１～32 KB。
MultiLine ：多行属性。设立顾客与否可在文本框内输入多行文本。
取值： True：可多行输入。
False：（默认值）只能单行输入。
Alignment：对齐属性。设立文本框内文本内容对齐方式。
取值：0：（默认值）靠左对齐。
1：靠右对齐。
2：居中对齐。
阐明：本属性只在MultiLine 为 True 时有效。
TabStop：[Tab]键属性。设立与否可用[Tab]键来移动焦点到另一种对象上。
取值：True：（默认值）可以。
False：不可以。
其他属性类似窗体。
办法：
Refresh ：刷新。
SetFocus ：设立焦点。通过本办法，可以使光标指向指定文本框。
事件：
Change ：当文本框内容发生变化时，就引起本领件。
LostFocus：当光标离开文本框时，引起本领件。
Keypress:当顾客按下或松开键盘上某个按键时，发生本领件。
（2）标签：（Label） 重要用于在窗体上增长文字阐明。
标签在工具箱中图标P25；在窗体中形式
属性：
名称：标署名称。（普通以“Lbl”作为前缀。）

Caption ：标题属性。本属性值为显示在标签上内容。
AutoSize ：大小自适应属性。即标签大小与否随着标题内容多少而自动变化。
取值：True ：是。
False ：（默认值）否。
FontName ：字体名称。设立在标签内显示文本字体名称。
办法：
Refresh ：刷新。
Move ：移动。
事件：
Click ：单击事件。
DblClick：双击事件。
（3） 命令按钮：（commandbutton）：顾客用鼠标单击命令按钮，表达要执行某项功能。
属性：
名称：（普通以“Cmd”作为前缀。）
Caption ： 标题 。其值就是在命令按钮上显示文本。
Default ：设定此命令按钮与否为窗体默认按钮。
取值 true ：在窗体启动（Active）后，按 Enter 键立即就会执行命令按钮。（同一窗体中只能有一种命令按钮此项属性值为 true ）
False ：否。
Enabled ：设定命令按钮与否可用。
取值 true ：（默认值）：可用。
false ：不可用。（命令按钮呈灰色）
事件：
click ：单击事件
办法：
SetFocus ：命令按钮通过 SetFocus 办法后，将获得焦点。（顾客此时按回车键将会执行此命令按钮。）
（4）复选框：（checkbox）：用来设定程序执行状态。
属性：
名称：（普通以“Chk”作为前缀。）
caption： 标题，显示在复选框右方，指明此复选框所代表功能。
Value ：表达复选框在执行时三种状态。
取值： 0： 不复选，执行时无勾。
1： 复选，执行时有勾。
2： 灰色，表达顾客不能修改这个设定值，只能看到它当前状态。
事件：
click ：单击事件。
办法：
Move ：
Refresh ：
（5）选项按钮：（optionbutton）用来设定程序执行状态。
属性：
名称：（普通以“Opt”作为前缀。）
caption：标题
alignment ：设立标题文本对齐方式。
取值： 0：（默认值）靠左对齐
1：靠右对齐
2：靠中对齐
value ：其值决定该选项按钮与否被选中。
取值：true ： 表达此选项按钮被选中。
False ：表达此选项按钮没选中。
阐明：一种窗体或一种框架内选项按钮只能有一种被选中，（不同框架内选项按钮互不干扰）若顾客不设定哪一种选项按钮值为 true ，则系统指定第一种选项按钮 value 值为 true 。
事件：
click ：单击。
办法：
Move：
Refresh
(6) 框架 ：(frame)可以用框架控件将其他各自独立控件（普通指复选框、选项按钮等）组合在一组中。如实验指引书P13、P16。
属性：
名称 caption top left width height font forecolor 等等
事件：click dblclick 等等
阐明：1、在使用框架控件将其他控件分组时必要先绘制框架控件，后绘制其中控件。
2、在一种框架内控件可以进行整体激活、屏蔽、移动等等。
3、在同一种窗体中各种选项按钮，只有一种可以被选中，但在窗体中可以用框架将选项按钮分类，在同一框架内各种选项按钮中只有一种可以被选用。不同框架内选项按钮彼此互不干扰。
4、要将控件画在框架之中，不能双击控件，由于那样将使控件重叠在框架上面，必要单击工具图标，然后在框架内拖动后释放，这样所画控件在框架之中。
第三讲 惯用控件与界面设计
重点：
1、掌握列表框、组合框、选项按钮、复选按钮、滚动条等控件惯用属性、办法、事件
2、掌握菜单设计

（7）列表框 ( ListBox)：用于列出可供顾客选取项目列表。顾客可以从中选取一种或各种项目。
属性：
名称：（普通以“List”作为前缀。）
List：列表属性。用于保存列表内容。
List事实上是一种一维数组，数组中元素值，就是在执行时看到列表项（item）
一维数组：List 中有5个元素，List(0),List(1) List(2) ,List(3) ,List(4)
列表项文本 List (0)=68
List (1)=78
List (2)=88
List (3)=80
List (4)=76
数组名：List 列表项序号： 0，1，2，3，4， （从0开始）
列表项文本（数组元素值）分别为：68 78 88 80 76

Listcount：列表框内所有选项总数，也就是List()数组元素总个数。
ListIndex：顾客最后单击列表项在List() 数组中编号顺序。
（无选中时其值为-1）
Text： 列表项正文。其值为最后选中列表项文本。
请记住如下关系：
[对象名称．]List(ListIndex)=Text
Columns：列表框显示形式。设定Listbox列表项若超过显示范畴时，其卷动方式使用垂直滚动条或是水平滚动条。
取值：０：（默认值）使用垂直滚动条。逐行显示列表项，也许有垂直滚动条。
1~n ：使用水平滚动条。此时列表框内一次可显示列数（Column）即为 n 值。
MultiSelect：设定与否允许顾客多重选用对象列表项
取值： ０：不能多重选用。（默认值）
１：简易多重选用。（用鼠标或空格键来选用，一次一种）
２：高档多重选用。可用［shift］ 或 ［ctrl］ 来选用。（类似文献选用）
Selected：设定列表项与否被选用状态。它是一种与List大小相似数组。
其中各元素取值： Ｔrue ：被选用。
Ｆalse：不被选用。（默认值）
Sorted：排序属性。设定列表项与否要照ASCII代码排序。（字母顺序）
取值： True ：是(不区别大小写)
False：否。（默认值）
办法：（Ｐ28）
AddItem：添加列表项。
格式：[对象名称．]AddItem <列表项文本>[,插入位置序号]
阐明：１、若不指定位置，则插入到列表项末尾。
２、新列表项插入后，本来位置及其后列表项顺序下移。
Clear：删除列表所有项目。
RemoveItem：删除列表项。
格式： ［对象名称．］RemoveItem 删除项序号
事件：
Click ：单击事件。
Dblick：双击事件（使用较少）
应掌握：
１．如何添加或删除列表框中列表项？
办法一：在设计态：定制 List 属性。（向列表中添加列表时，按［ctrl］+[Enter]换行。）
办法二：在程序代码中：用AddItem,RemoveItem 等办法进行。
２．如何懂得当前顾客所选用列表项和当前列表框中列表项数目？
顾客当前所选列表项：Text 值。
当前列表框中列表项数目：ListCount 值。
（8）组合框（comboBox）：将文本框和列表框结合在一起，在列表框中所选项目文本会自动填入文本框。（与列表框相比，组合框一次只能选用一种列表项）
工具箱中图标P25；在窗体中形式
属性：
同Listbox 有：List，ListCount,ListIndex,Text,Sorted 等等。
Style ：外观属性。设立组合框类型和功能。
取值：（实验指引书P40）
0：（默认值）系统将创建一种带有下拉式列表框组合框。
称为组合下拉式组合框。它下拉式窗体不是始终显示。
（如word 中字体大小选取框），
此状态下顾客可将所内容直接输入到文本框中。
1：系统创建一种由文本框和列表框直接结合在一起简朴组合框。
称为组合式组合框。它下拉式窗体是始终显示。
如：word 中字体菜单对话框中字体、字号对话内容。
２：系统创建一种没有文本框下拉式列表框。单击列表框右侧按钮，文本框才会显示出来。
称为单纯下拉式组合框。
此状态下顾客不可在文本框中输入，只能在列表中选取。且下拉式窗体也不是始终显示。
Text：文本属性。其取值为顾客从列表框中选定文本内容或直接输入文本框中内容。

事件：对不同类型组合框，响应事件是不相似。
对于０，２类型组合框：单击事件。
对于 １ 类型组合框：双击事件。
带有文本框０，１组合框：在编辑文本时可引起Change 事件。
阐明：１、顾客若只需要使用单选列表框，则可用组合框来代替。
２、如何添加或删除组合框中列表项？（办法：同列表框）
３、如何懂得顾客当前所选用或输入列表项是什么？
由于组合框不允许多重选用，因此，Ｔext 属性值为内容；Listindex 属性值为序号。

办法： 同列表框。

图像：（image）： 重要用于图像显示、放大、缩小等静态显示图像场合。
图像框中不能容纳其她控件、也不能绘制图形和显示文本。而图片控件框中可以。
图像在工具箱中图标P25；在窗体中形式
属性：
名称：
visible ：设立此对象在执行时与否看得见。
取值：True ：（默认值）看得见。
False ：隐藏。
enabled ：可用否。
picture ：设定图像框中代表图片名称。
其值在设定期格式为： 盘符\ 途径\图片文献名（.ico 图标文献 .bmp位图文献）
stretch ：用来决定图像控件大小与否要随着所载入图片大小而变化。
取值： true ： 随图片大小而变化。
False ：（默认值） 不随图片大小而变化。
事件：
类似窗体。
办法：
Move Refresh
（10）图片：（picturebox）：不仅可以装入图像，还可以在它上面绘制各种图形和显示正文、放置控件（类似框架控件）。
图片在工具箱中图标P25；在窗体中形式
水平滚动条(horizontal scroll bar)、垂直滚动条(vertical scroll bar)：
滚动条：用来附加在那些不能自动支持滚动应用程序或控件中水平滚动或垂直滚动查阅大量信息。普通出当前文本框 、列表框右边；用来调节数据或选取输入。（ 如word 中字体、段落对话框中）
滚动条在工具箱中图标P25；在窗体中形式
属性：（实验指引书 P18）
名称：（普通以“Hsb”、“Vsb”作为前缀。）
Max / Min ： 定义了 Value 属性值所能浮现最大值和最小值。
阐明：1、一开始使用滚动条时，Max 为32768，Min 为 0 。
2、水平滚动条位于最左边时、垂直滚动条位于最上边时为 Min;水平滚动条位于最右边时、垂直滚动条位于最下边时为 Max 。
Value ： 滚动条当前所在位置所相应数值。（也可在代码中设定。）
LargeChange ：当顾客在滚动块上方、下方（左方、右方）单击时Value所增长值。默认值为1。
SmallChang ：当顾客在滚动条两端箭头按钮上单击时Value所增长值。默认值为1。
事件：
Change ：在滚动块移动后（即Value值变化时）发生。
例如，可用一种滚动条 Change 事件过程更新一种 TextBox 控件中滚动条 Value 属性设立。或者可以运用 Change 事件过程在一种工作区里显示数据和公式，在另一种区域里显示成果。
Scroll ：在拖动滚动块时发生。单击滚动箭头或滚动条时不发生。
办法：
Move ：用以移动滚动条。
Refresh ：强制所有重绘一种滚动条。
SetFocus ：设立焦点。将焦点移至指定滚动条上。

时间：(timer) （计时器）：用来实现与时间关于功能。
时间控件在工具箱中图标P25；在窗体中形式
属性：
名称：
enabled
interval 用来设定引起timer 事件过程间隔时间，单位为1/1000秒。
事件： （时间控件只有一种事件）
timer ： 它会按照 interval 所设定期间定期引起。
阐明：时间控件用法：
1．在 form 上放置一种时间对象。
2．在属性窗口中设定其 interval 属性。
3．填写timer 事件程序内容，
4．当程序开始执行后，将不会看到它图标，每隔 interval 定义时间内，程序会触发一次timer 事件。
时间控控件应用举例：windows 中计时器，word 中定期保存文献，定期更新屏幕画面（屏幕保护程序）等等。
第六讲 循环构造与循环构造语句
重点：
1、掌握单分支、双分支以及多分支构造语句格式以及程序设计办法
2、do-loop型循环语句及循环构造程序设计
3、For-Next型循环语句及循环构造程序设计
4、循环嵌套
1 for-next 循环语句：P69
普通格式： for v=e1 to e2 [step e3]
……
[exit for] 循环体语句组
……
next v
其中：v ：循环控制变量。应为 整型 或 单精度型。
e1：循环控制变量初值。
e2：循环控制变量终值 。
e3：循环控制变量步长值。
功能：（执行过程）：P70
使用阐明：◆ 超过终值状况：当 e3 >0 时，指 v>e2，当 e3<0 时，指v<e2 。
◆ 循环次数计算公式：循环次数=Int((e2-e1)/e3)+1
◆当step 1 时，此某些可以省略。
◆循环中执行到 exit for 语句时，结束本循环语句，转本next 下一条语句去执行。
1.1程序举例
例：求 1+2+3+4+5
Private Sub Form_click()
Dim s As Integer，i As Integer
s = 0
For i = 1 To 5
s = s + i
Next i
Print "s="；s
End Sub

例： 求1*2*3*4
Private Sub Form_click()
Dim s As Integer，i As Integer
s = 1
For i = 1 To 4
s = s * i
Next I
Print "s="；s
End Sub

例P70

例 P71
先看len、mid函数使用：
有一种字符串 A=”abcd”
（1） 则 len(A)=4 len（x） 可获得x字符串长度。(一种中文为2个字符)
（2） mid(x,n1,n2) :取子串函数
作用一：取子串：
mid(A,1,1)=”a”
mid(A,1,2)=”ab”
mid(A,3,1)=”c”

从一种字符串中一种一种取出字符办法：
for I=1 to len(x)
print mid(x,I,1)
next I

若逆序取出：
for I=len(x) to 1 step -1
print mid(x,I,1)
next I
作用二：变化一种字符串中某些字符。
mid(x,2,2)=”k”

1.2 循环嵌套：P73
for I= 1 to 2
fot j=1 to 3
print “b”
next j
print “a”
next I
程序举例：P73
例
rnd(x)： 随机函数用法：P73

变化程序中rnd(X)中X取值，观测成果
Private Sub Form_click()
Print Rnd(1)；Rnd(0)
End Sub

产生[a,b]范畴内随机整数公式：P73
int((b-a+1)*rnd+a)

例：生成5个3位随机整数。
For I=1 to 5
Print int((999-100+1)*rnd+100)
Next I
自习 P74 各例
isNumeric(x) ：判断一种字符串与否是一种数字串。
若x是数字串，其值为True ，若不是数字串，其值为False

2 do-loop 循环构造：P68
普通格式：4种 P68
do while e do
…… ……
[exit do] [exit do]
…… ……
loop loop while e

格式一：
（1）先判断e 值，为 true ，执行循环体A，为false ，循环结束，转loop 下面一条语句去执行。
（2）循环体执行完后，执行loop语句，返回（1）。
流程图P67 （a）

2.1例 ：（补充）
求s=1+2+3+4+…… 当成果大小等于55时结束
Private Sub Form_click()
Dim s As Integer，n As Integer
s = 0
n = 0
Do While s < 55
n = n + 1
s = s + n
Loop
Print s，n
End Sub

格式二：
（1）执行循环体语句组。
（2）执行到 loop while 语句时，判断 e 值，若为 true ，转（1），若为 false ，循环结束，转loop 下面一条语句去执行。
流程图P67 (b)

格式三： do until e 格式四： do
….. ….
[exit do] [exit do]
…… ……
loop loop until e
格式三功能：
(1) 判断e 值，若为 false ，则执行循环体语句；若为 true ，则循环结束，转loop 下面一条语句去执行。
（2）执行loop 语句时，返回（1）
流程图P68 图4-13 （b）

格式四功能：
（1）执行循环体语句
（2）执行loop 语句时，判断 e 值，若为 false ，返回（1），若为 true ，则循环结束，转loop 下面一条语句去执行。
流程图P68 图4-13 （a）

特别阐明：无论哪种格式，记住循环体执行条件：
（1） while 后条件值为 true 时，执行循环体，为 false 时，循环结束。
（２）until 后条件值为false 时，执行循环体，为true时，循环结束。

程序举例：P68 例4-3
第七讲 选取分支与循环
-----VB程序设计惯用算法
重点：
1、重点掌握构造程序设计办法和思想；
4、理解和掌握VB中惯用算法思想和设计办法；
算法（Algorithm）：计算机解题基本思想办法和环节。算法描述：是对要解决一种问题或要完毕一项任务所采用办法和环节描述，涉及需要什么数据（输入什么数据、输出什么成果）、采用什么构造、使用什么语句以及如何安排这些语句等。普通使用自然语言、构造化流程图、伪代码等来描述算法。
一、计数、求和、求阶乘等简朴算法
此类问题都要使用循环，要注意依照问题拟定循环变量初值、终值或结束条件，更要注意用来表达计数、和、阶乘变量初值。
例：用随机函数产生100个[0，99]范畴内随机整数，记录个位上数字分别为1，2，3，4，5，6，7，8，9，0数个数并打印出来。
本题使用数组来解决，用数组a(1 to 100)存储产生确100个随机整数，数组x(1 to 10)来存储个位上数字分别为1，2，3，4，5，6，7，8，9，0数个数。即个位是1个数存储在x(1)中，个位是2个数存储在x(2)中，……个位是0个数存储在x(10)。
将程序编写在一种GetTJput过程中，代码如下：
Public Sub GetTJput()
Dim a(1 To 100) As Integer
Dim x(1 To 10) As Integer
Dim i As Integer，p As Integer
'产生100个[0，99]范畴内随机整数，每行10个打印出来
For i = 1 To 100
a(i) = Int(Rnd * 100)
If a(i) < 10 Then
Form1.Print Space(2)；a(i);
Else
Form1.Print Space(1)；a(i);
End If
If i Mod 10 = 0 Then Form1.Print
Next i
'记录个位上数字分别为1，2，3，4，5，6，7，8，9，0数个数，并将记录成果保存在数组x(1),x(2),...,x(10)中，将记录成果打印出来
For i = 1 To 100
p = a(i) Mod 10 ' 求个位上数字
If p = 0 Then p = 10
x(p) = x(p) + 1
Next i
Form1.Print "记录成果"
For i = 1 To 10
p = i
If i = 10 Then p = 0
Form1.Print "个位数为" + Str(p) + "共" + Str(x(i)) + "个"
Next i
End Sub

二、求两个整数最大公约数、最小公倍数
分析：求最大公约数算法思想：(最小公倍数=两个整数之积/最大公约数)
(1) 对于已知两数m，n，使得m>n；
(2) m除以n得余数r；
(3) 若r=0，则n为求得最大公约数，算法结束；否则执行(4)；
(4) m←n，n←r，再反复执行(2)。
例如：求 m=14 ,n=6 最大公约数. m n r
14 6 2
6 2 0
m=inputBox("m=")
n=inputBox("n=")
nm=n*m
If m < n Then t = m：m = n：n = t
r=m mod n
Do While (r <> 0)
m=n
n=r
r= m mod n
Loop
Print "最大公约数="，n
Print "最小公倍数="，nm/n

三、判断素数
只能被1或自身整除数称为素数 基本思想：把m作为被除数，将2—INT（）作为除数，假如都除不尽，m就是素数，否则就不是。（可用如下程序段实现）
m =val( InputBox("请输入一种数"))
For i=2 To int(sqr(m))
If m Mod i = 0 Then Exit For
Next i
If i > int(sqr(m)) Then
Print "该数是素数"
Else
Print "该数不是素数"
End If
将其写成一函数,若为素数返回True，不是则返回False
Private Function Prime( m as Integer) As Boolean
Dim i%
Prime=True
For i=2 To int(sqr(m))
If m Mod i = 0 Then Prime=False： Exit For
Next i
End Function

四、验证哥德巴赫猜想
（任意一种不不大于等于6偶数都可以分解为两个素数之和）
基本思想：n为不不大于等于6任一偶数，可分解为n1和n2两个数，分别检查n1和n2与否为素数，如都是，则为一组解。如n1不是素数，就不必再检查n2与否素数。先从n1=3开始，检查n1和n2（n2=N-n1）与否素数。然后使n1+2 再检查n1、n2与否素数，… 直到n1=n/2为止。
运用上面prime函数，验证哥德巴赫猜想程序代码如下：
Dim n%,n1%,n2%
n=Val(InputBox("输入不不大于6正整数"))
F