《VB6.0基础入门教程》






VB简单入门教程
目 录
（提示：ctrl单击鼠标跳相应页）
11 1 需什 3
12 2 第二章：事件属性数类型 3
13 3 第三章：VB语言 6
14 41第四章　钮（） 12
15 4 第四章　钮（二） 199
16 5 第五章　菜单 27
17 61第六章　输入（） 34
18 62第六章　输入（二） 42
19 63第六章　输入（三） 52
110 7第七章　输出 59
附录 63
21 VB教程 63


11 1
需什
　　需什？精彩游戏世界中游历番惊叹某工具软件巧精致余少总会产生许编程动编程前果电脑门外汉实件事情果运基DOS编程语言譬CQbasicPascal等等真知年月成
　　编程需天赋必须脑中整程序清晰轮廓高效流程做必须思慎编程变成件枯燥味事情第四代计算机语言（视化编程）出现确切说开发更天赋局限头脑异常清晰发现编出前敢问津程序想象力充分发挥第四代语言精粹
　　Visual Basic（简称VB）说视化语言先驱视化程度高年前VB诞生日起现已历五版现微软正紧张进行着VB60研制测试高更新率外说明两问题：户VB热衷微软VB重视否认微软市场预测力极高明强技术财力支持许前未进入领域长时间成力竞争手IE浏览器领域帝国时代游戏例证VB现强竞争手――Delphi称作VB杀手显然偏激处VB确足处Delphi尝呢微软VB倾心VB功必然会越越强
VB诞生
　　VB出现说Microsoft Windows日渐成熟必然产物Microsoft Windows程序员终户提供机界面户Windows提供图形鼠标操作环境该环境应程序样程序员Windows提供组预定义工具称Microsoft Windows 软件开发工具箱（SDK）该工具程序员建立Windows界面相应程序程序员必关心终户硬件配置情况开发环境中程序员唯困难Microsoft SDK提供六百函数致事件驱动（eventdriven）编程技术两种新方法交叉众程序员重新陷入困境程序员仅掌握程序驱动编程技术六百函数功C语言描述问题般情况程序员首先掌握C程序设计技术开始学SDK样条件求Microsoft务环境出现种操作方便简单新工具－－－－Visual Basic诞生
视
    英文Visual意思视觉视Baisc名字抽象点实际直观编程方法做视VB界面会明白实际需编程完成许步骤VB中引入控件概念Windows中控件身影处种样钮文框线钮控件种类VB控件模式化控件干属性控制控件外观工作方法样象画板样意点鼠标钮完成前编程语言相复杂工作
　
12 2
第二章：事件属性数类型
两章会较枯燥否认重学VB定基础行
　　事件
通章例子面象编程已定解事件驱动象感应事件会譬说鼠标移进某区域时会触发MouseMove事件直观容易理解事件较抽象面般事件进行解释
1 窗体图象框类事件
· Paint事件：某象屏幕中移动改变尺寸清程序会动调Paint事件注意：象AutoDraw属性True（－1）时程序会调Paint事件  
· Resize事件：象改变时触发Resize事件  
· Load事件：仅适窗体象窗体装载时运行  
· Unload事件：仅适窗体象窗体卸载时运行
  2前光标（Focus）事件
· GotFocus事件：光标聚焦该象时发生事件  
· LostFocus事件：光标离开该象时发生事件
注意：Focus英文焦点聚焦意直观例子两窗体互相部分遮盖点面窗体时会全部显示出时处激活状态标题条变成蓝色GotFocus事件相反外窗体遮盖标题条变灰称LostFocus事件面说光标非指鼠标指针
  3鼠标操作事件
· Click事件：鼠标单击象  
· DbClick事件：鼠标双击事件  
· MouseDownMouseUp属性：放开鼠标键事件  
· MouseMove事件：鼠标移动事件  
· DragDrop事件：拖放事件相MouseDownMouseMoveMouseUp组合  
· DragOver事件：鼠标拖放程中会产生DragOver事件
  4键盘操作属性
· KeyDownKeyUp事件：键放开事件  
· KeyPress事件：键事件
  5改变控制项事件
· Change事件：象容发生改变时触发Change事件典型例子文框（TextBox）  
· DropDown事件：弹事件仅组合框（ComboBox）象  
· PathChange事件：路径改变事件仅文件列表框（FileBox）象
  6事件
· Timer事件：仅计时器隔段时间触发次
二属性
    象属性Name属性Name属性程序中进行调属性窗体布局操作中完成程序运行中改变取决需属性读控件布局时改变实例中具体介绍属性作
　　三数类型
学编程知道数计算机语言规定数类型VB例外实简单程序中数类型作规定说变量种类型复杂程序里样做危险变量赋予类型导致程序出错程序严谨便查正确定义数类型必定义数原数占存数量譬整型（Interger）数占2字节长整型数占4字节定义合适数类型相信相信节省存
1 VB常数类型：整型（Integer表示3276832767间整数）长整型（Long表示21474836482147483647间整数）实型（Single表示337E+38337E+38间实数）双精度实型（Double表示167E+308167E+308间实数）字符（String字符占字节储存0～65535字符）布尔（Boolean两值True1False0）
2 数类型定义方法：
· 定义变量简单方法Dim关键字语法：
Dim 变量名As 数类型
：Dim Index As Integer
行中定义变量：
Dim Index As Integer Dim Number As Long
变量定义成类型写成：
Dim Index Number As Integer
更定义时进行初赋值：
Dim Index
时简便符号进行简单定义作面样整型代长整型&代实型双精度实型#定义刚第例子写成：
Dim Index 等价 Dim Index As Integer
· 常量定义Const定义：Const COLOR
程序中便查阅变量常量写法进行规定变量般写方式常量全部写
注意：常量处程序中常出现数值应设常量等样书写方便二果改变该数值需改变定义常量语句值需改变语句提高效率
· 数组定义类似变量定义数组需指定数组中元素数例：
Dim IntegerArray(99) As Integer
数组中包含100元素脚标099
指定脚标起始值例：
Dim IntegerArray(2 to 10) As Integer
数组含九元素脚标210
定义维数组：
Dim ThreeD(42 to 53 to 6) As Integer
例定义三维数组(4×4×4)
· 记录定义
记录定义控制权交户方法户定义数类型关键字Type方法：
Type 数类型标识符
<域名> As <数类型>
<域名> As <数类型>
<域名> As <数类型>
…………………………
End Type
例定义址数：
Type Address
Street As String
ZipCode As String
Phone As String
End Type
址数里包括三属性街区邮政编码电话某数定义成类型：
Dim MyHome As Address
调改变MyHome值时类似象属性操作：
变量名域名＝……
简化书写重复部分关键字With：
With MyHome
Street阜成路
ZipCode
Phone
End With
13 3
第三章：VB语言
章提：
· VB语法Basic异  
· 注释语句  
· 长语句分行  
· 条件语句  
· 循环语句  
· 运算操作  
· 数定义赋值  
· 函数程

