vb,,选择加综合操作,个人意见（五篇模版）

第一篇：vb,,选择加综合操作,个人意见

1、下面（A）是合法的变量名。

A、X_YZ B、123ABC C、integer D、X-Y--------------------------------------------------------------------------------------

2、工程文件的扩展名为（C）。

A、.frx B、.bas C、.vbp D、.frm--------------------------------------------------------------------------------------

3、设置（A）属性可以使图片显示在图片框或影像框中。

A、Picture B、Image C、Icon D、DownPicture--------------------------------------------------------------------------------------

4、已知 A$=”12345678” 则表达式 Val(Left$(A$,4)+Mid(A$,4,2))的值为（B）。

A、123456 B、123445 C、8 D、6--------------------------------------------------------------------------------------

5、通用对话框控件所不具有的属性为（A）。

A、BackColor B、FileName C、Flags D、Filter--------------------------------------------------------------------------------------

6、在下面程序运行时键入 2，则该程序的运行结果是（C）。

Private sub command1_click()X=inputbox(“请输入一个整数”)Select case x

Case Is<-3

Print(x+1)/(x+3)

Case –3 To 3

Print x*x+1

Case Is>3

Print(x+1)/(x-3)End select End sub

A、2 B、0.6 C、5 D、-3--------------------------------------------------------------------------------------

7、在程序中执行 Close 命令，其作用是（D）。

A、关闭当前正在使用的一个文件 B、关闭第一个打开的文件 C、关闭最近一次打开的文件 D、关闭所有文件--------------------------------------------------------------------------------------

8、在任何情况下，（D）控件在运行时都不可见。

A、标签 B、按钮 C、复选框 D、定时器--------------------------------------------------------------------------------------

9、在参数传递过程中，使用关键字（A）来修饰参数，可以使之按值传递。

A、ByVal B、ByRef C、Value D、Reference--------------------------------------------------------------------------------------

10、窗体通用部分的语句“Option Base 1”，决定本窗体中数组下标界（B）。

A、下界必须为 1 B、缺省的下界为 1 C、下界必须为 0 D、缺省的下界为 0--------------------------------------------------------------------------------------

11、滚动条的（B）属性用于指定用户单击滚动条的滚动箭头时，Value 属性值的增减量。

A、LargeChange B、SmallChange C、Value D、Change--------------------------------------------------------------------------------------

12、当改变目录列表框控件 Dir1 中的当前目录时，希望同步改变文件列表框 File1 中显示的文件，在 Dir1_change 事件过程中使用的命令是（A）。

A、File1.Path=Dir1.Path B、Dir1.Path =File1.Path C、File1.Path = Dir1.Drive D、Dir1.Drive= File1.Path--------------------------------------------------------------------------------------

13、选中单选按钮控件时，Value 属性的值为（A）。

A、真 B、假 C、0 D、1--------------------------------------------------------------------------------------

14、以下说法中不正确的是（C）。

A、下拉式菜单通常出现在窗体标题栏下方，启动应用程序后始终可以看见 B、弹出式菜单是一种浮动菜单，鼠标右击某个对象时打开，可以快速展示当前对象可用的命令功能，也称为快捷菜单 C、下拉式菜单通常用右键单击选择 D、下拉式菜单和弹出式菜单都可用“菜单编辑器”编辑--------------------------------------------------------------------------------------

15、下列（B）对象具有编辑功能，即运行时可以进行输入或修改。

A、下拉式列表框 B、下拉式组合框 C、复选框 D、标签--------------------------------------------------------------------------------------

16、表达式 16/4-2^5*8/4 MOD 52 的值为（B）。

A、14 B、4 C、20 D、2--------------------------------------------------------------------------------------

17、文本框中输入一个字符，下列 （C）事件不会发生。

A、Change B、KeyPress C、mousemove D、KeyDown--------------------------------------------------------------------------------------

18、要为按钮设计一个访问键 A，应该在 Caption 中加入（A）。

A、&A B、@A C、$A D、#A--------------------------------------------------------------------------------------

19、要使 Shape 控件以实心方式填充，应设置（B）属性。

A、FillColor B、FillStyle C、ForeColor D、BackStyle--------------------------------------------------------------------------------------

20、在窗体上画一个名称为 Text1 的文本框和一个名称为 Command1 的命令按钮，然后编写如下事件过程：

Private Sub Command1_Click()

Dim i As Integer,n As Integer

For i=0 To 50

i=i+3

n=n+1

If i>10 Then Exit For

Next

Text1.Text=Str(n)End Sub 程序运行后，单击命令按钮，在文本框中显示的值是（C）。

A、2 B、3 C、4 D、5 1、下面（A）是合法的变量名。

A、X_YZ B、123ABC C、integer D、X-Y--------------------------------------------------------------------------------------

2、控件在窗体上的上下位置由下列（A）属性决定。

A、Top B、Left C、Width D、Height

--------------------------------------------------------------------------------------

3、要删除 Picturebox 中的图片应当使用（B）。

A、选中控件，按键 B、picture1.picture=loadpicture(“”)语句 C、picture1.cls 方法 D、picture1.enabled=false 语句--------------------------------------------------------------------------------------

4、已知 A$=”12345678” 则表达式 Val(Left$(A$,4)+Mid(A$,4,2))的值为（B）。

A、123456 B、123445 C、8 D、6--------------------------------------------------------------------------------------

5、通用对话框控件所不具有的属性为（A）。

A、BackColor B、FileName C、Flags D、Filter--------------------------------------------------------------------------------------

6、在下面程序运行时键入 2，则该程序的运行结果是（C）。

Private sub command1_click()X=inputbox(“请输入一个整数”)Select case x

Case Is<-3

Print(x+1)/(x+3)

Case –3 To 3

Print x*x+1

Case Is>3

Print(x+1)/(x-3)End select End sub

A、2 B、0.6 C、5 D、-3--------------------------------------------------------------------------------------

7、在程序中执行 Close 命令，其作用是（D）。

A、关闭当前正在使用的一个文件

B、关闭第一个打开的文件 C、关闭最近一次打开的文件 D、关闭所有文件--------------------------------------------------------------------------------------

8、在任何情况下，（D）控件在运行时都不可见。

A、标签 B、按钮 C、复选框 D、定时器--------------------------------------------------------------------------------------

9、在参数传递过程中，使用关键字（A）来修饰参数，可以使之按值传递。

