vb初学者编程代码基础(vb简单编程代码)

http://www.itjxue.com  2023-03-16 15:31  来源:未知  点击次数: 

VB编程实例

哦,你要多大的程序???

'初学vb的经典入门程序如下

'画三个文本框,text属性设为空

'画四command按钮,capition属性分别设为“+”“-”“*”“/”

'把以下代码复制到代码窗口,运行,为text1,text2输入数字,任意点击一个按钮看看

Private

Sub

Command1_Click()'这个叫click事件,用于鼠标单击时响应

Text3.Text

=

Val(Text1.Text)

+

Val(Text2.Text)

'command1("+")被点时运行这里

End

Sub

Private

Sub

Command2_Click()

Text3.Text供海垛剿艹济讹汐番搂

=

Val(Text1.Text)

-

Val(Text2.Text)

'(-)被点时运行这里

End

Sub

Private

Sub

Command3_Click()

Text3.Text

=

Val(Text1.Text)

*

Val(Text2.Text)

'command3("*")被点时运行这里

End

Sub

Private

Sub

Command4_Click()

Text3.Text

=

Val(Text1.Text)

/

Val(Text2.Text)

'command4("/")被点时运行这里

End

Sub

我是VB初学者,VB代码一点都不会,请高手给我个学习的方法,提示对代码一点不懂,越基础越好

何学好VB程序设计

1,学习程序设计的基本要求

2,Vb的功能及特点

3,学习VB程序设计的方法

对学习者知识的要求:

首先,学习程序设计要具备一定的数学基础.计算机与数学有很大的联系,综观计算机历史,计算机的数学模型(图灵机,由Alan Turing提出)和体系结构(由John Von Neuman提出)等都是由数学家提出的,最早的计算机也是为数值计算而设计的.因此,要学习好计算机就要有一定的数学基础.不过对于初学者来说,在数学基础方面的要求并不是很高,从我个人的角度来看,有高中数学水平就差不多了.

如何学好VB程序设计

学习程序设计基本要求

对学习者知识的要求:

其次,学习程序设计要有一定的逻辑思维能力.逻辑思维需要长时间的锻炼,如果你觉得自己在逻辑思维能力上有不足,也没有关系,因为编写程序本身也是对逻辑思维的锻炼.初学程序设计应具备的逻辑基础可以从高中数学中学到.

如何学好VB程序设计

学习程序设计基本要求

熟悉Visual Basic操作环境与设计工具,能设计应用程序界面.

掌握,理解面向对象程序设计基本概念

掌握VB语言的基础知识,程序设计的方法,

能阅读一般难的程序;

能应用编写一些简单程序;

具有用Visual Basic开发Windows环境下应用程序的能力和阅读分析一般难度的VB程序的能力.

如何学好VB程序设计

VB程序设计的基本要求

Visual Basic 简介

Visual Basic 是Microsoft 公司开发的Windows 应用程序开发工具,Visual ——"可视化的",是一种开发图形户界面(GUI)的方法.使得非计算机专业的人也可以开发出专业的Windows软件.

Visual Basic继承了BASIC语言简单易学的优点,又增加了许多新的功能,它采用面向对象与事件驱动的程序设计思想,使编程变得更加方便,快捷.使用Visual Basic既可以开发个人或小组使用的小型工具,又可以开发多媒体软件,数据库应用程序,网络应用程序等大型软件.是国内外最流行的程序设计语言之一.

2,VB的功能及特点

英文Visual的意思是"视觉的","可视的Baisc"这个名字可能抽象了点,但实际上它却是最直观的编程方法,之所以叫做"可视",你只要看到VB的界面就会明白,实际上你无需编程,就可以完成许多步骤.

在VB中引入了控件的概念,在Windows中控件的身影无处不在,如按钮,文本框等,VB把这些控件模式化,并且每个控件都有若干属性用来控制控件的外观,工作方法,能够响应用户操作(事件).

这样你就可以象在画板上一样,随意点几下鼠标,一个按钮就完成了,这些在以前的编程语言下是要经过相当复杂的工作的.

何为可视

Visual Basic的特点

1. 具有面向对象的可视化设计工具

2. 事件驱动的编程机制

3. 结构化的程序设计语言

4. 提供了易学易用的应用程序集成开发环境

5.支持多种数据库系统的访问

6.高度可移植化的代码

7.VB6.0在开发环境上,网络功能等的大大增强

Visual Basic的特点

