VB程序怎么运行啊？？急啊

1、VB程序设计以VisualBasic6.0简体中文版为语言背景，深入浅出的介绍VisualBasic6.0程序设计技术，基本涵盖了VisualBasic6.0编程时的常用内容。2、VB程序设计共分14章，主要内容包括开发环境、语言基础和数组与过程、常用控件、菜单设计、文件处理、ActiveX控件、数据库程序设计、图形程序设计、多媒体编程、网络编程、API函数和注册表、安装程序的制作和综合实例。3、为了方便读者学习，《VB程序设计》提供多媒体课件，及例题和练习题的所有源代码。4、VB程序设计可以作为大中专院校计算机及相关专业的教材，适合编程爱好者自学使用。

VB是VisualBasic编程语言编写计算机程序需要使用计算机编程语言。计算机编程语言是人和计算机“对话”的桥梁。就像人类的语言一样，计算机编程语言也有很多。目前较为广泛使用的语言有“C”、“Pascal”、“Basic”等。在众多的计算机编程语言中，以BASIC语言最为易学易用。BASIC是英文Beginner"sAllpurposeSymbolicInstructionCode的缩写，意思为初学者通用符号指令代码，一直都是程序设计入门的首选语言。1991年，VisualBasic(简称VB)面世，他是第三代BASIC语言，它不但秉承了BASIC语言的易学易用的优点，而且增加了图形界面设计工具。它简化了复杂的窗口程序编写过程，让编程者将更多的精力致力于问题的求解过程。

　　给电脑安装VB程序的方法步骤： 　　1、首先在电脑上安装VM虚拟机； 　　2、将VB6、0文件包拖到虚拟机中安装好的XP系统中； 　　3、安装过程中若遇到不能继续安装的情况，停止即可； 　　4、安装双系统也可给电脑安装VB程序； 　　注意事项： 　　使用虚拟机请注意：如果卸载不当，那么为虚拟机分配的硬盘空间会彻底消失。

4.6 程序调试 1． VB的调试工具 （1）设置自动语法检查 　　 打开工具菜单 → 单击选项命令 → 选择 我器 页面 →将 自动语法检测 勾上。 （2）利用VB调试工具栏 　利用该工具栏可以运行程序、中断运行、在程序中设置间断点、监视变量、单步调试、过程跟踪等操作。 2． VB的三种模式 （1）设计模式 　　　在设计模式下可以进行程序的界面设计、属性设置、代码编写等，标题栏上显示“设计”，在此模式下不能运行程序，也不能使用调试工具。 （2）运行模式 　　　执行“运行”菜单中的“启动”命令或单击工具栏上的启动按钮或按F5键，即由设计模式进入运行模式，标题栏显示“运行”，在此阶段可以查看程序代码，但不能修改。若要修改，必须单击工具栏上的“结束”按钮，回到设计模式，也可以选择“中断”按钮，进入中断模式。 （3）中断模式 　　当程序运行时单击了“中断”按钮，或当程序出现运行错误时，都可以进入中断模式，在此模式下，运行的程序被挂起，可以查看代码、修改代码、检查数据。修改结束，单击“继续”按钮可以继续程序的运行，也可以单击“结束”按钮停止程序的执行。 3. 常见错误 （1） 我时错误 　　当用户在代码窗口我代码时，VB会对程序进行语法检查，当发现语句没有输完、关键字输错等情况时，系统会弹出对话框，提示出错，并在错误处加亮显示，以便用户修改。 （2）编译时错误 　　是指用户单击了“启动”按钮，VB开始运行程序前，先编译执行的程序段时产生的错误，此错误是由于用户未定义变量、遗漏关键字等原因而产生的。发现错误时系统会停止编译，提示用户修改。 （3）运行时错误 　　指VB在编译通过后，运行代码时发生的错误，一般是由于指令代码执行了非法操作引起的，如：数据类型不匹配、试图打开一个不存在的文件等。系统会报错并加亮显示、等候处理。 （4）逻辑错误 　　如果程序运行后得不到所希望的结果，则说明存在逻辑错误。如：运算符使用不正确，语句的次序不对、循环语句的起始、终值不正确。这种错误系统不会报错，需要用户自己分析判断。

