len、right的意义，如何调用子过程，VB连接ACCESS，WTTH语句

这是我在BAIDU上的回答，仅供参考

一、写出 len(“right(“student”,5)”)的返回值说LEN，RINGT的函数意义
二、DIM A （9） AS INTEGER，写出A的元素个数，并列举出A
三、阅读代码，说意思
private sub label1_click()
label1.move label1.left+750,label1.top-550
四、什么是调用子过程，有几种方法
五、用VB程序代码建立一个数据连接（D：DATA BASE STUDENT MDB）并打开
六、在VB中何时用WTTH语句？方法

一、Len:求字符串的长度，返回 Long，其中包含字符串内字符的数目，或是存储一变量所需的字节数。

语法
Len(string | varname)
Len("right("student",5)")，这个是不是应该是这样 Len(right("student",5))，其返回值为5，因为它的

意思是先取student右边5个字符，然后返回它的长度，这个当然是返回5了。

Right是取指定数量的字符。返回 Variant (String)，其中包含从字符串右边取出的指定数量的字符。

语法
Right(string, length)

二、Dim a（9）As Intger 共有10个元素，VB数组是以0为默认下标的，从0到9一共10个。

三、label1.move label1.left+750,label1.top-550 ，单击label1时使label1的位置在现有的基础上左边

距加750t，上边距减550t。

四、调用子过程就是把一个难度很大的任务转化成几个难度较小的子任务，并通过添加参数来调用，可以达

到简化程序设计的目的，完成子任务的那部分就是过程，在程序中使用子过程可以简化程序设计、提高编程

效率、增加程序的可读性和重用性。

调用子过程的方法主要有两种:
(1) 用Call语句调用Sub过程

语法：Call 过程名（实在参数表）
实在参数的个数、类型和顺序，应该与被调用过程的形式参数相匹配，有多个参数时，用逗号分隔。

(2)把过程名作为一个语句来用

语法：过程名 [实参1[，实参2……]]
它与(1)的不同点是：去掉了关键字和实参列表的括号

如上例中可以改成：area a,b,c,w


五、用VB程序代码建立一个数据连接（D:/DATABASE/STUDENT.MDB）并打开连接，这里有几种方法，可以参考下我的BLOG：http://blog.csdn.net/qvbhdnvto/archive/2006/09/18/1233875.aspx

第一种：
Dim rsAccess As Recordset
Dim ConnAccess As New Connection
Dim StrSQLAccess As String
Dim i As Integer
DBSeaverPath="D:/DATABASE"

ConnAccess.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" + DBSeaverPath +

IIf(Len(DBSeaverPath) > 3, "/" & "STUDENT.MDB;", "STUDENT.MDB;") + " Jet OLEDB:Database

Password=;"

StrSQLAccess = "Select * from Users order by id asc"
Set rsAccess = New Recordset
rsAccess.Open StrSQLAccess, ConnAccess, adOpenStatic, adLockOptimistic

If rsAccess.RecordCount = 0 Then End

'Do While Not rsAccess.EOF
' ComboUserName.AddItem rsAccess!Username '此处调用
' rsAccess.MoveNext
'Loop'

rsAccess.Close
Set rsAccess = Nothing
ConnAccess.Close
Set ConnAccess = Nothing

第二种：
Dim strSQL As String
Dim OldWs As Workspace, mainDb As Database, TableMain As Recordset

Condata = "D:/DATABASE/STUDENT.MDB"
SaveSetting App.EXEName, "Data", "Path", Condata
ConStr = ";UID=" & ";PWD="
Set OldWs = DBEngine.Workspaces(0)
Set mainDb = OldWs.OpenDatabase(Condata, False, False, ConStr)

'mainDb.Execute "delete Users"' '此为删除
Set TableMain = mainDb.OpenRecordset("select * from Users" & strSearchString)
TableMain.LockEdits = False

'Do Until TableMain.EOF
' If Not IsNull(TableMain("UserName").Value) Then
' UserNameText.AddItem TableMain("UserName").Value
' End If
'TableMain.MoveNext
'Loop

TableMain.Close
Set TableMain = Nothing
mainDb.Close
Set mainDb = Nothing

第三种：
'这是直接用控件，在窗体是放一个DATA控件再直接用，方便!
strSQL = "select * from Users order by id asc"

Data1.DatabaseName = "D:/DATABASE/STUDENT.MDB"
Data1.RecordSource = strSQL
Data1.Refresh

第四种：
'“工程”菜单中选择“引用”菜单选择“Microsoft DAO 3.51 Object Library”项'
Public AcessDB As Database
Dim TableMain As RecordSet

Public Sub OpenDatabase ( )
Dim sConeect As String
SConnect = ";PWD =; UID ="
Set AcessDB = Nothing

Set AcessDB = WorksPaces (0 ).OpenDatabase ("D:/DATABASE/STUDENT.MDB",False,sConnect)
End Sub

Set TableMain = AcessDB.OpenRecordSet ( "Users",dbOpenSnapshot )

'Do While Not TableMain.EOF
' ComboUserName.AddItem TableMain!Username '此处调用
' TableMain.MoveNext
'Loop

AcessDB.Close
Set AcessDB = Nothing
TableMain.Close
Set TableMain = Nothing

六、WITH语句主要用在控件对像多属性设置时，在一个单一对象或一个用户定义类型上执行一系列的语句。

具体说明如下：

语法
With object
[statements]

End With

With 语句的语法具有以下几个部分：

描述
object 必要参数。一个对象或用户自定义类型的名称。
statements 可选参数。要执行在 object 上的一条或多条语句。


说明
With 语句可以对某个对象执行一系列的语句，而不用重复指出对象的名称。例如，要改变一个对象的多个

属性，可以在 With 控制结构中加上属性的赋值语句，这时候只是引用对象一次而不是在每个属性赋值时都

要引用它。下面的例子显示了如何使用 With 语句来给同一个对象的几个属性赋值。

With MyLabel
.Height = 2000
.Width = 2000
.Caption = "This is MyLabel"
End With

注意 当程序一旦进入 With 块，object 就不能改变。因此不能用一个 With 语句来设置多个不同的对象。

可以将一个 With 块放在另一个之中，而产生嵌套的 With 语句。但是，由于外层 With 块成员会在内层的

With 块中被屏蔽住，所以必须在内层的 With 块中，使用完整的对象引用来指出在外层的 With 块中的对

象成员。

重点 一般来说，建议您不要跳入或跳出 With 块。如果在 With 块中的语句被执行，但是 With 或 End

With 语句并没有执行，则一个包含对该对象引用的临时变量将保留在内存中，直到您退出该过程。

参考：Visual Basic 语言参考-函数速查