VB语言程序设计的作品目录

　　以VB程序设计语言为工具，对特定的问题进行分析，并设计出解题的算法，根据得到的算法，用VB语言编写出源程序的过程就是vb程序设计。 　　VB是微软公司开发的一种通用的基于对象的程序设计语言，为结构化的、模块化的、面向对象的、包含协助开发环境的事件驱动为机制的可视化程序设计语言。是一种可用于微软自家产品开发的语言。

二、多窗体程序设计 　　 当应用程序功能较强和分类较多，程序和用户的交互频繁时，如果只用一个窗体和用户进行交互，一方面难以进行合乎美观原则的设计，另一方面分类工作很难，设计出来的界面不符合友好原则。这时使用多重窗体程序设计，增强程序界面的友好性。 多窗体指的应用中有多个窗体，它们之间没有绝对的从属关系。每个窗体的界面设计与单窗体的完全一样，只是在设计之前应先建立窗体，这可以通过菜单“工程”/“添加窗体”命令实现。程序代码是针对每个窗体编写的，当然，应注意窗体之间存在的先后顺序和相互调用的关系。所以，多重窗体实际上是单一窗体的集合，而单一窗体是多重窗体程序设计的基础。 　　一般说来，多窗体的设计基本分成以下几个步骤：　　 　◆分析应用要求，将其功能划分为不同的几部分 　◆分别创建各个窗体、模块 　◆在创建窗体时，除各窗体自身要完成的功能外，还要考虑窗体之间的调用关系 　◆点击[工程]/[属性]菜单，在[启动对象]中选择应用运行时首先执行的对象 　◆运行应用程序，检验应用及各窗体的运行情况 1、多窗体程序设计常用的方法 在单窗体程序设计中，所有的操作都在一个窗体中完成，不需要在多个窗体中切换。而在多窗体程序中，需要打开、关闭、隐藏或显示指定的窗体，这可以通过相应的语句和方法来实现。 在多窗体程序设计经常用到下面四种方法：Load,Show Hide和Unload. （1）Load方法 它的语法结构如下： Load [窗体名称] 使用Load方法调用的窗体被存入内存，并不显示出来，同时会产生一个Form_Load()事件。 例如：Load Form2 "将Form2窗体存入内存 （2）Show方法 它的语法结构如下： [窗体名称].Show Show方法用来显示被调用的窗体。Show方法兼有装入和显示两种功能，也就是说，在执行Show方法时，如果窗体不在内存中，则Show方法会自动的把窗体调入内存，然后再显示出来。 例如： Load Form2 Form2.Show "将Form2存于内存，并显示Form2窗体 （3）Hide方法 它的语法结构如下： [窗体名称].Hide 使用Hide方法会隐藏被调用的窗体，既不在屏幕上显示，但仍在内存中（与Unload方法不同），被调用的窗体中的属性等已经处于无效的状态。 例如： Form1.Hide Form2.Show "将Form隐藏，并显示Form2窗体 （4）Unload方法 它的语法结构如下： Unload [窗体名称] 使用Unload方法会清除内存中指定的窗体，与此同时，窗体中的变量和属性等都会处于无效的状态，在移去窗体的同时会产生一个Form_QueryUnload()事件。 例如：Form1.Show Unload Form2"显示Form1窗体，从内存中移去Form2窗体。 2、一个多窗体程序设计示例　　　　　　 下面就以一个示例来说明如何运进多窗体的程序设计（见教材P283）。 （1）启动新工程 1）设置属性　　 首先启动一个新的工程，屏幕出现一个空白的窗体，窗体的属性设置如下： 属性 设置 Name Form1 Caption Form1 BorderStyle 3-Fixed Dialog"窗体的大小不能够在程序的运行过程中改变 MDIChild False StartUpPosition 2-CenterScreen"窗体在程序的运行过程中始终位于屏幕的中央 Moveable False"在程序的运行过程中不能够移动窗体2）添加控件 　　在空白的窗体上添加如下控件：五个Label控件、四个TextBox控件和两个CommandButton控件。 　　　　　　　　　　　　　（2）添加窗体 选择菜单“工程（Project）”/“添加窗体（add form）”命令,弹出对话框，在添加窗体的对话框中选择"窗体"项，单击[打开]按钮，系统就会自动的向原有的工程中添加一个窗体。1）添加控件 　　 在新的窗体上放置一CommandButton控件，作用是在隐藏新增的窗体的同时显示原有的窗体。 则窗体如下：2）添加代码 在"继续"按钮的Command1_Click()事件中添加下列代码： Private Sub Command1_Click() Form2.Hide "隐藏窗体2 Form1.Show "显示窗体1 End Sub 程序说明：在窗体Form2被显示的过程中，单击[继续]按钮，就会激活Command1_Click()事件，然后通过Form2.Hide 和Form2.Show两条语句实现隐藏窗体和显示窗体的功能。 （3）添加说明模块 选择菜单[工程]/[添加模块],就会弹出对话框：在模块的声明段中添加下列代码： Global a1 as Single Global a2 as Single Global a3 as Single Global a3 as Single "定义四个全局变量，分别用来存储第一季度，第二季度、第三季度和第四季度的销售情况 （4）添加程序代码 1）窗体Form1中的代码如下： Private Sub Command1_Click() 　Form1.Hide 　Form2.Show End Sub Private Sub Command2_Click() 　End End Sub Private Sub Text1_Change() 　a1 = Val(Text1.Text)　＇VAL()函数用于将字符串转化为数值型 End Sub Private Sub Text2_Change() 　a2 = Val(Text2.Text) End Sub Private Sub Text3_Change() 　a3 = Val(Text3.Text)

分类: 电脑/网络 >> 程序设计 >> 其他编程语言 问题描述: 那些比如软件它能设计吗??它到底能设计什么??? 解析: 能设计出大部分的Windows平台的软件. 不过，有些软件虽然能做，但不擅长。例如用VB做游戏的话，原理上是可行的，也确实有人用VB开发过游戏，但不得不说太麻烦了。还有一些底层控制的程序也不好做。 VB目前主要用途还是用于快速制作不太复杂的、小型的桌面软件。所以你要想开发大型的软件，例如Photoshop或是3DMax之类的程序，VB显然是不能胜任的。