1、启动VB6.0，创建一个标准工程。2、在窗体上右键选择“菜单编辑器”，或在“工具”菜单上单击选择也可以。3、在弹出的“菜单编辑器”窗口中，输入标题和名称，在标题括号内用“&”表示可以调出此功能，输入完毕，保存之后，就能在下面的显示区看见刚才编辑的菜单名称。4、在显示区中单击已经建好的菜单下面，再创建一个菜单。5、创建的菜单是否是原来新建的一级子菜单，或是二级子菜单，可以通过编辑区上的方向键来实现，单击右方向键按钮后，会看见它的一级子菜单前面有四个圆点，若是二级，圆点会增加到八个。6、创建完毕后，确定即可，现在在窗体上就可以看见刚才我们创建的下拉菜单了。所有软件都有菜单，最常用的就是下拉菜单和弹出式菜单，接下来就用VB6.0创建一个简易的下来菜单。工具/原料VB6.0计算机(WIN7系统)方法/步骤1、我们常用的记事本，菜单分为文件、编辑、格式、查看、帮助，一级菜单下面还有二级菜单、三级菜单，菜单中还有分隔线，接下来就介绍在VB6.0中怎么制作。2、打开VB6.0，新建一个工程，添加一个文本框，将其text属性清空，将其ScrollBars属性设置为2-Vertical，MultiLine属性设置为True，调整文本框大小，使其铺满整个窗体，将窗体Form1的caption属性改为“无标题－记事本”，将界面设置成下图。3、“工具”－-“菜单编辑器”，进入“菜单编辑器”对话框。4、首先添加文件菜单，如图进行设置。菜单编辑器中做箭头表示将菜单升级，右箭头表示将菜单降级，属于下一级菜单，上箭头和下箭头用于移动菜单项的位置。5、紧接着添加新建、打开、保存、另存为等子菜单。6、完成文件菜单的创建后，单击“下一个”命令按钮，使菜单变成一级菜单，接着完成“编辑”菜单的制作。7、需要进入二级菜单，就右箭头，退回上级菜单单击左箭头。完成菜单制作的最后效果如图。1、启动VB6.0，创建一个标准工程。2、在窗体上右键选择“菜单编辑器”，或在“工具”菜单上单击选择也可以。3、在弹出的“菜单编辑器”窗口中，输入标题和名称，在标题括号内用“&”表示可以调出此功能，输入完毕，保存之后，就能在下面的显示区看见刚才编辑的菜单名称。4、在显示区中单击已经建好的菜单下面，再创建一个菜单。5、创建的菜单是否是原来新建的一级子菜单，或是二级子菜单，可以通过编辑区上的方向键来实现，单击右方向键按钮后，会看见它的一级子菜单前面有四个圆点，若是二级，圆点会增加到八个。6、创建完毕后，确定即可，现在在窗体上就可以看见刚才我们创建的下拉菜单了。

　　VB编写程序的步骤可以分为三步： 　　设计程序的界面，根据想要实现的功能画出程序的界面；编写代码是最枯燥的一步，根据程序的功能，为每个控件元素编写代码，这是程序设计的关键所在；发布应用程序为程序创建安装项目。

1、首先，在电脑中找到并打开vb编程软件，然后选择标准EXE，点击打开。2、进入操作页面后，点击页面左上角的文件选项。3、然后在打开的文件下拉菜单中，找到并点击保存Form，命名保存。4、再点击文件，点击保存工程。5、最后保存完成后，进入文件夹查看即可。