可视化设计: Visual Basic为用户提供大量的界面元素(在Visual Basic中称为控件对象),例如 "窗体","菜单","命令按钮","工具按钮","检查框"等等,用户只需要利用鼠标,键盘把这些控件对象拖动到适当的位置,设置它们的大小,形状,属性等,就可以设计出所需的应用程序界面.

Visual Basic的特点

事件驱动编程:Windows操作系统出现以来,图形化的用户界面和多任务多进程的应用程序要求程序设计不能是单一性的,在使用Visual Basic设计应用程序时,必须首先确定应用程序如何同用户进行交互.(例如发生鼠标单击,键盘输入等事件时,用户必须编写代码控制这些事件的响应方法)这就是所谓的事件驱动编程.

程序设计方法概述

1.初期的程序设计

高运行效率,少占用内存为目标

2.结构化程序设计

程序的可读性,可维护性为目标

程序=算法+数据结构+计算机语言+面向过程的程序设计方法

3.面向对象的程序设计(OOP)

降低程序的复杂性,提高软件的开法效率和改善工作界面为目标

程序=对象+消息+面向对象的程序设计

面向对象的程序设计具有如下的优点:

1.符合人们习惯的思维方法,便于分解大型的复杂多变的问题.由于对象对应于现实世界中的实体,因而可以很自然地按照现实世界中处理实体的方法来处理对象,软件开发者可以很方便地与问题提出者进行沟通和交流.

2.易于软件的维护和功能的增减.对象的封装性及对象之间的松散组合,都给软件的修改和维护带来了方便.

3.可重用性好.重复使用一个类(类是对象的定义,对象是类的实例化),可以比较方便地构造出软件系统,加上继承的方式,极大地提高了软件开发的效率.

4.与可视化技术相结合,改善了工作界面.随着基于图形界面操作系统的流行,面向对象的程序设计方法也将深入人心.它与可视化技术相结合,使人机界面进入GUI时代.

(1)养成良好的学习习惯

VB程序设计的入门学习并不难,但却是一个十分重要的过程,因为程序设计思想就在这时形成的,良好的程序设计习惯也在这个阶段养成.

(2)学习程序设计要注重理解一些重要的概念.

VB程序设计本身并不复杂,翻开一本程序设计学习的书籍,看到的无非就是变量,函数,条件语句,循环语句等概念.但要真正能进行程序设计,需要深入理解这些概念.因此,在程序入门阶段还是应该重视概念的学习.

3,学习VB程序设计的方法

(3)自己动手编写程序

程序设计入门阶段要经常自己动手编写程序,亲自动手进行程序设计是创造性思维应用的体现,是培养逻辑思维的好方法.因此一定要多动手编写程序,而且要从小程序开发开始,逐渐提高开发程序的规模.

(4)阅读,借签别人设计的好程序

多看别人设计好的程序代码,包括教材上的例题程序.在读懂别人程序后,要想他为什么这么设计 能不能将程序修改完成更多的功能 则可以学到别人优秀的东西,帮助自己提高自身水平.

3,学习VB程序设计的方法

(5) VB程序设计学习的重点

重点放在思路,算法,编程构思和程序实现上.

语句只是表达工具,要求堂上积极思考,尽量当堂学懂,并做到灵活应用.

学会利用计算机编程手段分析问题和解决问题.

(6)养成良好的编程习惯

强调可读性;变量要加注释;

程序构思要有说明;

学会如何调试程序;

对运行结果要做正确与否的分析.

3,学习VB程序设计的方法

学好VB程序设计的具体要求:

(1)课前预习,认真听课并作适当做笔记,课后要认真复习消化所学内容,完成作业.

(2)多写程序,注重实践

程序设计课是高强度的脑力劳动,不是听会的,也不是看会的,而是练会的.

只有自己动手,编写一些程序,才会有成就感,进而对课程产生兴趣,学起来才比较从容.只有当你在编写大量程序之后,才能获得真知灼见,感到运用自如.

动手能力的培养是这门课和以往课程最大的不同之处.

3,学习VB程序设计的方法

(3)上机调试程序应注意的几点:

上机前应认真把实验题在用纸上做一做(包括窗体界面设计,事件代码的编写等)

每次上机后应总结,把没有搞清楚的问题记录下来,请教老师或同学.

平时应多抽课余时间多上机调试程序.注意系统的提示信息,遇到问题多问几开为什么.

3,学习VB程序设计的方法