计算机的多媒体技术已经广泛普及, 对于一般的用户来说, 采用可视化编程工具是的选择, VB程序设计语言就是其中一个典型的代表。Visual Basic是Microsoft Windows的编程语言。Visual Basic是在一个集成开发环境（IDE）中创建的，IDE使得程序员可以方便地创建、运行和调试Visual Basic程序。Visual Basic是世界上使用最广泛的快速应用程序开发语言。为提高大家学习VB的兴趣，在这里，我们以一个简单的加法程序来体验一下VB的强大功能。 　　首先我们启动VB，在出现"新建工程"对话框后，选择"标准EXE"，单击"打开"按钮，即进入如下图的VB开发环境。　　第一步：单击工具箱中的"TextBox(文本框)"图标 ，移动鼠标指针到窗体Form1上，这时鼠标指针变成了"+"形状。拖出3个并排的有一点间距的方框出来，里面有text1、text2、text3的字样，分别选中它们，按鼠标退格键删除这些字样。再单击"Label(标签)"图标A，在刚才的3个方框之间拖2个标签框，分别键入加号"+"和等于号"="，最后单击"Command（命令按钮）"图标 ，在窗体的下方拖出一个按钮出来，拖出一个带有Command1字样的按钮，直接写上"计算"二字。如图所示： 　　第二步：双击"计算"按钮，会出现如下的代码窗口： 　　在Private Sub Command1_Click()和End Sub之间写上如下代码： M = Val (Text1.Text) N = Val (Text2.Text) K = Val (Text3.Text) If m + n = k Then Label1.Caption = "正确！" Else Label1.Caption = "错误！" End If 　　第三步：关闭代码窗口，点"运行"---"启动"。在文本框中分别填写2、5、7，再点"计算"按钮，看窗体上出现什么文字，关闭Forml，再"启动"，填写3、5、7后"计算"，看窗体上出现什么文字。这时你会发现，在输入第一次数据时，会显示正确！在输入第二次数据时，会显示错误！ 　　第四步：最后，我们来保存这个程序：首先点按"文件"----"生成工程"----选择保存地点为"C：",文件名为"jiafa"----"确定"。再到"C："中去，找到这个"jiafa"文件，我们可以从它的后缀名中得知，这是个不依赖VB程序可以独立运行的可执行程序。运行一下，很有成就感吧。 　　短短四步，我们就可以编制出一个简单的加法程序，可见，软件的编制并不是那么神秘，只要你肯专心学习，一定会取得非凡成就的。以上程序已在vb6.0调试通过。以上所讲的只是VB的一些基本操作，仅取抛砖引玉的作用，希望各位VB高手能提出更多更好的方法，让我们在学习VB的过程中不断地得到提高。