VBBasic
· VB做Visual BasicBasic语言作代码间着千丝万缕关系果学Basic话VB程序结构会感亲切VB作新生物超越Basic限制许特点：  
· VB建立种新变量类型――货币型变量通仅带二位数货币变量避免实型变量带数值积累误差问题  
· VB调函数（Function）时必须函数名括号  
· VB白兰范围重新做规范Basic里隐含变量作全局变量VB里隐含变量作局部变量  
· VB里说明语句（Declare）仅支持动态链结库（DLL）子程序变量函数  
· 数组必须事先DimRedim进行定义

二注释语句
注释语句前必须先解注释作注释仅仅程序解释时程序调试非常譬说利注释屏蔽条语句观察变化发现问题错误注释语句编程里常语句
VB里注释语句两种种Rem关键字DOS里批处理文件法样种利单引号’例：
Dim a As String
Rem Dim a As String 作致

三长语句分行
较早版中没象C等语言隔开语句语句VB语句必须写行里版VB里许分行符_长语句分成干行存放
四条件语句
果学种编程话会知道程序里控制流程两种语句条件循环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
表格表示：
条件1
True
False
语
句
1
条件2
True
False
语
句
2
条件3
True
False
…
…
…
………………………
条件N
True
False
语句N
语句N＋1
　
　
Else会感方便程序结构清晰数语言Select语句帮助解决问题
VB里Select语句格式样：
Select Case <变量名>
Case <情况1>
  ……
Case <情况2>
  ……
Case <情况3>
  ……
  ……
  ……
Case Else
  ……
End Select
例：
Select Case a
Case 1
  Print a
Case 2
  Print a
Case Else
  Print a does not equal to 1 or 2
End Select
五循环语句
循环结构计算机语言里种重结构应广泛简单例子累加器作穷举法更直观例子某件事重复指定次数样重复语句输入次通循环结构完成非常方便
C语言里for循环语句VB里For关键字作差VBFor语句更容易理解格式：
For <循环变量><初赋值> To <终值> [Step <步长>]
……
……
Next <循环变量>
默认情况Step设1省略Step设负值例：
Dim a
For I1 To 10
a
Next I
简单累加器例子110累加起然赋值a样效果面样倒着加罢请：
Dim a
For I10 To 1 Step –1
a
Next I
While语句常循环语句形式
· Do While …… Loop语句  
· While …… Wend 语句  
· Do …… Loop While
While面逻辑条件判断Do While …… Loop语句While …… Wend 语句作相似先判断While面条件否真果真执行里面语句果假退出循环循环直条件假终止Do …… Loop While 前两者区条件真假会先执行Do面语句说少执行语句次
While法相似Until语句直条件真终止循环句式While述三语句While换成Until容易记混建议WhileUntil <条件>相While Not <条件>
For循环Whlie循环应根适环境时换
六运算操作
1 数学运算
· ＋：加法运算适合字符串间合运算  
· －：减法运算  
· *：法运算  
· ：法运算  
· ＼：整运算  
· Mod：求余运算例：a Mod b表示ab整余数  
· ^：幂运算A^B表示A底B次方
1 关系运算
关系运算称较运算表示等式真假VB提供六种运算符分
2 逻辑运算
逻辑运算真假运算列表说明：
　
A
B
Not A
非
And

Or

Xor
异
Eqv
相等
Imp
蕴含
T
T
F
T
T
F
T
T
T
F
F
F
T
T
F
F
F
T
T
F
T
T
F
T
F
F
T
F
F
F
T
T
　
T――True F――False

七 数定义
标题容已章家详述里重复

八函数程
函数程许相似方间质区函数返回值程执行系列动作简单函数理解成变量VB中事件程Command1_Click()程
程序设计中常会重复方做成函数程时进行调节省量输入代码时间函数程便程序结构化修改查函数程参数没参数
关函数程章中配合实例讲解请您继续VB教程
14 41
第四章　钮（）
　　章开始正式进入VB编程世界仅仅开端编出功强软件学东西VB高级教程努力学啊
　　钮Windows操作见控件着种样功：确认取消步等等钮表现外图形化钮实没什钮通单击（click）事件实现外表罢面建立简单钮双击工具箱CommandButton窗体建立形图4－1钮缺省名（Name属性）Command1改名cmdExitCaption属性设退出然双击钮填写代码：
Private Sub cmdExit_Click()
Unload Me
End Sub

　　F5者工具条播放钮运行程序图4－2退出钮时候会动退出程序原单击钮时激活Click事件执行Unload Me语句窗体卸载
　　面举较简单例子面例子稍微复杂：
　　新建窗体控件布局图4－3示包括List控件Text控件两钮（Command1Command2）　（较简单程序采缺省名）属性做修改：

List1
Caption＝请输入名字
Text1
Text＝（空字符串)
Button1
Caption＝复原
Enabled＝False
Button2
Caption清
　　Button1Enabled属性设False（假）程序初始时法单击Command1F5运行程序图4－4复原钮成灰色选

然现程序什做面程序中添加代码：
首先General里声明全局变量：
Dim StoreString As String ＇储存字符串
※注意：什全局变量？
VB里程相程序程序里变量称局部变量程序部程序调结束存中清变量储存值消失里全局变量程中传递字符串
接着填写代码：
Private Sub Command1_Click()
Text1Text StoreString
Command1Enabled False
End Sub
　
Private Sub Command2_Click()
StoreString Text1Text
Text1Text ＇清
Command1Enabled True
End Sub
　　运行程序图4－5清文框清复原文恢复许程序中UndoRedo利原理实现现知道什存越越吧

　　程序修改Button2删Button1Enabled属性改TrueCaption改清填写代码：
Private Sub Command1_Click()
If Command1Caption 清 Then
StoreString Text1Text
Text1Text ＇清
Command1Caption 复原
Else
Text1Text StoreString
Command1Caption 清
End If
End Sub
　　样面功少控件控件少程序启动会快
　　面例子更加复杂家定Windows附件中计算器标准科学计算器利VB做没复杂四运算已
　　先建立新项目文件里面包含Form1窗体然添加控件包括Text框（Text1）17钮17钮名称Command1Index属性象数组创立组钮方法先窗体建立钮（Command1）然Command1击鼠标右键选择复制（Copy）然窗体意部位击右键选择粘贴（Paste）系统会提示否创建控件组选择重复面步骤直创立17钮止控件属性表：

