VB基本概念

基础教程

第一部分 Visual 基础

1.vb. net介绍

的优点

3.新建一个项目

4.编写第一个应用程序

第二部分 的语法部分

的Numeric数据类型

的Byte数据类型

的String数据类型

的Boolean数据类型

的Date数据类型

的Object数据类型

的用户自定义类型

的数组定义

的数组列表

的多维数组

类型转换函数

第三部分 visual 的运算

程序设计时经常用到的有6种运算：算术运算（Arithmetic）、赋值运算（Assignment）、二进制运算（Bitwise）、比较运算（Comparison）、连接运算（concatenation）及逻辑运算（Logical），下面对这6种运算进行简单介绍。

的算术运算

的赋值运算符

的二进制运算符

的比较运算符

的连接运算符和逻辑运算符

运算符的优先级

（一） Visual 的常量和变量

的常量

的变量

（二） Visual 的流程和控制结构

条件分支语句

的循环语句

（三） 的过程和函数

的Sub过程

的Funtion过程 3.在中调用过程

4.如何向过程传递参数

（四）的类和对象基础

第四部分 visual 的常用控件

的Label控件

的Button控件

的Textbox控件

的MainMenu控件

的Checkbox控件

的Radiobutton控件

的GroupBox控件

的PictureBox控件

的ListBox控件

的CheckedListBox控件

的Combobox控件

的ListView控件

的TreeView控件

的ImageList控件

的Timer控件

的HScrollBar和VScrollBar控件

的ProgressBar控件

的ToolBar控件

的StatusBar控件

20.Vs 2005的ToolStrip控件

21.Vs 2005的StatusStrip控件

22.Vs 2005的MenuStrip控件

VB的基本语法

Option Explicit '强制声明变量

'变量的定义

'Dim Opera,Operb,result

'常量的定义

'Const vbPI=3.14

'Opera=InputBox("please input a's value")

'Operb=InputBox("please input b's value")

'result=Opera+Operb

'MsgBox Opera&"+"&Operb&"="&result

'MsgBox vbPI

'内置换⾏

'MsgBox "hello"&vbCrLf&"world"

'字符串，⼤⼩写转换

'Dim x

'x=LCase("aBc") '⼩写

'MsgBox x

'x=UCase("Abcc") '⼤写

'MsgBox x

'StrComp ⽐较字符 如果字符相同则返回结果为0，否则为⾮0

'Dim username,inun

'username="zhangsan"

'inun=InputBox("请输⼊⽤户名")

' If StrComp(username,inun) Then

' MsgBox "⽤户名不相同"

' Else

' MsgBox "相同"

' End If

'字符长度

' Dim a

' a="maiziedu"

' MsgBox Len(a)'字符串替换

'Dim astr

'astr=Replace("hello,xiaoyu","hello","hi")

'MsgBox astr

'字符串分割

'Dim teststr,teststrs

'teststr="2.1.3"

'teststrs=Split(teststr,".")

' MsgBox teststrs(0)

' MsgBox teststrs(1)

' MsgBox teststrs(2)

基本题型：

1、求一个整数的位数及相应的计算问题

（1）求所有各位数字的立方和等于1099的3位正整数。

Private Sub Form_Click()

Dim a%,b%,c%,i%,

For i = 100 To 999

a = I \100

b= I \ 10 mod 10

c= I mod 10

if a^3+b^3+c^3=1099 then Print I ;

Next

End Sub

(2)编写一程序，输入一正实数x，分别输出该数的整数部分的位数和小数部分的位数。

Private Sub Form_Click()

Dim x$, a, i%, j%, b#, l%

x = InputBox("input data:")

leng = Len(x)

a = Int(Val(x))

len1 = Len(Trim(Str(a)))

len2 = leng - len1 - 1

Print "整数位数="; len1, "小数位数="; len2

End Sub

（3）求同构数。同构数是这样一种数，它出现在它的平方数的右端。例如5的平方是25，5是25的右端的数，5就是同构数；25也是同构数，因为它的平方是625。

编程找出1~100之间的全部“同构数”。

Private Sub Form_Click()

For i = 1 To 100

p = i * i

If Len(Trim(Str(i))) = 1 Then

If Trim(Str(i)) = Right(Trim(Str(p)), 1) Then Print i

ElseIf Len(Trim(Str(i))) = 2 Then

If Trim(Str(i)) = Right(Trim(Str(p)), 2) Then Print i

End If

Next

End Sub

（4）求“水仙花”数

- 1 - 对象的属性

对象:Visual Basic 采用面向对象的程序设计技术，在VB中，一切可以操纵的实体称之为对象，其中基本的对象就是各种控件，比如按钮、文本框、单选框等等。对象是具有特殊属性（数据）的行为方式（方法）的实体。在VB环境中所涉及到的窗体、控件、部件和菜单项等均为对象，程序员既可以利用控件来创建对象，也可以设计自己的对象。在窗体上创建对象时，可以单击工具箱上要创建的对象图标，然后在窗体上合适位置画出对象来。初步建立的对象只是一个“空对象”，其操作需要通过对该对象有关的属性、事件和方法进行描述。

对象的属性：对象的属性可以看作是它的各种性质。如对象的大小、位置、颜色、是否显示等等。不同的对象所具有的属性，有些是相同的，有些是不同的。比如：Mp3播放器有个“音量大小”属性，显示器就没有，而显示器有个“亮度”属性，Mp3播放器就没有；而“颜色”属性则是二者共有的。

改变属性的值就可以改变对象的某个设置。设置属性的值有两种方式:

1、在设计阶段通过“属性对话框”设置对象的属性的值；

2、在程序运行阶段，由代码来改变对性的属性值；其一般形式为

对象名.属性名=属性值

比如：Text1.text=“VB 是一种面向对象的程序设计方式！”

对象的常用基本属性

属 性 说 明

Name属性 用于标识窗体、控件、或数据访问对象的名字

Caption属性 用于标识一个对象活动窗口标题的字符串

Enabled属性 用来确定一个窗体或控件是否能够对用户产生的事件作出反应。其值为逻辑值True或False。

Visible属性 为指定对象设置为可见或隐藏的值，其值为逻辑值True或False。 - 2 - Font属性 • 为指定对象上显示的文本设置字体属性，包括字体（FontName）、字号（FontSize）、字形（FontBold、FontItalic）等。