vb程序设计论文 　　在社会的各个领域，大家都跟论文打过交道吧，论文的类型很多，包括学年论文、毕业论文、学位论文、科技论文、成果论文等。如何写一篇有思想、有文采的论文呢？下面是我为大家收集的vb程序设计论文，希望能够帮助到大家。 　　Visual Basic（简称VB）是目前使用最广泛的一种程序设计语言，是在Basic语言的基础上发展起来的，它继承了Basic语言简单易用的优点，结合了可视化界面的设计方法，采用面向对象、事件驱动的编程机制，把Windows编程复杂性进行巧妙封装，使开发Windows环境下的各种应用软件变得更为容易。因此，目前国内很多高校都选择将《VB程序设计》这门课程作为理工科专业的一门基础课程。程序设计具有知识结构严谨、逻辑性强的特点，学生学习起来比较困难，教学效果也不尽如人意。如何提高本课程的教学质量和教学效果，是每位授课教师都会关注的课题。 　　1教学中存在的问题 　　就VB程序设计这门课程的教学现状而言，通常采用的还是以课本原有知识体系为脉络的传统讲授法，教学内容大多以线性方式展开，同时结合上机实践操作来巩固和熟悉课堂上所讲的每一章节的知识点。经过教学实践证明，这种教学模式能够让学生掌握Visual Basic的较多的理论知识，也可以阅读程序代码，但是让学生自己解决一些问题的时候，通常都会束手无策。经过分析总结出此课程在教学中存在的问题： 　　一是教学内容与教学目标不一致。VB程序设计课程的教学目标是培养学生程序设计的基本知识、思维方式以及基本的操作技能，而教师在实际授课时，大多单纯依照教材讲授理论基础知识，授课基本上是以语言自身的知识体系为脉络展开，过分注重语句、语法和结构的讲解，忽视对学生分析与解决问题能力的引导，不能很好的将编程环境、程序设计语言、算法、数据结构以及程序设计思想关联起来形成体系化教学。[1]导致学生只学会了语法概念而不会使用，能够读懂某一条语句，却无法理解一段代码的含义。 　　二是实验内容过于简单。上机实验大多都是属于基础与验证型实验，偏重于VB语言的基本语法和结构的练习，能够帮助学生更好的理解和掌握这些语法知识，但无法培养学生编程能力和解决实际问题的能力。实验内容普遍都是知识点案例，针对的是具体的一个或多个知识点，没有依托完整的实践项目，使学生对知识点的学习感到枯燥无味，而且很容易遗忘。 　　三是学生缺乏计算机的思维方式。学生在接触这门课程之前通常没有任何基础，学生普遍缺乏相应的知识背景和算法思想，对程序设计的思维方式还不适应，分析和解决问题的能力处于一个较低的水平。在学习过程中经常会出现这种情况，教师对程序进行分析讲解时学生能够听懂理解，代码也能够读懂，但是让学生自己编写时，就无处下手，久而久之学生对编程充满畏惧感，对学习本门课程缺乏兴趣。 　　如何改变目前教学中存在的问题，让学生能够更好地掌握VB语言，掌握程序设计的基本方法？需要对课程的教学进行改革和创新。 　　2课程教学改革 　　2.1拓展教学内容 　　本课程主要培养学生的程序设计思维方式和实际编程能力，而不是单纯的程序设计语言，因此必须打破固有的以“语法”和“结构”为中心的传统教学理念，以突出能力培养为主轴，围绕能力培养组织教学内容。教学内容的选择不能仅仅局限在一本教材上，要突破教材局限，将程序设计中所需要的众多知识点加以整合，包括VB语言的语法结构、可视化编程方法、常用的算法、数据结构以及程序的调试等，形成新的知识体系。在这里算法是程序设计的核心，而语言只是一种工具，在授课的过程中，特别是讲解实例时，需要剥开语言这层外壳，让学生掌握其中的精粹——算法，也就是如何利用计算机来解决某一具体问题。 　　当然，这并不是说语言不重要，语言是程序设计的工具，如果不掌握语言，程序设计就无从谈起。教材上的语法描述非常细致、系统，但大量的语法规则会使初学者感觉枯燥，这非常影响学生的学习兴趣。根据二八定律，在任何一组东西中，只有20%是最重要的，事实上VB语言也是如此，最常用、最重要的知识点并不是很多。因此在讲述语法时，只需提供给学生最基本的语法知识，其余的细枝末节可以由学生自学。 　　2.2优化教学方法和教学策略 　　在程序设计的教学中，传统讲课方式的缺陷已众所周知，因为这是一种以教师为主、学生为辅的一种授课形式，讲课中教师是积极的而学生是消极的，很难把学生吸引到学习进程之中。但这不是意味着要把这种授课方式抛弃，讲课是把大量知识传递给学生的一种常用模式，尤其在本课程的教学中，学生缺乏普遍缺乏知识背景，大量的理论知识需要传递给学生，这就需要教师进行详细地讲解。在讲解时应该采用多种策略，比如在讲述抽象概念时最好与实践相关联，或者与学生已有的知识联系起来，这样比较容易理解。在提到函数和数据类型的.时候，可以跟学生比较熟悉的Excel中的相关概念关联起来。在讲述面向对象的概念时，可以拿Windows操作系统作为例子，它就是依照面向对象的思想编制而成的，在桌面上的每个图标，可以理解成一个对象，当需要启动某个对象时，只需用鼠标点击它（消息驱动）。[2]不仅如此，在不同的情境下还需要灵活运用多种教学方法，如问题法、引导法、任务驱动和实例教学法等，这样有助于让学生从消极的学习者转变为积极的学习者。 　　2.3完善实验教学体系 　　VB程序设计是一门理论性和实验性都很强的课程，对实验环节有较高的要求。要学好这门课，学生只有经过大量的上机实验，才能掌握程序设计的技能和方法。因此，在教学过程中要给学生留出足够的上机时间，让学生在实验中理解VB语言的基本概念，掌握基本的编程方法。结合学生的专业方向，精心选择合适的案例、设计型与研究型课题，构建有助于培养学生动手能力和程序设计思维方式的实验教学平台。整个实验环节分为三个层次设计，基础验证型、设计开发型和研究创新型实验，每次实验课有多个基础验证型实验，帮助学生掌握相应的语法知识和算法设计，每一章精选1～2个设计开发型实验，与学生分析讨论解题思路，引导学生独立解决问题，培养学生的上机调试能力。学生以小组为单位，选择一个与其专业相关的研究题目，要求学生逐步完成研究分析与报告，写出个人的心得体会，并在学期末给出一定的时间完成课题。 　　2.4创建项目实例库 　　充分利用网络资源，搜集各类完整的VB程序实例，从中选取典型的、有实际意义的实例，作为程序设计的模板提供给学生。大多数学生基本上是初次接触计算机程序设计，习惯采用数学思维方式来分析问题，还没有真正掌握计算机编程的基本思路。在实验过程中，遇到一个新的题目，学生往往不知道从何下手，思路不清晰，此时就可以从项目实例库找出对应的实例，通过借鉴或修改相应的模板得到结果。“熟读唐诗三百首，不会做诗也会吟”，经常阅读这些实例，能够拓展学生的视野，促进学生对于程序设计思想的理解与认识，提高学生的编程能力。 　　在具体实施上，整理出40～50个典型项目实例，将它们分为五大类：基础类、算法类、图形类、文本类和应用类，供学生自主学习，另外从中选取6～8个典型的项目实例，要求学生必须理解掌握，这些实例基本上包含了这门课程的知识要点，理解了这些实例，对于课程的知识结构会有一个全面的了解。其中，学生最喜欢也最有兴趣的实例就是弹球游戏，通过对弹球游戏程序代码的阅读分析，学生能够更好地掌握定时器控件和控件坐标等相关的知识，学生也很有兴趣地去改写程序代码，以获得类似的动画效果，可见好的实例能够激发学生的求知欲望，提高学生的学习积极性，培养学生分析问题和解决问题的能力。 　　3结束语 　　VB程序设计课程对于理论知识和实际操作均有较高要求，教学时需要综合运用多种教学方法和教学策略，充分调动学生的学习积极性和主动性，将教学重点放在算法的分析和编程的训练上，注重实验教学环节，加强对学生程序设计思维方式和实际编程能力的培养，提高课程的教学效果。 ;

VB（Visual Basic）是由微软公司开发的包含环境的事件驱动编程语言。它源自于BASIC编程语言。VB拥有图形用户界面（GUI）和快速应用开发程序（RAD）系统，可以轻易的使用DAO、RDO、ADO连接数据库，或者轻松的创建ActiveX控件。程序员可以轻松地使用VB提供的组件快速创建一个应用程序。Visual Basic .NET（VB.NET）是.NET Framework框架下的一种多重编程范式高级语言。VB.NET，是微软公司于2002年作为原有的Visual Basic的继承者而推出。虽然自2005年起，语言名称中的“.NET”就已经被去掉了。但为了与VB 6.0及以前版本的Visual Basic进行区分，“Visual Basic .NET”的名字仍然被社会公众用来指代VB 7.0及以后的Visual Basic。VB.NET与C#同为.Net Framework框架下两种主要的程序设计语言，都是为了调用.Net Framework的类库资源，因此两种语言具有很高的对应性，数据类型、控制结构与语言特性都存在一一对应，容易把源代码从一种语言对译为另一种语言。

明天给你程序，留邮箱或QQ

1b 3d 4b 5c 6d 7c 8c 9c 10d 11对 12对 13对 14对 15对 16对 17错　18错　19错