编写快速高效的Windows程序是我们的实际需要。当前越来越多的专业和非专业编程人员都倾向于用VB来编写一些Windows下的应用软件。但不可否认：VB所写的应用软件由于不是真编译代码，逊色于用C＋＋和后起之秀Delphi编写的应用程序。以下参考有关资料并结合日常的使用经验，来谈谈如何在程度上弥补VB的这些不足，从而写出更加有效的Windows程序。提高Visual Basic应用程序的速度主要有以下几个途径 　　将窗口预先调入，隐藏在后面，然后在需要的时候显示。如果你的应用软件涉及几个比较复杂的窗口，那么在程序一开始运行时就将它们全部以Load方法调入，然后将不需要马上显示的窗口用Hide方法隐藏起来，在需要显示的时候才用Show方法显示。 　　将图形以BMP形式存盘。BMP格式的图形是Windows缺省的图片格式，Windows可以直接处理它们，而不需要进行过多的转化。 　　将有关的调试程序放在单独的模块中，利用DLL动态链接库。如果可能的话，调用一些Windows提供的DLL库函数，这些函数在内存中只会有一个实例，因而在重复调用时，能提高响应速度。而且调用DLL库函数，还能在一定程度上缩短代码长度。 　　尽量使用Integer和Long这两种变量类型来代替Single、Double和Currency变量类型。使用整型变量操作要比用浮点变量快得多，因而只要所操作的数不超过范围，就应该尽量使用Integer和Long变量类型。 　　在对象的属性设置中多使用缓冲变量。一些针对对象显示属性的直接操作，应该尽量使用缓冲变量，这样可以提高运行和显示的速度。比如文本框内的文本，就可以先读到字符串变量中，再一次性送入Text属性。 　　在不需要的时候，要尽可能地用Unload方法把控件或窗口卸载掉。窗口是较为耗费资源的，所以当一个窗口已经不需要的时候，可以用Unload方法将其撤出内存，释放出所占用的资源。同样，对于耗费资源的控件也可以用Unload方法。 　　尽量使用局部变量，只在需要的时候使用全局变量。因为VB要始终保留着这些全局变量，而局部变量则在退出过程时就释放了。

Visual Basic（VB）是由微软公司开发的包含协助开发环境的事件驱动程式语言。它源自於BASIC程式语言。VB拥有图形化使用者介面（GUI）和快速应用程式开发（RAD）系统，可以轻易的使用DAO、RDO、ADO连线资料库，或者轻松的建立ActiveX控制项。程式设计师可以轻松的使用VB提供的元件快速建立一个应用程式。

顺序、循环、分支。三种结构

1.10个*2.03.3

在桌面上，鼠标左键双击程序，在打开的VB6主界面上，左边是工具菜单栏，单击标签按钮，在Form1窗口上，绘制出一Label1，然后在其属性窗口上改个名字，如Caption为第一数，如下图所示。接着，用同样的方法，在Form1窗口上绘制出第二数，并且在左边工具菜单栏，单击文本框按钮，并绘制出来。在文本框属性栏的Text属性上，将其Text1删除，也就是清空数据，如下图所示。然后，反复用第一步骤和第二步骤做成如图所示的界面来，学习需要反复练习，在练习中不断进步。这里是做简单的加法程序，如下图所示。接着，加法程序的界面做好后，还不能执行加法运算，必须还要在Form1窗口上绘制出一个命令按钮来，在左边工具菜单栏，单击命令按钮，并绘制出来。然后给其属性窗口下Caption改名为计算，如下图所示。然后，程序看起来是做好了，单击如图所示的运行按钮，弹出自己做出的Form1窗口，输入数字3和6，然后单击计算。可是结果并没有出现，如下图所示。最后，前面5个步骤只是做了程序的界面，想要程序出结果，那必须加些代码了，既然是简单程序，只加一行代码就可以了。双击命令按钮，在代码窗口中输入如下：Text3.Text = Val(Text1.Text) + Val(Text2.Text)后，再单击运行，输入数字，单击计算，此时就出现结果了，如下图所示。