(4)保持良好的学习心态

要有自信,自强,积极主动学习.

克服畏难情绪,树立学好程序设计的信心.

VB重点和难点(文档下载):

VB编程代码怎么写

Private?Sub?Command1_Click()

??CurrentY?=?0

??For?i?=?1?To?9

????If?i?=?5?Then

??????Print?Space(9?-?i);

??????For?j?=?1?To?2?*?i?-?1

????????Print?"*";

??????Next?j

????Else

??????Print?Space(i?-?1);

??????For?j?=?1?To?2?*?(10?-?i)?-?1

????????Print?"*";

??????Next?j

????End?If

????Print

??Next?i

End?Sub

Private?Sub?Command2_Click()

??CurrentY?=?0

??Dim?a(8)?As?String,?b(8)?As?String

??For?i?=?LBound(a)?To?UBound(a)

????If?i?=?4?Then

??????a(i)?=?String(2?*?i?+?1,?"*")

??????b(i)?=?Space(25?-?i)

????Else

??????a(i)?=?String(2?*?(8?-?i)?+?1,?"*")

??????b(i)?=?Space(17?+?i)

????End?If

????Print?b(i)?+?a(i)

??Next?i

End?Sub

Private?Sub?Command3_Click()

??CurrentY?=?0

??For?i?=?1?To?9

????If?i?=?5?Then

??????Print?Space(43?-?i);

??????Print?String(2?*?i?-?1,?"*")

????Else

??????Print?Space(33?+?i);

??????Print?String(2?*?(10?-?i)?-?1,?"*")

????End?If

??Next?i

End?Sub

Private?Sub?Form_Load()

??Me.Width?=?4800

??Me.Height?=?2640

??Command1.Width?=?1245:?Command1.Height?=?315:?Command1.Left?=?120:?Command1.Top?=?1830

??Command2.Width?=?1245:?Command2.Height?=?315:?Command2.Left?=?1635:?Command2.Top?=?1830

??Command3.Width?=?1245:?Command3.Height?=?315:?Command3.Left?=?3150:?Command3.Top?=?1830

End?Sub

vb教程 vb基础入门教程

1、首先,在 Windows 中控件的身影无处不在,各种各样的按钮、文本框、无线钮,都是控 件的种类,VB 把这些控件模式化,并且每个控件都有若干属性用来控制控件的外观,工作方法。这样就可以象在画板上一样,随意点几下鼠标,一个按钮就完成了,这些在以前的编程语言下是要经过相当复杂的工作的。可能对面向对象的编程已经有了一定了解,它是由事件驱动的,对于不同的对象, 所能感应到的事件也会不同,譬如说当你把鼠标移进某一区域时就会触发 MouseMove 事件,这很直观,也容易理解,但也有些事件比较抽象,下面我来对一般的事件进行一下解释。 窗体和图象框类事件 Paint 事件:当某一对象在屏幕中被移动,改变尺寸或清除后,程序会自动调用 Paint 事件。当对象的 AutoDraw 属性为 True(-1)时,程序不会调用 Paint 事件。Resize 事件:当对象的大小改变时触发 Resize 事件。 Load 事件:仅适用于窗体对象,当窗体被装载时运行。 Unload 事件:仅适用于窗体对象,当窗体被卸载时运行。

2、然后,是改变控制项事件,Change 事件:当对象的内容发生改变时,触发 Change 事件。最典型的例子是文本框(TextBox) 。 DropDown 事件:下弹事件,仅用于组合框(ComboBox)对象。 PathChange 事件:路径改变事件,仅用于文件列表框(FileBox)对象。VB 常用的数据类型有:整型(Integer,表示-32768 至 32767 之间的整数) 、长整型(Long,表示 -2,147,483,648 至 2,147,483,647 之间的整数) 、实型(Single,表示-3.37E+38 至 3.37E+38 之间的实 数) 、双精度实型(Double,表示-1.67E+308 至 1.67E+308 之间的实数) ,字符(String,每个字符占 一字节,可以储存 0~65,535 个字符) ,布尔(Boolean,只有两个值 True/-1,或 False/0) 。 数据类型的定义方法, 定义变量最简单的方法是用Dim关键字,Dim 变量名As 数据类型,也可以在一行中定义多个变量,Dim Index As Integer , Dim Number As Long。