毕竟视图化了的编程都是不难学的。自己按照书本上或者网上的一些例子做几个小的软件，再试着做一些大点的复杂点的软件，对代码有一定的语感之后，就可以去网上读一些比较难的代码，一些代码是很珍贵的，保存下来，以后你编程的时候可以用，因为过程还是那个过程，属性还是那个属性，不同的是对象。1,学习程序设计的基本要求2,Vb的功能及特点3,学习VB程序设计的方法对学习者知识的要求:首先,学习程序设计要具备一定的数学基础.计算机与数学有很大的联系,综观计算机历史,计算机的数学模型(图灵机,由Alan Turing提出)和体系结构(由John Von Neuman提出)等都是由数学家提出的,最早的计算机也是为数值计算而设计的.因此,要学习好计算机就要有一定的数学基础.不过对于初学者来说,在数学基础方面的要求并不是很高,从我个人的角度来看,有高中数学水平就差不多了.

基本要求n 利用菜单和基本控件完成设计。n 完成的程序界面要美观，能够完成管理的整个过程。n 读入已经存在文本文件xscj.txt中的学生成绩并保存。n 文本框中显示学生成绩。n 单科成绩排序：按学号排序，按成绩排序，并显示。n 计算各科最高分，并显示最高分学生信息，并显示。n 计算学生总成绩，并显示。n 按总成绩排名，并显示。3.创新要求在基本要求达到后，进行创新设计，创新方向提示如下：对单个学生的成绩查询。三、设计方法和基本原理程序只需一个窗口，程序界面设计状态示意图：1）通过单击菜单“成绩录入”将已经存在文本文件中的学生成绩读入学号、姓名和五门课程英语、数学、计算机、历史和体育成绩，保存在数组中，并显示在文本框中。2）单击“单科显示”，“学号排序”/“成绩排序”后右侧出现下拉列表框，从中选择科目后，在文本框中显示结果3）单击“单科显示”，“各科最高分”后，文本框显示各科最高分和获得最高分学生的学号姓名。4）单击“考试总成绩”，“总成绩”，计算每个人总成绩，并显示最后结果。5）单击“考试总成绩”“总成绩排名”，按总成绩降序排序。2.问题的解决方案①设计程序界面因为用的全是基本控件，界面设计没有什么难度，照样子拼就可以了，程序要用菜单控制。②编写代码根据问题描述，可以将问题解决分为部分：（1）文本文件中存储学生成绩，首先要把成绩读入，每科成绩、学号和姓名存放在数组中。参考课本第七章（2）显示单科成绩，通过列表框选择要显示的课程，按学号排序。按成绩排序，选择指定的课程排序时学号和姓名要同时交换。计算每门课程的最高分，记录下来再文本框显示。（3）计算每个同学的总成绩放入数组中存储，然后排序方法降序排序进行排名。四、主要技术问题的描述1 ）按成绩排序，选择指定的课程排序时学号和姓名要同时交换2）用于存储学生学号、姓名和五门课程的数组应声明为模块级。一旦数组中有了文件的内容，则可以将其内容逐行地、通过字符串连接符赋给文本框的Text属性，就可以显示出来了。要控制文本框中文本的换行可以利用VB的系统常数vbCrLf来实现。

属性的设置。我这没有VB,C#和DELPHI有。供参考。Delphi中使用MaskEdit组件。设置EditMask属性，可以限定长度、特殊输入等。设置PasswordChar属性，设置为"*".输入显示即都为*

Private Sub Command1_Click()Me.CommonDialog1.ShowOpenText1.Text = Me.CommonDialog1.FileNameEnd SubPrivate Sub Form_Load()Me.CommonDialog1.Filter = "*.txt|*.txt"End Sub

补充：2、c、a未必是整型, b是整型9、 c、Dir1_Change事件10、d、n!

代码部分如下：sub command1_click()dim a(1 to 3, 1 to 3) as integer, s as integer, i as integer,j as integers=0for i=1 to 3for j=1 to 3 a(i,j)=int(rnd*9)+1 s=s+a(i,j) print a(i,j)," ";next jprintnext iprint send sub

只需要用Replace函数就行了格式 : 变量 = Replace(源字符串,要被替换掉的内容,替换的内容)然后msgbox 输出这个变量就行了

"//请将以下的文件保存为一个Form1.frm文件，这样你就可以在VB6中运行了,正是你想要的程序。VERSION5.00BeginVB.FormForm1Caption="登陆"ClientHeight=2190ClientLeft=60ClientTop=345ClientWidth=4635LinkTopic="Form1"ScaleHeight=2190ScaleWidth=4635StartUpPosition=3"窗口缺省BeginVB.TextBoxText2Height=375IMEMode=3"DISABLELeft=1560PasswordChar="*"TabIndex=1Top=600Width=1935EndBeginVB.TextBoxText1Height=375Left=1560TabIndex=0Text="SYL"Top=120Width=1935EndBeginVB.CommandButtonCommand2Caption="登陆"Default=-1"TrueHeight=495Left=1560TabIndex=2Top=1320Width=1215EndBeginVB.CommandButtonCommand1Caption="退出"Height=495Left=3000TabIndex=3Top=1320Width=1215EndBeginVB.LabelLabel2AutoSize=-1"TrueCaption="口令"Height=180Left=480TabIndex=5Top=840Width=360EndBeginVB.LabelLabel1AutoSize=-1"TrueCaption="用户名"Height=180Left=480TabIndex=4Top=240Width=540EndEndAttributeVB_Name="Form1"AttributeVB_GlobalNameSpace=FalseAttributeVB_Creatable=FalseAttributeVB_PredeclaredId=TrueAttributeVB_Exposed=FalsePrivateSubCommand1_Click()UnloadMeEndSubPrivateSubCommand2_Click()IfText1.Text="SYL"AndText2.Text="123456"ThenMsgBox"欢迎登录",vbInformationElseMsgBox"不正确的用户名或密码",16EndIfEndSub

楼上的做的非常好了，不做了，呵呵

