第4章 VB项目开发实例

一个实用的VB屏幕程序本文来自: 站长() 详细出处参考：/web/165/18547.htm在VB5.0具有面向对象的程序设计思想及可视化的编程方式，可开发出各种多媒体应用程序，颇得软件设计者青睐。

笔者最近应用VB5.0编制了一程序，成功实现了“图文并茂”的屏幕效果，即：屏幕出现用户选定的一幅赏心悦目的图像，在图像下方有一行字幕缓缓地从屏幕右边向左边移动，全部文字移至左边消失后，从右边又平滑拖出字幕，字幕移动过程中既不影响图像的整体效果又能对图像进行提示、说明，使应用程序界面充满“活性”。

现将设计的整个过程介绍如下：(1)创建一个新目标文件(Project1)，并建立一个窗体Form1。

(2)在Form1上配置一个计时器控件Timer1、标签控件Label1、图像控件Picture1。

(3)各控件属性设置：Timer1的Enabled设置为“True”。

用Label1的Font设置屏幕下方循环移动的提示信息字体及大小，ForeColor设置字体颜色，AutoSize设置为True，BackStyle设置为“0－transparent”。

Picture1的AutoSize设置为False，Height设为5435，Width设为8235，Scalemode设置为“3－pixel”。

(4)程序代码清单：PrivateSubForm_Load()′设置图像控件Picture1属性，在屏幕显示图像Picture1 Picture=LoadPicture(″C:\Pwin95\Setup.bmp″)Picture1 ForeColor=RGB(255，10，110)Picture1 FontItalic=TruePicture1 FontBold=TruePicture1 Top=155Picture1 Left=635′将标签控件Label1的Caption属性设置为屏幕下方循环移动的提示信息Label1 Caption=″江西省黎川县职业中专电脑室设计″Label1 Left=WidthLabel1 Top=5653Timer1 Interval=375Form1 Windowstate=2EndSubPrivateSubTimer1_Timer()IfLabel1 Left<0－Label1 WidthThenLabel1 Left=WidthEndIfLabel1 Left=Label1 Left－255EndSub程序中的图像及移动字幕可依自己喜好灵活设计，以达到最佳效果。

vb项目开发案例全程实录以VB项目开发案例全程实录为题，我将为您列举10个案例，每个案例包含至少800字的详细描述。

1. 学生成绩管理系统这个案例是一个简单的学生成绩管理系统，使用VB开发。

系统包括学生信息的录入、成绩的录入和查询等功能。

首先，用户可以通过界面输入学生的基本信息，包括姓名、学号、性别等。

然后，用户可以输入学生的各科成绩，并计算出总分和平均分。

最后，用户可以通过学号或姓名查询学生的成绩。

该系统使用VB的窗体和控件进行界面设计，通过VB的数据库连接功能实现与数据库的交互。

2. 酒店管理系统这个案例是一个酒店管理系统，使用VB开发。

系统包括客房管理、客户管理、订单管理等功能。

首先，用户可以通过界面查看酒店的各类客房信息，并进行预订和入住操作。

然后，用户可以管理客户信息，包括添加、修改和删除客户信息。

最后，用户可以查看订单信息，包括已预订和已入住的订单，并进行退房操作。

该系统使用VB的窗体和控件进行界面设计，通过VB的数据库连接功能实现与数据库的交互。

3. 超市收银系统这个案例是一个超市收银系统，使用VB开发。

系统包括商品管理、库存管理、销售管理等功能。

首先，用户可以通过界面添加、修改和删除商品信息，并查看商品的库存情况。

然后，用户可以进行销售操作，包括添加购物车、结算和打印小票。

最后，用户可以查看销售统计信息，包括每日销售额、每月销售额等。

该系统使用VB的窗体和控件进行界面设计，通过VB的数据库连接功能实现与数据库的交互。

4. 图书管理系统这个案例是一个图书管理系统，使用VB开发。

系统包括图书的录入、借阅和归还等功能。

首先，用户可以通过界面添加、修改和删除图书信息，并查看图书的借阅情况。

然后，用户可以进行借阅操作，包括选择图书和输入借阅者信息。

最后，用户可以归还图书，并更新图书的借阅情况。

