10). 在Image框里输入一个数，输入为1，则显示刚才ImageList控件里的第一个图形，输入为2，则显示刚才ImageList控件里的第二个图形。 11). 为每个按钮重复第10步。
12). 单击确定按钮，现在Visual Basic就会在工具条上显示精美的图形了。
2.6 Visual Basic的输入机制
程序的基本操作就是数据的输入，数据处理和数据的输出。Visual Basic可中用于输入的控件主要有：文本框Text Box、复选框Check Box、选项按钮Option Button、列表框List Box、组合框Combo Box、滚动条Scroll Bar、通用对话框控件。还有一个函数叫InputBox函数，也可用于数据的输入。
1. 通过文本框输入数据
只要取得文本框的Text属性就可以对其进行操作了。下面的代码可将Text1文本框的正文变成大写输出至Text2文本框。
Private Sub Form_Click ()
Text2.Text = UCase(Text1.Text) End Sub
2. 通过复选框和选项按钮输入数据
只要检测到Check Box和Radio Button的Value属性值就可以知道它们是否被选上了。
3. 通过列表框和组合框输入数据
(1) 列表框List Box和组合框Combo Box的不同
它们在Windows的Open，Save As对话框里最为常见。组合框又包括三种类型，这三种类型要在它的Style属性里设置。列表框仅仅把可以选择的项目列出来，而组合框里有的类型可以允许用户输入数据。
(2) 列表项目的增减
使用AddItem，RemoveItem语句可以增减列表项目。通常将项目增减的语句放入Form_Load事件里。 ListBoxName. AddItem item ComboBoxName. AddItem item
item是新项目名称，必须是字符串类型，非字符串类型可通过Str函数或Format函数来转换。转列表框，组合框的每一项目都有一个Index值，第一个项目的Index值是0，第二个是1，依此类推。删除项目可通过删除其Index值来实现。
ListBoxName. RemoveItem item ComboBoxName. RemoveItem item
如：ListBoxName. RemoveItem 0则删除了第一项，这时原来的第二项就变成了第一项。 可以在设计阶段设定列表项目, 方法是：
在属性窗口选择List属性，将出现一个下拉列表，在列表中输入第一项，按Ctrl+Enter，输入第二项……，最后用Enter结束。
(3) 取得列表框/组合框的数据
可以通过取得Text属性或通过取得ListIndex属性来判断哪一项被选择了。ListIndex属性的值也同样是第一个为0，第二个为1……如：
If List1.Text = “Visual Basic” Then Instructions If List1.ListIndex = 1 Then Instructions
组合框有时允许用户自己输入数据，这时所输入数据的ListIndex值为－1。
4. 通过滚动条Scroll Bar取得数据
在Visual Basic的工具箱里有两种滚动条：一种是垂直的，一种是水平的，它们的差异无非是摆放的方向不一样。
(1) 滚动条的主要属性及事件
1）Min，Max属性
Min属性决定滚动条最左端或最顶端所代表的值。Max属性决定滚动条最右端或最下端所代表的值。
2）LargeChange,SmallChange属性
SmallChange决定在滚动条两端的箭头钮上单击时改变的值。LargeChange决定在滑块上方或下方区域单击时改变的值。
3）Value属性
Value属性代表当前滑块所处位置的值，这个值由滑块的相对位置决定。
4）Change事件
当滑块位置发生变化时就引发了Change事件。
(2) 取得滚动条的数据
滚动条并不是一个数据输入的好控件，因为无法从滚动条上直接看出输入的数据，但它的优点是可以表示一定范围里的相对位置。为了得到数据，只要取得滚动条的Value属性就可以了。
5. InputBox函数
InputBox函数提供一个简单的对话框供用户输入信息。在把其它版本的BASIC程序移植到Visual Basic时，InputBox函数通常用来代替INPUT语句。这个对话框的样子基本上是上面的样子。 它的完整语法是：x = InputBox (prompt, title, default, xpos, ypos, helpfile, context)
其中，prompt是提示的字符串，这个参数是必须的。title是对话框的标题，是可选的。default是文本框里的缺省值，也是可选的。xpos，ypos决定输入框的位置。helpfile，context用于显示与该框相关的帮助屏幕。返回值 x 将是用户在文本框里输入的数据，x是一个字符串类型的值。如果用户按了Cancel钮，则 x 将为空字符串。 2.7 Visual Basic的输出机制
作为输出的对象，Visual Basic提供了标签，文本框，窗体，图片框（Picture Box）等用于输出，而且Visual Basic里也有一堆命令、属性涉及信息的输出，较常用的有：MsgBox函数，Print方法，Cls方法，Tab函数，Format
函数，FontName，FontSize，FontBold，FontItalic，FontStrikethru，FontUnderline属性，CurrentX，CurrentY属性等。
1. 通过MsgBox函数输出
了解Windows应用程序的人都知道当用户操作错误时，应用程序往往打出一个消息框来提示用户的错误，象这样：
Dim Action As Integer
Action = MsgBox(\单击确定键将引爆此计算机！\警告！\ If Action = 6 Then Explode
这个功能在Visual Basic里是通过MsgBox函数来实现的，这样程序员就不必自己去画一个消息框了。语法是：
Action = MsgBox (msg, type, title)
其中，msg是消息的内容，是一个字符串型的变量，type及title参数是可以省略的，type参数指定显示的按钮是什么及使用什么样的图标（这个参数往往让新程序员思考几分钟），title参数指定消息框的标题。type参数的含义是：
例如：Action = MsgBox (“Are you girl?”, vbYesNo + vbQuestio“Question”)。使用这个函数时Visual Basic将产生一个标题为Question，具有问号和Yes，No按钮的消息框。作为一个函数，本质上还是要返回值的，MsgBox的返回值确定了用户的选择，程序可根据返回值做出相应的动作。 2. Print方法，Cls方法，Tab函数
(1) Print方法
Print 方法的语法是：object. Print expressionlist
object表示Print作用的对象，比如是Form或者是Picture Box，object是可以省略的，省略时的Print往往在窗体上输出。expressionlist是输出的内容，允许许多项数据的输出，在数据间可以加入“,”或”;”。加入分号将使下一数据项紧挨着上一数据项输出。而加入逗号，则Visual Basic将下一数据项在下一打印区输出，其实就是空了几个空格后再输出。两个打印区之间有14个字符的宽度，其实这也很难衡量，比如14个“W”所占的宽度大概是14个“i”所占宽度的三倍多。幸好中国日本之类的方块字所占的宽度基本上是一样的，所以较好处理一些。
(2) Tab函数
Tab函数只用在Print方法中，它用来移动下一个字符到打印位置，这将省去数空格的功夫。语法是：Tab (column)
Tab函数将Visual Basic自定义的14字符宽的打印区扔到一边，用自己的方式定义了新的灵活的打印区宽度。
(3) Cls方法
Cls也是一个古老的BASIC语句,原来它的作用总是把屏幕变成黑色，然后在左上角或左下角闪烁一个光标，Visual Basic里它的作用是清除绘图语句和Print语句产生的文字和图形。
语法是：object. Cls
object指清除的对象，可以是Form或Picture Box。如果object省略，通常Visual Basic都把当前的窗口作为Cls操作的对象。
3. Format函数
Format函数用于制定字符串或数字的输出格式。语法是：x = Format (expression,fmt)
expression是所输出的内容。fmt是指输出的格式，这是一个字符串型的变量，这一项若省略的话，那么Format函数将和Str函数的功能差不多。 3.1 VB编码规则 1. 语言元素
VB的语言基础是BASIC语言，VB程序的语言元素主要由： 关键字（如： Dim、Print、Cls） 函数（如：Sin（）、Cos（）Sqr（）） 表达式（如：Abs(-23.5)+45*20/3 ）
语句（如：X=X+5 、 IF……ELSE……END IF）等组成。 2. VB代码书写规则
（1） 程序中不区分字母的大小写，Ab 与AB等效；
（2） 系统对用户程序代码进行自动转换：
1） 对于VB中的关键字，首字母被转换成大写，其余转换成小写 2） 若关键字由多个英文单词组成，则将每个单词的首字母转换成大写
3） 对于用户定义的变量、过程名，以第一次定义的为准，以后输入的自动转换成首次定义的形式 3. 语句书写规则
（1）在同一行上可以书写多行语句，语句间用冒号(：)分隔
（2）单行语句可以分多行书写，在本行后加续行符：空格和下划线 _ （3） 一行允许多达255个字符 4. 程序的注释方式
（1）整行注释一般以 Rem开头，也可以用撇号 '；
（2）用撇号 ' 引导的注释，既可以是整行的，也可以直接放在语句的后面，最方便； （3）可以利用“编辑”工具栏的“设置注释块”、“解除注释块”来将设置多行注释。
5. 保留行号和标号
VB源程序接受行号与标号，但不是必须的（早期的BASIC语言中必须用行号）。 标号是以字母开始以冒号结束的字符串，一般用在GOTO语句（现在很少用）中。 3.2 VB的语言基础
1.数据类型
1）VB中对没有声明的变量其缺省的数据类型是变体型，可以用来存储各种数据，但所占用的内存比其它类型都多。为提高运行效率(整型效率较高)，或达到一定的运算精确度（浮点型精度较高，但运行较慢），应合理的定义数据类型。
2） 逻辑型数据只有True 和False两个值，转换成整型时，True=-1 ，False=0，将其它类型转换成逻辑型时，非0数转换为True ，0转换为False。
3） 字符型可以包括所有的西文字符和汉字，字符必须用双引号括\起来, 如：\
4）日期型数据按8字节的浮点数来存储，日期型数表示方式有两种：可以用号码符#括起来，也可以用数字序列表示（小数点左边的数字代表日期，右边代表时间，0为午夜，0。5为中午12点，负数表示是1899年12月31日前的日期和时间）。
如：#3/22/2002# #2002-3-22 14:30:20# Dim T As Date T=-2.5
Print T ' 打印出来的结果是1899-12-28 12：00：00
５）任何数据类型的数组都需要 20 个字节的内存空间，加上每一数组维数占 4 个字节，再加上数据本身所占用的空间。数据所占用的内存空间可以用数据元数目乘上每个元素的大小加以计算。例如，以 4 个 2 字节之 Integer 数据元所组成的一维数组中的数据，占 8 个字节。这 8 个字节加上额外的 24 个字节，使得这个数组所需总内存空间为 32 个字节。
2. 变量与常量
（1）变量或常量的命名规则
1） 必须以字母或汉字开头，由字母、汉字、数字或下划线组成，长度≤255个字符； 2） 不能使用VB中的关键字，并尽量不与VB中标准函数名同名；如：Dim 、Sin
3）VB中不区分变量的大小写，一般变量首字母用大写，其余用小写；常量全部用大写字母表示 4）为了增加程序的可读性，可在变量名前加一个缩写的前缀来表明该变量的数据类型。 （2）变量声明
1）用Dim语句进行显式声明
语句形式： Dim 变量名 [As 类型] 如： Dim intX As integer 说明：·如果没有As 类型，则默认为变体类型。
·可在变量名后加类型符来代替As 类型 如： Dim intX%
·一条语句可以同时定义多个变量，但每个变量必须有自己的类型声明，类型声明不能共用； ·字符串变量根据其存放的长度是否固定，定义方法不同： 定长字符串： Dim strA As String*10
表示最多存放10个字符，如果赋值不足10个，则右补空；若多于10个，则多余部分截去。 不定长字符串：Dim strA As String ’最多可存放2MB个字符
VB基础教程