A、ByVal B、ByRef C、Value D、Reference--------------------------------------------------------------------------------------

10、语句 Dim A(-3 to 5)As Integer 定义的数组的元素个数是（D）。

A、6 B、7 C、8 D、9--------------------------------------------------------------------------------------

11、滚动条的（B）属性用于指定用户单击滚动条的滚动箭头时，Value 属性值的增减量。

A、LargeChange B、SmallChange C、Value D、Change--------------------------------------------------------------------------------------

12、当改变目录列表框控件 Dir1 中的当前目录时，希望同步改变文件列表框 File1 中显示的文件，在 Dir1_change 事件过程中使用的命令是（A）。

A、File1.Path=Dir1.Path B、Dir1.Path =File1.Path C、File1.Path = Dir1.Drive D、Dir1.Drive= File1.Path--------------------------------------------------------------------------------------

13、选中单选按钮控件时，Value 属性的值为（A）。

A、真 B、假

C、0 D、1--------------------------------------------------------------------------------------

14、以下说法中不正确的是（C）。

A、下拉式菜单通常出现在窗体标题栏下方，启动应用程序后始终可以看见 B、弹出式菜单是一种浮动菜单，鼠标右击某个对象时打开，可以快速展示当前对象可用的命令功能，也称为快捷菜单 C、下拉式菜单通常用右键单击选择 D、下拉式菜单和弹出式菜单都可用“菜单编辑器”编辑--------------------------------------------------------------------------------------

15、下列（B ）对象具有编辑功能，即运行时可以进行输入或修改。

A、下拉式列表框 B、下拉式组合框 C、复选框 D、标签--------------------------------------------------------------------------------------

16、表达式 16/4-2^5*8/4 MOD 52 的值为（B）。

A、14 B、4 C、20 D、2--------------------------------------------------------------------------------------

17、要使文本框显示滚动条，需先设置（B）属性。

A、AutoSize B、MultiLine C、Alignment D、ScrollBars--------------------------------------------------------------------------------------

18、要为按钮设计一个访问键 A，应该在 Caption 中加入（A）。

A、&A B、@A C、$A D、#A--------------------------------------------------------------------------------------

19、要使 Shape 控件以实心方式填充，应设置（B）属性。

A、FillColor B、FillStyle C、ForeColor

D、BackStyle--------------------------------------------------------------------------------------

20、若要处理一个值为 50000 的整数，应采用哪种 VB 基本数据类型描述更合适？（B）

A、Integer B、Long C、Single D、String--1、工程文件的扩展名为（C）。

A、.frx B、.bas C、.vbp D、.frm--------------------------------------------------------------------------------------

2、当改变目录列表框控件 Dir1 中的当前目录时，希望同步改变文件列表框 File1 中显示的文件，在 Dir1_change 事件过程中使用的命令是（A）。

A、File1.Path=Dir1.Path B、Dir1.Path =File1.Path C、File1.Path = Dir1.Drive D、Dir1.Drive= File1.Path--------------------------------------------------------------------------------------

3、在任何情况下，（D）控件在运行时都不可见。

A、标签 B、按钮 C、复选框 D、定时器--------------------------------------------------------------------------------------

4、下面（A）是合法的变量名。

A、X_YZ B、123ABC C、integer D、X-Y--------------------------------------------------------------------------------------

5、要使 Shape 控件以实心方式填充，应设置（B）属性。

A、FillColor B、FillStyle C、ForeColor D、BackStyle--------------------------------------------------------------------------------------

6、下列程序段的执行结果为（A）。

X=2

Print X+1；X+1

A、3B、X+1

X+1 C、3D、2+1

2+1--------------------------------------------------------------------------------------

7、以下说法中不正确的是（C）。

A、下拉式菜单通常出现在窗体标题栏下方，启动应用程序后始终可以看见 B、弹出式菜单是一种浮动菜单，鼠标右击某个对象时打开，可以快速展示当前对象可用的命令功能，也称为快捷菜单 C、下拉式菜单通常用右键单击选择 D、下拉式菜单和弹出式菜单都可用“菜单编辑器”编辑--------------------------------------------------------------------------------------

8、通用对话框控件所不具有的属性为（A）。

A、BackColor B、FileName C、Flags D、Filter--------------------------------------------------------------------------------------

9、下列（B）对象具有编辑功能，即运行时可以进行输入或修改。

A、下拉式列表框 B、下拉式组合框 C、复选框 D、标签--------------------------------------------------------------------------------------

10、由“For i=1 To 16 Step 3”决定的循环结构被执行（C）次。

A、4 B、5 C、6 D、7--------------------------------------------------------------------------------------

11、在下面程序运行时键入 2，则该程序的运行结果是（C）。

Private sub command1_click()X=inputbox(“请输入一个整数”)Select case x

Case Is<-3

Print(x+1)/(x+3)

Case –3 To 3

Print x*x+1

Case Is>3

Print(x+1)/(x-3)End select End sub

A、2 B、0.6 C、5 D、-3--------------------------------------------------------------------------------------

12、复选框的 Value 属性为 1 时，表示（B）。

A、复选框未被选中 B、复选框被选中 C、复选框内有灰色的勾 D、复选框操作有误--------------------------------------------------------------------------------------

13、要为按钮设计一个访问键 A，应该在 Caption 中加入（A）。

A、&A B、@A C、$A D、#A--------------------------------------------------------------------------------------

14、设置（A）属性可以使图片显示在图片框或影像框中。

A、Picture B、Image C、Icon D、DownPicture--------------------------------------------------------------------------------------

15、要使文本框显示滚动条，需先设置（B）属性。

A、AutoSize B、MultiLine C、Alignment D、ScrollBars--------------------------------------------------------------------------------------

16、Integer 类型的变量可存的最大整数是（D）。

A、255

B、256 C、32768 D、32767--------------------------------------------------------------------------------------

17、在参数传递过程中，使用关键字（A）来修饰参数，可以使之按值传递。

A、ByVal B、ByRef C、Value D、Reference--------------------------------------------------------------------------------------

18、语句 Dim A(-3 to 5)As Integer 定义的数组的元素个数是（D）。

A、6 B、7 C、8 D、9--------------------------------------------------------------------------------------

19、滚动条的（B）属性用于指定用户单击滚动条的滚动箭头时，Value 属性值的增减量。