1，高级语言（High-levelprogramminglanguage）相对于机器语言（machinelanguage，是一种指令集的体系。这种指令集，称机器码（machinecode），是电脑的CPU可直接解读的数据）而言。是高度封装了的编程语言，与低级语言相对。它是以人类的日常语言为基础的一种编程语言，使用一般人易于接受的文字来表示（例如汉字、不规则英文或其他外语），从而使程序编写员编写更容易，亦有较高的可读性，以方便对电脑认知较浅的人亦可以大概明白其内容。2，高级语言程序设计是指C/C++,JAVA,VB,VF等程序设计语言，可以让编程者读懂的程序设计语言，机器不能够直接编译；其次是汇编语言，人和机器都可以读懂，机器可以直接编译的语言；最低端的是机器语言，机器可以直接编译但是编程者不以读懂。3，VB是指VisualBasic。是一种由Microsoft公司开发的结构化的、模块化的、面向对象的、包含协助开发环境的事件驱动为机制的可视化程序设计语言。从任何标准来说，VB都是世界上使用人数最多的语言——不管是盛赞VB的开发者还是抱怨VB的开发者的数量。它源自于BASIC编程语言。VB拥有图形用户界面（GUI）和快速应用程序开发（RAD）系统，可以轻易的使用DAO、RDO、ADO连接数据库，或者轻松的创建ActiveX控件。程序员可以轻松的使用VB提供的组件快速建立一个应用程序。

我可以提供代码的，

Private Sub Command1_Click() "第1题 Dim i As Long Cls For i = 1 To 30 Print CStr(SJ(1, 100)) Next iEnd SubPrivate Function SJ(ByVal LowerBound As Long, ByVal UpperBound As Long) As Long Randomize SJ = Int((UpperBound - LowerBound + 1) * Rnd + LowerBound)End FunctionPrivate Sub Command2_Click() "第2题 Print "S=5!+6!+7!=" & CStr(JC(5) + JC(6) + JC(7))End SubPrivate Function JC(ByVal N As Long) As Long Dim i As Long JC = 1 For i = 1 To N JC = JC * i Next iEnd FunctionPrivate Sub Command3_Click() "第3题 Const MAX As Double = 1000 Const N As Long = 100 Dim i As Long, j As Long, k As Long, S As String Dim D(1 To N) As Double, E As Double For i = 1 To N Randomize D(i) = Round(Rnd * MAX, 2) S = S & CStr(D(i)) & vbTab If i Mod 10 = 0 Then Print S S = "" End If Next i If N Mod 10 <> 0 Then Print S "以上取得多个随机数 E = D(1) For i = 2 To N E = BJ(E, D(i)) Next i Print "最大数为：" & CStr(E)End SubPrivate Function BJ(ByVal A As Double, ByVal B As Double) As Double If A > B Then BJ = A Else BJ = BEnd FunctionPrivate Sub Command4_Click() "第4题 Dim N As Long N = Val(InputBox("请输入一个整数")) If PD(N) Then MsgBox "输入的整数 " & CStr(N) & " 是一个奇数" Else MsgBox "输入的整数 " & CStr(N) & " 是一个偶数" End IfEnd SubPrivate Function PD(ByVal A As Long) As Boolean "True-奇数，False-偶数 If A Mod 2 = 1 Then PD = True Else PD = FalseEnd Function

h是英文单词hex(中译:十六进制的)缩写。&h，将其后的十六进制转换为十进制再赋给变量在所在的存储单无。转换后再赋值这一点很重要。赋值后d的值为418而不是1a2。

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

PrivateSub_Click()IfText1.Font.Name="宋体"ThenText1.Font.Name="黑体"ElseText1.Font.Name="宋体"EndIfEndSub修改字体（点击按钮，将Text1文本框中的字体样式在"黑体"和"宋体"间切换）（如果是修改其他属性，以此类推）只要查查相关属性值，修改还是很轻松的。

参考：http://zhidao.baidu.com/question/27904159

你的标题是指什么caption还是name假如所指name代码如下Private Sub ADD_Click()Combo1.AddItem Text1.TextEnd SubPrivate Sub COUNT_Click()Print Combo1.ListCountEnd Sub 还有在属性中加入字符：找到combo1的list属性在属性中添加即可，加入要是字符换行书写则使用ctrlenter就可以了

Private Type POINTAPI x As Long y As LongEnd Type这是个自定义类型，在VB2008中已经改成结构体。也就是C语言中的结构体。timer是计时器。也就是，每隔一段时间执行一段代码。

vb中，程序设计一共有三种基本结果组成，分别是：顺序结构、选择结构和循环结构希望我的回答能够帮助到您，望采纳！

分类: 电脑/网络 >> 程序设计 >> 其他编程语言 解析: 这是我初学时做的，功能很少，就抛砖引玉吧 先添加一个MID窗体，MDIForm1 其中代码为 Private Sub allselect_Click()‘全选MDIForm1.ActiveForm.Text1.selatart = 0 MDIForm1.ActiveForm.Text1.SelLength = Len(MDIForm1.ActiveForm.Text1.Text) End Sub Private Sub mycut_Click()"剪切 Clipboard.SetText MDIForm1.ActiveForm.ActiveControl.SelText MDIForm1.ActiveForm.ActiveControl.SelText = " " End Sub Private Sub mynew_Click()新建 loadnewdoc End Sub Private Sub loadnewdoc() Static ldocumentcount As Long Dim frmd As Form1 ldocumentcount = ldocumentcount + 1 Set frmd = New Form1 frmd.Caption = "文档" & ldocumentcount frmd.Show End Sub 再添加一个MID子窗体，Form1，其中添加一个文本框，大小为整个窗体大 代码为 Private Sub loadnewdoc() Static ldocumentcount As Long Dim frmd As Form1 ldocumentcount = ldocumentcount + 1 Set frmd = New Form1 frm.Caption = "文档" & ldocumentcount frmd.Show End Sub Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) savefile Text1.Text End Sub Private Sub Form_Resize() MDIForm1.ActiveForm.Text1.Left = MDIForm1.ActiveForm.ScaleLeft MDIForm1.ActiveForm.Text1.Top = MDIForm1.ActiveForm.ScaleTop MDIForm1.ActiveForm.Text1.Width = MDIForm1.ActiveForm.ScaleWidth MDIForm1.ActiveForm.Text1.Height = MDIForm1.ActiveForm.ScaleHeight End Sub