VisualBasic是一种由微软公司开发的包含协助开发环境的事件驱动编程语言。从任何标准来说，VB都是世界上使用人数最多的语言——不仅是盛赞VB的开发者还是抱怨VB的开发者的数量。它源自于BASIC编程语言。VB拥有图形用户界面（GUI）和快速应用程序开发（RAD）系统，可以轻易的使用DAO、RDO、ADO连接数据库，或者轻松的创建ActiveX控件。程序员可以轻松的使用VB提供的组件快速建立一个应用程序。VB的中心思想就是要便于程序员使用，无论是新手或者专家。VB使用了可以简单建立应用程序的GUI系统，但是又可以开发相当复杂的程序。VB的程序是一种基于窗体的可视化组件安排的联合，并且增加代码来指定组件的属性和方法。因为默认的属性和方法已经有一部分定义在了组件内，所以程序员不用写多少代码就可以完成一个简单的程序。过去的版本里面VB程序的性能问题一直被放在了桌面上，但是随着计算机速度的飞速增加，关于性能的争论已经越来越少。窗体控件的增加和改变可以用拖放技术实现。一个排列满控件的工具箱用来显示可用控件（比如文本框或者按钮)。每个控件都有自己的属性和事件。默认的属性值会在控件创建的时候提供，但是程序员也可以进行更改。很多的属性值可以在运行时候随着用户的动作和修改进行改动，这样就形成了一个动态的程序。举个例子来说：窗体的大小改变事件中加入了可以改变控件位置的代码，在运行时候每当用户更改窗口大小，控件也会随之改变位置。在文本框中的文字改变事件中加入相应的代码，程序就能够在文字输入的时候自动翻译或者阻止某些字符的输入。VB的程序可以包含一个或多个窗体，或者是一个主窗体和多个子窗体，类似于操作系统的样子。有很少功能的对话框窗口（比如没有最大化和最小化按钮的窗体）可以用来提供弹出功能。VB的组件既可以拥有用户界面，也可以没有。这样一来服务器端程序就可以处理增加的模块。VB使用参数计算的方法来进行垃圾收集，这个方法中包含有大量的对象，提供基本的面向对象支持。因为越来越多组件的出现，程序员可以选用自己需要的扩展库。和有些语言不一样，VB对大小写不敏感，但是能自动转换关键词到标准的大小写状态，以及强制使得符号表入口的实体的变量名称遵循书写规则。默认情况下字符串的比较是对大小写敏感的，但是可以关闭这个功能。VB使得大量的外界控件有了自己的生存空间。大量的第三方控件针对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数据类型，也可以在一行中定义多个变量，DimIndexAsInteger,DimNumberAsLong。3、然后，要调用或改变MyHome的值时，类似于对对象的属性的操作，VB建立了一种新的变量类型——货币型变量，通过使用仅带有二位小数的货币变量，就能避免因使用实型变量而带来的数值积累误差问题。VB在调用函数（Function）时，必须在函数名后跟一对括号。VB对白兰地使用范围重新做了规范，在Basic里把隐含变量都当作全局变量，而在VB里对隐含变量都当作局部变量。VB里的说明语句（Declare），仅支持动态链结库（DLL）的子程序和无变量函数。使用数组，必须事先用Dim或Redim进行定义。在使用注释语句之前必须先了解注释的作用，注释不仅仅是对程序的解释，有时它对于程序的调试也非常有用，譬如说可以利用注释屏蔽一条语句以观察变化，发现问题和错误。以后注释语句将是我们在编程里最经常用到的语句之一。在VB里，注释语句有两种，一种是用“Rem”关键字，这跟DOS里的批处理文件的用法一样，还有一种是利用单引号“"”，例如：‘DimaAsString与RemDimaAsString的作用是一致的。长语句的分行在比较早的版本中，因为没有象C等语言用“；”隔开语句与语句，VB的语句是必须写在一行里的，不过后来版本的VB里如许用分行符“_”把一个长语句分成若干行来存放。4、然后，是Tahoma,8,134如果你学过任何一种编程的话，都会知道在程序里控制其流程的有两种语句，条件与循环，自然也不例外，VB其实不管哪种语言，条件和循环的样子都差不多，只不过各有各的规矩罢了。在条件语句里，我们先来学习“If??Then??”语句。它的一般语法是：IfThen???EndIf与C语言不同，VB的条件语句更符合英语的语法，如果Then后面所跟的语句只有一条，可以写成：IfThen而不用EndIf。有时我们还会用到IfThenElseEndIf更可以在Else里在嵌套If语句，如：IfThenElseIfElseEndIf。5、然后，是Tahoma,8,134SelectCasea%Case1Printa=Case2Printa=CaseElsePrintadoesnotequalto1or2，EndSelect，循环结构是计算机语言里一种重要的结构，它的应用广泛，最简单的例子是累加器的作用，还可以用于穷举法，更直观的例子是把某件事重复指定的次数，这样就不用把要重复的语句输入多次，而通过循环结构完成，非常方便。C语言里有一个for循环语句，VB里也有For关键字，作用也差不多，只是VB的For语句更容易理解。它的格式是：For=To[Step]，Next在默认情况下，Step被设为1，可以省略，Step也可以设为负值，Dima=ForI=1To10a=NextI这是一个最简单的累加器的例子，把1到10累加在一起，然后赋值给a这样的效果和上面是一样的，只不过是倒着加罢了，请看：Dima=ForI=10To1。6、最后，While后面都跟逻辑条件判断，DoWhile??Loop语句和While??Wend语句作用相似，都是先判断While后面的条件是否为真，如果为真则执行里面的语句，如果为假，则退出循环，循环直至条件为假终止。Do??LoopWhile与前两者的区别在于，它不管条件的真假，都会先执行Do后面的语句，也就是说，它至少执行语句一次。与While用法相似的还有Until语句，它是直至条件为真则终止循环，句式把While上述三个语句的While换成Until即可，但是因为容易记混，所以我建议只用While即可。Until可以相当于WhileNot<条件>。For循环和Whlie循环应当根据适当的环境使用，它们有时也可替换。运算操作数学运算＋：加法运算，也适合于字符串的之间的合并运算。－：加法运算。*：乘法运算。/：除法运算。：整除运算。Mod：求余运算。例如：aModb表示a被b整除以后的余数。^：幂运算。A^B表示以A为底的B次方。