Text1
BackColor＝&H00C0FFFF&
Text＝0
Command1
Index 0――16
Index 0――9 Caption
Index 10 Caption
Index 11Caption
Index 12 Caption
Index 13 Caption
Index 14 Caption
Index 15 Caption
Index 16 Caption清
　　果想改变属性字体定义Font属性果相控件属性进行改变窗体鼠标拖动控件起选定然属性进行修改
　　东西费两时呢觉叹手生里面方绕弯子量解释清楚
　　编写程序前先回顾计算器
1 数字键液晶屏会出现数字基功
2 第次运算键数字键重新输入第二数字次运算键算出前两数结果然数字键重新输入新数字
3 输入数字等键输出原数字输入运算符第二数字等二者结果然重复第二三步
4 清数全部清
　　解步步实现
　　先实现数输入请代码
　　未创立组控件相事件里Index参数组里象事件
　　先General里声明窗体级全局变量：
Dim Num1 Num2 As Single
Dim StrNum1 StrNum2 As String
Dim FirstNum As Boolean ＇判断否数字开头
　　Text1里存放字符串输入数进行运算必须字符型变量转变实型变量分Num1Num2StrNum1StrNum2进行存放
　　Form_Load事件里变量初赋值：
Num1 0
Num2 0
StrNum1
StrNum2
FirstNum True
　　17钮事件Select Case语句区分钮双击意钮输入代码：
Private Sub Command1_Click(Index As Integer)
Select Case Index
Case 0 To 9
If FirstNum Then
StrNum1 Str(Index)’实型转字符型
FirstNum False’初赋值假
Else’非初赋值
StrNum1 StrNum1 + Str(Index)
End If
Text1Text StrNum1’显示
<语句等插入>
End Select
End Sub
运行程序话已输入数面处理数点
General里声明新变量：
Dim PointFlag As Boolean ＇判断否已数点
知道数点输入次数中数点存需布尔变量做判断
Form_Load里进行初赋值：
PointFlag False
Command单击事件里接着面输入新代码：
Case 10
If Not PointFlag Then’果没数点
If FirstNum Then’果第字符
StrNum1 0
FirstNum False
Else
StrNum1 StrNum1 +
End If
Else’已数点
Exit Sub’退出单击事件
End If
PointFlag True
Text1Text StrNum1
15 42
第四章　钮（二）
　　面会复杂先跳等号处理四运算：
先General里声明新变量：
Dim Runsign As Integer ＇储存运算符号
Dim SignFlag As Boolean ＇判断否已运算符号
然Form_Load中进行初赋值：
Runsign 0
SignFlag False
接Command1_Click中继续输入代码：
Case 12 To 15
FirstNum True’次输入新数
PointFlag False
＇原标记值
If SignFlag Then’前面已运算符未运算
Call Run
Else
SignFlag True
StrNum2 StrNum1’字符串1复制字符串2
StrNum1 ’字符串1清空
End If
Runsign Index 11 储存键入运算符
　　里面运算部分程等号时会调运算程样减少代码输入程序便浏览建立程（Procedure）General部分直接输入通菜单里Add Procedure添加Run代码：
Sub Run()
Num1 Val(StrNum2)
Num2 Val(StrNum1)
Select Case Runsign
Case 1’加
equal Num1 + Num2
Case 2’减
equal Num1 Num2
Case 3’
equal Num1 * Num2
Case 4’
equal Num1 Num2
End Select
StrNum2 Str(equal)
StrNum1 StrNum2
Text1Text StrNum2
End Sub
面余代码：（Command1_Click事件里接着写)
Case 11
If Not SignFlag Then
Text1Text StrNum1
equal Val(StrNum1)
FirstNum True
PointFlag False
Else
Call Run
SignFlag False
End If
Case Else’清钮
Call ClearData
里面ClearData程实际Form_Load里变量初赋值代码：
Sub ClearData()
Num1 0
Num2 0
StrNum1
StrNum2
FirstNum True
PointFlag False
Runsign 0
SignFlag False
Text1Text 0
End Sub

样完整程序完成章介绍VB第控件――钮举例希继续章――菜单
面出完整程序代码：
Dim Num1 Num2 As Single
Dim StrNum1 StrNum2 As String
Dim FirstNum As Boolean ＇判断否数字开头
Dim PointFlag As Boolean ＇判断否已数点
Dim Runsign As Integer ＇储存运算符号
Dim SignFlag As Boolean ＇判断否已运算符号
　
Sub ClearData()
Num1 0
Num2 0
StrNum1
StrNum2
FirstNum True
PointFlag False
Runsign 0
SignFlag False
Text1Text 0
End Sub
　
Sub Run()
Num1 Val(StrNum2)
Num2 Val(StrNum1)
Select Case Runsign
Case 1
equal Num1 + Num2
Case 2
equal Num1 Num2
Case 3
equal Num1 * Num2
Case 4
equal Num1 Num2
End Select
StrNum2 Str(equal)
StrNum1 StrNum2
Text1Text StrNum2
End Sub
　
Private Sub about_Click()
MsgBox Create by 周晓阳1998727 vbDefaultButton1 VB教程第四章范例
End Sub
　
Private Sub Command1_Click(Index As Integer)
Select Case Index
Case 0 To 9
If FirstNum Then
StrNum1 Str(Index)
FirstNum False
Else
StrNum1 StrNum1 + Str(Index)
End If
Text1Text StrNum1
Case 10
If Not PointFlag Then
If FirstNum Then
StrNum1 0
FirstNum False
Else
StrNum1 StrNum1 +
End If
Else
Exit Sub
End If
PointFlag True
Text1Text StrNum1
Case 12 To 15
FirstNum True
PointFlag False
＇原标记值
If SignFlag Then
Call Run
Else
SignFlag True
StrNum2 StrNum1
StrNum1
End If
Runsign Index 11
Case 11
If Not SignFlag Then
Text1Text StrNum1
equal Val(StrNum1)
FirstNum True
PointFlag False
Else
Call Run
SignFlag False
End If
　
Case Else
Call ClearData
　
End Select
End Sub
　
Private Sub Form_Load()
Call ClearData
End Sub
补充说明
钮两重属性Default（默认属性）Cancel（取消属性）两属性布尔赋值Default设True回车键时焦点处处会触发该钮Click事件Cancel属性设TrueESC键时该钮Click属性发生面举例子：
建立新窗体两钮Name属性分cmdOKcmdCancel前者Default设True者Cancel设TrueCaption属性分OKCancel图4－8填写代码运行：