A、LargeChange B、SmallChange C、Value D、Change--------------------------------------------------------------------------------------

20、表达式 16/4-2^5*8/4 MOD 52 的值为（B）。

A、14 B、4 C、20 D、2----1、通用对话框控件所不具有的属性为（A）。

A、BackColor B、FileName C、Flags D、Filter--------------------------------------------------------------------------------------

2、形状控件所显示的图形不可能是（D）。

A、圆 B、椭圆 C、圆角正方形 D、等边三角形--------------------------------------------------------------------------------------

3、要使文本框显示滚动条，需先设置（B）属性。

A、AutoSize B、MultiLine C、Alignment D、ScrollBars--------------------------------------------------------------------------------------

4、当改变目录列表框控件 Dir1 中的当前目录时，希望同步改变文件列表框 File1 中显示的文件，在 Dir1_change 事件过程中使用的命令是（A）。

A、File1.Path=Dir1.Path B、Dir1.Path =File1.Path C、File1.Path = Dir1.Drive D、Dir1.Drive= File1.Path--------------------------------------------------------------------------------------

5、选中单选按钮控件时，Value 属性的值为（A）。

A、真 B、假 C、0 D、1--------------------------------------------------------------------------------------

6、控件在窗体上的上下位置由下列（A）属性决定。

A、Top B、Left C、Width D、Height--------------------------------------------------------------------------------------

7、在任何情况下，（D）控件在运行时都不可见。

A、标签 B、按钮 C、复选框 D、定时器--------------------------------------------------------------------------------------

8、在参数传递过程中，使用关键字（A）来修饰参数，可以使之按值传递。

A、ByVal B、ByRef C、Value D、Reference--------------------------------------------------------------------------------------

9、表达式 Len(“123 程序设计 ABC”)的值为（A）。

A、10 B、14 C、20 D、17--------------------------------------------------------------------------------------

10、下面（A）是合法的变量名。

A、X_YZ B、123ABC C、integer D、X-Y--------------------------------------------------------------------------------------

11、窗体通用部分的语句“Option Base 1”，决定本窗体中数组下标界（B）。

A、下界必须为 1 B、缺省的下界为 1 C、下界必须为 0 D、缺省的下界为 0--------------------------------------------------------------------------------------

12、滚动条的（B）属性用于指定用户单击滚动条的滚动箭头时，Value 属性值的增减量。

A、LargeChange B、SmallChange C、Value D、Change--------------------------------------------------------------------------------------

13、在下面程序运行时键入 2，则该程序的运行结果是（C）。

Private sub command1_click()X=inputbox(“请输入一个整数”)Select case x

Case Is<-3

Print(x+1)/(x+3)

Case –3 To 3

Print x*x+1

Case Is>3

Print(x+1)/(x-3)End select End sub

A、2 B、0.6 C、5

D、-3--------------------------------------------------------------------------------------

14、下列（B）对象具有编辑功能，即运行时可以进行输入或修改。

A、下拉式列表框 B、下拉式组合框 C、复选框 D、标签--------------------------------------------------------------------------------------

15、在窗体上画一个命令按钮，然后编写如下事件过程：

Private Sub Command1_Click()

Dim Str1 As String, Str2 As String