Private Sub Command1_Click()MsgBox Abs(Text1.Text)End Sub

if a>8 or a<5 then你的程序语句【满足条件时执行】else你的程序语句【不满足条件时执行】end if

VB中程序流程有顺序，选择分支和循环三种结构。顺序结构。顺序结构是最简单的算法结构，语句与语句之间，框与框之间是按从上到下的顺序进行的。它是由若干个依次执行的处理步骤组成的，它也是任何一个算法都离不开的一种算法结构，如图，其中A和B两个框是依次执行的，只有在执行完A框所指定的操作后，才能接着执行B框所指定的操作。顺序结构的一个简单的例子是交换变量a和b的值。程序框图如图：条件分支结构。在一个算法中，经常会遇到一些条件的判断、算法的流程根据条件是否成立有不同的流向，这种先根据条件作出判断，再决定执行哪一种操作的结构称为条件分支结构，如右图所示的一个条件分支结构，此结构中包含一个判断框，根据给定的条件P是否成立而选择执行A框或B框，请注意，无论P条件是否成立，只能执行A框或B框之一，不可能既执行A框又执行B框，也不可能A框和B框都不执行。无论走哪一条路径，在执行完A框或B框之后，脱离本条件分支结构。A框或B框两个框中，可以有一个是空的，即不执行任何操作。程序框如下图：循环结构。需要重复执行同一操作的结构称为循环结构，即从某处开始，按照一定条件反复执行某一处理步骤，反复执行的处理步骤称为循环体。循环结构中通常都有一个起循环计数作用的变量，这个变量的取值一般都包含在执行或终止循环的条件中。循环结构有while型循环（也称当型循环）和until型循环（也称直到型循环）两种，要注意这两种循环的联系和区别。例如：作出计算1+3+5+…+n的程序框图：

VB是事件驱动的，所以和执行流程相关的代码都分散在各个事件过程里。唯一一个例外的就是启动过程sub main()该过程写在通用模块Module里面，并且你要指定以该过程为启动点。一般默认是以窗体为启动点，这将载入窗体，如果你添加了Form_Load事件那么就执行该过程然后显示窗体。其他代码就看你的代码在那个事件里了，比如有按钮，那么点击按钮就会触发Click事件（如果你有写这个事件的话）

Private Sub Command1_Click()Form1.FontSize = Val(Form1.FontSize) + 3Print "欢迎使用VB"End SubPrivate Sub Command2_Click()Form1.FontSize = Val(Form1.FontSize) - 3Print "欢迎使用VB"End SubPrivate Sub Command3_Click() Form1.FontBold = True Print "欢迎使用VB"End SubPrivate Sub Command4_Click()Form1.FontBold = FalsePrint "欢迎使用VB"End SubPrivate Sub Form_DblClick()EndEnd Sub

vb中运行程序的方法，指的是启动自身程序吗？如果是有以下方法可以启动程序：1、按快捷键F52、顶部标准菜单中的启动按钮，也就是那个黑色三角行3、顶部菜单中的运行--启动4、编译为exe，运行。