Private Sub cmdCancel_Click()
MsgBox Cancel钮 vbDefaultButton1 提示
End Sub
　
Private Sub cmdOK_Click()
MsgBox OK钮 vbDefaultButton1 提示
End Sub
结果图4－94－10：

快捷键家定知道VB实现呢实简单刚例子里建立钮Command1Caption属性设Click &ME图4－11M面条划线运行程序Alt+M时候触发Command1_Click事件：

Private Sub Command1_Click()
MsgBox Click ME 钮 vbDefaultButton1 提示
End Sub
知许户快捷键惯注意细节问题够程序更欣赏？
16 5
第五章　菜单
　　常Windows操作里遇种样菜单菜单操作种命令结构化分分类化节省命令占空间作讲菜单类似钮事件――Click
　　VB作Windows视编程工具菜单设计然容易实现VB30Ctrl+MVB40版请Ctrl+E便呼出菜设计窗口VB版窗口样式异请见图5－1

　　前面说菜单相简单钮属性中部分见包括NameCaptionIndexCheckedEnabledVisible快捷键热键等等中Name必须面请起设计第菜单
　　首先Caption添入文件NamemnuFileNext钮样建立第级菜单注意菜单设计窗口左中四箭头右箭头出现排点图5－2VB里缩排样开始建立第二级菜单

知识：实际生活中常缩排写文章时开头空两格种缩排编写程序时更需缩排样程序结构化便观察然菜单设计里缩排更处
接着填写菜单项Caption新文件NamemnuFileNewNext键
知识：VB许建立6级子菜单图5－3量建立样菜单知道藏越深处菜单项越难发现友程序界面应该户马找需命令

接着重复步骤创建三菜单项：
Caption 保存
Name mnuFileSave
Level 1
Caption 存
Name mnuFileSaveAs
Level 1
Caption 载入
Name mnuFileLoad
Level 1
 
　　菜单里常项分开分隔条VB里容易做Caption设（减号）NamemnuBar1增加菜单条项Caption退出NamemnuFileExit现退出菜单设计窗口菜单图5－4

　　样章学觉Windows世界神秘？确轻易实现功果仔细想想程序什会做呢说徒表实现强功恐怕学长长时间现仅仅开头想入非非时候继续努力
　　现次Ctrl+E重回菜单设计窗口接着添加菜单（左箭头菜单升级Level代表菜单级）根表添加新菜单项：
Caption 编辑
Name mnuEdit
Level 0
Caption 剪切
Name mnuEditCut
Level 1
ShortCut Ctrl+X
Caption 复制
Name mnuEditCopy
Level 1
ShortCut Ctrl+C
Caption 粘贴
Name mnuEditPaste
Level 1
ShortCut Ctrl+V
Caption 关
Name mnuAbout
Level 0
　
　　中ShortCut常说热键菜单设计窗口中找设置需组合键样窗口焦点处处菜单第层热键相调该项Click事件结果图5－5

　　Win95程序里引入鼠标右键功鼠标更处VB里容易实现
　　开Form_MouseDown事件该事件两参数：Button左键时Button返回1右键时Button返回2Shift指点击鼠标时键盘键ShiftCtrlAlt讨难避免章中涉该涉容学时概理解面该事件里添加代码（效果图5－6）：

Private Sub Form_MouseDown(Button As Integer Shift As Integer X As Single Y As Single)
If Button 2 Then
PopupMenu mnuEdit vbPopupMenuLeftAlign
Else
Exit Sub
End If
End Sub
面代码中PopupMenu方法语法：
objectPopupMenu 菜单名标记X坐标Y坐标
标记表明弹出菜单位鼠标指针位置三值：
vbPopupMenuLeftAlign
位鼠标左
vbPopupMenuRightAlign
位鼠标右
VbPopupMenuCenterAlign
位鼠标中部
　
XY值制定菜单弹出位置省略
关菜单VisibleEnabled等属性请尝试
17 61
第六章　输入（）
　　什设计计算机程序呢然计算机完成工作完成务必须计算机达命令然计算机信息返馈回――务否完成谓机话交互功尤Windows操作里需进行更输入工作需填写种样表格设置程序重参数数输入计算机完成定工作天章重点讨问题――VB中建立完整输入机制
　　VB中提供函数InputBox帮助建立简单输入窗体语法：
InputBox（prompt[title][default][xpos][ypos][helpfilecontext]）
该函数返回字符串表达式参数含义：（[]表示缺省）
prompt――字符串表达式长度1024字符窗体提示部分
Title――字符串表达式显示标题栏里文
Default――字符串表达式窗体中文框缺省值
xposypos――数值表达式Twips单位指定窗体出现屏幕位置
helpfile――字符串表达式帮助文件完整路径
Context――数值表达式指定适合帮助题
面说明明白面Input语句完成简单程序
　
知识：屏幕坐标
计算机屏幕类似中学里常直角坐标系原点左屏幕右角屏幕右方坐标（00）横坐标惯致坐标越越仅屏幕象里样需记清见图6－1

　　新建项目（project）Form_load里填写行代码：
a InputBox(举荐欣赏网站 佳网站投票 VB驿)’
　　F5运行程序Form1出现前先会弹出输入话框图6－2时OKCancel没区没输入数进行处理面完成更加复杂程序

新建项目文件窗口布局成类似图6－3结构象属性表：

Form1
Caption 佳网站投票演示
BorderStyle 3’调整
ControlBox 0’False
Frame1
Caption 输入框属性
Label1
Autosize 1’True
Index 05
05 Caption 提示语句
标题
缺省网站
X坐标
Y坐标

Index 4 Enabled False
Index 4 Enabled False
Text1
Text ’（空字符串）
Index 04
Index 3 Text 0
Index 4 Text 0
Check1
Caption 指定输入框位置
Button1
Index 01
Index 0 Caption 显示输入框
1 Caption 退出程序
 