Str1=InputBox(“请输入一个字符串”）

For i=1 To Len(Str1)

Str2=UCase(Mid(Str1,i,1))+Str2

Next i

Print Str2 End Sub 程序运行后，单击命令按钮，如果在输入对话框中输入字符串“abcdefg”

B A、abcdefg B、ABCDEFG C、gfedcba D、GFEDCBA--------------------------------------------------------------------------------------

16、以下说法中不正确的是（C）。

A、下拉式菜单通常出现在窗体标题栏下方，启动应用程序后始终可以看见 B、弹出式菜单是一种浮动菜单，鼠标右击某个对象时打开，可以快速展示当前对象可用的命令功能，也称为快捷菜单 C、下拉式菜单通常用右键单击选择 D、下拉式菜单和弹出式菜单都可用“菜单编辑器”编辑--------------------------------------------------------------------------------------

17、下面语句正确的是（C）。

A、If x ≠ y Then Print “x 不等于 y” B、.If x <> y Print “x 不等于 y” C、If x <> y Then Print “x 不等于 y” D、If x ≠ y Print “x 不等于 y”--------------------------------------------------------------------------------------

18、已知 A$=”12345678” 则表达式 Val(Left$(A$,4)+Mid(A$,4,2))的值为（B）。

A、123456 B、123445

C、8 D、6--------------------------------------------------------------------------------------

19、要为按钮设计一个访问键 A，应该在 Caption 中加入（A）。

A、&A B、@A C、$A D、#A--------------------------------------------------------------------------------------

20、若要处理一个值为 50000 的整数，应采用哪种 VB 基本数据类型描述更合适？（B）

A、Integer B、Long C、Single D、String------------------------------------------------------------------------------------------------------------------------------------------------------------------------

把 在属性列表框里，把 sorted 改为 ture Private Sub List1_Click()

List1.AddItem List1.Text End Sub

Dim t As Integer Private Sub Command1_Click()

Timer1.Enabled = True

Command1.Enabled = False

Frame1.Enabled = False

If Option1.Value = False Then

If Option2.Value = False Then

MsgBox “ 请选择一个”

Else

Command1.Enabled = True

End If

Else

Command1.Enabled = True

End If End Sub

Private Sub Form_Load()

Timer1.Enabled = False

End Sub

Private Sub Option1_Click()

t = 10 End Sub

Private Sub Option2_Click()

t = 30 End Sub

Private Sub Timer1_Timer()

t = t-1

If t >= 0 Then

Beep

Label1.Caption = t

Else

Label1.Caption = “ 时间到”

Frame1.Enabled = True

Timer1.Enabled = False

End If End Sub

Private Sub Form_Load()

HScroll1.Min = 10

HScroll1.Max = 72

Text1.Text = HScroll1.Value End Sub

Private Sub HScroll1_Change()

Label1.FontSize = HScroll1.Value

Text1.Text = HScroll1.Value End Sub

Private Sub HScroll1_Scroll()

HScroll1_Change End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

If Val(Text1.Text)> 10 And Val(Text1.Text)< 72 Then

Label1.FontSize = Text1.Text

Else

MsgBox “ 请选择 10 到 到 72 的数字”

End If

End If End Sub

把 属性列表框中，先把 multiline 设为 true Private Sub Command1_Click()

Text1.Enabled = True

Text1.SetFocus End Sub

Private Sub Command2_Click()

CommonDialog1.DefaultExt = “txt”

CommonDialog1.ShowSave

Open CommonDialog1.FileName For Output As #1

Write #1, Text1.Text

Close #1 End Sub

Private Sub Command3_Click()

End End Sub

Private Sub Form_Load()

Text1.Enabled = False End Sub

Private Sub Command1_Click()

Label1.FontName = “ 宋体” End Sub

Private Sub Command2_Click()

Label1.FontName = “黑 黑体 体” End Sub

自己在相应的文件夹下放一张相应名字的图片 Autosize 改为 false Private Sub Command1_Click()

Pic1.Picture = LoadPicture(“d: 我xph.jpg”)End Sub

Private Sub Command2_Click()

Pic1.Picture =(“")

End Sub

老师做过我就不写了

Private Sub Command1_Click()Dim a(10)As Integer, max As Integer, p As Integer Dim i As Integer Randomize For i = 1 To 10

a(i)= Int(Rnd *(100-1 + 1))+ 1

Form1.Print a(i)Next i p = 1 max = a(1)For i = 2 To 10

If a(i)> max Then

max = a(i)

p = i

End If Next i Form1.Print ” 最大值：“ & max & ” 是第“ & p & ” 个“ End Sub

Private Sub color_Click()

CommonDialog1.ShowColor

Text1.ForeColor = CommonDialog1.color End Sub

Private Sub end_Click()

End End Sub

Private Sub font_Click()

CommonDialog1.Flags = 257

CommonDialog1.ShowFont

Text1.FontName = CommonDialog1.FontName

Text1.FontSize = CommonDialog1.FontSize

Text1.FontBold = CommonDialog1.FontBold

Text1.FontItalic = CommonDialog1.FontItalic End Sub

Private Sub save_Click()

CommonDialog1.DefaultExt = ”txt"

CommonDialog1.ShowSave

Open CommonDialog1.FileName For Output As #1

Write #1, Text1.Text

Close #1 End Sub

第二篇：VB操作word总结

请耐心看完：问题出现得较复杂。

我的目的：

将多个文档内容逐一拷贝粘贴到另一文档后面

我的方法：

wordapp=new word.application

Set doc = wordapp.Documents.Add

while

pathTemp = App.Path & “temp.doc”

LoadFile rs(“word”), pathTemp

Set doctemp = wordapp.Documents.Open(pathTemp)

doctemp.Content.Select

wordapp.Selection.copy

Set myRange = doc.Range(Start:=doc.Content.End 缺少参数 3文件不存在 ' '*************************************************************** Public Function ReplacePic(FindStr As String, Optional Time As Integer = 0)As Integer Attribute ReplacePic.VB_Description = “查找FindStr,并替换为PicFile所指向的图片文件,替换次数由time参数确定,为0时，替换所有” '******************************************************************************** '

从Word.Range对象mysel中查找所有FindStr，并替换为PicFile图像 ' 替换次数由time参数确定，为0时，替换所有

'******************************************************************************** If Len(C_PicFile)= 0 Then C_ErrMsg = 2 Exit Function End If Dim i As Integer Dim findtxt As Boolean mysel.Find.ClearFormatting mysel.Find.Replacement.ClearFormatting With mysel.Find.Text = FindStr.Replacement.Text = “".Forward = True.Wrap = wdFindContinue.Format = False.MatchCase = False.MatchWholeWord = False.MatchByte = True.MatchWildcards = False.MatchSoundsLike = False.MatchAllWordForms = False End With mysel.HomeKey Unit:=wdStory findtxt = mysel.Find.Execute(Replace:=True)If Not findtxt Then ReplacePic = 0 Exit Function End If i = 1 Do While findtxt mysel.InlineShapes.AddPicture FileName:=C_PicFile If i = Time Then Exit Do i = i + 1 mysel.HomeKey Unit:=wdStory findtxt = mysel.Find.Execute(Replace:=True)Loop ReplacePic = i End Function Public Function FindThis(FindStr As String)As Boolean Attribute FindThis.VB_Description = ”查找FindStr,如果模板中有FindStr则返回True“ If Len(FindStr)= 0 Then C_ErrMsg = 2 Exit Function End If mysel.Find.ClearFormatting mysel.Find.Replacement.ClearFormatting With mysel.Find.Text = FindStr.Replacement.Text = ”“.Forward = True.Wrap = wdFindContinue.Format = False.MatchCase = False.MatchWholeWord = False.MatchByte = True.MatchWildcards = False.MatchSoundsLike = False.MatchAllWordForms = False End With mysel.HomeKey Unit:=wdStory FindThis = mysel.Find.Execute End Function Public Function ReplaceChar(FindStr As String, RepStr As String, Optional Time As Integer = 0)As Integer Attribute ReplaceChar.VB_Description = ”查找FindStr,并替换为RepStr,替换次数由time参数确定,为0时，替换所有“ '******************************************************************************** '

从Word.Range对象mysel中查找FindStr，并替换为RepStr ' 替换次数由time参数确定，为0时，替换所有

'******************************************************************************** Dim findtxt As Boolean If Len(FindStr)= 0 Then C_ErrMsg = 2 RaiseEvent HaveError Exit Function End If mysel.Find.ClearFormatting mysel.Find.Replacement.ClearFormatting With mysel.Find.Text = FindStr.Replacement.Text = RepStr.Forward = True.Wrap = wdFindContinue.Format = False.MatchCase = False.MatchWholeWord = False.MatchByte = True.MatchWildcards = False.MatchSoundsLike = False.MatchAllWordForms = False End With

If Time > 0 Then For i = 1 To Time mysel.HomeKey Unit:=wdStory findtxt = mysel.Find.Execute(Replace:=wdReplaceOne)If Not findtxt Then Exit For Next If i = 1 And Not findtxt Then ReplaceChar = 0 Else ReplaceChar = i End If Else mysel.Find.Execute Replace:=wdReplaceAll End If End Function

Public Function GetPic(PicData()As Byte, FileName As String)As Boolean Attribute GetPic.VB_Description = ”把图像数据PicData,存为PicFile指定的文件“ '******************************************************************************** '

把图像数据PicData,存为PicFile指定的文件

'******************************************************************************** On Error Resume Next If Len(FileName)= 0 Then C_ErrMsg = 2 RaiseEvent HaveError Exit Function End If Open FileName For Binary As #1 If Err.Number <> 0 Then C_ErrMsg = 3 Exit Function End If '二进制文件用Get,Put存放，读取数据 Put #1, , PicData Close #1 C_PicFile = FileName GetPic = True End Function

Public Sub DeleteToEnd()Attribute DeleteToEnd.VB_Description = ”删除从当前位置到结尾的所有内容“ mysel.EndKey Unit:=wdStory, Extend:=wdExtend mysel.Delete Unit:=wdCharacter, Count:=1 End Sub Public Sub MoveEnd()Attribute MoveEnd.VB_Description = ”光标移动到文档结尾“ '光标移动到文档结尾 mysel.EndKey Unit:=wdStory End Sub Public Sub GotoLine(LineTime As Integer)mysel.GoTo What:=wdGoToLine, Which:=wdGoToFirst, Count:=LineTime, Name:=”“ End Sub Public Sub OpenDoc(view As Boolean)Attribute OpenDoc.VB_Description = ”打开Word文件,View确定是否显示Word界面“ On Error Resume Next '******************************************************************************** '

打开Word文件，并给全局变量mysel赋值

'******************************************************************************** If Len(C_TemplateDoc)= 0 Then mywdapp.Documents.Add Else mywdapp.Documents.Open(C_TemplateDoc)End If If Err.Number <> 0 Then C_ErrMsg = 4 RaiseEvent HaveError Exit Sub End If

mywdapp.Visible = view mywdapp.Activate Set mysel = mywdapp.Application.Selection 'mysel.Select

End Sub Public Sub OpenWord()On Error Resume Next '******************************************************************************** '

打开Word程序，并给全局变量mywdapp赋值

'******************************************************************************** Set mywdapp = CreateObject(”word.application“)If Err.Number <> 0 Then C_ErrMsg = 1 RaiseEvent HaveError Exit Sub End If End Sub Public Sub ViewDoc()Attribute ViewDoc.VB_Description = ”显示Word程序界面“ mywdapp.Visible = True End Sub Public Sub AddNewPage()Attribute AddNewPage.VB_Description = ”插入分页符“ mysel.InsertBreak Type:=wdPageBreak End Sub Public Sub WordCut()Attribute WordCut.VB_Description = ”剪切模板所有内容到剪切板“ '保存模板页面内容 mysel.WholeStory mysel.Cut mysel.HomeKey Unit:=wdStory End Sub Public Sub WordCopy()Attribute WordCopy.VB_Description = ”拷贝模板所有内容到剪切板“ mysel.WholeStory mysel.Copy mysel.HomeKey Unit:=wdStory End Sub Public Sub WordDel()mysel.WholeStory mysel.Delete mysel.HomeKey Unit:=wdStory End Sub Public Sub WordPaste()Attribute WordPaste.VB_Description = ”拷贝剪切板内容到当前位置“ '插入模块内容 mysel.Paste End Sub Public Sub CloseDoc()Attribute CloseDoc.VB_Description = ”关闭Word文件模板“ '******************************************************************************** '

关闭Word文件模本 '******************************************************************************** On Error Resume Next

mywdapp.ActiveDocument.Close False If Err.Number <> 0 Then C_ErrMsg = 3 Exit Sub End If End Sub Public Sub QuitWord()'******************************************************************************** '

关闭Word程序

'******************************************************************************** On Error Resume Next mywdapp.Quit

If Err.Number <> 0 Then C_ErrMsg = 3 Exit Sub End If End Sub Public Sub SavetoDoc()Attribute SavetoDoc.VB_Description = ”保存当前文档为FileName指定文件“ On Error Resume Next '并另存为文件FileName If Len(C_newDoc)= 0 Then C_ErrMsg = 2 RaiseEvent HaveError Exit Sub End If mywdapp.ActiveDocument.SaveAs(C_newDoc)

If Err.Number <> 0 Then C_ErrMsg = 3 RaiseEvent HaveError Exit Sub End If End Sub

Public Property Get TemplateDoc()As String Attribute TemplateDoc.VB_Description = ”模板文件名.“ TemplateDoc = C_TemplateDoc End Property Public Property Let TemplateDoc(ByVal vNewValue As String)C_TemplateDoc = vNewValue End Property Public Property Get newdoc()As String Attribute newdoc.VB_Description = ”执行CloseDoc方法时，将模板文件另存为此文件名指定的新文件.如果不指定，在执行CloseDoc方法时，将产生一个错误“ newdoc = C_newDoc End Property Public Property Let newdoc(ByVal vNewValue As String)C_newDoc = vNewValue End Property Public Property Get PicFile()As String Attribute PicFile.VB_Description = ”图像文件名“ PicFile = C_PicFile End Property Public Property Let PicFile(ByVal vNewValue As String)C_PicFile = vNewValue End Property Public Property Get ErrMsg()As Integer Attribute ErrMsg.VB_Description = ”错误信息.ErrMsg代码: 1-word没有安装 2-缺少参数 3-没权限写文件 4-文件不存在“ ErrMsg = C_ErrMsg End Property 请问如何正确杀掉word进程？

楼主btl19792008（btl19792008）2005-11-04 17:05:03 在 VB / 数据库(包含打印，安装，报表)提问 我的word程序运行几次，在资源管理器中就会出现很多word进程。

我的代码写的不对吗？

代码如下：

Dim appTemplate As Word.Application

Dim docTemplate As Word.Document

Set appTemplate = GetObject(, ”Word.Application“)

If Err.Number = 429 Then

Set appTemplate = New Word.Application

End If

Set docTemplate = Nothing

Set appTemplate = Nothing

问题点数：100、回复次数：9Top 楼bbhere（俺是二等小兵(baby,i'll be right here waiting for you)）回复于 2005-11-04 17:31:33 得分 0 markTop 楼province_（雍昊）回复于 2005-11-04 18:03:37 得分 0 要先QUIT再NOTHING。Top 楼faysky2（出来混，迟早是要还嘀）回复于 2005-11-04 19:21:30 得分 0

'引用Microsoft Word X.0 Object Library

Private Sub Command1_Click()

On Error GoTo connecterr

Dim wordApp As Object

Set wordApp = CreateObject(”word.application“)

wordApp.Visible = True

Dim myDoc As Object

Set myDoc = wordApp.Documents.Open(”c:Test.dot“)

wordApp.selection.TypeText(” Hello“)

myDoc.Close '关闭

wordApp.Quit

'退出

Set myDoc = Nothing

Set wordApp = Nothing

Exit Sub

connecterr:

End Sub

Top 楼faysky2（出来混，迟早是要还嘀）回复于 2005-11-04 19:24:16 得分 0 Dim appTemplate As Word.Application

Dim docTemplate As Word.Document

Set appTemplate = GetObject(, ”Word.Application“)

If Err.Number = 429 Then

Set appTemplate = New Word.Application

End If

'**************

docTemplate.Close

appTemplate.Quit

'**************

Set docTemplate = Nothing

Set appTemplate = NothingTop 楼rainstormmaster（暴风雨 v2.0）回复于 2005-11-06 11:01:27 得分 0 没有office没法测试，不过我想你可以参考一下这个：

http://blog.joycode.com/mvm/archive/2004/04/25/20208.aspxTop 6 楼ahlegend（爱之传奇）回复于 2005-11-06 20:51:45 得分 0 QuitTop 楼szjhxu（天野）回复于 2005-11-06 22:01:48 得分 0 Dim appTemplate As Word.Application

Dim docTemplate As Word.Document

Set appTemplate = GetObject(, ”Word.Application")

If Err.Number = 429 Then

Set appTemplate = New Word.Application

End If

appTemplate.quit

Set docTemplate = Nothing

Set appTemplate = NothingTop 楼zhf_btj（闹闹）回复于 2005-11-15 21:54:47 得分 0 引用四楼

faysky2()

myDoc.Close '关闭

wordApp.Quit

'退出

Set myDoc = Nothing

Set wordApp = Nothing

这样应该能退干净了...我的就是..光用Close和Quit.没用Nothing就老有多余的进程

偶尔试下加个Nothing就OK了~~~~Top 楼lfh103856111（）回复于 2005-11-16 12:46:09 得分 0 對,注意quit就行了

第三篇：vb综合实验

综 合 性 实 验

实 验 名 称:关闭标题包含指定字符的所有窗口 专 业 班 级: 学 生 姓 名：

学 号：

指 导 教 师：

需求分析：

关闭标题包含指定字符的所有窗口，使我们能更方便的关闭很多窗口，避免了一个一个关闭的麻烦 运行环境：

WINDOWS XP系统；VB6.0； 3开发工具和编程语言

Visual Basic6.0语言； 4 系统设置：

下例程序运行后，单击按钮关闭标题包含“记事本”的所有窗口

'在窗体上放置 3 个控件，所有控件无需设置任何属性，全部采用默认设置： ' Command1，Label1，Text1

Private Declare Function FindWindowEx Lib “user32” Alias “FindWindowExA”(ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String)As Long Private Declare Function PostMessage Lib “user32” Alias “PostMessageA”(ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long)As Long Private Declare Function GetWindowText Lib “user32” Alias “GetWindowTextA”(ByVal hWnd As Long, ByVal lpString As String, ByVal cch As Long)As Long Private Sub Form_Load()'设置控件初始状态，实际可以在窗体设计阶段完成 Dim S As Single

Me.Caption = “关闭指定窗口”: Text1.Text = “记事本” Label1.AutoSize = True: Label1.Caption = “窗口标题包含的字符：” Command1.Caption = “关闭指定窗口”

S = Label1.Height Label1.Move S, S Text1.Move S + Label1.Width, S * 0.5, S * 8, S * 2 Command1.Move S, S * 3, S * 8, S * 2 End Sub

Private Sub Command1_Click()Dim hWnds As Long, nCap As String, nFind As String Dim S As Long, S1 As Long, nLong()As Long, nCount As Long

S = 255: nFind = Text1.Text Do hWnds = FindWindowEx(0, hWnds, vbNullString, vbNullString)If hWnds = 0 Then Exit Do nCap = String(S + 1, “ ”)GetWindowText hWnds, nCap, S S1 = InStr(nCap, Chr(0))If S1 > 0 Then nCap = Left(nCap, S1-1)If InStr(nCap, nFind)> 0 Then ' PostMessage hWnds, &H10, 0, 0 '不在这里发送关闭消息，是为了防止漏查 nCount = nCount + 1 ReDim Preserve nLong(1 To nCount)nLong(nCount)= hWnds End If Loop

For S = 1 To nCount PostMessage nLong(S), &H10, 0, 0 '发送关闭窗口消息 DoEvents Next End Sub 5参考文献：

龚培增，杨志强Visual Basic程序设计教程（

第四篇：VB操作wincc脚本心得

Vbs 操作wincc画面脚本总结

一： 不使用变量单纯的操作界面

1.操作某个画面中控件的属性 如 Home1.Pdl（总窗体）下的 画面窗口2（画面窗口）

Sub OnClick(ByVal Item)

Dim objCircle Dim screenname Dim pwname Set objCircle= ScreenItems(“圆1”)objCircle.Radius = 60

Set screenname=HMIRuntime.Screens(“Home1”)

//获取要操作的窗体

Set pwname=screenname.ScreenItems(“画面窗口2”)

//获取要操作的控件，这里填入你要操作的控件名

MsgBox(objCircle.Radius)

//输出圆的半径

MsgBox(pwname.Picturename)

//输出当前画面窗口2的名字 End Sub

注意

当调用某窗体下的某控件的某个属性时,需要声明两个对象，一个接纳这个控件，一个接纳值

例如

Dim object Dim value Set object =HMIRuntime.Screens(“Home1”).ScreenItems(“画面窗口2”)Set value=object.picturename

2.更改画面窗口的对象

Sub OnClick(Byval Item)

Dim opObject Set opObject=HMIRuntime.Screens(“Home1”).ScreenItems(“画面窗口2”)opObject.PictureName=“Page1.Pdl” End Sub 3.设置文本

Set titleTxt=HMIRuntime.Screens(“Home1”).ScreenItems(“静态文本2”)titleTxt.Text =titleTxt.Text+“EF” //获取文本的值并追加字符

4.vb 字符串函数

VB的字符串截取函数有Left（字符串，n），返回字符串前N个字符；Mid（字符串，p，n），从第p个字符开始，向后截取N个字符；right（字符串，n），返回字符串的最后n个字符。

获取下标

VB中的InStr()函数与InStrRev()函数：

都是在主字符串当中搜寻寻找子字符串，返回找到的子字符串在主字符串中出现的位置； 不同在于；

InStr()函数，从左开始向右寻找，InStrRev()函数，从右开始向左寻找。

截取 right 和left

获取长度 Len 二：操作变量

1.Dim objTag Dim AText Set objTag = HMIRuntime.Tags(“a”)

//获取变量 objTag.Read

//执行读取

Set AText=ScreenItems(“静态文本2”)//获取控件 AText.Text=objTag.Value //给控件写入值 objTag.Value =100 //给目标变量写入值 objTag.Write

//执行写入

2.vb 中 Switch 语句的变体

Dim objTag Dim AText Set objTag = HMIRuntime.Tags(“a”)

//获取内部变量a的值

objTag.Read

//必须要有这一步，这是读取操作，同理如果改写值必须要有ogjTag.write Set AText=ScreenItems(“静态文本2”)

Select Case objTag.Value Case 1 AText.Text=“a” Case 2 AText.Text=“b” Case Else AText.Text=objTag.Value End Select

三．弹出对话框

设置

buttons 参数可以有以下值：

常数 值 描述

vbOKOnly 0 只显示确定按钮。vbOKCancel 1 显示确定和取消按钮。

vbAbortRetryIgnore 2 显示放弃、重试和忽略按钮。vbYesNoCancel 3 显示是、否和取消按钮。vbYesNo 4 显示是和否按钮。

vbRetryCancel 5 显示重试和取消按钮。vbCritical 16 显示临界信息图标。vbQuestion 32 显示警告查询图标。vbExclamation 48 显示警告消息图标。vbInformation 64 显示信息消息图标。vbDefaultButton1 0 第一个按钮为默认按钮。vbDefaultButton2 256 第二个按钮为默认按钮。vbDefaultButton3 512 第三个按钮为默认按钮。vbDefaultButton4 768 第四个按钮为默认按钮。

vbApplicationModal 0 应用程序模式：用户必须响应消息框才能继续在当前应用程序中工作。

vbSystemModal 4096 系统模式：在用户响应消息框前，所有应用程序都被挂起。

第一组值(0-5)用于描述对话框中显示的按钮类型与数目；第二组值(16, 32, 48, 64)用于描述图标的样式；第三组值(0, 256, 512)用于确定默认按钮；而第四组值(0, 4096)则决定消息框的样式。在将这些数字相加以生成 buttons 参数值时，只能从每组值中取用一个数字。返回值

MsgBox 函数有以下返回值：

常数 值 按钮 vbOK 1 确定 vbCancel 2 取消 vbAbort 3 放弃 vbRetry 4 重试 vbIgnore 5 忽略 vbYes 6 是 vbNo 7 否

下面的例子演示了 MsgBox 函数的用法：

Dim MyVar

MyVar = MsgBox(“Hello World!”, 65, “MsgBox Example”)' MyVar contains either 1 or 2, depending on which button is clicked.你要求是有是和否两个按钮那么MyVar = MsgBox(“Hello World!”, 65, “MsgBox Example”)中的65改成4就可以了！

vbs脚本中：

if msgbox(“确实要启动设备吗？”，4，“警告”)=6 then

hmiruntime.tags(“tag1”).write 1

end if

第五篇：VB综合实训

VB换肤（GUI界面）

第一种方法：后缀为.she文件的皮肤

SkinSharp换肤库不是COM组件，无需进行系统注册，仅以标准dll方式存在。

1.打开vb6开发环境，新建一个工程文件，并存档

2.将一个名为“肤色”的文件夹和一个名为SkinH_VB6.dll的文件拷贝到工程所在的目录

3.外部函数接口api函数原型，把这原形放在通用声明段

Private Declare Function SkinH_AttachEx Lib “SkinH_VB6.dll”(ByVal lpSkinFile As String, ByVal lpPasswd As String)As Long

4.若需要什么样的皮肤（即.she文件）就在相应的事件（比喻在Form_Load()）中输入下面的内容：

SkinH_AttachEx App.Path & “/皮肤/vista.she”, “ ”

app.path：系统字串常量，返回工程所在的路径。

皮肤：是跟工程在同一目录下的一个文件夹

vista.she：皮肤文件，可以把网上下载的.she文件放在同目录下用时，只接按上四步骤即可。

第二种方法：ActiveSkin 4.3软件的应用。可以自己更改皮肤

1.安装ActiveSkin 4.3。同其它软件安装一样。

2.汉化该软件。直接运行setup.exe（汉化的安装文件）。点下一步直至完成

3.新建一个VB工程文件，在工具箱灰白色地方右键单击，选择[部件]，在部件对话框中勾选ActiveSkin 4.3后单击[应用][确定]

4.在出现的两个控件中选择拖入到窗体上。右键单击，选择[编辑皮肤]即可到ActiveSkin 4.3中编辑皮肤

5.Label控件必须使用该部件给的ab控件来替换。原本的A是不会显示

6.选择相应的事件(如Form_Load())。在该事件中输入：

Skin1.ApplySkin Me.hWnd

7.如果要移植你的程序到别的机器上运行，请编译打包。因为该皮肤需要系统其它文件来支持。所以你可以选择VB-PowerWrap进行VB程序的封装

VB与ACCESS2003数据库连接相关步骤：

第一步：建立连接

1.引用相关组件：Microsoft ActiveX Data Objects 2.0 Library。Microsoft ADO Data Control 6.0 2.在通用声明段申明：Dim mConn As ADODB.Connection 3.在对应的事件（如Form_Click()）中：set mConn=New ADODB.Connection或Dim mConn As New ADODB.Connection 4.设置其连接字串（与磁盘上的MDB文件建立连接）：

mConn.ConnectionString=“Provider=Microsoft.jet.oledb.4.0;Data Source=” & App.Path & “RSData.mdb” 5.打开连接：mConn.Open 6.测试连接是否成功：if mConn.State=adStateOpen then msgbox “数据库已经连接成功！” else msgbox “数据库连接不成功！” 以上连接方法是在事件里完成，也可以把连接做一个过程，需要连接时直接带参调用也可。如在模块中这样定义

Public conn As New ADODB.Connection Public Function DBConnection(FileName As String)As Boolean

Set conn = New ADODB.Connection conn.ConnectionString = “provider=microsoft.jet.oledb.4.0;” & “data source=” & FileName

conn.Open

If conn.State = adStateOpen Then

DBConnection = True

Else

DBConnection = False

End If End Function 然后回事件中调该函数。其相应代码如下：

Private Sub Command2_Click()

CommonDialog1.ShowOpen

Text1.Text = CommonDialog1.FileName

If DBConnection(Text1.Text)Then

MsgBox “连接成功！”

Else

MsgBox “连接失败！”

End If End Sub

第二步：从数据库中取出记录，绑定到相对应的控件(Microsoft DataGrid Control 6.0(SP6)(OLEDB))中

1.在通用声明段定义记录对象：

Dim rs As New ADODB.Recordset 2.在相应的事件（如Form_Click()）中定义：

Set rs = New ADODB.Recordset Dim sql As String

sql = “select * from 部门表” rs.CursorLocation = adUseClient rs.Open sql, mConn, 1, 3

3.在窗体上从部件中找到Microsoft DataGrid Control 6.0(SP6)(OLEDB)并加载到工具箱上，然后产生一个实体对象，其名称为DataGrid1 Set DataGrid1.DataSource = mRst.DataSource

注意：游标与锁

0=adopenForwardonly:仅向前游标 — 除仅允许在记录中向前滚动之外，其行为类似动态游标。这样，当需要在 Recordset 中单程移动时就可提高性能。

1=adopenkeyset:键集游标 — 其行为类似动态游标，不同的只是禁止查看其他用户添加的记录，并禁止访问其他用户删除的记录，其他用户所作的数据更改将依然可见。它始终支持书签，因此允许 Recordset 中各种类型的移动。

2=adopenDynamic:动态游标 — 用于查看其他用户所作的添加、更改和删除，并用于不依赖书签的 Recordset 中各种类型的移动。如果提供者支持，可使用书签。3=adopenstatic:静态游标 — 提供记录集合的静态副本以查找数据或生成报告。它始终支持书签，因此允许 Recordset 中各种类型的移动。其他用户所作的添加、更改或删除将不可见。这是打开客户端(ADOR)Recordset 对象时唯一允许使用的游标类型。

mRst.CursorLocation = adUseClient:使用由本地游标库提供的客户端游标

mRst.CursorLocation = adUseServer 默认值。使用数据提供者或驱动程序提供的游标。

1=adLockReadOnly 默认值，只读。无法更改数据。

2=adLockPessimistic 保守式记录锁定（逐条）。提供者执行必要的操作确保成功编辑记录，通常采用编辑时立即锁定数据源的记录的方式。

3=adLockOptimistic 开放式记录锁定（逐条）。提供者使用开放式锁定，只在调用 Update 方法时锁定记录。

4=adLockBatchOptimistic 开放式批更新。用于与立即更新模式相反的批更新模式。

第三步：向数据库中写数据（找一个相应的事件，如Command1_Click()）

Dim bmid As String,bmmc As String,sql As String Dim conn As New ADODB.Connection Dim rs As New ADODB.Recordset bmid = Text1.Text:bmmc = Text2.Text conn.ConnectionString = “provider=microsoft.jet.oledb.4.0;data source=” & App.Path & “rsdata.mdb” conn.Open

On Error GoTo cancel: sql = “insert into 部门表(部门ID,部门名称)values('” + bmid + “','” + bmmc + “')” rs.Open sql, conn

cancel:

If conn.Errors.Count = 0 Then

Else

MsgBox “写数据有问题，主键重复”

End If 除了用SQL语句增加库记录以外，也可以用下面的方法来增加库记录

rs.CursorType = adOpenKeyset rs.LockType = adLockOptimistic rs.Open “部门表”, conn, , , adCmdTable rs.AddNew rs.Fields(0)= bmid rs.Fields(1)= bmmc rs.Update 第四步：删除数据库中的一条记录（找一个相应的事件，如Command2_Click()）

Private Sub command2_click()Dim sql As String Dim conn As New ADODB.Connection Set rst = New ADODB.Recordset

Dim bmid As String bmid = Trim(DataGrid1.Columns(0))conn.ConnectionString = “provider=microsoft.jet.oledb.4.0;data source=” & App.Path & “rsdata.mdb” conn.Open

sql = “delete from 部门表 where 部门ID='” + bmid + “'” rst.Open sql, conn, 1, 3

sql = “select * from 部门表”

rst.CursorLocation = adUseClient

rst.Open sql, conn, 1, 3 if not rst.eof()then

rst.movenext end if

Set DataGrid1.DataSource = rst.DataSource set rst=nothing set conn=nothing End sub 第五步：更改数据库中的信息（找一个相应的事件，如Command1_Click()）Private Sub Command1_Click()Dim sql As String Dim conn As New ADODB.Connection Set rst = New ADODB.Recordset Dim s As String

s = “实验中心”

conn.ConnectionString = “provider=microsoft.jet.oledb.4.0;data source=” & App.Path & “rsdata.mdb” conn.Open

sql = “update 部门表 set 部门名称='” + s + “' where 部门ID='001'” rst.Open sql, conn End Sub

第一步：建立连接

1.引用相关组件：Microsoft ActiveX Data Objects 2.0 Library。Microsoft ADO Data Control 6.0 Dim mConn As ADODB.Connection Private Sub Form_Click()set mConn=New ADODB.Connection或Dim mConn As New ADODB.Connection mConn.ConnectionString=“Provider=Microsoft.jet.oledb.4.0;Data Source=” & App.Path & “Police Information.mdb” mConn.Open if mConn.State=adStateOpen then msgbox “数据库已经连接成功！” else msgbox “数据库连接不成功！” End Sub 以上连接方法是在事件里完成，也可以把连接做一个过程，需要连接时直接带参调用也可。如在模块中这样定义

Public conn As New ADODB.Connection Public Function DBConnection(FileName As String)As Boolean

Set conn = New ADODB.Connection

conn.ConnectionString = “provider=microsoft.jet.oledb.4.0;” & “data source=” & FileName

conn.Open

If conn.State = adStateOpen Then

DBConnection = True

Else

DBConnection = False

End If End Function 然后回事件中调该函数。其相应代码如下：

Private Sub Command2_Click()

CommonDialog1.ShowOpen

Text1.Text = CommonDialog1.FileName

If DBConnection(Text1.Text)Then

MsgBox “连接成功！”

Else

MsgBox “连接失败！”

End If End Sub