3、然后,要调用或改变MyHome的值时,类似于对对象的属性的操作,VB 建立了一种新的变量类型――货币型变量,通过使用仅带有二位小数的货币变量,就能避免因 使用实型变量而带来的数值积累误差问题。 VB 在调用函数(Function)时,必须在函数名后跟一对括号。 VB 对白兰地使用范围重新做了规范,在 Basic 里把隐含变量都当作全局变量,而在 VB 里对隐含变 量都当作局部变量。 VB 里的说明语句(Declare) ,仅支持动态链结库(DLL)的子程序和无变量函数。 使用数组,必须事先用 Dim 或 Redim 进行定义。在使用注释语句之前必须先了解注释的作用,注释不仅仅是对程序的解释,有时它对于程序的调试 也非常有用,譬如说可以利用注释屏蔽一条语句以观察变化,发现问题和错误。以后注释语句将是 我们在编程里最经常用到的语句之一。 在 VB 里,注释语句有两种,一种是用“Rem”关键字,这跟 DOS 里的批处理文件的用法一样,还有 一种是利用单引号“’”,例如: ‘Dim a As String 与 Rem Dim a As String 的作用是一致的。长语句的分行 在比较早的版本中,因为没有象 C 等语言用“;”隔开语句与语句,VB 的语句是必须写在一行里的, 不过后来版本的 VB 里如许用分行符“_”把一个长语句分成若干行来存放。

4、然后,是Tahoma,8,134 如果你学过任何一种编程的话, 都会知道在程序里控制其流程的有两种语句, 条件与循环, 自然也不例外, VB 其实不管哪种语言,条件和循环的样子都差不多,只不过各有各的规矩罢了。 在条件语句里,我们先来学习“If??Then??”语句。 它的一般语法是: If 条件 Then 语句 语句 ??? End If 与 C 语言不同,VB 的条件语句更符合英语的语法,如果 Then 后面所跟的语句只有一条,可以写成: If 条件 Then 语句 而不用 End If。 有时我们还会用到 If 条件 Then 语句 Else 语句 End If 更可以在 Else 里在嵌套 If 语句,如: If 条件 Then 语句 Else If 语句 Else 语句 End If 。

5、然后,是Tahoma,8,134 Select Case a% Case 1 Print a= Case 2 Print a= Case Else Printa does not equal to 1 or 2, End Select ,循环结构是计算机语言里一种重要的结构,它的应用广泛,最简单的例子是累加器的作用,还可以用于穷举 法,更直观的例子是把某件事重复指定的次数,这样就不用把要重复的语句输入多次,而通过循环结构完成, 非常方便。 C 语言里有一个for循环语句,VB 里也有For关键字,作用也差不多,只是 VB 的For语句更容易 理解。它的格式是: For 循环变量=初赋值 To 终值 [Step 步长],Next 循环变量 在默认情况下,Step 被设为1,可以省略,Step 也可以设为负值,Dim a= For I=1 To 10 a= Next I 这是一个最简单的累加器的例子,把 1 到 10 累加在一起,然后赋值给a这样的效果和上面是一样的,只 不过是倒着加罢了,请看: Dim a= For I=10 To 1 。

6、最后,While 后面都跟逻辑条件判断,Do While ?? Loop 语句和While ?? Wend 语句作用相似,都是 先判断 While 后面的条件是否为真,如果为真则执行里面的语句,如果为假,则退出循环,循 环直至条件为假终止。Do ?? Loop While 与前两者的区别在于,它不管条件的真假,都会先执行Do后面的语句,也就是说,它至少执行语句一次。 与 While 用法相似的还有 Until 语句,它是直至条件为真则终止循环,句式把 While 上述三个语句的 While 换成 Until 即可,但是因为容易记混,所以我建议只用 While 即可。Until 条件可以相当于 While Not 条件。 For 循环和 Whlie 循环应当根据适当的环境使用,它们有时也可替换。运算操作数学运算 +:加法运算,也适合于字符串的之间的合并运算。 -:加法运算。 *:乘法运算。 /:除法运算。 \:整除运算。 Mod:求余运算。例如:a Mod b 表示 a 被 b 整除以后的余数。 ^:幂运算。A^B 表示以 A 为底的 B 次方。

VB初学者需要记住那些东西?

1、学习Visual Basic之前最好做好一下几种准备:

?6?1知道Windows操作系统中常见部件的名称,例如“按钮”、“文本框”、“单选按钮”、“滚动条”等。

?6?1掌握一定的编程思想或数学思想。或者说有一定的逻辑分析能力。