　　例中出现Frame1控件种框架窗体分成部分首先应该窗体画出Frame1控件然选择相应控件Frame1描出轮廓出现Frame1例中两钮余Frame1面例中组控件数组创建方法选定点右键选择Copy窗体部位单击右键选择Paste注意粘贴象Frame1请Frame1单击右键选择Paste
　　通窗体输入框进行完整控制原理样：窗体中填写输入框参数完成OK钮会出现设计输入框输入框退出时返回投票结果代码
　　窗体初次装入时Label1(3)Label(4)Text1(3)Text1(4)Enabled属性False需通改变Check1Value（1选中0未选中）效效
声明全局变量（General）：
Dim PosChk As Boolean ＇检查XY坐标否效
Check1_Click 事件：
Private Sub Check1_Click()
If Check1Value 1 Then
Label1(3)Enabled True
Label1(4)Enabled True
Text1(3)Enabled True
Text1(4)Enabled True
PosChk True
Else
Label1(3)Enabled False
Label1(4)Enabled False
Text1(3)Enabled False
Text1(4)Enabled False
PosChk False
End If
End Sub
接着钮中填写代码：
Private Sub Command1_Click(Index As Integer)
Dim Prompt Title Default As String
Dim xPos yPos As Integer
Select Case Index
Case 0
Prompt Text1(0)Text
Title Text1(1)Text
Default Text1(2)Text
If PosChk Then
xPos Val(Text1(3)Text)
yPos Val(Text1(4)Text)
a InputBox(Prompt Title Default xPos yPos)
Else
a InputBox(Prompt Title Default xPos yPos)
End If
Label1(5)Caption 谢谢您投票您选择 & a &
Case 1
Unload Me
End Select
End Sub
F5运行程序会样结果图6－46－5种受骗感觉啊哟哟错容易嘛


　　刚例子里接触VB中输入方法实数输入仅仅局限Text框中输入数数输入许方法譬前面Check1程序发出定信息通操作计算机发布命令做输入面介绍
　　首先介绍然输入Text框Text没Click事件缺省事件ChangeText框里旦容改变会激发该事件发生实例说话吧
　　Text特殊属性MultiLine（行）属性MultiLine属性False时候文长会行里显示换行符效True时候字符串显示Text框边缘时候会动换行配合属性ScrollBars属性4值03分没滚动条水滚动条垂直滚动条二者读属性说程序设计程中改变程序运行中改变通API解决运行中改变问题放讲PasswordChart属性常程序操作中遇填写密码部分保密起见屏幕显示字符般*表示时法剪贴板VB中非常容易做PasswordChart中设代字符串字符定*哦
　　面完成趣程序前遇程序进行部分修改程序意思样假设司机超速警察扣留现需警察陈述理果话动免交罚金果规定字数里没说出什震撼力话老兄惨交钱吧J
　　程序原英文程序点第双字节中文中文检测中文字符英文第二原英文程序说少警察然法事例中犯规者10免罚机会（点聊……L 学东东嘛）面设计窗体吧（图6－6）

Form1
Icon Stop图标
Caption 停车检查
BorderStyle 3
Label1
Caption 警官超速原请听说：
BackColor &H00808080&
ForeColor &H80000012&
Label2
Caption 必须30字完成理申诉否受罚款
BackColor &H00808080&
ForeColor &H00FF0000&
Text1
MultiLink True
Text
Picture1
Autosize True
BackColor &H00808080&
Visible True
Picture2
Autosize True
BackColor &H00808080&
Visible False
Picture3
Autosize True
BackColor &H00808080&
Visible False
Command1
Visible False
　
　
　　三图片框Picture1－3Picture属性分绿灯黄灯红灯图标VB目录Graphics＼Icons＼Traffic（VB5）VB目录Icons＼Traffic（VB4VB3）Label1Font属性里选合适字体字重面代码：
首先初始化程序：
Private Sub Form_Load()
＇Command1放水中央
Command1Top Label2Top＋200
Command1Left (Form1Width Command1Width) 2
＇重叠三图片框
Picture2Left Picture1Left
Picture2Top Picture1Top
Picture3Left Picture1Left
Picture3Top Picture1Top
End Sub
　　面讲讲程序样运行TextChange事件字符串改变次进行次检查算出已说字数字数超10时面红绿灯会变成黄色时机抽取数范围出现10果范围免交罚金果范围继续文字超20时候红绿灯会变成红色次抽取机数字步骤果30字已满进行次检查果真幸该罚款
　　程序步骤清楚程序点中文双字节字符说汉字占两ASC码位置VB显然英语国家设计Len函数法返回汉字字节说汉字ASC字符Len函数中值样需特殊处理Asc（）函数括号放入ASC字符字符串会第ASC码转化0－255数值汉字放入值必然0－255作判定汉字基础英文算作半汉字
第六章第二部分

18 62
第六章　输入（二）
　　面代码：
General 里声明窗体级变量：
Dim Level As Integer
　
Private Sub Command1_Click()
Unload Me
End Sub
　
Private Sub Text1_Change()
Dim StrLength As Integer’字符串长度
Dim RandomNum As Single’机数
Dim Str1 As String
Dim a As String
Dim i Temp
StrLength 0’次开始时字符串长度原0
a Text1Text
For i 1 To Len(a)’Len(a)代表字符串长度
Temp Asc(Mid(a i 1))’挨取字符
If Temp > 255 Or Temp < 0 Then’ASC码
StrLength StrLength + 2
Else
StrLength StrLength + 1
End If
Next i
　
StrLength StrLength 2
Select Case StrLength
Case 0 To 9
Picture1Visible True
Picture2Visible False
Picture3Visible False
Label2Caption 慢慢说 & Str(30 StrLength) & 字说
Level 1
Case 10 To 19
If Level 1 Then
RandomNum Rnd * 10’机数
If RandomNum < 10 And RandomNum > 9 Then
Text1Enabled False
Label2Caption 抱歉误会……
Command1Visible True
Command1Caption 您离开
End If
Level 2
Else
Picture1Visible False
Picture2Visible True
Picture3Visible False
Str1 没说完
Label2Caption Str1 & & Str(30 StrLength) & 字说
End If
Case 20 To 29
If Level 2 Then
RandomNum Rnd * 10
If RandomNum < 10 And RandomNum > 9 Then
Text1Enabled False
Label2Caption 抱歉误会……
Command1Visible True
Command1Caption 您离开
End If
Level 3
Else
Picture1Visible False
Picture2Visible False
Picture3Visible True
Str1 已耐烦
Label2Caption Str1 & & Str(30 StrLength) & 字说
End If
Case Else
Text1Enabled False
Label2Caption 已没机会
Command1Visible True
Command1Caption 交钱吧肇事犯
End Select
End Sub

