下载文档原格式
VB教程：文本框（TextBox）2、文本框（TextBox）作用：用于输入、编辑文本或用于输出、显示文本。
（1）常用属性Text——表示用户输入的内容。
例：Label1.Caption=Text1.Text将Text1控件接收用户输入的数据通过Label1控件显示出来。
multiline ——设置文本框能否输入和显示多行文本。
true —可输入、显示多行文本False—限制所有的文本在一行内显示（缺省）。
scrollbars——是否需要滚动条（只有在multiline属性设置为true时）。
=0 没有。
=1 有水平。
=2 有垂直。
=3 水平、垂直都有。
注意：multiline属性和scrollbars属性只能在设计时进行设置，不能在代码中赋以新值。
SelStart——表示用户选中一段文字的起始位置。
第一个字符位置为0。
利用SelStart属性可以实现字符串查找功能。
SelLength——表示用户选中文字的长度。
SelText——表示用户选中文字的内容。
例：0123456789这时：SelStart=5,SelLength=4,SelText="5678"PasswordChar——设置是否在文本框中显示用户键入的字符。
如果该属性设置了某一字符，那么无论在文本框中输入什么（即无论Text属性值是什么），都只显示设置的该字符，例如，如果将PasswordChar的属性设置为字符“*”，那么文本框中的文本都以“*”显示，最终用户无法知道文本的内容，所以该属性起到了口令的作用。
（2）常用方法：SetFocus——使当前控件获得输入焦点，即将光标从其他位置移动到文本框中。
焦点(focus)代表接收用户鼠标或键盘输人的能力，对象(窗体和控件)获得焦点通常称之为“聚焦”。
当对象获得焦点时，可接收用户的输入。
（3）主要事件主要事件有Change、KeyPress、LostFocu（失去焦点，即光标离开）等。
VB答题系统制作图文教程1、打开Visual Basic 6.0企业版程序，选择创建exe文件2、创建后，根据自己的需求设置窗口大小，窗口名称等属性值。
如：3、在窗口上放置四个按钮(commandButton1-4)控件、两个标签(Label1-2)控件、一个(TextBox1)控件、十个[TextBox(1-10)]控件和两个(Frame1-2)控件。
如图：控件名属性值Label1 1Label2 第题Command1 最前一题Command2 上一题Command3 下一题Command4 最后一题Option1(1) AOption1(2) BOption1(3) COption1(4) DFrame1 题目区Frame2 答题区Text1 MultiLine = true ; ScrollBars = 2 如图下：6、在所在工程文件目录下创建一个新文件夹，命名为question ; 同时再创建一个文件夹，命名为answer 。
如图：7、在question文件夹中创建文本文档，命名为1-10，题目以及选项都需输入。
8、在answer 文件中创建文本文档，命名为1-10，所对应的答案按序号入座。
9、双击窗体，输入以下代码：'______________________________________________________________________________ Private Sub Form_Load()Text1.Text = "" '卸载Text1的文本内容Dim Lstr As String '定义数据类型Open App.Path + "\question\" & Label1.Caption & ".txt" For Input As #1 '读取文本文档Do While Not EOF(1)Line Input #1, LstrIf Lstr <> "" ThenText1.Text = Text1.Text & Lstr & vbCrLfEnd IfLoopClose #1For i = 1 To 10Text2(i).Text = ""Next iCommand1.Enabled = False '第一题时前两个按钮失效Command2.Enabled = FalseEnd Sub'______________________________________________________________________________ Private Sub Command1_Click()For i = 1 To 4Option1(i).ForeColor = vbBlackOption1(i).V alue = FalseNext iLabel1.Caption = 1Command1.Enabled = False: Command2.Enabled = False: Command3.Enabled = True: Command4.Enabled = TrueIf Text2(Label1.Caption).Text <> "" ThenFor i = 1 To 4If Text2(Label1.Caption).Text = Option1(i).Caption ThenOption1(i).ForeColor = vbRedOption1(i).Value = TrueEnd IfNext iEnd IfText1.Text = ""Dim Lstr As StringOpen App.Path + "\question\" & Label1.Caption & ".txt" For Input As #1Do While Not EOF(1)Line Input #1, LstrIf Lstr <> "" ThenText1.Text = Text1.Text & Lstr & vbCrLfEnd IfLoopClose #1End Sub'______________________________________________________________________________ Private Sub Command2_Click()For i = 1 To 4Option1(i).ForeColor = vbBlackOption1(i).V alue = FalseNext iDim X As IntegerX = Val(Label1.Caption): X = X - 1: Label1.Caption = XIf X > 1 And X < 10 Then Command1.Enabled = True: Command2.Enabled = True: Command3.Enabled = True: Command4.Enabled = TrueIf X = 1 Then Command1.Enabled = False: Command2.Enabled = FalseIf X = 10 Then Command3.Enabled = False: Command4.Enabled = FalseIf Text2(Label1.Caption).Text <> "" ThenFor i = 1 To 4If Text2(Label1.Caption).Text = Option1(i).Caption ThenOption1(i).ForeColor = vbRedOption1(i).Value = TrueEnd IfNext iEnd IfText1.Text = ""Dim Lstr As StringOpen App.Path + "\question\" & Label1.Caption & ".txt" For Input As #1Do While Not EOF(1)Line Input #1, LstrIf Lstr <> "" ThenText1.Text = Text1.Text & Lstr & vbCrLfEnd IfLoopClose #1End Sub'______________________________________________________________________________ Private Sub Command3_Click()For i = 1 To 4Option1(i).ForeColor = vbBlackOption1(i).V alue = FalseNext iDim X As IntegerX = Val(Label1.Caption): X = X + 1: Label1.Caption = XIf X > 1 And X < 10 Then Command1.Enabled = True: Command2.Enabled = True: Command3.Enabled = True: Command4.Enabled = TrueIf X = 1 Then Command1.Enabled = False: Command2.Enabled = FalseIf X = 10 Then Command3.Enabled = False: Command4.Enabled = FalseIf Text2(Label1.Caption).Text <> "" ThenFor i = 1 To 4If Text2(Label1.Caption).Text = Option1(i).Caption ThenOption1(i).ForeColor = vbRedOption1(i).Value = TrueEnd IfNext iEnd IfText1.Text = ""Dim Lstr As StringOpen App.Path + "\question\" & Label1.Caption & ".txt" For Input As #1Do While Not EOF(1)Line Input #1, LstrIf Lstr <> "" ThenText1.Text = Text1.Text & Lstr & vbCrLfEnd IfLoopClose #1End Sub'______________________________________________________________________________ Private Sub Command4_Click()For i = 1 To 4Option1(i).ForeColor = vbBlackOption1(i).V alue = FalseNext iLabel1.Caption = 10Command1.Enabled = True: Command2.Enabled = True: Command3.Enabled = False: Command4.Enabled = FalseIf Text2(Label1.Caption).Text <> "" ThenFor i = 1 To 4If Text2(Label1.Caption).Text = Option1(i).Caption ThenOption1(i).ForeColor = vbRedOption1(i).Value = TrueEnd IfNext iEnd IfText1.Text = ""Dim Lstr As StringOpen App.Path + "\question\" & Label1.Caption & ".txt" For Input As #1Do While Not EOF(1)Line Input #1, LstrIf Lstr <> "" ThenText1.Text = Text1.Text & Lstr & vbCrLfEnd IfLoopClose #1End Sub'______________________________________________________________________________ Private Sub Option1_Click(Index As Integer)For i = 1 To 4Option1(i).ForeColor = vbBlackNext ia = IndexOption1(a).Value = TrueOption1(a).ForeColor = vbRedText2(Label1.Caption).Text = Option1(a).CaptionEnd Sub'______________________________________________________________________________ Private Sub Text2_Change(Index As Integer)Dim s As Integers = 0For i = 1 To 10If Text2(i).Text = "" Then Exit SubNext imessage = MsgBox("答题完毕！是否结分？", vbOKCancel, "VB答题系统")If message = vbOK ThenFor i = 1 To 10Open App.Path + "\answer\" & i & ".txt" For Input As #1Line Input #1, LstrIf Text2(i).Text = Lstr Thens = s + 10End IfClose #1Next iEnd IfMsgBox "得分" & sendEnd Sub'______________________________________________________________________________ 10、测试运行。
些属性足只读的•它只能在控件布局时改变.我将在以后的实例中貝体介绍孑个届性的作用.以后两章可能僉比较枯燥.但不町否认也很車要・所以为了学好VB・我们一定要打好基础才行.一、爭件通过上一章的例子•你对能对•面向对仪的編程” 已经有了一定了解•它足由爭件駆动的.对干不同的对線•所能感应到的泵件也会不同.將如说当你把鼠标移进某一区域时就会触发MouseMove爭件. 这很宜观・也容易理解.但也有些申件比较抽象.1：面我来对一般的爭件逬行一卜解禅.1.窗体和图象框类事件•Paint爭件：当某一对仪在屏幕中被移动.改变尺寸或清除后.程序会自动调•I]Paint ”件注意:当对象的AutoDnw 扈性为.胆虹（二Q戲展眩丕蝕I用Paint•Resize事件：当对象的人小改变时触发Resize 車件&•Lcad^件：仅适用干蔚体对象•当窗体發装拔时运行••Unload It件：仅适用于窗体对当窗体被卸较时运行.2•当帕光标（Focus）爭件•GotFocus申件：当光标聚焦干该对盘时发生孚件。
•LostFocus 件：当光标离开该对盘时发生事件.注乘卫聪英文岌维疋亠上聚焦冬之诡農宜观的例子足!..比如有两个幽体”互極有二瑯分逐盖，当你点下面的窗体时，它就会全部显示出来，这时它处在被漱活的状态匚并且标理条变成號色匸达就邑旦空凹逻事住「亟相反二另处二企窒佐戡鶏熱注且拯舅条变灰•「務为企吐匹㈣5戛性「上面所说旳“光拯” •并非指駅标損针•"•Clicks件：鼠标单击对象。
•DbClick ijl件：亂标双击申件。
•XouseDown^ XouseUp KM：：按卜/放开饥标键爭件。
•XouseMove M件：歐标移动事件。
•DragDrop U件：拖放爭件.相当于XojseDcwn、XouseMove 和MouseUp 的组合。
•DragOver U件：鼠标在拖放过程中就会产生DragOver事件。
VB基础教程完整版计算机等级考试二级VB基础教程1.1 Visual Basic 概述1.Visual Basic是什么Visual Basic(简称VB)是Microsoft公司开发的一种通用的基于对象的程序设计语言。
“Visual” 指的是开发图形用户界面 (GUI) 的方法，不需编写大量代码去描述界面元素的外观和位置，而只要把预先建立的对象add到屏幕上的一点即可。
“Basic”指的是 BASIC (Beginners All-Purpose Symbolic Instruction Code) 语言，一种在计算技术发展历史上应用得最为广泛的语言。
Visual Basic 在原有 BASIC 语言的基础上进一步发展，至今包含了数百条语句、函数及关键词，其中很多和 Windows GUI 有直接关系。
专业人员可以用 Visual Basic 实现其它任何 Windows 编程语言的功能，而初学者只要掌握几个关键词就可以建立实用的应用程序。
Visual Basic Scripting Edition (VBScript) 是广泛使用的脚本语言，它是 Visual Basic 语言的子集，可嵌入HTML语言中，用于网页设计，如ASP(Active Server Page)文件。
VB简单易学，通用性强，用途广泛。
2.VB的功能VB可以用于可以开发多媒体、数据库、网络、图形等方面的应用程序。
数据访问特性允许对包括 Microsoft SQL Server 和其它企业数据库在内的大部分数据库格式建立数据库和前端应用程序，以及可调整的服务器端部件。
有了 ActiveX(TM) 技术就可使用其它应用程序提供的功能，例如Microsoft Word 字处理器，Microsoft E某cel 电子数据表及其它Windows 应用程序。
Internet 能力强大，很容易在应用程序内通过 Internet 或intranet访问文档和应用程序，或者创建 Internet 服务器应用程序。
第一章 vasual basic 程序开发环境第一节 visual basic 的启动与退出一. 启动 vb 的四种方法：1. 使用“开始”菜单中的“程序”命令2. 使用“我的电脑”3. 使用“开始”菜单中的“运行”命令4. 建立启动 visual basic6.0 的快捷方式二. vb 启动后的简单设置·1. 新建工程··标准 exe2.（1）SDI 但文档界面（2）MDI 多文档界面“工具”—>“选项”—>“高级”—>“SDI 开发环境”3. 退出 vb：ALT+Q第二节主窗体的组成1.标题栏：设计模式运行模式中断模式2.菜单栏：（12 个）（1）菜单的分类：直接执行弹出对话框下一级菜单( 2）进入菜单栏的方法：<1>ALT 或 F10 激活菜单后光标健选择<2>ALT+激活键注：如果打开了不适当或不需要的菜单，或者执行菜单命令时打开不需要的对话框，可以用 esc 健关闭<3>快捷键：新建工程 ctrl+n 打开工程 ctrl+o 保存工程 ctrl+s3.工具栏（1）工具栏的分类：编辑、标准、窗体编辑器和调试（2）工具栏的形式：固定、浮动（3）标准工具栏图标及作用第三节其他窗体一. 窗体设计器和工程资源管理器（一）窗体设计器窗口1. 窗体设计器窗口简称窗体（）from，是应用程序最终面向用户的窗口，它对应于应用程序的运行结果。
2. 如果想清楚这些小点或者改变点与点间的距离，则可通过执行“工具”菜单中的“选项”命令(“通用”选项卡)来调整。
（二）工程资源管理器窗口1.在工程支援管理器窗口中，含有建立一个应用程序所需要的文件的清单。
工程支援管理器窗口中的文件可以分为 6 类，<1>窗体文件（.frm）<2>程序模块文件（.bas）<3>类模块文件（.cls）<4>工程文件（.vbp）<5>工程组文件（.vbg）<6>资源文件（.res）2.工程资源管理器窗口中文件的分类：（1）工程文件和工程组文件工程文件的扩展名为.vbp，每个工程对应一个工程文件。
计算机等级考试二级VB基础教程1.1Visual Basic概述1.Visual Basic是什么Visual Basic(简称VB)是Microsoft公司开发的一种通用的基于对象的程序设计语言。
“Visual”指的是开发图形用户界面(GUI)的方法——不需编写大量代码去描述界面元素的外观和位置，而只要把预先建立的对象add到屏幕上的一点即可。
“Basic”指的是BASIC(Beginners All-Purpose Symbolic Instruction Code)语言，一种在计算技术发展历史上应用得最为广泛的语言。
Visual Basic在原有BASIC语言的基础上进一步发展，至今包含了数百条语句、函数及关键词，其中很多和Windows GUI有直接关系。
专业人员可以用Visual Basic实现其它任何Windows编程语言的功能，而初学者只要掌握几个关键词就可以建立实用的应用程序。
Visual Basic Scripting Edition(VBScript)是广泛使用的脚本语言，它是Visual Basic语言的子集，可嵌入HTML语言中，用于网页设计，如ASP(Active Server Page)文件。
VB简单易学，通用性强，用途广泛。
2.VB的功能VB可以用于可以开发多媒体、数据库、网络、图形等方面的应用程序。
数据访问特性允许对包括Microsoft SQL Server和其它企业数据库在内的大部分数据库格式建立数据库和前端应用程序，以及可调整的服务器端部件。
有了ActiveX(TM)技术就可使用其它应用程序提供的功能，例如Microsoft Word字处理器，Microsoft Excel电子数据表及其它Windows应用程序。
Internet能力强大，很容易在应用程序内通过Internet或intranet访问文档和应用程序，或者创建Internet服务器应用程序。
已完成的应用程序是使用Visual Basic虚拟机真正.exe文件，可以自由发布。
VB教程
基于子程序调用的机构分析
1. 调用子程序：call 加子程序名
2. 画直线 Picture1.Line (x1,y1)-(x2,y2)
3. 画圆（即节点）Picture1.Circle（x1,y1）,R
4. 颜色调用，在语句后加逗号和VBblue，VBred，VBgreen或者RGB（0-255，0-255，0-
255）
5. 图上输出字符，Picture1.print “A”
6. 循环结构：
For I = 0 to 360 step 5 ‘I从0到360，步长为5，next不能少
…
Next
7. 判断结构
If I>0 then
….
Else
….
End if
8.
时间模块，在Interval输入每次运行的间隔时间（毫秒），相当于无限循环，用
Timer1.Enabled = False/true 停止或开始
9. 按钮，一般设置点击触发某一段程序
10. 这个程序一般用到以下三个
11. 调用子程序必须添加模块到程序。在右边窗口，右击其中一个，点击添加----添加模
块
子程序模块介绍（红色为调用时要设置的）
Crank(L(), F(), W(), E(), X(), Y(), VX(), VY(), AX(), AY(), I, J, A, B, DA)
RRR(L(), F(), W(), E(), X(), Y(), VX(), VY(), AX(), AY(), I, J, B, C, D, M)
RRP(L(), F(), W(), E(), X(), Y(), VX(), VY(), AX(), AY(), S, VS, ASS, I, J, B, C, D, K)
L：杆长
F：角度大小（弧度）
W：角速度
E：角加速度
X：位置坐标
Y：位置坐标
ＶＸ：Ｘ方向速度
ＶＹ：Ｙ方向速度
ＡＸ，ＡＹ
：加速度
Ａ，Ｂ，Ｃ，Ｄ，Ｅ，Ｆ，Ｋ
：铰链编号，一般依次设为1234567，用于确定铰点数
据在数组X，Y中的位置
I：杆号
J：角度号或杆号
S：位移
VS：滑块速度
ASS: 滑块加速度
DA：起始角度（用弧度表示）
M：
当BCD为顺时针分布，为1，逆时针为-1
K：
点为已知的参考点，计算滑块位移用的
FCRANK(X(), Y(), FX(), FY(), PX(), PY(), RX(), RY(), AX(), AY(), MF(),
T(), JA(), M(), E(), TY, I, A, B, SI)
FRRR(X(), Y(), FX(), FY(), PX(), PY(), RX(), RY(), AX(), AY(), MF(), T(),
JA(), M(), E(), I, J, B, C, D, SI, SJ, ZI, ZJ)
FRRP(X(), Y(), FX(), FY(), PX(), PY(), RX(), RY(), R(), AX(), AY(), MF(),
T(), JA(), M(), F(), E(), MT, I, J, B, C, D, SI, SJ, ZI, ZJ)
X,Y:位置坐标
FX，FY:支座的约束反力
PX,PY：外力
AX,AY:加速度
MF：支座力矩
T:扭矩
JA :转动惯量
E: 加速度
TY: 外力矩
I，J:杆号
A,B,C,D,E,F,K：铰链编号
SI,SJ：质心号码
ZI,ZJ：当一根杆有三个副的时候，为已知数据的铰链编号，否则为0
例题
运动模拟程序：
先输入杆长
调用子程序
Call crank（L(), F(), W(), E(), X(), Y(), VX(), VY(), AX(), AY(), 1, 1, 1, 2, DA）
Call RRR（L(), F(), W(), E(), X(), Y(), VX(), VY(), AX(), AY(),2, 3, 2, 3, 3, M）
其中DA设置为0，M设置为1（当BCD为顺时针分布，为1，逆时针为-1）
画出直线AB，BC，CD，AD
画出圆圈A，B，C，D