1.既然是入门呢,第一步当然是要启动VB:双击VB图标后会自动弹出“新建工程”对话框,...2.接下来就是添加“控件”了:从界面的左侧选中我们需要的“Label”控件并在“F...3.完成了各种控件的添加,及时修改“Captain”等属性,可以使编程更加直观。4.接下来就是最关键的编写代码环节了:双击“计算”(也就是之前的“Command 2”)按...5.那为了方便操作呢,可以进行小小的完善——添加“重置”功能: 双击“重置‘按钮,...

程序界面如上图所示：一个标签（名称为Label1)，三个复选框（名称分别为Check1、Check2和Check3,Caption属性分别为红、绿和蓝）一个命令按钮（名称为Command1,Caption属性为结束）,完成程序功能的代码如下：Dim red As IntegerDim green As IntegerDim blue As IntegerPrivate Sub Check1_Click()If Check1.Value = 1 Then red = 255Else red = 0End IfLabel1.BackColor = RGB(red, green, blue)End SubPrivate Sub Check2_Click()If Check2.Value = 1 Then green = 255Else green = 0End IfLabel1.BackColor = RGB(red, green, blue)End SubPrivate Sub Check3_Click()If Check3.Value = 1 Then blue = 255Else blue = 0End IfLabel1.BackColor = RGB(red, green, blue)End SubPrivate Sub Command1_Click()EndEnd SubPrivate Sub Form_Load()red = 0green = 0blue = 0Label1.BackColor = RGB(red, green, blue)End Sub