Private Sub Form_Load()Text1.Text = Time$If Hour(Now) <= 11 Then Text2.Text = "早晨好"Else If Hour(Now) >= 12 And Hour(Now) <= 18 Then Text2.Text = "下午好" Else Text2.Text = "晚上好" End IfEnd IfEnd SubPrivate Sub Timer1_Timer()Text1.Text = Time$If Hour(Now) <= 11 Then Text2.Text = "早晨好"Else If Hour(Now) >= 12 And Hour(Now) <= 18 Then Text2.Text = "下午好" Else Text2.Text = "晚上好" End IfEnd IfEnd Sub

那么多，，

本书以visual basic 6.0为语言背景，以程序结构为主线，介绍可视化程序设计的基本知识和编程方法。内容包括：认识visual basic，程序设计基础，顺序结构程序设计，选择结构程序设计，循环结构程序设计，数组，过程，程序调试与错误处理，数据文件与文件管理，菜单及对话框，绘图及其他常用控件等。　　本书概念清晰，层次分明，叙述简明易懂，注重实用性和可操作性。各章配有精心设计的习题和编程及上机调试题。本书为任课教师免费提供电子教案及习题参考答案。ue004　　本书适合作为高等学校计算机程序设计教材，也可作为各类vb培训班及全国计算机等级考试读者的学习参考书。

你只要在窗口中放一个frame，再在frame中放两个label1和label2。再在frame外面放一个label3，一个command1，一个text1。其他由程序完成，程序如下：Private Sub Command1_Click()Dim Sum As StringDim N As IntegerDim I As Integer, J As Integer, K As IntegerDim S As IntegerN = Val(Text1)For I = 1 To NIf I = 1 And (N Mod 2 = 0) Then K = -1 Else K = 1S = 0For J = 1 To IS = S + KK = -KNextSum = Sum & SNextIf Right(Sum, 1) = "1" Then Sum = Sum & ".1"For I = 1 To Len(Sum)If Mid(Sum, I, 1) = "1" Then Mid(Sum, I, 1) = "3"NextLabel2.Caption = SumEnd SubPrivate Sub Form_Load()With Form1.Caption = "求和计算".Width = 7000.Height = 4000End WithWith Frame1.Caption = "求数列前N项和".Width = 6000.Height = 1000.Top = 500.Left = 500End WithWith Label1.Width = 2500.Height = 500.Caption = "3.3-33.3+333.3-3333.3+...=".Top = 400.Left = 100End WithWith Label2.Width = Frame1.Width - (Label1.Left + Label1.Width) - 100.Height = Label1.Height.Caption = "".Top = 400.Left = Label1.Left + Label1.WidthEnd WithWith Text1.Width = 1000.Height = 300.Text = "".Top = 2500.Left = 4000End WithWith Command1.Caption = "计算".Width = 1000.Height = 300.Top = 2500.Left = 1000End WithWith Label3.Width = 2000.Height = Label1.Height.Caption = "输入N的值，N=".Top = Command1.Top.Left = Command1.Left + Command1.Width + 500End WithEnd Sub已经运行过。

jbp大神，你又来啦？替我向管理员他老妈问好！

ccacdcbdbc112122122

题目要求是不计复利，答主的ss函数嵌套使用应该算是复利了吧。

Private Sub Form_Click()Dim Ysz() As IntegerDim I As Integer, J As Integer, K As Integer, L As IntegerDim D0 As Integer, D1 As Integer, D2 As IntegerDim X0 As Integer, X1 As Integer, X2 As IntegerK = InputBox("数组有几行？")L = InputBox("数组有几列？")ReDim Ysz(1 To K, 1 To L) As IntegerRandomize (Timer)For I = 1 To K For J = 1 To L Ysz(I, J) = Int(Rnd() * 100) Print Ysz(I, J); Next J PrintNext IDxz Ysz(), D0, X0, D1, D2, X1, X2Print "数组中的最大值为："; D0; "所在行为："; D1; "所在列为："; D2Print "数组中的最小值为："; X0; "所在行为："; X1; "所在列为："; X2End SubPrivate Sub Dxz(Ys() As Integer, Dz As Integer, Xz As Integer, Dh As Integer, Dl As Integer, Xh As Integer, Xl As Integer)Dz = Ys(1, 1)Xz = Ys(1, 1)Dim I As Integer, J As IntegerFor I = 1 To UBound(Ys, 1) For J = 1 To UBound(Ys, 2) If Ys(I, J) > Dz Then Dz = Ys(I, J) Dh = I Dl = J End If If Ys(I, J) < Xz Then Xz = Ys(I, J) Xh = I Xl = J End If Next JNext IEnd Sub

模块,流程....然后依照规划,后台mssql2000或者msaccess做数据库,建些表,前台用vb.窗体如图属性设置：form1-caption:顾客点菜单list1:multiselect=2style=0list2:multiselect=0style=1command1:caption=添加command2=caption=删除lable1:caption=饭店菜谱lable2:caption=顾客点菜代码：PrivateSubForm_Load()List1.AddItem"*******""以下格式相同（*表示菜名）EndSubPrivateSubCommand1_Click()Dimi%"定义循环变量Fori=List1.ListCount-1To0Step-1IfList1.Selected(i)Then"判断是否被选中List2.AddItemList1.List(i)"在list2中添加list1中被选中的List1.RemoveItemiEndIfNextiEndSubPrivateSubCommand2_Click()Dimi%Fori=List2.ListCount-1To0Step-1IfList2.Selected(i)ThenList1.AddItemList2.List(i)List2.RemoveItemi"从List2中删除此选中项EndIfNextiEndSub

【答案】：Visual Basic是Microsoft 公司与1991年推出的基于Windows环境的语言，其主要特点如下： (1) 方便、直观的可视化的程序设计工具;(2) 面向对象的程序设计方法;(3) 事件驱动的编程机制;(4) 结构化程序设计语言;(5) 强大的数据库访问能力;(6) 提供强大的网络功能，并具备完备的联机帮助功能;(7) 强大的数据库管理和存取操作的能力。

1、点击后缀为.vbp的文件可以打开工程。2、不能在Windows中直接修改工程中的文件名，这样会造成工程文件无法加载这个文件。