中间函数需解释：
Mid字符串中取出部分返回字符型格式
Mid(字符串第字符开始取字符长度)
Asc字符转换ASCII码格式：
Asc(字符串)
Rnd取01 数值没参数
　　样十分简单吧次继续讨VB输入机制
　　继续面容时想回顾强调字符串操作中常函数：
　　先已接触Mid()Asc()Len()语法分：
Mid(字符型起始字符长度)
　　返回子字符串果字符串第字符取起起始字符1类推
Asc(字符型)
　　返回数值果参数字符字符串（字符）返回参数第字符ASCII值
Len(字符型)
　　返回字符串长度
　　面解释新函数：
Left(字符串长度)
　　返回字符型字符串第字符左取字符串相应Right()字符串字符右取字符串
Chr(数值型)
　　该数值范围0－255返回字符型Chr(65)返回字符A样输入键盘法输入字符
Str(数值型)
　　该函数数值型转换字符型许觉数值123字符串123没什区存中ASCII字符占字节说字符串123占3字节数值123整型时占两字符长整型时占4字节应Val(数值型)数值型转换字符型
　　面函数常请熟悉
　　次讲文框处意思？否次程序稍稍变动计算出输入单词数提示单词单词间空格分隔开
　　输入仅仅文框输入字符外界程序传递数做输入说明白
　　线钮记第章中完成第程序――Hello World种输入方法设计VB程序时通组样线钮间互相排斥说钮选中象线电收音机钮名线钮果窗体放置组线钮必须Frame控件区分开面完成例子便熟悉外两处理字符串函数――LTrim()Rtrim()分删字符串左边空格右边空格工作

　　程序窗体图6－8窗体较简单需修改更属性三文框（Text13）分显示输入字符显示空格换成星号字符处理字符三线钮（Option13）修改Caption属性分删左边空格删右边空格删两边空格空格文框中法空格通称作AddStar函数原字符串中空格转换星号够函数效果面程序中添加代码首先General中声明窗体级变量：
Dim LTrimmedword RTrimmedword ＇删左边空格右边空格字符串
Dim LRTrimmedword ＇删两边空格字符串
　　然通做addstar函数字符串加星号前说函数程分函数会返回函数值addstar相变量实理解象中学代数中函数函数相变量Y函数中参数相变量X然变量X1X2……请原谅想里数学课厌恶玩意特学二会数学课哈哈……
Function addstar(tempword As String) As String
Dim charindex
Dim pasteword ＇加星号字符串
For charindex 1 To Len(tempword)
If Mid(tempword charindex 1) Then ＇果字符空格
pasteword pasteword + *
Else pasteword pasteword + Mid(tempword charindex 1)
End If
Next
addstar pasteword ＇返回函数值
End Function
　　面代码简单做注释解释想简提句LtrimRtrim参数（字符型）外面焦点事件第三章中介绍Text1焦点（GotFocus）时清空文框失焦点（LostFocus）时字符进行addstarText2中显示
Private Sub Text1_GotFocus() ＇焦点Text1
＇清文框中字符
Text1Text
Text2Text
Text3Text
End Sub
　
Private Sub Text1_LostFocus()
Dim Origionword As String
Origionword Text1Text
Text2Text addstar(Origionword)
LTrimmedword addstar(LTrim(Origionword))
RTrimmedword addstar(RTrim(Origionword))
LRTrimmedword LTrim(RTrim(Origionword))
End Sub
　
Private Sub Option1_Click()
Text3Text LTrimmedword ＇显示删左空格字符串
End Sub
　
Private Sub Option2_Click()
Text3Text RTrimmedword ＇显示删右空格字符串
End Sub
　
Private Sub Option3_Click()
Text3Text LRTrimmedword ＇显示删两边空格字符串
End Sub
结果图6－9

　　线钮相检查框范围组线钮选中检查框选择象添表时性项选择描述前职业时学生程序员家庭教师者什总选择面举简单例子加说明
　　假设编写享软件户注册时候想知道户计算机情况需调查表调查表止枯燥程序中加入图形新建项目文件窗体布局图6－10

　　程序简单两框架（Frame1Frame2）Caption分选择计算机拥配置计算机系统Frame1四检查框（Check1Check4）Caption分网络系统鼠标密码保护电子邮件Check4Enabled属性改False效Frame2中放置四图片框（Picture1Picture4）四检查框应请图片框BorderStyle属性设0（边框）Picture属性请根图存放图标目录中找相图标面程序代码：
Private Sub Check1_Click()
If Check1Value Then
Check4Enabled 1
Picture1Visible 1
Else Check4Enabled 0
Picture1Visible 0
Check4Value 0
Picture4Visible 0
End If
End Sub
　
Private Sub Check2_Click()
If Check2Value Then
Picture2Visible 1
Else Picture2Visible 0
End If
End Sub
　
Private Sub Check3_Click()
If Check3Value Then
Picture3Visible 1
Else Picture3Visible 0
End If
End Sub
　
Private Sub Check4_Click()
If Check4Value Then
Picture4Visible 1
Else Picture4Visible 0
End If
End Sub

程序见程序简单做说明
19 63
VB入门教程六
第六章　输入（三）
　　滚动条（ScrollBar）视窗中缺少部分面积限屏幕容滚滚显示量容常滚动条滚动条滚动窗口重作――输入想想常家电器调节声音什东西滑块滑方音量会增滑方音量会减者控制左右两音箱均衡器滑块正中央时候两音箱音量相滑块偏方时音箱音量分Windows操作中常类似效果
　　VB中提供两常规滚动条控件――VscrollHscroll分代表垂直水滚动条方已属性会发生事件相滚动条特殊属性：
Value属性滑块挪动停某位置时改变滚动条Value属性
MaxMin属性设置滚动条值值譬Max设100Min设0时滚动条Value0100间移动MaxMin倒置时滚动条方会相反说MaxSmallChangeLargeChange属性鼠标滚动条两头箭头单击时会滚动条相应方挪动点时SmallChange属性设1时点滚动条Value改变1鼠标滚动条点击时LargeChange设10时点击滚动条Value改变10
面实例
　　家知道物体会颜色物体表面材料吸收太阳光中部分色光部分色光没吸收反射回成颜色黑色物体吸收太阳光色光没反射颜色黑物体反射色光白色计算机中颜色表示象刚描述样子颜色分红（R）绿（G）蓝（B）众周知计算机机器语言二进制表示方便查阅十六进制代码字节包括两位十六进制数字0－255（十六进制表示0－FF）字节八位二进制数值表示（2^828次方）计算机中分字节八位表示种颜色起三字节（24位）表示颜色时常说24位真彩组成256×256×256（2^24）种颜色肉眼根分辨出相邻两颜色FFFFFF表示白色象刚说物体反射色光相反000000表示黑色吸收色光FF0000表示红色HTML语言中样表示颜色
知识：现根显卡显存计算显卡24位真彩分辨率显示计算样显存字节数÷3（24位色）＝显示器宽象素数×显示器高象素数宽象素数：高象素数＝4：34兆显存应该4×1024×1024÷3＝1365×1024
面程序中通三滚动条分代表RGB滚动滚动条右边图片框中显示相应颜色面文框中显示颜色十六进制数值
现新建项目文件Form1中图6－12布局控件控件属性表：

