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 Sub1.4 Visual Basic 集成开发环境VB 集成开发环境 (IDEIntegrated 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)启动Windows952)插入具有VB6.0系统光盘3)运营VB6.0安装程序Setup.exe4)选取“典型安装”或“自定义安装”或“最小安装”添加或删除VB6.0部件：1)插入具有VB6.0系统光盘2)运营“开始/设立/控制面板”3)双击控制面板中“添加/删除程序”图标4)选取其中“Visual Basic 6.0”选项启动1.桌面：开始/程序/Visual Basic 6.02.建立快捷方式，双击图标退出1.选取文献菜单下退出命令2.单击窗口关闭按钮举例：1 启动VB，开始新工程2创建程序顾客截面3加入程序代码4 保存工程文献5 运营和调试应用程序，检查并排除程序中错误6 生成可执行程序7 打印窗体和代码第二讲 惯用控件与界面设计重点：1、掌握窗体惯用属性、办法与事件，重点掌握窗体Print办法使用2、掌握标签、文本框、命令按钮等控件惯用属性、办法、事件21 创建窗体补充内容：调节窗体布局 生成可执行文献22 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。属性：名称 captiontopleftwidthheightfontforecolor 等等事件：clickdblclick等等阐明：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 78888076 Listcount：列表框内所有选项总数，也就是List()数组元素总个数。 ListIndex：顾客最后单击列表项在List() 数组中编号顺序。（无选中时其值为-1） Text： 列表项正文。其值为最后选中列表项文本。请记住如下关系：对象名称List(ListIndex)=TextColumns：列表框显示形式。设定Listbox列表项若超过显示范畴时，其卷动方式使用垂直滚动条或是水平滚动条。取值：（默认值）使用垂直滚动条。逐行显示列表项，也许有垂直滚动条。1n ：使用水平滚动条。此时列表框内一次可显示列数（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 ：（默认值） 不随图片大小而变化。事件：类似窗体。办法：MoveRefresh（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；在窗体中形式属性：名称：enabledinterval 用来设定引起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 e3exit for循环体语句组 next v其中：v ：循环控制变量。应为 整型 或 单精度型。 e1：循环控制变量初值。 e2：循环控制变量终值 。 e3：循环控制变量步长值。功能：（执行过程）：P70 使用阐明： 超过终值状况：当 e3 0 时，指 ve2，当 e30 时，指ve2 。 循环次数计算公式：循环次数=Int(e2-e1)/e3)+1 当step 1 时，此某些可以省略。 循环中执行到 exit for 语句时，结束本循环语句，转本next 下一条语句去执行。1.1程序举例 例：求 1+2+3+4+5Private Sub Form_click() Dim s As Integer，i As Integer s = 0 For i = 1 To 5 s = s + i Next i Print s=；sEnd Sub例： 求1*2*3*4Private Sub Form_click() Dim s As Integer，i As Integer s = 1 For i = 1 To 4 s = s * i Next I Print s=；sEnd 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 -1print mid(x,I,1) next I作用二：变化一种字符串中某些字符。 mid(x,2,2)=”k”1.2循环嵌套：P73for I= 1 to 2fot j=1 to 3print “b”next jprint “a”next I程序举例：P73 例 rnd(x)： 随机函数用法：P73变化程序中rnd(X)中X取值，观测成果Private Sub Form_click() Print Rnd(1)；Rnd(0)End Sub 产生a,b范畴内随机整数公式：P73int(b-a+1)*rnd+a)例：生成5个3位随机整数。 For I=1 to 5Print int(999-100+1)*rnd+100)Next I自习 P74 各例isNumeric(x) ：判断一种字符串与否是一种数字串。若x是数字串，其值为True ，若不是数字串，其值为False 2 do-loop 循环构造：P68普通格式：4种 P68do while edo exit doexit dolooploop 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，nEnd Sub格式二：（1）执行循环体语句组。（2）执行到 loop while 语句时，判断 e 值，若为 true ，转（1），若为 false ，循环结束，转loop 下面一条语句去执行。 流程图P67 (b)格式三： do until e格式四：do .exit doexit dolooploop 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) n； (2) m除以n得余数r； (3) 若r=0，则n为求得最大公约数，算法结束；否则执行(4)； (4) mn，nr，再反复执行(2)。 例如：求 m=14 ,n=6 最大公约数. m n r 14 6 2 6 2 0m=inputBox(m=)n=inputBox(n=)nm=n*mIf 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作为被除数，将2INT（）作为除数，假如都除不尽，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，不是则返回FalsePrivate 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