是6，上例中‘VB"是两个字符，‘程序设计"是四个字符，所以选择6。len在VB里就是测量一个字符串中含有字符的数量。例如len("ABC1234")的值是7，len("他今年专14岁")的值是6。len(x)返回字符串变属量x的长度，即x含有字符的个数。扩展资料：在VBA中，Len 函数的功能为返回 Long，其中包含字符串内字符的数目，或是存储一变量所需的字节数。LEN函数语法Len(string | varname)Len 函数的语法有下面这些部分：string：任何有效的字符串表达式。如果 string 包含 Null，会返回 Null。

bbacbabbbb212222

书上有

公共:dim a "关0开1 form load:a = 1 开关按钮:if a = 1 then a = 0 command1.enabled = false text1.text = "" end if if a = 0 then a = 1 command1.enabled = true text1.text = "0" end if

PrivateSubForm_Load()HScroll1.Max=255"设置HScroll1的最大值不能超过255，因为三原色的单个色素最大值为255HScroll2.Max=255HScroll3.Max=255Label4.BackColor=RGB(HScroll1.Value,HScroll2.Value,HScroll3.Value)"初始化EndSubPrivateSubHScroll1_Change()Label4.BackColor=RGB(HScroll1.Value,HScroll2.Value,HScroll3.Value)EndSubPrivateSubHScroll2_Change()Label4.BackColor=RGB(HScroll1.Value,HScroll2.Value,HScroll3.Value)EndSubPrivateSubHScroll3_Change()Label4.BackColor=RGB(HScroll1.Value,HScroll2.Value,HScroll3.Value)EndSubPrivateSubCommand1_Click()Label5.ForeColor=RGB(HScroll1.Value,HScroll2.Value,HScroll3.Value)EndSub

编辑这样一个程序，你知道需要多少时间和付出多少精力？

B 6

Private Sub Check1_Click()If Check1.Value Then Text1.Font.Bold = TrueElse Text1.Font.Bold = FalseEnd IfEnd SubPrivate Sub Check2_Click()If Check2.Value Then Text1.Font.Italic = TrueElse Text1.Font.Italic = FalseEnd IfEnd SubPrivate Sub Check3_Click()If Check3.Value Then Text1.Font.Underline = TrueElse Text1.Font.Underline = FalseEnd IfEnd SubPrivate Sub Combo1_Click()Text1.Font.Name = Combo1.TextEnd SubPrivate Sub Command1_Click()EndEnd SubPrivate Sub Form_Load()Dim i As IntegerFor i = 0 To Screen.FontCount - 1 Combo1.AddItem Screen.Fonts(i)NextCombo1.ListIndex = 0For i = 6 To 40 Step 2Combo2.AddItem iNextCombo2.ListIndex = 12Text1.Font.Size = Combo2.TextEnd SubPrivate Sub Option1_Click()Text1.ForeColor = vbBlackEnd SubPrivate Sub Option2_Click()Text1.ForeColor = vbRedEnd SubPrivate Sub Option3_Click()Text1.ForeColor = vbBlueEnd Sub