HsrollBar
Name Hscroll1
Index 012
（属性）
Max 255
Min 0
LargeChange 10
SmallChange 1
Label
Name Label1
Index 012
Index 0 Caption 红：
Index 1 Caption 绿：
Index 2 Caption 蓝：
Label
Name Label2
Caption 颜色值
TextBox
Name Text1
Text
PictureBox
Name Picuture1
　
十进制数值换成十六进制数值做Hex（）函数十进制数值转化十六进制字符位十六进制字符函数高位补零视觉正确设计函数帮助位十六进制字符补零
程序代码简单见：
Dim RedStr GreenStr BlueStr As String’RGB字符
Dim RedNum GreenNum BlueNum As Integer’RGB数值
　
Function GetColorValue() As String
获输入值
RedNum HScroll1(0)Value
GreenNum HScroll1(1)Value
BlueNum HScroll1(2)Value
RedStr Hex(RedNum)
If Len(RedStr) < 2 Then RedStr 0 + RedStr’补零
GreenStr Hex(GreenNum)
If Len(GreenStr) < 2 Then GreenStr 0 + GreenStr
BlueStr Hex(BlueNum)
If Len(BlueStr) < 2 Then BlueStr 0 + BlueStr
GetColorValue RedStr + GreenStr + BlueStr’合
End Function
Private Sub Form_Load()
初始化程序
Text1Text GetColorValue
Picture1BackColor RGB(RedNum GreenNum BlueNum)＇RGB函数返回颜色值
End Sub
　
Private Sub HScroll1_Change(Index As Integer)
滚动条改变时
Text1Text GetColorValue
Picture1BackColor RGB(RedNum GreenNum BlueNum)
End Sub
运行图6－13

列表框（ListBox）复合列表框（ComboBox）常见视窗元素列示条目中选出需两种列表框外观略质操作方法说相象特殊属性：
List属性利该属性象列表框复合列表框中添加条目程序设计中通AddItem方法添加
ListCount属性返回列表框复合列表框中条目数目
ListIndex属性表示列表框复合列表框第项条目（0ListCount1）
Sorted属性通该属性列表框复合列表框中条目根字母序排序
MultiSelect属性0表示选1表示简单选2表示宽展选仅限列表框
Columns属性表示条目列显示两列显示仅限列表框
Style属性：表示列表框复合列表框种风格显示二者参数
举两简单例子
例子建立新项目文件Form1添加List控件调整适尺寸需改变属性填写代码
Private Sub Form_Load()
With List1
AddItem 0Default
AddItem 1Arrow
AddItem 2Cross
AddItem 3IBeam
AddItem 4Icon
AddItem 5Size
AddItem 6Size NE SW
AddItem 7Size NS
AddItem 8Size NW SE
AddItem 9Size WE
AddItem 10Up Arrow
AddItem 11Hourglass
AddItem 12NoDrag
AddItem 13Arrow And Hourglass
AddItem 14Arrow And Question
AddItem 15Size All
End With
End Sub
　
Private Sub List1_Click()
MousePointer List1ListIndex’里MousePointer窗体全局属性
End Sub
点项面鼠标指针会着改变图6－14

AddItem方法语法：
ListObject 字符串数值
字符串数值指定条目加入第条目位置果没话添加项逐次排
面举复合列表框例子例子通选择复合列表框中选项改变文框字体请新建项目文件窗体中添加ComboBox（Combo1）TextBox（Text1）添加代码
Private Sub Combo1_Click()
Text1FontName Combo1List(Combo1ListIndex)
End Sub
　
Private Sub Form_Load()
With Combo1
AddItem 宋体
AddItem 隶书
AddItem 黑体
AddItem 楷体
ListIndex 0＇第条目作初始项
End With
Text1FontSize 30’放字体
Text1FontName Combo1List(0)’初始字体宋体
End Sub
图6－15

（第六章完）
110 7
第七章　输出
　　章里讨VB输机制次集中讨VB中信息输出
　　输入输出分割输入终目希计算机作出反应程序避开问题算完成基程序输出部分复杂程序更
　　输入章里学第输入方法InputBox相应输出中第接触MsgBox（Message Box）InputBox相似MsgBox简化窗体函数形式返回操作基语法：
　　MsgBox 显示容钮值标题
　　通函数产生标准Windows消息框象时常接触YesNoOKCancelRetryAbortIgnore等等钮值中设定钮值：
数值
含义
0
OK
1
OKCancel
2
AbortRetryIgnore
3
YesNoCancel
4
YesNo
5
RetryCancel
　
　　消息搭配图标帮助文件问号般提示圈里I等等钮值部分：
数值
含义
16
表示危险
32
表示问号
48
表示警告
64
表示信息
　
　　显示钮显示相应图标呢请会面例子前面说MsgBox函数会返回值某钮会返回数值便户动作捕捉返回值：
数值
含义
1
OK
2
Cancel
3
Abort
4
Retry
5
Ignore
6
Yes
7
No
　　说已知措面例子相信切会迎刃解