?6?1能经常上机实践,当然最好的学习方法是边看书边实际操作。

初学者推荐阅读高等教育出版社出版的《全国计算机等级考试?6?1二级Visual Basic语言程序设计》(附带一本课后习题答案)、清华大学出版社出版的《Visual Basic程序设计》(谭浩强主编)。其他的书在很多问题上讲的不清楚。不推荐参考。

2、VB中的主要内容:

VB也是一门计算机语言,所以也就避免不了要有各种语法,主要是“变量类型”、“选择程序结构”、“循环程序结构”、“数组”、“子函数和子过程”、“文件”。另外由于VB是可视化的编程工具,所以比传统的QBASIC和C语言多了“控件”这一部分。具体需要那些控件教材里面有介绍。

3、各个章节的重点难点介绍:

这里的“章节”并不是按照教材上的“章节”介绍的,而是按照刚才我划分的“块”介绍。并且是按照国家计算机二级VB考试的标准叙述的。

1)、变量类型

变量和常量的概念。主要的变量类型有:integer、string、long、Boolean、currency、float、double。其中integer、string和Boolean最为常见。

2)选择程序结构

几种常见的选择结构。书上都有介绍。学习过程中记得如何判断条件的“真”“假”,选择不同的程序走向。如果条件为“真”,则怎么样;如果条件为“假”,又该怎么样。最后不要忘了End If。

在学习选择程序结构的时候注意培养自己良好的编码风格。看一个例子:Private Sub number_Click(Index As Integer)

If lastinput "nums" Then

disp = Number(Index).Caption

Else

disp = disp + Number(Index).Caption

End If

lastinput = "nums"

End Sub不管你是否能看懂这段程序写的是什么,况且这也不是我让你看这段程序的主要目的。你应该注意这段程序的编码风格,就是格式。VB里面几乎每段代码都在一个“Sub”和“End Sub”中间,所以你在写程序的时候最好使第一行代码向右缩进一个Tab键,按一下键盘上的Tab键,然后输入代码。如果出现“If”等语句的时候,“Then”后面一行的代码要缩进两个Tab键。不知道是否明白。不明白也没有关系。多看一些优秀代码就明白了。3)循环结构

这一部分可以说对初学者来说比较头疼。特别是循环条件的判定。什么时候要执行循环,什么时候不用执行循环。哪些语句比那些语句少(多)执行一次循环。

主要的循环语句教材上都有详细的讲解,这一部分要多揣摩,多练习。可以在源程序上用笔划出语句执行的顺序。其实用不了多长时间就明白了。

给出一个典型的例子:“百钱买百鸡”Private Sub Command1_Click()

Dim x%, y%, z%, t As Data, t1 As Data

For x = 0 To 100

For y = 0 To 100

For z = 0 To 100

If x + y + z = 100 And 3 * x + 2 * y + 0.5 * z = 100 Then

Print "能买母鸡"; x; "只,公鸡"; y; "只,小鸡"; z; "只"

End If

Next z, y, x

End Sub这段程序可以算是初学者比较经典的算法。100块钱,要买三种鸡,母鸡3元一只,公鸡2元一只,小鸡0.5元一只。问一共可以买几只。研究完算法之后别忘了看格式。其中Next z,y,x的顺序不能颠倒,也可以写成如下格式:Private Sub Command1_Click()

Dim x%, y%, z%, t As Data, t1 As Data

For x = 0 To 100

For y = 0 To 100

For z = 0 To 100

If x + y + z = 100 And 3 * x + 2 * y + 0.5 * z = 100 Then

Print "能买母鸡"; x; "只,公鸡"; y; "只,小鸡"; z; "只"

End If

Next z

Next y

Next x

End Sub4)数组

数组是一种重要的数据结构。要多练习。其中VB里面最容易出错的就是下标!例如定义一个数组Arr(4),那么它一共5个变量:Arr(0)开始,一直到Arr(4)。

5)子函数和子过程

这里我沿用QBASIC里面的叫法。在子函数(过程)部分最容易搞不懂的概念就是“传地址”和“传值”,即“ByRef”和“ByVal”,ByRef是默认的。也就是说如果没有在函数的参数列表中注明是那种传递方式,默认按照传地址进行处理。函数中的数值既可以由主函数传递到子函数(过程)中,也可以由子函数(过程)回到主函数中。其实我这里说的“主函数”是不确切的,应该叫做“主调函数”。另外还有一个与之相关的概念是“形参”和“实参”,就是“实际参数”和“形式参数”。实际参数是子函数(过程)中的参数,而形式参数是“主调函数”中的参数。