第一章VB程序开发环境1.VB的特点：（1）可视化编程（2）面向对象的程序设计（3）结构化程序设计语言（4）事件驱动编程机制（5）访问数据库2.当一个程序包括两个以上的工程时，这些工程构成一个工程组，扩展名为.vbg3.一个应用程序可以有多个窗体（最多可达255个）4.标准模块文件是一个纯代码性质的文件，它不属于任何一个窗体，扩展名为.bas5.资源文件由一系列独立的字符串、位图及声音文件（.wav、.mid）组成，资源文件是一个纯文本文件，扩展名为.res6.窗体和控件被称为对象7.与传统的程序设计语言相比VB最突出的特点是事件驱动编程机制8.Visual Basic的菜单栏有两种形式，分别为固定形式和浮动形式第二章对象及其操作1.“对象”是系统中的基本运行实体2.对象是具有特殊属性（数据）和行为方式（方法）的实体3．把只能通过属性窗口设置的属性称为“只读属性”，它只能在设计阶段设置，不能在运行期间改变。有：Name,BorderStyle(边框类型)4.ControlBox属性只适用与窗体5.Pointer（指针）不是一个控件6.每个控件的默认属性即为该控件的控件值。控件值是一个控件的最重要或最常用的属性。7.边框上有8个黑色小方框的控件叫做活动控件或当前控件。当窗体上有多个控件时，最多只有一个控件是活动的。8.在被选择的多个控件中，有一个控件的周围是实心小方块（其它为空心小方块），这个控件称为“基准控件”9.属性窗口由对象框、属性显示方式、属性列表、属性解释四个部分构成10.控件分为三类：标准控件、ActiveX控件、可插入对象11.VB应用程序通常由3类模块组成，即标准模块、窗体模块、类模块第三章 简单程序设计1.续行符与它前面的字符之间至少要有一个空格2.赋值语句兼有赋值和计算双重功能3，不管表达式是什么类型，都可以赋值给一个Variant变量4，注释语句（1）注释语句是非执行语句，仅对程序的有关内容起注释作用（2）任何字符（包括中文字符）都可以放在注释行中作为注释内容。注释语句通常放在过程、模块的开头作为标题用，也可以放在执行语句（单行或复合语句行）的后面，在这种情况下，注释语句必须是最后一个语句（3）注释语句不能放在续行符的后面5.为了保持程序的完整性，，应当在程序中含有End语句，并且通过End语句结束程序6.用Visual Basic开发程序时，需要一下3步： （1）建立可视用户界面 （2）设置可视界面特性 （3）编写事件驱动代码7.在保存工程文件之前，应先分别保存窗体文件和标准模块文件（如果存在）8.应用程序是一个指令集，用来指挥计算机完成指定的操作9.应用程序结构指的是组织指令的方法，即指令存放的位置和指令的执行顺序每个窗体模块分为两部分，一部分是作为用户界面的窗体，另一部分是执行具体操作的代码10.每个窗体模块都包含事件过程，即代码部分11.标准模块（.bas）完全由代码组成，类模块是没有物理表示的控件，类模块既包含代码又包含数据12.事件驱动应用程序的典型操作序列为：（1）启动应用程序，加载和显示窗体 （2）窗体或窗体上的控件接受事件，事件可以由用户引发，可以由系统引发，也可以由代码间接引发 （3）如果响应的事件过程中存在代码，则执行代码 （4）应用程序等待下一次事件 注意：有些事件可能伴随其它事件发生13.为了装入一个VB应用程序，应当只装入工程文件14. Move方法用于移动窗体或控件，其语法 为象对名.Move Left[Top],[Width],[Height]15.当窗体改变大小时要使其中的窗体也按 比例发生变化,应使用窗体的Resize事件16.下列窗体事件中,不能由用户触发的事件是Load事件和Initialize事件第四章 程序设计基础1.基本数据类型有字符串型数据和数值型数据。字符串分为两种，即变长字符串和定长字符串。数值型数据分为整型数和浮点数。2.Decimal数据类型只能在变体类型（Variant）中使用，也就是说，不能把一个变量声明为Decimal类型。3.变量的命名规则（1）名字只能由字母、数字和下划线组成（2）名字的第一个字符必须是英文字母，最后一个字符可以是类型说明符（3）名字的有效字符为255个（4）不能用VB的保留字作变量名，但可以把保留字嵌入变量名中；同时，变量名也不能是末尾带有说明符的保留字。4.一个有名称的内存位置称为变量。VB用变量来储存数据值。通过名字来引用一个变量，而数据类型则决定了该变量的储存方式。5.VB中变量分为3类：局部变量、模块变量、全局变量6.当同一窗体内的不同过程使用相同的变量时，必须定义窗体层变量。窗体层变量不能默认声明。7.全局变量只能在标准模块中声明，不能在过程或窗体中声明。8.默认定义的变量不需要使用Dim语句9.默认声明一般只适用于局部变量10.UniCode方式(统一编码方式)下,一个英文字符或一个汉字都看作是一个字符,所占用的存储空间均为两个字节11.空白字符包括空格、Tab键等12.-1表示“真”，0表示“假”13.字符串连接运算符（&）不是算术运算符，就其运算顺序而言，它在所有算术运算符之后，而在所有比较运算符之前14.表达式的执行顺序 （1）首先进行函数运算 （2）接着进行算术运算 （3）然后进行关系运算 （4）最后进行逻辑运算运算符执行顺序算术比较逻辑优先级^=Not↓高↓↓低-（负数）<>And*,/<Or>XorMod<=Eqv+,->=Imp&15.Print weekday(now) 星期六的值为0，星期日的值为1，星期一的的值为2……16.实现字符的Unicode编码方式与ANSI编码方式相互转换的函数是StrConv17.◇Static定义的变量，其值在退出后仍能保留（静态变量）第五章数据输入输出1.BorderStyle用来设置标签的边框，值0为无边框，值1为有边框2.BackStyle值为1时，标签将覆盖背景，值为0，标签是“透明”的第六章常用标准控件1.图片框与图像框的区别（1）图片框是“容器”控件，可以作为父控件。也就是说，在图片框中可以包含其它控件，而其它控件不能“属于”一个图像框（2）图片框可以通过Print方法接收文本，并可接收由像素组成的图形，而图像框不能接收用Print方法输入的信息，也不能用绘图方法在图像框上绘制图形（3）图像框比图片框占用的内存少，显示速度快（4）图片框内的控件不能移到图片框外第十章 键盘与鼠标事件1. PSet是画点语句，用它可以在（X,Y）处画一个点2.VB中用Circle方法画圆，其格式为： Circle（x,y）,R3. 在拖放中使用Source. Move (X - Source. Width / 2), (Y - Source. Height / 2)语句，鼠标光标所指的是控件的中心4.VB中已经把键盘上的功能键定义为常量，即vbKeyFx(这里的x是1——12之间的值)5.控件的键盘事件优于窗体的键盘事件，如果希望窗体先接收键盘事件，则必须把窗体的KeyPreview属性设置为True，否则不能激活窗体的键盘事件6.大写字母的KeyCode与AscII码一样，小写的则不同7.与屏幕对象一起使用时，鼠标光标的形状在屏幕的任何位置都不会改变。如果设置“Screen.MousePointer=0”,则可以激活窗体或控件的属性所设定的局部鼠标形状

当组合框的Style属性设置为下列哪一个时，组合框称为下拉式列表框选项: a、0如果文本框的Enabled属性设为False，则选项: b、文本框的文本将变成灰色，用户仍能将光标置于文本框上，但不能改变文本框中的内容 下列关于启动对象的设置说法中，不正确的是选项: d、如果启动对象是Main子过程，则程序启动时已加载了工程的所有窗体在下面关于窗体事件的叙述中，下列哪一个是错误的选项: a、在窗体的整个生命周期中，Initialize事件只触发一次要使窗体在运行时不可改变窗体的大小和没有最大化和最小化按钮，只要对下列哪个属性进行设置即可选项: b、BorderStyle当x＝123时，可以输出的结果为$ 123的语句是选项: b、Print Format(x, “$######”)系统启动时自动执行下列哪一个事件过程选项: a、Load下列选项中不正确的是选项: b、菜单项的属性可以在属性窗口中设计要判断在文本框中是否按了Enter键，应在文本框的什么事件中判断选项: KeyPress VB中的文件访问类型分为程序文件和数据文件选项: 2、 对 通过对对象进行抽象可以形成类选项: 2、 对 MsgBox函数建立的信息框，既可以显示信息，也可以输入用户信息选项: 1、 错 在Vb中，除工具箱中的标准控件，用户也可以通过“工程”菜单的“部件”命令来装入Windows中注册过的其他控件按钮到工具箱选项: 2、 对 当命令按钮的Style属性值为1－Graphical时，不可以用Caption属性设置标题的文字，可以用Picture属性给命令按钮添加图形选项: 1、 错 窗体的Enable属性值为False时，该窗体上的按钮、文本框等控件就不会对用户的操作做出反应选项: 2、 对 语句Print “123”+45的输出结果是”12345”选项: 2、 对 文本框的默认属性是Name选项: 1、 错 如果一个菜单项的Visibal属性值为False，则该菜单及它的子菜单都不会显示选项: 2、 对 VB中可以用PopupMenu方法来显示弹出菜单选项: 2、 对

加陌生人一样经历了距咯哦哦来家里我哭了预计