VB程序设计09(精选)
VB程序设计
VB程序设计VB程序设计一、介绍VB程序设计是指使用Visual Basic语言进行软件开发的过程。
Visual Basic是一种高级的、可视化的编程语言，广泛用于Windows平台上的应用程序开发。
在VB程序设计中，开发者可以通过简单的拖拽和控件的属性设置来完成界面的创建和布局，通过编写逻辑代码来实现程序的各类功能。
VB程序设计的特点是简单易学、开发效率高，特别适合初学者和快速开发的场景。
二、VB程序设计的基本语法1. 变量和数据类型在VB程序设计中，变量是用来存储数据的一种容器。
在声明变量时，需要指定变量的类型，常用的数据类型有整型、浮点型、字符型等。
例如，可以使用以下语句声明一个整型的变量：Dim num As Integer2. 控制结构控制结构用于根据条件来执行不同的代码块。
常用的控制结构有条件语句和循环语句。
条件语句：If 条件 Then' 代码块ElseIf 条件 Then' 代码块Else' 代码块End If循环语句：For i = 1 To 10' 代码块Next iDo While 条件' 代码块Loop3. 函数和过程函数是一段代码块，接受输入参数并返回一个值。
过程是一段代码块，用于执行一系列操作。
在VB程序设计中，可以自定义函数和过程，也可以使用内置的函数和过程。
例如，可以使用以下语句定义一个函数：Function Add(num1 As Integer, num2 As Integer) As IntegerAdd = num1 + num2End Function4. 对象和事件在VB程序设计中，控件是程序的核心。
通过使用控件，可以创建窗体、按钮、文本框等等。
每个控件都是一个对象，可以通过设置对象的属性和调用对象的方法来实现不同的功能。
对象还可以响应事件，例如鼠标、键盘按下等。
开发者可以编写事件处理程序来控制对象的行为。
例如：Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click' 代码块End Sub三、VB程序设计的开发工具1. Visual StudioVisual Studio是微软推出的集成开发环境（IDE），可用于开发多种类型的应用程序，包括VB程序。
VB-09
3.函数过程的调用
函数过程的调用与标准函数调用同，参与表达式运算，形式如下： 函数过程名([参数列表])
参数列表：称为实参或实元，它必须与形参个数相同，位置与类型一一对应 可以是同类型的常量、变量、表达式
Function MyReplace$(s$, OldS$, NewS$) Dim i%, lenOldS% 执行流程： lenOldS = Len(OldS) Private Sub Command1_Click() i = InStr(s, OldS) Text1 = MyReplace(Text1, "cd", "3") Do While i > 0 ST= (“Visual Basic 程序设计教程5.0版” s= Left(s, i - 1) + NewS + Mid(s, i + lenOldS) Print MyReplace(ST, "5.0", "6.0") i = InStr(s, OldS) End Sub Loop MyReplace = s End Function
Print "f1="; f1, "f2 = "; f2 End Sub ⑧
… ⑦ s=表达式
End Sub
Chen 第 a(6) Ying 5 趟无交换
2. 数组排序 – 冒泡法
例5.9 在数组中输入n个数（直到输入0为结束），用冒泡法按递增顺序排序。 原始数据： 8，6，9，3，2，1 第一次冒泡： 6，8，3，2，1，9 第二次冒泡： 6，3，2，1，8 第三次冒泡： 3，2，1，6 第四次冒泡： 2，1，3 第四次冒泡： 1，2 结束， OK
Visual Basic 6.0 程序设计VB09章
9.1 图形基础
线条样式
⒉ 线型
画图时，如果要设置所画线的线型，可以使用窗体、图形框或打印 机控件所提供的DrawStyle属性。DrawStyle属性用来设置所画线的线型。 如果要用DrawStyle属性改变线型，则DrawWidth 的值必须设置为1。
【例9-5】通过改变DrawStyle属性的值在窗体上画出不同的线型。
Y
9.1 图基础
坐标系统
【例9-2】在窗体上采用Scale方法自定义坐标系统并画出坐标轴及一个圆。
9.1 图形基础
绘图颜色
⒈ RGB（）函数 RGB（）采用红、绿、蓝三基色原理，通过红、绿、蓝三基色不同成 分混合产生各种不同颜色。其语法格式为： RGB(红，绿，蓝)
红色成分值 0 绿色成分值 0 蓝色成分值 0 表示颜色 黑色
颜色码 0 1 表示颜色 黑色 蓝色 颜色码 8 9 表示颜色 灰色 亮蓝色
2
3
绿色
青色
10
11
亮绿色
亮青色
4
5 6 7
红色
品红色 黄色 白色
12
13 14 15
亮红色
亮品红色 亮黄色 亮白色
9.1 图形基础
绘图颜色
【例9-3】画出颜色渐变过程图。
9.1 图形基础 ⒈ 线宽
线条样式
画图时，如果要设置所画线的宽度，可以使用窗体、图形框或打印 机控件所提供的DrawWidth属性。DrawWidth属性用来设置所画线的宽度 或所画点的大小，它以像素为单位，其最小值为1。 【例9-4】用DrawWidth属性改变线宽。
0 0 0 255 255 255 255
0 255 255 0 0 255 255
VB程序设计
2.1 窗体、标签、命令按钮、文本框
2.1.0 窗体 (Form) 2.1.1 标签（Label） 2.1.2 命令按钮（CommandButton） 2.1.3 文本框（TextBox）
1. 标签主要属性
Caption、Name 属性：同窗体属性。
Alignment属性： 设置文本的对齐方式。 其中： 0—Left Justify（缺省值）：左对齐； 1—Right Justify：右对齐；2—Center：居中。
AutoSize属性： 设置控件是否自动改变大小，以 显示全部文本。True：自动改变控件大小，以 显示全部文本；False（缺省值）：不改变控 件大小，超出控件区域的文本将被裁剪。
PassWordChar: 口令字符。决定是否在控件 中显示用户键入的字符。例如：设置一个字符
* ，程序运行后，文本框显示所有输入的数据 为 *******……。
SelStart，SelLength，SelText : 选中文本的 起始、长度、内容。这三个属性在程序界面设 计时不可用。
2. 常用事件
2.2 复选框、单选按钮、框架
2.2.1 复选框（CheckBox） 2.2.2 单选按钮（OptionButton） 2.2.3 框架（Frame）
2.1.0 窗体(Form) 是一块“制图板”，所有控件的容器。 窗体是一种对象，由属性决定其外观，
由方法决定其行为，由事件决定其与用户 的交互。 程序员通过设置窗体属性和编写 响应事件的应用程序代码，就能创建出应 用程序所需的窗体。
将两个标签的BorderStyl属性设置为1-Fixed。 可以使标签呈凹陷状。
VB程序设计9
文件的读写
5. 函数 (1) LOF(文件号 文件号) 文件号
返回文件的长度(总字节数 。 返回文件的长度 总字节数)。 总字节数 (2) EOF(文件号 文件号) 文件号 返回读写位置。 返回读写位置。 指针在文件尾时， 函数为True，否则为 指针在文件尾时，EOF函数为 函数为 ， False。 。 例如，读文本文件到文本框-例如，读文本文件到文本框 假定文本框名称 为Text1，文件名为 ，文件名为MYFILE.TXT。 。
第九章 文件
文件系统控件 文件的读写 常用的文件操作语句和函数
习题和实验
文件系统控件
Sub drvDrive_Change() dirDirectory.Path = drvDrive.Drive End Sub Sub dirDirectory_Change() filFile.Path = dirDirectory.Path End Sub
例9.2 读入文本文件
文件的读写
例9.3 文件加密程序
Private Sub File1_DblClick() Open tfilename For Input As #1 Text1.Text = "" Do While Not EOF(1) indata = Input(1, #1) Text1.Text = Text1.Text + indata Loop End Sub
文件的读写
2. 文件及其种类
文件是记录的集合 顺序访问模式：顺序文件， 顺序访问模式：顺序文件，记录可长 可短 随机访问模式：随机文件， 随机访问模式：随机文件，记录的长 度相同 二进制访问模式：二进制文件（ 二进制访问模式：二进制文件（可认 为记录长度为1 为记录长度为1）
VB程序设计 第九章课后习题答案
第九章课后习题答案一、选择题二、填空题1、2—下拉式列表框Style 22、文本框列表框3、Inteval 5004、Scroll5、List 0 Clear6、没有方法，也没有外观四、设计题1、Private Sub Option1_Click()Text1.FontSize = 10End SubPrivate Sub Option2_Click()Text1.FontSize = 12End SubPrivate Sub Option3_Click()Text1.FontSize = 14End SubPrivate Sub Option4_Click()Text1.ForeColor = RGB(255, 0, 0)End SubPrivate Sub Option5_Click()Text1.ForeColor = RGB(0, 255, 0)End SubPrivate Sub Option6_Click()Text1.ForeColor = RGB(0, 0, 255)End Sub2、Private Sub Combo1_Click()Select Case Combo1.ListIndexCase 0Text1.FontSize = 10Case 1Text1.FontSize = 14Case 2Text1.FontSize = 18Case 3Text1.FontSize = Val(Combo1.Text) End SelectEnd SubPrivate Sub Combo2_Click()Select Case Combo2.ListIndexCase 0Text1.ForeColor = RGB(255, 0, 0) Case 1Text1.ForeColor = RGB(0, 255, 0) Case 2Text1.ForeColor = RGB(0, 0, 255) End SelectEnd SubPrivate Sub Form_Load()ShowCombo1.Text = "字体"Combo1.AddItem "10"Combo1.AddItem "14"Combo1.AddItem "18"Combo1.AddItem "22"Combo2.Text = "颜色"Combo2.AddItem "红色"Combo2.AddItem "绿色"Combo2.AddItem "蓝色"End Sub3、Private Sub Option1_Click(Index As Integer)Select Case Option1(Index).IndexCase 0label1.Left = 0Case 1label1.Left = (Me.ScaleWidth - label1.Width) / 2Case 2label1.Left = Me.ScaleWidth - label1.WidthEnd SelectEnd Sub4、Private Sub Command1_Click()If Option1.Value = True ThenText2 = Text1 - 100ElseText2 = Text1 - 105End IfEnd Sub5、Private Sub Command1_Click()s = 0If Option1.Value = True Thens = Val(Text1)ElseIf Option2.Value = True Thens = Val(Text1) * 1.2Elses = Val(Text1) * 1.4End IfIf Check1.Value = 0 And Check2.Value = 1 Thens = s / 4ElseIf Check1.Value = 1 Thens = s * 1.3End IfLabel2.Caption = "总学时：" & sEnd Sub6、Private Sub command1_Click()Form2.ShowForm2.ClsForm2.Print "您点中了以下"; Form1.List2.ListCount; "个菜：" For i = 0 To Form1.List2.ListCount - 1Form2.Print Form1.List2.List(i)NextEnd SubPrivate Sub Command2_Click()List2.RemoveItem List2.ListIndexEnd SubPrivate Sub Command3_Click()List2.ClearEnd SubPrivate Sub Command4_Click()EndEnd SubPrivate Sub Form_Load()List1.AddItem "鱼香肉丝"List1.AddItem "麻婆豆腐"List1.AddItem "京酱肉丝"List1.AddItem "水煮肉片"List1.AddItem "宫保鸡丁"List1.AddItem "酸菜鱼"End SubPrivate Sub List1_DblClick()For i = 0 To List2.ListCount - 1If List2.List(i) = List1.Text Then Exit ForNext iIf i = List2.ListCount ThenList2.AddItem List1.TextEnd IfEnd Sub7、Private Sub Combo2_Click()Select Case Val(Combo2.Text)Case 1, 3, 5, 7, 8, 10, 12t = 31Case 4, 6, 9, 11t = 30Case 2If Combo1.Text Mod 4 = 0 And Combo1.Text Mod 100 <> 0 Or Combo1.Text Mod 400 = 0 Thent = 29Elset = 28End IfEnd SelectCombo3.ClearCombo3.Text = "日数"For i = 1 To tCombo3.AddItem Str(i)NextEnd SubPrivate Sub Form_Load()Combo1.Text = "年份"For i = 1995 To 2050Combo1.AddItem Str(i)NextCombo2.Text = "月份"For i = 1 To 12Combo2.AddItem Str(i)NextCombo3.Text = "日数"For i = 1 To 31Combo3.AddItem Str(i)NextEnd Sub8、Private Sub HScroll1_Change()Label4.Caption = HScroll1.ValueMe.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value) End SubPrivate Sub HScroll2_Change()Label5.Caption = HScroll2.ValueMe.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value) End SubPrivate Sub HScroll3_Change()Label6.Caption = HScroll3.ValueMe.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value) End Sub9、Private Sub Form_Load()Image1.Picture = LoadPicture("E:\ghy\万里图片\4.jpg")End SubPrivate Sub Form_Resize()Image1.Width = Me.WidthImage1.Height = Me.HeightEnd Subv10、Dim sPrivate Sub Form_Load()Label1.Caption = "程序已经运行了：0秒"Timer1.Interval = 1000Timer1.Enabled = TrueEnd SubPrivate Sub Timer1_Timer()s = s + 1Label1.Caption = "程序已经运行了：" & Str(s) & "秒" End Sub11、Private Sub Command1_Click()List2.AddItem List1.TextList1.RemoveItem List1.ListIndexEnd SubPrivate Sub Command2_Click()List1.AddItem List2.TextList2.RemoveItem List2.ListIndexEnd SubPrivate Sub Form_Load()List1.AddItem "清华大学"List1.AddItem "北京大学"List1.AddItem "中国人民大学"List1.AddItem "北京师范大学"List1.AddItem "北京理工大学"End Sub12、Private Sub Command1_Click()If Trim(Text1) <> "" ThenList1.AddItem Trim(Text1)Text1 = ""Text1.SetFocusLabel2.Caption = "院校数：" & List1.ListCount ElseMsgBox "请先输入院校名!"End IfEnd SubPrivate Sub Command2_Click()If Trim(Text1) <> "" ThenFor i = 0 To List1.ListCount - 1If List1.List(i) = Trim(Text1) ThenList1.RemoveItem iText1 = ""Exit ForEnd IfNextIf i > List1.ListCount Then MsgBox "您输入的院校不存在！"ElseMsgBox "请先输入院校名!"End IfLabel2.Caption = "院校数：" & List1.ListCountEnd SubPrivate Sub Command3_Click()List1.ClearText1 = ""End SubPrivate Sub Command4_Click()EndEnd Sub13、Private Sub Check1_Click(Index As Integer)Select Case IndexCase 0If Check1(0).Value = 1 Then Text1.FontBold = True Else Text1.FontBold = FalseCase 1If Check1(1).Value = 1 Then Text1.FontItalic = True Else Text1.FontItalic = FalseCase 2If Check1(2).Value = 1 Then Text1.FontUnderline = True Else Text1.FontUnderline = False Case 3If Check1(3).Value = 1 Then Text1.FontStrikethru = True Else Text1.FontStrikethru = False End SelectEnd SubPrivate Sub Command1_Click()HScroll1.Value = 8For i = 0 To 3Check1(i).Value = 0Option1(i).Value = FalseOption2(i).Value = FalseNextText1.FontSize = 12Text1.FontName = "宋体"Text1.ForeColor = vbBlackEnd SubPrivate Sub Command2_Click()EndEnd Sub'将text1的属性MultiLine设置为“True”Private Sub Form_Load()Text1 = "好雨知时节，" & vbCrLf & "当春乃发生。
vb程序设计内容
VB程序设计通常是指Visual Basic程序设计，这是一种由微软开发的编程语言。
VB程序设计通常涵盖以下内容：
1. **基础语法**：包括变量、数据类型、常量、控制结构（如if语句、循环语句等）、函数和过程等。
2. **窗体设计**：VB是一种面向对象的编程语言，这意味着你可以设计各种用户界面元素，如窗口、按钮、文本框等。
3. **事件驱动编程**：这是VB的一个核心概念。
事件是由用户（例如，点击按钮或按下键盘）或系统（例如，定时器到期）触发的一种行为。
4. **数据库连接与操作**：VB可以通过多种方式连接和操作数据库，例如使用或SQL Server等。
5. **文件I/O操作**：VB允许你读取和写入文件，这对于许多应用程序来说都是必要的。
6. **图形和多媒体**：VB支持图形和多媒体编程，例如使用GDI+进行绘图，或使用DirectX进行更高级的图形处理。
7. **网络编程**：VB可以用于开发网络应用程序，例如使用套接字进行通信，或使用Web服务进行数据交换。
8. **多线程编程**：VB支持多线程编程，这使得你可以同时执行多个任务。
9. **错误处理和调试**：VB提供了强大的错误处理和调试工具，可以帮助你找出和修复程序中的错误。
10. **使用API和DLLs**：VB可以调用Windows API函数和DLLs，这
使得你可以利用现有的代码和功能。
以上是VB程序设计的一些主要内容。
如果你有特定的需求或问题，我可以提供更详细的信息。
vb程序设计含详解
Function过程的创建与调用
```
调用Function过程：通过过程名称和参数列表调用
Function过程，并使用返回值。例如：`result =
MyFunction(10, 20)`调用名为MyFunction的Function
过程，并将返回值赋给变量result。
算术运算符与表达式 介绍VB中的算术运算符及其优先级， 以及构建算术表达式的方法。
比较运算符与表达式
详细解释VB中的比较运算符及其用 法，以及构建比较表达式的方法。
逻辑运算符与表达式
阐述逻辑运算符及其在构建复杂逻辑 表达式中的应用。
字符串运算符与表达式
讲解字符串运算符及其在字符串处理 中的使用方法。
控制结构语句
讲解VB中的控制结构语句，如If...Then...Else、For...Next、 Do...Loop等，以及其在程序流程控制中的使用。
03 VB程序控制结构
顺序结构程序设计
赋值语句
使用赋值语句将数据存储在变量中，例如 `x = 5`。
输入/输出语句
使用 `InputBox` 函数获取用户输入，使用 `MsgBox` 函数显示 输出信息。
02 VB程序设计基础
VB编程环境介绍
VB集成开发环境（IDE）概述
01
包括菜单栏、工具栏、工具箱、代码窗口等组成部分。
VB工程结构与文件类型
02
解释VB工程中的模块、窗体、类等文件类型及其作用。
VB编程步骤与调试技巧
03
介绍VB编程的基本步骤，如设计界面、编写代码、调
试程序等，以及常用的调试技巧。
数据库应用实例分析
实例一
使用VB实现学生信息管理系 统的设计与实现，包括学生 信息的添加、修改、删除和 查询等功能。