我觉得VB中子函数参数调用应该是比其他计算机语言简单的一个地方,包括C/C++等。在C/C++中,参数传递默认的是传值。就是不能把子函数(过程)的参数传回主调函数,如果要进行这样的操作,就要借助指针变量。

看一个简单的子函数(过程)调用的例子:Public Sub Swap(x,y)

Dim t As Integer

t=x

x=y

y=t

End SubPrivate Sub Form_Click()

Dim a As Integer

Dim b As Integer

a=10

b=20

Swap a,b

Print ”a=”; a , ”b=”;b

End SubForm_Click是主调函数,Swap是子函数(过程)。在主调函数的倒数第三行调用了子函数(过程),输出结果为:“a=20,b=10”。

6)文件

这一部分单独考试出题不多,实际应用中用到的也不多,但是它总是在某些考试中以压轴题的姿态出现。并且更为严重的是:如果对这一部分不清楚,会使整道题都无从下手。所以还是要好好看看这部分为好。

7)常见控件

对于控件最令初学者头疼的是“属性”、“事件”和“方法”这三个概念。

这三个概念是“面向对象程序设计”专用的。VB6虽然不能算是标准的“面向对象程序语言”,但是具备了很多的面向对象特征,唯独不具备“类的继承”特征。考虑到初学者对面向对象编程没有基础,所以关于上述三个概念就不能给出确切的定义。但是我们可以这样去理解这三个概念:“属性”就是某个控件的固有性质,拿Command(按钮)控件为例,它的“属性”就有“长度”、“宽度”、“是否显示图片”等。简单来说,大多数初学者接触的控件属性,都可以在VB6开发环境中的属性栏找到(如果找不到的属性称为“只读属性”)。

“事件”很容易理解。比如我们用鼠标单击一个按钮,这时候“按钮”这个控件就接收鼠标的单击,换句话说就是“按钮上发生了单击事件”。那么发生单击事件以后程序会做什么呢?那就是运行你编写的针对此事件的程序。现在你打开VB6的界面,随便画一个按钮,然后双击这个按钮,进入代码视图,在Private Sub Command_Click()和End Sub之间写代码。那么你写的这段代码就是名称为Command的按钮发生Click事件执行的代码。

“方法”的概念最不容易理解。按照标准的面向对象编程描述,方法是一个函数,它被封装在类中。其实我们也可以把方法想想成一个“函数”,类似上文中描述的“子函数(过程)”。初学者常用的VB6方法不多,其中最常用的就是“Print”。正如您所想象的那样,刚才使用的时候也没有发现它有多么特殊。其实我们已经在使用Print方法了。只不过它所归属的对象我们不需要知道而已。

关于控件的使用这里就不多说了,因为教科书上介绍的比我介绍的详细的多。

4、结束语:

Visual Basic6.0可以说算是最简单的一门计算机语言。学习的时候多用心。其实前面“变量”部分即使记不住也无妨,在后续的学习过程中会不断牢固以前的知识的。更何况现在的考试都带有MSDN,就是VB的帮助系统。如果有哪些关键字或者用法记不清楚了,可以随时查阅MSDN的相关文档。

最后祝各位VB愉快!附:送上几例经典的算法求最大公约数和最小公倍数

Private Sub Command3_Click()

Dim m1%, m%, n%, n1%, r%, b%

m1 = Val(InputBox("输入一个数:"))

n1 = Val(InputBox("请输入另一个数:"))

If m1 n1 Then m = m1: n = n1 Else m = n1: n = m1

Do

r = m Mod n

If r = 0 Then Exit Do

m = n

n = r

Loop

Print m1; "和"; n1; "的最大公约数为:"; n

b = m1 * n1 / n

Print m1; "和"; n1; "的最小公倍数为:"; b

End Sub

求100到200之间所有的素数(质数)

Private Sub Command2_Click()

Dim i%, m%

For m = 101 To 199 Step 2

For i = 2 To Int(Sqr(m))

If (m Mod i) = 0 Then GoTo notnextM '一旦被2到sqr(m)的数整除就转到下一个数

Next i

Print m

notnextM:

Next m

End Sub注意!程序中使用了GoTo语句!

(责任编辑:IT教学网)

更多