该系统使用VB的窗体和控件进行界面设计，通过VB的数据库连接功能实现与数据库的交互。

5. 学生选课系统这个案例是一个学生选课系统，使用VB开发。

一、导入到Xls文件并打印Sub OnLButtonUp(ByVal Item, ByVal Flags, ByVal x, ByVal y)Dim a,fsoa=HMIRuntime.Tags("fileName").ReadSet fso = CreateObject("scripting.filesystemobject")If fso.FileExists("C:\Model.xls") ThenDim objExcelAppSet objExcelApp = CreateObject("Excel.Application")objExcelApp.Visible = FalseobjExcelApp.Workbooks.Open "C:\Model.xls"objExcelApp.Cells(2, 3).Value = HMIRuntime.Tags("NewTag1_1").read objExcelApp.Cells(4, 5).Value = HMIRuntime.Tags("NewTag1_2").read objExcelApp.Cells(6, 7).Value = HMIRuntime.Tags("NewTag1_3").read objExcelApp.Cells(8, 9).Value = HMIRuntime.Tags("NewTag1_4").readobjExcelApp.Cells(10, 11).Value = HMIRuntime.Tags("NewTag1_5").read objExcelApp.ActiveWorkbook.SaveAs("C:\Report\"&CStr(a)&".xls")objExcelApp.ActiveWorkbook.PrintOutobjExcelApp.Workbooks.CloseobjExcelApp.QuitSet objExcelApp = NothingMsgBox "文件已经成功导出/Export Successful"ElseMsgBox "Excel模板文件不存在"End ifEnd Sub二、从Xls文件导入或者查询Sub OnLButtonUp(Byval Item, Byval Flags, Byval x, Byval y) Dim a,fsoa=HMIRuntime.Tags("FileName").ReadSet fso = CreateObject("scripting.filesystemobject")If fso.FileExists("C:\Report\"&CStr(a)&".xls") ThenDim objExcelAppSet objExcelApp = CreateObject("Excel.Application") objExcelApp.Visible = FalseobjExcelApp.Workbooks.Open "C:\Report\"&CStr(a)&".xls"HMIRuntime.Tags("NewTag1_1").Write objExcelApp.Cells(2, 3).Value HMIRuntime.Tags("NewTag1_2").Write objExcelApp.Cells(4, 5).Value HMIRuntime.Tags("NewTag1_3").Write objExcelApp.Cells(6, 7).Value HMIRuntime.Tags("NewTag1_4").Write objExcelApp.Cells(8, 9).ValueHMIRuntime.Tags("NewTag1_5").Write objExcelApp.Cells(10, 11).Value objExcelApp.ActiveWorkbook.SaveobjExcelApp.Workbooks.CloseobjExcelApp.QuitSet objExcelApp = NothingMsgBox "导入数据成功/Import Successful"ElseMsgBox "文件不存在/file is not existing"End ifEnd Sub3、WinCC如何实现带确认的按钮操作网上多是介绍C脚本实现的方法,其实VB脚本的实现更简单,代码如下:Sub OnLButtonUp(Byval Item, Byval Flags, Byval x, Byval y) If MsgBox("提示内容",1,"提示标题")=1 ThenHMIRuntime.Tags("TestTag").Write 1ElseHMIRuntime.Tags("TestTag").Write 0End IfEnd Sub说明MsgBox("提示内容",1,"提示标题")中的1为消息窗口中按钮的类型0=vbOKonly1=vbOKCancel2=vbAbortRetryIgnore3=vbYesNoCancel4=vbYesNo一、将WinCC变量导出到TEXT文件Sub OnLButtonUp(ByVal Item, ByVal Flags, ByVal x, ByVal y) Dim fso,FileDim aa=HMIRuntime.Tags("FileName").ReadConst ForWriting = 2Set fso = CreateObject("Scripting.FileSystemObject")Set File = fso.OpenTextFile("D:\Export&Import\"&CStr(a)&".txt", ForWriting, True) File.WriteLine(HMIRuntime.Tags("Var_1").read)File.WriteLine(HMIRuntime.Tags("Var_2").read)File.WriteLine(HMIRuntime.Tags("Var_3").read)File.WriteLine(HMIRuntime.Tags("Var_4").read)file.WriteLine(HMIRuntime.Tags("Var_5").read)File.CloseMsgBox "文件已经成功导出/Export Successful"End Sub二、从TXT文件中读取数据到WinCC变量Sub OnLButtonUp(ByVal Item, ByVal Flags, ByVal x, ByVal y)Dim fsoDim txtfileDim aa=HMIRuntime.Tags("FileName").ReadSet fso = CreateObject("scripting.filesystemobject")If fso.FileExists("D:\\Export&Import\\"&CStr(a)&".txt") ThenSet txtfile = fso.OpenTextFile("D:\\Export&Import\\"&CStr(a)&".txt") HMIRuntime.Tags("Var_1").Write txtfile.ReadLineHMIRuntime.Tags("Var_2").Write txtfile.ReadLineHMIRuntime.Tags("Var_3").Write txtfile.ReadLineHMIRuntime.Tags("Var_4").Write txtfile.ReadLineHMIRuntime.Tags("Var_5").Write txtfile.ReadLineMsgBox "导入数据成功/Import Successful"txtfile.CloseElseMsgBox "文件不存在/File is not existing"End ifEnd Sub。

现在大多数语言都支持客户－服务器模式编程，其中VB给我们提供了很好的客户－服务器编程方式。

下面我们用VB来实现TCP／IP网络编程。

TCP／IP协议是Internet最重要的协议。

VB提供了WinSock控件,用于在TCP／IP 的基础上进行网络通信。

当两个应用程序使用Socket进行网络通信时，其中一个必须创建Socket服务器侦听，而另一个必须创建Socket客户去连接服务器。

这样两个程序就可以进行通信了。

1．创建服务器，首先创建一个服务端口号。

并开始侦听是否有客户请求连接。

建立一窗体，并向其增加一个Winsock控件(可在工程菜单中的部件项来添加此控件)，添加两文本框Text1,Text2,和一按钮Command1。

Private Sub Form_Load()SockServer.LocalPort = 2000 ′服务器端口号,最好大于1000SockServer.Listen ′开始侦听End SubPrivate Sub Form_Unload(Cancel As Integer)SockServer.CloseEnd SubPrivate Sub SockServer_Close()SockServer.CloseEnd SubPrivate Sub SockServer_ConnectionRequest(ByVal requestID As Long) SockServer.CloseSockServer.Accept requestID ′表示客户请求连接的ID号End Sub′当客户向服务器发送数据到达后,产生DataArrival事件,在事件中接收数据,GetData方法接收数据。

Private Sub SockServer_DataArrival(ByVal bytesTotal As Long)Dim s As StringSockServer.GetData sText1.Text = sEnd Sub当我需要向客户发送数据时，只需调用SendData方法。

VB最简单实例入门教程目录（提示：按ctrl,并单击鼠标，可以跳到相应页）1.1 1 我们需要什么 (3)1.2 2 第二章：事件、属性及数据类型 (3)1.3 3 第三章：VB语言 (6)1.4 4-1第四章按钮（一） (12)1.5 4- 第四章按钮（二） (24)1.6 5 第五章菜单 (27)1.7 6-1第六章输入（一） (34)1.8 6-2第六章输入（二） (42)1.9 6-3第六章输入（三） (52)1.10 7第七章输出 (59)附录 (63)2.1 VB教程 (63)1.1 1我们需要什么我们需要什么？当我们在一个精彩的游戏世界中游历了一番之后，或是惊叹于某一工具软件的小巧精致之余，多少总会产生些许编程的冲动。

编程吗，在以前如果你对电脑还是一个门外汉，那实在是一件可望而不可及的事情。

如果运用基于DOS下的编程语言，譬如C、Qbasic、Pascal等等，真不知何年何月才能有所成就。

编程是需要天赋的，你必须在大脑中对整个程序有一个清晰的轮廓，一个高效的流程，这并不是每个人都能做到的，你必须思之慎之，这也使编程变成一件最枯燥无味的事情。

但在第四代计算机语言（可视化编程）出现后，可以确切的说它开发了人们的更多天赋，并不局限于那些头脑异常清晰的人，每一个人都可以发现自己也可以编出一些从前不敢问津的程序，想象力的充分发挥才是第四代语言的精粹。

Visual Basic（以下简称VB）可以说是可视化语言的先驱了，而且它也是可视化程度最高的一个，从几年前VB诞生之日起到现在，它已经经历了五个版本，而且现在微软正在紧张的进行着VB6.0的研制、测试，这么高的更新率，不外乎说明两个问题：用户对VB的热衷，微软对VB的重视。

不可否认微软对市场的预测能力是极为高明的，而它强大的技术、财力支持也使它在许多以前未进入的领域，在不长的时间内有成为最有力的竞争对手，如IE之于浏览器领域，《帝国时代》之于游戏都是最好的例证。

vb数据库编程实例VB数据库编程实例：实现学生信息管理系统在计算机编程中，数据库是一项关键技术，用于有效地存储和管理数据。

VB（Visual Basic）是一种广泛使用的编程语言，可以轻松地与数据库进行交互。

本文将详细介绍如何使用VB进行数据库编程，以一个学生信息管理系统的实例为例。

第一步：建立数据库首先，我们需要建立一个数据库来存储学生的信息。

在本实例中，我们将使用Microsoft Access数据库。

打开Microsoft Access并创建一个新的数据库文件。

然后，创建一个新的数据表，其中列的字段如下：- 学生ID（StudentID）：主键，唯一标识一个学生- 姓名（Name）：学生的全名- 年龄（Age）：学生的年龄- 专业（Major）：学生所在的专业- 成绩（Grade）：学生的总评成绩保存数据库并记录其路径，以便在VB中进行引用。

第二步：创建VB项目打开Visual Studio或任何其他VB开发环境，创建一个新的VB 项目。

命名为“学生信息管理系统”或其他适当的名称。

第三步：连接数据库在VB中连接数据库需要使用。

首先，我们需要导入System.Data和System.Data.OleDb命名空间。

然后，在VB代码中添加以下代码片段来连接到数据库：vbDim connStr As String ="Provider=Microsoft.ACE.OLEDB.12.0;Data Source=<数据库路径>"Dim conn As New OleDbConnection(connStr)将`<数据库路径>`替换为第一步中保存的数据库文件路径。

第四步：加载学生信息接下来，我们将在VB中加载学生信息。

添加一个按钮控件到窗体上，并将其命名为“加载”。

然后，为该按钮的Click事件添加以下代码：vbPrivate Sub LoadButton_Click(sender As Object, e As EventArgs) Handles LoadButton.ClickDim selectQuery As String = "SELECT * FROM Students"Dim adapter As New OleDbDataAdapter(selectQuery, conn)Dim dataSet As New DataSet()adapter.Fill(dataSet, "Students")DataGridView1.DataSource =dataSet.T ables("Students")End Sub在此代码中，我们执行一个简单的查询，从数据库中检索所有学生的信息。

实验报告11实验报告2：实验题目1：设计窗体。

参考界面如下：运行前运行后要求：1）在窗体上添加一个标签，通过属性窗囗设置标签格式：Caption：字体格式 Alignment：2—Center（居中）BorderStyle：1—Fixed Single（有边框）Backstyle：0—Tansparent（背景透明）2）运行时，单击“字号”，将标签内容的字号设置为30；单击“加粗”，将标签内容加粗；单击“下划线”，则在标签内容下加下划线。

提示：字号FontSize、加粗FontBold、下划线FontUnderline 实验题目1源程序代码：Private Sub Command1_Click()Label1.FontSize = 30End SubPrivate Sub Command2_Click()Label1.FontBold = trueEnd SubPrivate Sub Command3_Click()Label1.FontUnderline = TrueEnd Sub实验题目2：设计一个计算器。

参考界面如下：要求：1）实现算术运算（+、-、*、/）的功能；2）实现清除和结束的功能；3）实现清除后，将焦点移到第一个文本框中。

实验题目2源程序代码：Private Sub Command1_Click()Text3.Text = Val(Text1.Text) + Val(Text2.Text) End SubPrivate Sub Command2_Click()Text3.Text = Val(Text1.Text) - Val(Text2.Text) End SubPrivate Sub Command3_Click()Text3.Text = Val(Text1.Text) * Val(Text2.Text) End SubPrivate Sub Command4_Click()Text3.Text = Val(Text1.Text) / Val(Text2.Text) End Sub实验题目3：设计一个能够统计某学生三门课程成绩总分和平均分的程序。

教程4：创建匹配游戏在本教程中，将生成一个匹配游戏，在该游戏中，玩家必须匹配隐藏的图标对。

您将学习如何：∙使用List对象来包含对象。

∙使用foreach循环（Visual C# 中）或For Each循环（Visual Basic 中）。

∙使用引用变量跟踪窗体的状态。

∙生成可用于多个对象的事件处理程序。

∙使计时器启动时正好激发一次。

当您完成时，程序将类似下图所示。

在本教程中创建的游戏说明步骤1：创建项目并向窗体添加表创建项目并向窗体添加表1.在“文件”菜单上，单击“新建项目”。

2.如果没有使用Visual Studio 学习版，您需要先选择一种语言。

从“安装的模板”列表中选择“C#”或“VisualBasic”。

3.单击“Windows 窗体应用程序”图标，然后键入“匹配游戏”作为名称。

4.设置窗体属性：a.将窗体的“Text”属性更改为“匹配游戏”。

b.通过使用“Size”属性将大小更改为550 像素宽、550 像素高，或者拖动直到您在集成开发环境(IDE)的左下角看到合适的大小。

5.将TableLayoutPanel控件从工具箱中拖出，然后设置其属性：a.将“BackColor”属性设置为“CornflowerBlue”。

（在颜色选取器中选择“Web”选项卡可以查看颜色名称。

）b.通过单击属性旁边的下拉按钮并单击大的中间按钮，将“Dock”属性设置为“Fill”。

c.单击TableLayoutPanel 右上角的三角形按钮，以显示任务菜单。

d.单击“添加行”两次以多添加两行，然后单击“添加列”两次以再添加两列。

e.单击“编辑行和列”打开“列和行样式”窗口。

选择每一列，单击“百分比”按钮并将每个列的宽度设置为总宽度的25%。

然后从窗口顶部的下拉框选择“行”，并将每个行的高度设置为25%。

单击“确定”按钮。

TableLayoutPanel 现在应该有十六个相等大小的方块单元格。

6.确保在窗体编辑器中选择了该TableLayoutPanel。

VB实例第一天、使用VB收发电子邮件大叔：我说LOLI呀，既然你已经学习过VB的基础知识，也做过一些简单的程序，那么我也就不浪费口水教你认识界面、了解控件和学习语法了。

不如我来教教你怎么样制作出一些切实可用的程序，这样既能够加深对VB的认识，还可以让你拥有十足的成就感呢！LOLI：好呀，那做一些什么程序呢？大叔：当然不会像我哥哥当年那样简单至极的程序，而是一些具有实用性的程序，也可以做一个小游戏之类的，你看怎么样？LOLI：好的，不过今天别教我做游戏，不然明天就没有心思学了。

大叔：这个我自然知道，那我们就开始动手制作一个收发电子邮件的程序吧。

LOLI：收发电子邮件？这个会不会很难呢？大叔：正所谓会者不难，难者不会，有我这位名师指点，你还怕什么呢？开始动手吧！一、准备工作大叔：在VB中编写电子邮件程序需要通过调用微软公司的MAPI（Messaging A pplication Programming Interface，消息应用程序编程接口），这需要借助两个实现电子邮件收发功能的核心控件：MAPI会话控件和MAPI消息控件。

MAPI会话控件用于建立和控制一个Microsoft Mail会话，MAPI消息控件用于创建和收发邮件消息。

此外，Windows系统中必须要有遵从MAPI的邮件系统，比如Exchange、Out look等软件，而还要进行一番设置，确保邮件系统可以正常使用。

LOLI：呵呵，没关系，我用的就是Outlook，正好符合要求。

不过你说的MAPI 控件在哪里找呢？大叔：在VB中就有现成的，不过程序没有直接放置在工具箱里，需要我们自己将MAPI控件加入VB工具箱。

首先直接在VB左边的控件栏中右击鼠标，并在弹出菜单中选择“部件”命令，这时可以激活部件设置窗口，在其中的“控件”列表框中选取“Microsoft MAPI Controls”一项（如图1所示），接着按下“确定”按钮之后可以发现工具箱中将多出了两个图标，这就是MAPI会话控件和MAPI消息控件的图标（如图2所示）。

vb程序实例（一）创建vb应用程序是很简单的事。

有多简单？为回答这个问题，试着创建下面的Hello ,vb和Firstapp 应用程序。

你好，Visual Basic创建vb应用程序有三个主要步骤：1. 创建应用程序界面2. 设置属性3. 编写代码为了说明这一实现过程，按照以下步骤创建一个简单应用程序，该应用程序由一个文本框和一个命令按钮组成。

单击命令按钮，文本框中会出现"Hello , world!" 消息。

创建应用程序界面窗体是创建应用程序的基础。

通过使用窗体可将窗口和对话框添加到应用程序中。

也可把窗体作为项的容器，这些项是应用程序界面中的不可视部分。

例如，应用程序中可能有一个作为图形容器的窗体，而这些图形是打算在其它窗体中显示的。

建造vb应用程序的第一步是创建窗体，这些窗体将是应用程序界面的基础。

然后在创建的窗体上绘制构成界面的对象。

对于目前的第一个应用程序，你可使用工具箱中的两个控件。

用工具箱绘制控件1. 单击要绘制的控件的工具——此时是“文本框”。

2. 将指针移到窗体上。

该指针变成十字线，如图2.3 所示。

3. 将十字线放在控件的左上角所在处。

4. 拖动十字线画出适合您要的控件大小的方框（拖动的意思是按住鼠标左键用鼠标指针移动对象）。

5. 释放鼠标按钮。

控件出现在窗体上。

在窗体上添加控件的另一个简单方法是双击工具箱中的控件按钮。

这样会在窗体中央创建一个尺寸为缺省值的控件；然后再将该控件移到窗体中的其它位置。

调整大小、移动和锁定控件注意出现在控件四周的小矩形框称作尺寸句柄；下一步可用这些尺寸句柄调节控件尺寸。

也可用鼠标、键盘和菜单命令移动控件、锁定和解锁控件位置以及调节控件位置。

调整控件的尺寸，请按照以下步骤执行：1. 用鼠标单击要调整尺寸的控件。

选定的控件上出现尺寸句柄。

2. 将鼠标指针定位到尺寸柄上，拖动该尺寸柄直到控件达到所希望的大小为止。

角上的尺寸柄可以调整控件水平和垂直方向的大小，而边上的尺寸柄调整控件一个方向的大小。

visual basic基础与案例开发详解1. 引言1.1 概述本文将详细介绍Visual Basic（简称VB）的基础知识和案例开发。

Visual Basic 是一种使用事件驱动编程模型的高级编程语言，它是微软公司推出的一种易学易用的开发工具。

通过本文我们将了解到VB的基本语法、数据类型与变量以及运算符与表达式等重要知识。

1.2 文章结构本文分为五个主要部分：引言、Visual Basic基础、Visual Basic案例开发概述、Visual Basic案例开发详解和结论。

在Visual Basic基础部分，我们将深入探讨VB的基本语法，数据类型与变量以及运算符与表达式等内容。

接下来，我们会介绍使用VB进行案例开发的概述，包括案例介绍、开发环境配置以及编写第一个案例等内容。

最后，在Visual Basic案例开发详解部分，我们将重点讲解控件和界面设计、事件处理程序以及数据库操作等重要技术。

1.3 目的本文的目的是帮助读者全面理解并掌握Visual Basic编程语言，并通过实际案例演示来提升读者在VB上应用开发方面的能力。

通过学习本文，读者可以从一个初学者逐步成长为一个能够开发简单应用程序的VB程序员。

此外，通过案例的详细讲解，读者还可以深入理解VB编程中的一些关键概念和技术，为以后更复杂应用的开发打下坚实基础。

以上是对文章“1. 引言”部分内容的详细描述。

2. Visual Basic基础:2.1 基本语法:Visual Basic的基本语法是一种结构化语言，它使用各种关键字、标识符和符号来组织和控制程序的逻辑流程。

在Visual Basic中，我们可以使用一系列语句来实现特定的功能。

以下是几个常用的基本语法要点：- 变量声明与赋值：在Visual Basic中，我们首先需要声明变量来存储数据。

变量声明包括指定变量的名称和数据类型。

例如，可以使用“Dim”关键字声明一个整型变量，并使用赋值运算符“=”将值赋给该变量。

(标红的地方需特别注意! ! ! !)第二章对象及其操作22—23页1、变换字体大小Private Sub Command1_Click() （放大）Text1.FontSize = 40End SubPrivate Sub Command2_Click() （缩小）Text1.FontSize = 8End SubPrivate Sub Command3_Click() （退出）EndEnd SubPrivate Sub Form_Load() （最初文字的大小）Text1.FontName = "隶书"Text1.FontSize = 16End Sub2、交换文本框内容Private Sub Form_Click()Text3.Text = Text1.TextText1.Text = Text2.TextText2.Text = Text3.TextEnd Sub第三章数据类型及其运算33—34页1.、转换字母大小写Private Sub Command1_Click() （小写）Text2.Text = LCase(Text1.Text)End SubPrivate Sub Command2_Click() （大写）Text3.Text = UCase(Text1.Text)End Sub2、数据中的信息筛选Private Sub Command1_Click() Dim a As Stringa = Val(Text1.Text)Text2.Text = Left(a, 4)Text3.Text = Right(a, 2)End Sub第四章数据输入输出47—48页1、计算圆的面积Private Sub Command1_Click() Const pi = 3.14Dim r, s As Singler = Val(Text1.Text)s = pi * r ^ 2Label2.Caption = sEnd Sub2、计算a和bPrivate Sub Form_Click()Dim a, b, c, d As Integera = Val(InputBox("请输入a"))b = Val(InputBox("请输入b"))c = a * bd = (a + b) / 2Form1.Print cForm1.Print dEnd Sub第五章控制结构90—93页1、分段计算Private Sub Command1_Click()Dim X As Single, Y As DoubleX = Val(Text1.Text)If X <= 0 ThenY = Abs(X)ElseY = Log(X)End IfText2.Text = YEnd Sub2、判断奇偶数Private Sub Command1_Click()a = Val(Text1.Text)If a Mod 2 = 0 ThenMsgBox a & "是偶数"ElseIf a Mod 2 <> 0 ThenMsgBox a & "是奇数"End IfEnd Sub3、模拟简易计算器Private Sub Form_Click()Dim a As Single, b As Single, c As Doublea = Val(Text1.Text)b = Val(Text2.Text)Text3.Text = Text3.TextSelect Case Text3.TextCase "+"c = a + bCase "-"c = a - bCase "*"c = a * bCase "/"If b = 0 ThenMsgBox "分母不能为零，请重新输入操作符"Text3.Text = ""Elsec = a / bEnd IfEnd SelectText4.Text = cEnd Sub3、统计够股数组合Private Sub Command1_Click()Dim a, b, c, d As Integerd = 0For a = 1 To 50For b = 1 To 50For c = 1 To 50If a ^ 2 + b ^ 2 = c ^ 2 And a < b < c Thend = d + 3End IfNext cNext bNext ad = d / 6Label2.Caption = 35、将100以内的所有偶数显示出来并求和Private Sub Command1_Click() (Multline 属性值为True, scrollBars 属性值为2) Dim a As IntegerFor a = 1 To 100If a Mod 2 = 0 ThenText1.Text = Text1.Text & a & vbCrLfEnd IfNext aEnd SubPrivate Sub Command2_Click()Dim b As Integerb = 0For i = 1 To 100If i Mod 2 = 0 Thenb = b + iEnd IfNext iText2.Text = bEnd Sub6、输出100—200 之间不能被7整除的数Private Sub Command1_Click()Dim a As IntegerFor a = 100 To 200If a Mod 7 <> 0 ThenText1.Text = Text1.Text & a & vbCrLf End IfNext aEnd Sub7、求阶乘Private Sub Form_Click()Dim fact As Double, N As Integerfact = 1N = Val(InputBox("请输入N的值")) For i = 1 To Nfact = fact * iNext iForm1.Print factEnd Sub8、打印平行四边形Private Sub Command1_Click()n = Val(InputBox("请输入行数n"))For i = 1 To nForm1.Print Tab(i);Form1.Print String(6, "*");Form1.PrintNext iEnd Sub9、打印倒三角形Private Sub Command1_Click()n = Val(InputBox("请输入行数n"))For i = 1 To nPicture1.Print Tab(i);Picture1.Print String(2 * (n - i) + 1, "*");Picture1.PrintNext iEnd Sub10、计算2*4*6…..*n 大于20000 的最小值Private Sub Command1_Click()Dim i As Integer, a As Doublei = 0a = 1While a <= 20000i = i + 1a = a * (i * 2)WendLabel2.Caption = "当n=" & i & "时，最小值是：" & a End Sub11、统计100—200之间能被5整除但不能被3整除的数并求和Private Sub Form_DblClick() （双击窗体）Dim a As Integer, SUM As IntegerSUM = 0For a = 100 To 200If a Mod 5 = 0 And a Mod 3 <> 0 ThenText1.Text = Text1.Text & a & vbCrLfSUM = SUM + aEnd IfNext aText2.Text = SUMEnd Sub12、200—300之间既能被3整除又能被7整除的数之和Private Sub Form_Click() （单击窗体）Dim a As Integer, SUM As IntegerSUM = 0For a = 200 To 300If a Mod 3 = 0 And a Mod 7 = 0 ThenText1.Text = Text1.Text & a & vbCrLfSUM = SUM + aEnd IfNext aText2.Text = SUMEnd Sub13、计算S = 20+21+22+…..+263的值Private Sub Form_Click()Dim S As LongS = 0For i = 20 To 263S = S + iNext iForm1.Print SEnd Sub14、计算S=1+1/4+1/9+….+1/100的值Private Sub Form_Click()Dim a As Integer, S As Single, b As SingleS = 0For a = 1 To 10b = 1 / a ^ 2S = S + bNext aPrint SEnd Sub15、计算S=1^2+2^2+3^2+….+10^2的值Private Sub Form_Click()Dim a As Integer, S As IntegerS = 0For a = 1 To 10S = S + a ^ 2Next aPrint SEnd Sub第六章数组128—130页1、生成数组主对角线和辅对角线元素为1，其余为2 Private Sub Form_Click()Dim A(1 To 5, 1 To 5) As IntegerFor i = 1 To 5For j = 1 To 5If i = j Or i + j = 6 Then A(i, j) = 1 Else A(i, j) = 2Form1.Print A(i, j);Next jForm1.PrintNext iEnd Sub2、生成两个随机数组并求和Private Sub Command1_Click()RandomizeDim A(1 To 4, 1 To 4) As Integer, B(1 To 4, 1 To 4) As Integer Dim C(1 To 4, 1 To 4) As IntegerFor i = 1 To 4For j = 1 To 4A(i, j) = (Int((10 - 0 + 1) * Rnd + 0))B(i, j) = (Int((10 - 0 + 1) * Rnd + 0))C(i, j) = A(i, j) + B(i, j)Picture1.Print A(i, j);Picture2.Print B(i, j);Picture3.Print C(i, j);Next jPicture1.PrintPicture2.PrintPicture3.PrintNext iEnd SubPrivate Sub Command2_Click()EndEnd Sub第七章常用标准控件164—166页1、图像变化Private Sub Command1_Click()Image1.Width = Width + 20End SubPrivate Sub Command2_Click()Image1.Height = Height + 20End SubPrivate Sub Form_Load()Image1.Picture = LoadPicture("C:\枫树.jpg")End Sub2、图形的颜色与形状变化Private Sub Option1_Click() （Shape控件的Fillstyle属性值设置为0）Shape1.FillColor = vbRedEnd SubPrivate Sub Option2_Click()Shape1.FillColor = vbBlueEnd SubPrivate Sub Option3_Click()Shape1.FillColor = vbGreenEnd SubPrivate Sub Option4_Click()Shape1.FillColor = vbYellowEnd SubPrivate Sub Option5_Click()11/ 12Shape1.Shape = 3End SubPrivate Sub Option6_Click()Shape1.Shape = 1End SubPrivate Sub Option7_Click()Shape1.Shape = 0End SubPrivate Sub Option8_Click()Shape1.Shape = 2End Sub5、循环闪现Private Sub Form_Load()Timer1.Interval = 1000End SubPrivate Sub Timer1_Timer()Label1.Visible = Not Label1.VisibleEnd Sub12/ 12。