　　首先建立新项目文件添加象（见图7－1）――Button（Command1）两ComboBox（Combo1Combo2）属性做更修改需Command1Caption改Click Me程序目组合面钮值显示种消息框返回钮Combo1Combo2分选择钮值首先Form_Load中初始化程序：
Private Sub Form_Load()
Combo1AddItem OK
Combo1AddItem OK and Cancel
Combo1AddItem AbortRetry and Ignore
Combo1AddItem YesNoCancel
Combo1AddItem YesNo
Combo1AddItem RetryCancel
Combo1ListIndex 0
Combo2AddItem 危险
Combo2AddItem 询问
Combo2AddItem 警告
Combo2AddItem 信息
Combo2ListIndex 0
End Sub
ComboBox法已章中讨赘述ListIndex属性第元素放选择位置
　　显示需钮图标呢？简单需相加说显示OKCancel钮警告图标需148相加49Command1中填写样行：
Private Sub Command1_Click()
message MsgBox(显示 & Combo1List(Combo1ListIndex) & & Combo2List(Combo2ListIndex) Combo1ListIndex + (Combo2ListIndex + 1) * 16 消息演示)
End Sub
图标值16开始Combo2ListIndex加116
知识：钮值非简单相加
钮值非简单相加知道计算机里终语言机器语言机器语言01二进制表示里实际相加逻辑操作符OR知道ORAND样工作？正知True And FalseFalseTrue Or FalseTrue形成呢？时0代表False1－1代表True（实非零代表True）01二进制中身TrueFalse运算变成0 1运算And做补0运算Or做补1运算And处理两二进制数时候逐位较果相位01没变化果位0位1结果相应位变成01010（十进制中10）And 1101（十进制中13）1000（十进制中8）相Or方补1位数时前面补0VB中试试什讲呢原想家真例子中相加碰巧01处位置知识位图操作API操作中处
面判断户钮
Private Sub Command1_Click()
message MsgBox(显示 & Combo1List(Combo1ListIndex) & & Combo2List(Combo2ListIndex) Combo1ListIndex + (Combo2ListIndex + 1) * 16 消息演示)
Select Case message
Case 1
MsgBox OK钮
Case 2
MsgBox Cancel钮
Case 3
MsgBox Abort钮
Case 4
MsgBox Retry钮
Case 5
MsgBox Ignore钮
Case 6
MsgBox Yes钮
Case 7
MsgBox No钮
End Select
End Sub
运行程序结果图7－27－3




　
2 附录
21 VB教程
第四章　钮（）
　　章开始正式进入VB编程世界仅仅开端编出功强软件学东西VB高级教程努力学啊
　　钮Windows操作见控件着种样功：确认取消步等等钮表现外图形话钮实没什钮通单击（click）事件实现外表罢面建立简单钮双击工具箱CommandButton窗体建立形图4－1钮缺省名（Name属性）Command1改名cmdExitCaption属性设退出然双击钮填写代码：
Private Sub cmdExit_Click()
Unload Me
End Sub

　　F5者工具条播放钮运行程序图4－2退出钮时候会动退出程序原单击钮时激活Click事件执行Unload Me语句窗体卸载
　　面举较简单例子面例子稍微复杂：
　　新建窗体控件布局图4－3示包括List控件Text控件两钮（Command1Command2）　（较简单程序采缺省名）属性做修改：

List1
Caption＝请输入名字
Text1
Text＝（空字符串)
Button1
Caption＝复原
Enabled＝False
Button2
Caption清
　　Button1Enabled属性设False（假）程序初始时法单击Command1F5运行程序图4－4复原钮成灰色选

然现程序什做面程序中添加代码：
首先General里声明全局变量：
Dim StoreString As String ＇储存字符串
※注意：什全局变量？
VB里程相程序程序里变量称局部变量程序部程序调结束存中清变量储存值消失里全局变量程中传递字符串
接着填写代码：
Private Sub Command1_Click()
Text1Text StoreString
Command1Enabled False
End Sub
　
Private Sub Command2_Click()
StoreString Text1Text
Text1Text ＇清
Command1Enabled True
End Sub
　　运行程序图4－5清文框清复原文恢复许程序中UndoRedo利原理实现现知道什存越越吧

　　程序修改Button2删Button1Enabled属性改TrueCaption改清填写代码：
Private Sub Command1_Click()
If Command1Caption 清 Then
StoreString Text1Text
Text1Text ＇清
Command1Caption 复原
Else
Text1Text StoreString
Command1Caption 清
End If
End Sub
　　样面功少控件控件少程序启动会快
　　面例子更加复杂家定Windows附件中计算器标准科学计算器利VB做没复杂四运算已
　　先建立新项目文件里面包含Form1窗体然添加控件包括Text框（Text1）17钮17钮名称Command1Index属性象数组创立组钮方法先窗体建立钮（Command1）然Command1击鼠标右键选择复制（Copy）然窗体意部位击右键选择粘贴（Paste）系统会提示否创建控件组选择重复面步骤直创立17钮止控件属性表：

Text1
BackColor＝&H00C0FFFF&
Text＝0
Command1
Index 0――16
Index 0――9 Caption
Index 10 Caption
Index 11 Caption
Index 12 Caption
Index 13 Caption
Index 14 Caption
Index 15 Caption
Index 16 Caption清
　　果想改变属性字体定义Font属性果相控件属性进行改变窗体鼠标拖动控件起选定然属性进行修改
　　东西费两时呢觉叹手生里面方绕弯子量解释清楚
　　编写程序前先回顾计算器
1 数字键液晶屏会出现数字基功
2 第次运算键数字键重新输入第二数字次运算键算出前两数结果然数字键重新输入新数字
3 输入数字等键输出原数字输入运算符第二数字等二者结果然重复第二三步
4 清数全部清
　　解步步实现
　　先实现数输入请代码
　　未创立组控件相事件里Index参数组里象事件
　　先General里声明窗体级全局变量：
Dim Num1 Num2 As Single
Dim StrNum1 StrNum2 As String
Dim FirstNum As Boolean ＇判断否数字开头
　　Text1里存放字符串输入数进行运算必须字符型变量转变实型变量分Num1Num2StrNum1StrNum2进行存放
　　Form_Load事件里变量初赋值：
Num1 0
Num2 0
StrNum1
StrNum2
FirstNum True
　　17钮事件Select Case语句区分钮双击意钮输入代码：
Private Sub Command1_Click(Index As Integer)
Select Case Index
Case 0 To 9
If FirstNum Then
StrNum1 Str(Index)’实型转字符型
FirstNum False’初赋值假
Else’非初赋值
StrNum1 StrNum1 + Str(Index)
End If
Text1Text StrNum1’显示
<语句等插入>
End Select
End Sub
运行程序话已输入数面处理数点
General里声明新变量：
Dim PointFlag As Boolean ＇判断否已数点
知道数点输入次数中数点存需布尔变量做判断
Form_Load里进行初赋值：
PointFlag False
Command单击事件里接着面输入新代码：
Case 10
If Not PointFlag Then’果没数点
If FirstNum Then’果第字符
StrNum1 0
FirstNum False
Else
StrNum1 StrNum1 +
End If
Else’已数点
Exit Sub’退出单击事件
End If
PointFlag True
Text1Text StrNum1





— END —

文档香网(httpswwwxiangdangnet)户传

《香当网》用户分享的内容，不代表《香当网》观点或立场，请自行判断内容的真实性和可靠性！
该内容是文档的文本内容，更好的格式请下载文档