sub 过程不能带参数的改成function吧 ,并且函数调用也不是这样的（）里的是传入的参数，sum或其他的变量可以作为传出的数据，你好像搞错了-----------这是我的理解按你的要求，试试如下代码：""""""""""""""""""""""Public Function sum(ByVal n As Integer)S = 0For n = 1 To nS = S + nNextsum = SEnd FunctionPrivate Sub Command1_Click()Dim s1, s2, s3 As IntegerDim y As Singlem = Val(Text1.Text)n = Val(Text2.Text)p = Val(Text3.Text)s1 = sum(m)s2 = sum(n)s3 = sum(p)y = (s1 + s2) / s3Text4.Text = Round(y, 2)End Sub o,my god!我也错了--这样也行：Public Sub sum(ByVal n As Integer, ByRef S As Integer)S = 0For n = 1 To nS = S + nNextEnd SubPrivate Sub Command1_Click()Dim s1 As Integer, s2 As Integer, s3 As IntegerDim y As Singlem = Val(Text1.Text)n = Val(Text2.Text)p = Val(Text3.Text)Call sum(m, s1)Call sum(n, s2)Call sum(p, s3)y = (s1 + s2) / s3Text4.Text = Round(y, 2)End Sub

先保存哪个都可以，没有不可预知的后果！！

Private Sub Form_Load() MsgBox ("Hello World")End Sub

按一下F5，就能看到了，如果要编译生成EXE的话就点“文件—生成.exe”

VB可视化编程的方法与步骤1、新建一个工程2、添加控件3、设置属性4、编写代码5、运行工程6、修改工程

说清楚些啊、

可视化编程 编号后 可以立即去看程序效果

dima,b,sa=val(inputbox("请输入一个数字"))b=val(inputbox("请输入另一个数字"))ifb<>0thenmsgboxa&"+"&b&"="&a+b&vbcrlf& a&"-"&b&"="&a-b&vbcrlf& a&"*"&b&"="&a*b&vbcrlf& a&"/"&b&"="&a/b&vbcrlfelsemsgboxa&"+"&b&"="&a+b&vbcrlf& a&"-"&b&"="&a-b&vbcrlf& a&"*"&b&"="&a*b&vbcrlf& "除数为0,无法计算除法运算"endif

Private Sub Command1_Click()Shell "explorer http://www.baidu.com", 1End Sub

请问你用来查找文件还是查找文本框里的内容..以下查找文本内容:添加一个窗体名字随便 一个Textbox控件 名称改为Text2Checkbox 控件 Label2 caption属性"区分大小写(&C)"Label1控件的caption属性为"查找内容(&N):" Optionbox名称改为Option3 caption属性向上 Optionbox名称改为Option4 caption属性向下2个Command控件 名称分别叫OKButton CancelButton然后以下是代码"这个AIP设置窗体总显示在最前Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As LongConst HWND_TOPMOST = -1Const SWP_SHOWWINDOW = &H40Dim started As Boolean, Search As String, Where As Integer, 复选 As Boolean, modolo As StringPrivate Sub CancelButton_Click()Unload MeEnd SubPrivate Sub Check1_Click()If Check1.Value = 1 Then复选 = TrueElse复选 = FalseEnd IfEnd SubPrivate Sub Form_Load()Dim retvalue"将窗体设置为处于所有窗口的顶层，注意在 VB 中运行时，可能不行，但编译成EXE后就可以了retvalue = SetWindowPos(Me.hwnd, HWND_TOPMOST, Me.CurrentX, Me.CurrentY, 380, 120, SWP_SHOWWINDOW)started = TrueOKButton.Enabled = False "查找按纽设置无效End SubPrivate Sub OKButton_Click()If 复选 = True ThenSearch = Text2.Text " 获取需要查找的字符串。modolo = Form1.Text1.Text "源文本内容ElseSearch = UCase(Text2.Text) " 获取需要查找的字符串。modolo = UCase(Form1.Text1.Text) "源文本内容End IfIf started = True Then "如果选择向下查找 Where = InStr(Where + 1, modolo, Search) " 在文本中查找字符串从开始算起。 If Where Then " 如果找到， Form1.Show Form1.Text1.SelStart = Where - 1 " 设置选定的起始位置并 Form1.Text1.SelLength = Len(Search) " 设置选定的长度。 Else MsgBox "没有找到" & Text2.Text " 给出通知。 End IfElse "如果选择向上查找 If Where - 1 <> 0 Then Where = InStrRev(modolo, Search, Where - 1) " 在文本中查找字符串从末尾算起。 If Where Then " 如果找到， Form1.Show Form1.Text1.SelStart = Where - 1 " 设置选定的起始位置并 Form1.Text1.SelLength = Len(Search) " 设置选定的长度。 Else MsgBox "没有找到" & Text2.Text " 给出通知。 End If Else: MsgBox "没有找到" & Text2.Text " 给出通知。 End IfEnd IfEnd SubPrivate Sub Option3_Click()started = FalseEnd SubPrivate Sub Option4_Click()started = TrueEnd SubPrivate Sub Text2_Change()OKButton.Enabled = TrueEnd Sub

这种问题很愚蠢，只能出自某本书上说十个步骤也行，说五个也行

你新建个文本,把 msgbox "VB" 这几个字母另存为 a.vbs 运行一下就知道了呵呵

1、VB程序设计以Visual Basic 6.0简体中文版为语言背景，深入浅出的介绍Visual Basic 6.0程序设计技术，基本涵盖了Visual Basic 6.0编程时的常用内容。x0dx0a2、VB程序设计共分14章，主要内容包括开发环境、语言基础和数组与过程、常用控件、菜单设计、文件处理、ActiveX控件、数据库程序设计、图形程序设计、多媒体编程、网络编程、API函数和注册表、安装程序的制作和综合实例。x0dx0a3、为了方便读者学习，《VB程序设计》提供多媒体课件，及例题和练习题的所有源代码。x0dx0a4、VB程序设计可以作为大中专院校计算机及相关专业的教材，适合编程爱好者自学使用。

携带，和

vb是比c语言，更简单跟通用的语言

很高兴你能回答问题!保存分为工程和form1(窗体)保存工程具体操作是菜单栏上的文件->保存工程->选中文件夹,然后保存就行了!如果你没保存过form1(窗体),它会提示你是否保存窗体,这很重要,一定要保存,不然没窗体生成不了EXE!保存form具体操作是菜单栏上的文件->保存form->选中文件夹,然后保存就行了,不会提示!编译是生成EXE程序,不是保存文件!要编译的话具体操作是菜单栏上的文件->生成工程x(x是工程的分类名,数字形的)->选中文件夹,就可以编译了!

1.打开软件,将出现新建工程对话框。这里有很多选项。对新手来说,最常用就标准EXE和V...2.出来的界面即为所见所得界面设计。在General下面有许多控件,可以任意放置到Form1...3.双击Form1 对话框即可进入程序设计界面。在Form列表框中为工程用到的函数,...4.如下以制作个时钟为例,往Form1对话框中增加时间控件(timer)及文本框控件(...5.设置timer控件Interval属性。此为多少毫秒触发。要看到秒变,所以设置为1...

如果你在窗体里拖一个按钮然后双击添上如下代码.privatesubcommand1_click()msgbox"good",vbinformation,"title"endsub那自然是有东西了.如果你窗体上什么控件都没有.如果你仅仅进行一些在内存中的操作.如privatesubform_load()dimaasintegerdimbasintegerdimsumasintegera=1b=2sum=a+bendsub仅仅在内存中进行了运算.没有任何显示、提示当然是什么也没有拉显然不是慢的原因拉、现在的机器运行vb不存在慢的问题了.请多看看程序.

先用 cd 命令转到 vb6.0 的安装目录，然后输入：vb6 /make vbp文件全路径 就可以进行编译了。

51、len函数，检测字符成的长度。right函数，从右边在指定的字符串中截取一定数量的字符组成新的字符串。52、DIM A （9） AS NTEGER 惠用红色标注这一行，不能运行。以下省略。

Private Sub Command1_Click()Static n As Long, m As Longm = Val(Text2)n = n + 1If Text1 = "psw123" ThenMsgBox "口令正确", vbExclamation, "登录"n = 0ElseIf n >= m ThenMsgBox n & "次输入错误，请退出", vbExclamation, "登录"EndElseMsgBox "第" & n & "次口令输入错误，请重新输入", vbExclamation, "登录"Text1.SetFocusEnd IfEnd IfEnd SubPrivate Sub Form_Load()Label1.Caption = "口令："Label2.Caption = "允许输入口令的次数："Command1.Caption = "确定"Me.Caption = "登录"Text1 = ""Text1.PasswordChar = "*"Text2 = 3End Sub

SelectCaseMSComm1.CommEvent"根据事件进行分支CasecomEvReceive"如果是接收事件Inbyte=MSComm1.Input"获取传送过来的数据到inByte数组中Fori=LBound(Inbyte)ToUBound(Inbyte)"循环这个数组，用于在下面的语句中读取buffer=buffer+Hex(Inbyte(i))+Chr(32)"读取数组的内容转换成16进制后，以空格为分界隔开,将结果存放到字符串Buffer中Chr(32)是空格NextiCasecomEvSend"如果是发送事件EndSelect"分支结束

我是用vb.net2005写的语法和VB差不多我没有用控件数组，如果用VB控件数组的话就更好写了你参考一下.Public Class Form1 Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click End End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim a(12) As Integer Dim i As Integer Dim j As Integer = 0 Dim randomObject As New Random()For i = 1 To 12 a(i) = randomObject.Next() Next For i = 1 To 12 If j < a(i) Then j = a(i) End If Next For i = 1 To 12 If a(i) = j Then a(i) = -1 End If Next j = 0 For i = 1 To 12 If j < a(i) Then j = a(i) End If Next For i = 1 To 12 If a(i) = j Then a(i) = -1 End If NextDim b(12) As String For i = 1 To 12 If a(i) = -1 Then b(i) = "Empty" Else b(i) = a(i).ToString End If Next Dim z(9) As String z(0) = "A" z(1) = "B" z(2) = "C" z(3) = "D" z(4) = "E" z(5) = "F" z(6) = "G" z(7) = "H" z(8) = "I" z(9) = "J" j = 0 For i = 1 To 12 If b(i) <> "Empty" Then b(i) = z(j) j = j + 1 End If Next Label1.Text = b(1) Label2.Text = b(2) Label3.Text = b(3) Label4.Text = b(4) Label5.Text = b(5) Label6.Text = b(6) Label7.Text = b(7) Label8.Text = b(8) Label9.Text = b(9) Label10.Text = b(10) Label11.Text = b(11) Label12.Text = b(12)End SubEnd Class

打开VB，编写，生成

新建程序写程序代码编译程序

已发邮箱请查收

VB中有个编译器的有事百度Hi我

没结果，未定义变量a