第一章数组
一、选择题
1．在窗体上画一个命令按钮，然后编写如下程序：
Option Base 1
Private Sub Command1_Click(Index As Integer)
Dim Arr1(12) As Integer, Arr2(3) As Integer
Dim Sum As Integer
Sum = 2
For i = 1 To 12
Arr1(i) = i
Next i
For i = 1 To 3
Arr2(i) = Arr1(i * i)
Next i
For i = 1 To 3
Sum = Sum + Arr2(i)
Next i
Print Sum
End Sub
程序运行后，单击命令按钮，在窗体上的输出结果是
A．16B．24 C．32 D．36 2．在窗体上画一个文本框，然后编写如下代码：
Option Base 1
Private Sub Form_Click()
Dim arr
Dim Start As Integer, Finish As Integer
Dim Sum As Integer
arr = Array(12, 4, 8, 16)
Start = LBound(arr)
Finish = UBound(arr)
Sum = 0
For i = Start To Finish
Sum = Sum + arr(i)
Next i
c = Sum / Finish
Text1.Text = c
End Sub
程序运行后，单击窗体，则在文本框中显示的内容是
A．40 B．10C．12 D．16 3．阅读程序：
Option Base 1
Private Sub Form_Click()
Dim Arr(4, 4) As Integer
For i = 1 To 4
For j = 1 To 4
Arr(i, j) = (i - 1) * 2 + j
Next j
Next i
For i = 3 To 4
For j = 3 To 4
Print Arr(j, i);
Next j
Next i
End Sub
程序运行后，单击窗体，输出结果是
A．5 7 B．6 8 C．7 9D．8 10
6 8
7 9
8 108 11 4．用下面的语句所定义的数组的元素个数是
Dim A(-3 To 5) As Integer
A．6 B．7 C．8 D．9 5．用下面的语句所定义的数组的元素个数是
Dim arr(3 To 5, -2 To 2)
A．20 B．12 C．15D．24
6．在窗体上画一个命令按钮（其Name属性为Command1），然后编写如下代码：Private Sub Command1_Click()
Dim Arr1(10), Arr2(10) As Integer
n = 3
For i = 1 To 5
Arr1(i) = i
Arr2(n) = 2 * n + i
Next i
Print Arr2(n); Arr1(n)
End Sub
程序运行后，单击命令按钮，输出结果是
A．11 3B．3 11 C．13 3 D．3 13 7．在窗体上画一个命令按钮（其Name属性为Command1），然后编写如下代码：Option Base 1
Private Sub Command1_Click()
Dim a(10), p(3) As Integer
k = 5
For i = 1 To 10
a(i) = i
Next i
For i = 1 To 3
p(i) = a(i * i)
Next i
For i = 1 To 3
k = k + p(i) * 2
Next i
Print k
End Sub
程序运行后，单击命令按钮，输出结果是
A．35 B．28 C．33D．37
8．在窗体上画一个命令按钮（其Name属性为Command1），然后编写如下代码：Option Base 1
Private Sub Command1_Click()
Dim a
a = Array(1, 2, 3, 4)
j = 1
For i = 4 To 1 Step -1
s = s + a(i) * j
j = j * 10
Next i
Print s
End Sub
程序运行后，单击命令按钮，输出结果是
A．4321 B．12 C．34 D．1234
9．在窗体上画一个命令按钮（其Name属性为Command1），然后编写如下代码：Option Base 1
Private Sub Command1_Click()
Dim Arr(3) As Integer
For i = 1 To 3
For j = 1 To 3
Arr(j) = Arr(i) + 1
Next j
Next i
Print Arr(3)
End Sub
程序运行后，单击命令按钮，输出结果是
A．7 B．6 C．5D．4 10．在窗体上画一个名称为List1的列表框，一个名称为Label1的标签框。列表框中显示若干城市的名称，当单击列表框中的某一城市名时，在标签中显示选中城市的名称。下列能正确实现上述功能的程序是
A．Private Sub List1_Click() B．Private Sub List1_Click()
Label1.Caption = List1.ListIndex https://www.doczj.com/doc/db6637429.html, = List1.ListIndex End Sub End Sub
C．Private Sub List1_Click() D．Private Sub List1_Click()
https://www.doczj.com/doc/db6637429.html, = List1.Text Label1.Caption = List1.Text End Sub End Sub
11．为了使列表框中的项目分为多列显示，需要设置的属性为
A．Columns B．Style C．List D．MultiSelect
12．要想不使用Shift或Ctrl键就能在列表框中同时选择多个项目，则应把该列表框的MultiSelect属性设置为
A．0 B．1 C．2 D．其他13．删除列表框中指定的项目所使用的方法为
A．Move B．Remove C．Clear D．RemoveItem
14．用户在组合框中输入或选择的数据可以通过一个属性获得，这个属性是A．List B．ListIndex C．Text D．ListCount
二、填空题
1．在窗体上画一个文本框，然后编写如下程序：
Option Base 1
Private Sub Form_Click()
Dim Arr(10) As Integer
For i = 6 To 10
Arr(i) = i - 3
Next i
Text1.Text = Str(Arr(6) + Arr(Arr(6) + Arr(10)))
End Sub
程序运行后，单击窗体，在文本框中显示的内容是10。
2．以下程序的功能是产生10个0～1000的随机整数，放入数组Arr中，然后输出其中的最大值。请填空。
Option Base 1
Private Sub Form_Click()
Dim Arr(10) As Integer
Dim Max As Integer
Randomize
For i = 1 To 10
Arr(i) = Int(Rnd * 1000)
Next i
Max = Arr(1)
For i = 2 To 10
If Max < Arr(i)Then
Max = Arr(i)
End If
Next i
Print Max
End Sub
3．以下程序的功能是，程序运行后，单击命令按钮，输出结果为：
1 4 7
2 5 8
3 6 9
Private Sub Command1_Click()
Dim Arr(3, 3) As Integer
For i = 1 To 3
For j = 1 To 3
Arr(i, j) = ______
Print Arr(i, j);
Next j
Next i
End Sub
4．控件数组的名字由属性指定，而数组中的每个元素由属性指定。
5．由Array函数建立的数组必须是变体类型。
6．在窗体上画一个命令按钮（其Name属性为Command1），然后编写如下代码：Private Sub Command1_Click()
Dim n() As Integer
Dim a, b As Integer
a = InputBox("Enter the first number")
b = InputBox("Enter the second number")
ReDim n(a To b)
For k = LBound(n, 1) To UBound(n, 1)
n(k) = k
Print "n("; k; ")="; n(k)
Next k
End Sub
程序运行后，单击命令按钮，在输入对话框中分别输入2和3，输出结果为。
7．在窗体上画一个命令按钮（其Name属性为Command1），然后编写如下代码：Private Sub Command1_Click()
Dim a(5)
For i = 0 To 4
a(i) = i + 1
t = i + 1
If t = 3 Then
Print a(i);
a(t - 1) = a(i - 2)
Else
a(t) = a(i)
End If
If i = 3 Then a(i + 1) = a(t - 4)
a(4) = 1
Print a(i);
Next i
程序运行后，单击命令按钮，输出结果是。
8．在窗体上画一个命令按钮（其Name属性为Command1），然后编写如下代码：Private Sub Command1_Click()
Dim M(10) As Integer
For k = 1 To 10
M(k) = 12 - k
Next k
x = 6
Print M(2 + M(x))
End Sub
程序运行后，单击命令按钮，输出结果为。
9．在窗体上画一个命令按钮（其Name属性为Command1），然后编写如下代码：Private Sub Command1_Click()
Dim a(5, 5)
For i = 1 To 3
For j = 1 To 4
a(i, j) = i * j
Next j
Next i
For n = 1 To 2
For M = 1 To 3
Print a(M, n);
Next M
Next n
End Sub
程序运行后，单击命令按钮，输出结果是。
10．组合框有三种不同的类型，这三种类型是、、，分别通过把属性设置为、、来实现。
11．在三种不同类型的组合框中，只能选择而不能输入数据的组合框式。
12．在窗体上画一个列表框，然后编写如下两个事件过程：
Private Sub Form_Click()
List1.RemoveItem 1
List1.RemoveItem 3
List1.RemoveItem 2
End Sub
Private Sub Form_Load()
List1.AddItem "ItemA"
List1.AddItem "ItemB"
List1.AddItem "ItemC"
List1.AddItem "ItemD"
List1.AddItem "ItemE"
End Sub
运行上面的程序，然后单击窗体，列表框中所显示的项目为。13．在窗体上画一个列表框、一个命令按钮和一个标签。程序运行后，在列表框中选择一个项目，然后单击命令按钮，即可将所选择的项目删除，并在标签中显示列表框当前的项目数，运行情况如图所示。下面是实现上述功能的程序，请填空。
Private Sub Form_Load()
List1.AddItem "AAAAA"
List1.AddItem "BBBBB"
List1.AddItem "CCCCC"
List1.AddItem "DDDDD"
End Sub
Private Sub Command1_Click()
Dim L As Integer
L =
If ind >= 0 Then
List1.RemoveItem
Label1.Caption =
Else
MsgBox "请选择要删除的项目"
End If
End Sub
三、编程题
1.编写程序，输出魔方阵。
魔方阵是一个n×n的二维数组，其中n为奇数。它由1～n×n的正整数组成，其中每行、每列及对角线上所有数字的总和都相同。
产生魔方阵的算法由很多种，下面的程序用“右上斜行法”产生魔方阵，其算法如下：
a)把“1”放在第一行的中间一列。
b)从“1”往右上方走放下“2”，但已超出方阵范围，故将其置于同列第n
行。
c)从“2”往右上方走放下“3”，也超出方阵范围，将其置于同行第一列。
d)由于3是n的倍数，接下来的数字“4”置于同行下一列。
e)重复上述步骤，直到填满n×n个数为止。
2.编写程序，用选择法对数组中的数据按由小到大的顺序进行排序。
3.从键盘上输入10个整数，并放入一个一维数组中，然后将其前5个元素与后5个元素对换，即：第一个元素与第十个元素互换，第二个元素与第九个元素互换……第五个元素与第六个元素互换。分别输出数组原来各元素的值和对换后各元素的值。
4.设有如下两组数据：
A：2，8，7，6，4，28，70，25
B：79，27，32，41，57，66，78，80
编写一个程序，把上面两组数据分别读入两个数组中，然后把两个数组中对应下标的元素相加，即2+79，8+27，……，25+80，并把相应的结果放入第三个数组中，最后输出第三个数组的值。
5.有一个n×m的矩阵，编写程序，找出其中最大的那个元素所在的行和列，并输出其值及行号和列号。
6.某单位开运动会，共有10人参加男子100米短跑，运动员号和成绩如下：
207号14.5秒077号15.1秒
156号14.2秒231号14.7秒
453号15.2秒276号13.9秒
096号15.7秒122号13.7秒
339号14.9秒302号14.5秒
编写程序，按成绩排出名次，并按如下格式输出：
名次运动员号成绩
1 …………
2 …………
3 …………
………………
10 …………
7.编写程序，输出“杨辉三角形”。
在Visual Basic 6.0 中创建Word文 档 摘要：分析了Word对象模型的结构，特别是Document对象及其使用方法，提出了在Visual Basic 中创建Word格式文档的方法，并给出了该方法的应用实例。 关键词：Visual Basic，Word对象模型，文档 引言 Word文档是实际工作学习中最为常用的文档格式之一。 随着社会信息化程度的提高，一些传统的由人工完成工作逐渐转向由计算机来处理。计算机自动组卷系统便是一个典型的例子。为了追求更高的效率，一些计算机自动组卷系统的单位用户要求由软件输出Word格式的试卷不需排版直接供印刷使用。 由于Microsoft Office套件的普及，Word文档、电子表格文档、电子幻灯片等文档日渐常用。虽然在Office中各个程序的文档可以方便地转换，但是这种转换是以失去文档原本的格式为代价的。例如，在自动组卷系统中，存储在Access数据库中的试卷可以通过Access提供的导出功能产生Word文档，但产生的文档是无格式的，需花费大量时间重新排版方可符合用户在试卷格式上的要求。 针对这一问题，本文讨论通过研究Word对象模型，提出使用该对象模型创建符合用户所要求的特定格式的Word文档的方法。 Word对象模型
1、Word对象模型层次结构 对象是 Visual Basic的基石，几乎在 Visual Basic 中的每个操作都与修改对象有关。Word 的任何元素（如文档、表格、段落、域、书签等）都可以用 Visual Basic 中的对象来代表。 对象代表一个 Word 的元素，如文档、段落、书签或单个的字符。集合也是一个对象，该对象包含其他数个对象，通常这些对象属于相同的类型，例如，一个集合对象中可包含文档中的所有书签对象。通过使用属性和方法，可以修改单个的对象，也可修改整个的对象集合。 Microsoft Word Visual Basic提供一套完整的Word对象模型，这是一个以Application为顶层对象的对象层次结构。其结构如图-1所示。 对象由两种类型的成员构成，一种是属性，第二种成员是方法。 属性是对象的一个特性或者该对象行为的一个方面。例如，文档属性包含名称、内容、保存状态以及是否启用修订。要更改一个对象的特征，可以修改其属性值。要设置一个属性的值，需在对象的后面紧接一个句点、属性名称、一个等号及新的属性值。下面的示例在"MyDoc.doc"文档中启用修订。
第一章vasual basic 程序开发环境 第一节visual basic 的启动与退出 一.启动vb的四种方法： 1.使用“开始”菜单中的“程序”命令 2.使用“我的电脑” 3.使用“开始”菜单中的“运行”命令 4.建立启动visual basic6.0的快捷方式 二.vb启动后的简单设置 1.新建工程···标准exe 2.（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+s 3.工具栏 （1）工具栏的分类：编辑、标准、窗体编辑器和调试 （2）工具栏的形式：固定、浮动 （3）标准工具栏图标及作用 第三节其他窗体 一.窗体设计器和工程资源管理器 （一）窗体设计器窗口
1.窗体设计器窗口简称窗体（）from，是应用程序最终面向用户的窗口，它对 应于应用程序的运行结果。 2.如果想清楚这些小点或者改变点与点间的距离，则可通过执行“工具”菜单 中的“选项”命令(“通用”选项卡)来调整。 （二）工程资源管理器窗口 1.在工程支援管理器窗口中，含有建立一个应用程序所需要的文件的清单。工程支援管理器窗口中的文件可以分为6类， <1>窗体文件（.frm） <2>程序模块文件（.bas） <3>类模块文件（.cls） <4>工程文件（.vbp） <5>工程组文件（.vbg） <6>资源文件（.res） 2.工程支援管理器窗口中文件的分类： （1）工程文件和工程组文件 工程文件的扩展名为.vbp，每个工程对应一个工程文件。当一个程序包括两个以上的工程时，这些工程构成一个工程组，工程组文件的扩展名为.vbg 用“文件”菜单中的“新建工程”命令可以建立一个新的工程，用“打开工程”命令可以打开一个已有的工程，而用“添加工程”命令可以添加一个工程。（2）窗体文件 窗体文件的扩展名为.frm，每个窗体对应一个窗体文件，窗体及其控件的属性和其他信息（包括代码）都存放在窗体文件中。一个应用程序可以有多个窗体（最多可达255个），因此就可以有多个以.frm为扩展名的窗体文件。 执行“工程”菜单中的“添加窗体”命令或单击工具栏中的“添加窗体”按钮可以增加一个窗体，而执行“工程”菜单中的“移除窗体”命令可删除当前的窗体。每建立一个窗体，工程资源管理器窗口中就增加一个窗体文件，每个窗体都有一个不同的名字，可以通过属性窗口设置（name属性），其默认名字formx （x为1，2，3…..），相应的默认文件名为formx。 （3）标准模块文件 标准模块文件也称程序文件，其扩展名为.bas，它是为合理组织程序而设计的。标准模块是一个纯代码性质的文件，它不属于任何一个窗体，主要在大型应用程序中使用。 标准模块由程序代码组成，主要用来声明全局变量和定义一些通用的过程，可以被不同窗体的程序调用。标准模块通过“工程”菜单中的“添加模块”命令来建立。 （4）类模块 Visual basic 提供了大量预定义的类，同时也允许用户根据需要定义自己 的类，用户通过类模块来定义自己的类，每个类都用一个文件来保存，其扩展名为.cls （5）资源文件 资源文件中存放的是各种“资源”，是一种可以同时存放文本，图片，声 音等多种资源的文件。资源文件由一系列独立的字符串，位图及声音文件（.wav .mid）组成，其扩展名为.res，资源文件是一个纯文本文件，可 以用简单的文字编辑器编辑。
vb操作word详解 Visual Basic支持一个对象集合，该集合中的对象直接对应于Microsoft Word 97中的元素，并且通过用户界面，用户熟悉这些元素中的绝大多数。例如，Document 对象代表了一个打开的文档，Bookmark对象代表了一个文档中的书签，而Selection对象则代表了在一个文档窗口窗格中的选定容。在Word中，每一类元素－文档、表格、段落、书签、域等等－都可以用Visual Basic的对象来表示。要在Word中自动执行任务，可以使用这些对象的方法和属性。 关于理解和使用Microsoft Office 97对象模型的一般性容，请参阅本书的第二章“理解对象模型”。在Microsoft Office 97中的对象模型相当丰富，其中包含了大约180个对象。要查看Word对象模型的层次关系图，请参阅“帮助”中的“Microsoft Word 对象”。要获得对某种特定对象的详细描述，可以在此图中单击该对象的名字，或是在“帮助”的索引中对特定对象进行搜索。 怎样显示Word Visual Basic帮助 要使用Word Visual Basic帮助，必须在安装过程中选择“自定义”的安装方式，并且为Word选中“Visual Basic在线帮助”复选框。否则，安装程序不会安装Visual Basic帮助。如果用户已经安装好了Word，那么可以再次运行Setup程序来安装Visual Basic帮助。
要查看Word Visual Basic 帮助，可以在“Visual Basic 编辑器里的“帮助”菜单中点击“目录和索引”一项。在“帮助主题”对话框的“目录”一表中，双击“Microsoft Word Visual Basic 参考”，然后再双击“Visual Basic 参考”。“帮助主题”对话框会重新出现，显示出Microsoft Word Visual Basic的目录和索引。 运用Application 对象 在用户启动一个Word 时段的同时，也创建了一个Application 对象。用户可以使用Application 对象的属性或方法来控制或返回应用程序围的特性、控制应用程序窗口的外观或者调整Word 对象模型的其他方面。可以使用Application属性来返回Word Application 对象。以下的示例从视图状态切换到打印预览状态。 Application. PrintPreview = True Application对象的一些属性控制着应用程序的外观。例如，如果DisplayStatusBar属性为True(真)，那么状态栏是可见的，如果WindowState属性值为wdWindowStateMaximize，那么应用程序窗口处于最大化状态。以下的示例设置了屏幕上应用程序窗口的大小。 With Application .WindowState = wdWindowStateNormal .Height = 450 .Width = 600 End With
基本要求：需安装WORD Function WordReplace(FileName As String, SearchString As String, ReplaceString As String, Optional SaveFile As String = "", Optional MatchCase As Boolean = False) As Integer On Error GoTo ErrorMsg '函数运行时发生遇外或错误,转向错误提示信息 Dim wordApp As New Word.Application Dim wordDoc As New Word.Document Dim wordArange As Word.Range Dim wordSelection As Word.Selection Dim ReplaceSign As Boolean Dim I As Integer '判断将要替换的文件是否存在 If Dir(FileName) = "" Then '替换文件不存在 MsgBox "未找到" amp; FileName amp; "文件" '提示替换文件不存在信息 WordReplace = -2 '返回替换文件不存在的值 Exit Function '退出函数 End If Set wordApp = CreateObject("Word.Application") '建立WORD实例 wordApp.Visible = False '屏蔽WORD实例窗体 Set wordDoc = wordApp.Documents.Open(FileName) '打开文件并赋予文件实例 Set wordSelection = wordApp.Selection '定位文件实例 Set wordArange = wordApp.ActiveDocument.Range(0, 1) '指定文件编辑位置wordArange.Select '激活编辑位置 I = 0 '初始化替换次数值 ReplaceSign = True '初始化是否替换成功标志 Do While ReplaceSign ReplaceSign = wordArange.Find.Execute(SearchString, MatchCase, , , , , , wdFindContinue, , ReplaceString, True) '查找并替换 '判断查找并替换是否成功,如果成功替换次数值递增1 If ReplaceSign = True Then I = I + 1 End If Loop MsgBox "已完成对文档的搜索并完成 " amp; I amp; " 替换。" '提示总替换次数 '如果替换成功，则提示是否保存
vb课后习题答案 第一章习题参考答案 一、填空题 1、对象事件驱动 2、编译运行模式解释运行模式 二、简答题 1、简述VB的特点。 答：①可视化的程序设计方法 ②面向对象的程序设计思想 ③事件驱动的编程机制 ④结构化的程序设计语言 ⑤高度的可扩充性 ⑥强大的数据库访问能力 ⑦支持动态数据交换 ⑧支持对象链接与嵌入 2、简述VB的安装过程。 答：①向光驱中放入VB安装光盘； ②计算机将运行自动安装程序，若没有，执行VB目录下的Setup.exe； ③根据提示逐一回答问题，并点击“下一步”； ④点击“完成”； 2、如何启动VB。 答：三种方法： ①单击“开始”按钮，选择“程序”菜单下的“Microsoft Visual Basic 6.0 中文版”菜单项并单击； ②双击桌面上的VB6.0快捷图标； ③在“开始”菜单的运行对话框中输入命令来启动VB； 第二章习题参考答案 一、选择题： 1-10、DCACD BCBBC 11-20、BADCA BBABA 21-27、ACBBD DC 二、填空题 1．窗体、控件 2．属性值 3．属性窗口设置、代码窗口设置 4．事件过程 5．对象名、下划线、事件名 6．Form_Click 第三章习题参考答案 一、选择题
1、B 2、C 3、A 4、B 5、A 6、C 7、C 二、填空题 1、11 字符型、字节型、整型、长整型、单精度型、双精度型、货币型、逻辑型、日期型、对象型、变体型。String、Byte、Integer、Long、Single、Double、Currency、Boolean 、Date、Object、Variant 2, 双引号(英文)、# 3、ASCII、1、2 4、public、通用、Dim、Static、Private、Static 5、&、+、+ 6、Now()、Time、日期型 三、解答题 1、(3) 2、(1 ) 3、（1）常量（关键字）（2）字符型常量（3）逻辑型常量（4）变量（5）字符串常量（6）变量 （7）字符串常量（8）变量（9）日期型常量（题目应是#11/16/1999#）（10）数值型常量（单精度） 4、31 5、（1）(1+y/x)/(1-y/x) （2）x^3+3*x*y/(2-y) （3）sqr(abs(a*b-c^3)) （4）sqr(s*(s-a)*(s-b)*(s-c)) 6、 7、（1）13 （2）17 （3）#1999-11-12# （4）zxy123ABC 8、（1）19 （2）8.16666666666667 （3）5．25 （4）2 9、（1）-4 （2）2 . 82842712474619 （3）-3 （4）49 （5）“-459.65”（6）”hello” （7）He 8）16 （9）5 10、（4） 11、（2） 12、（4） 第四章习题参考答案 一、选择题： 1—7: DAABBCD 二、填空题 1．500.00% 2．将字号扩大为原来的二倍 3．B 三、编程题（略） 1．文本框、标签和命令按钮的名称分别为text1、label1、command1 Private Sub Command1_Click() Label1.caption=text1.text Command1.caption=text1.text End Sub
Private oWordApplic As Word.Application Private oDocument As Word.Document Private oRange As Word.Range Private oSelection As Word.Selection Public Sub Neword() '激活com word接口 oWordApplic = New Word.Application oWordApplic.Visible = True End Sub '设置选定文本 Public Sub SetRange(ByVal para As Integer) oRange = oDocument.Paragraphs(para).Range oRange.Select() End Sub Public Sub SetRange(ByVal para As Integer, ByVal sent As Integer) oRange = oDocument.Paragraphs(para).Range.Sentences(sent) oRange.Select() End Sub Public Sub SetRange(ByVal startpoint As Integer, ByVal endpoint As Integer, ByVal flag As Boolean) If flag = True Then oRange = oDocument.Range(startpoint, endpoint) oRange.Select() Else End If End Sub '生成空的新文档 Public Sub NewDocument() Dim missing = System.Reflection.Missing.Value Dim isVisible As Boolean = True oDocument = oWordApplic.Documents.Add(missing, missing, missing, missing) oDocument.Activate() End Sub '使用模板生成新文档 Public Sub NewDocWithModel(ByVal FileName As String) Dim missing = System.Reflection.Missing.Value Dim isVisible As Boolean = True Dim strName As String strName = FileName
V B语言基础 一、数据类型 1、数值型：取值范围：Byte(字节型)━占1字节； 0～255无符号 Integer(整型)━占2字节； -32768～32767 long(长整型)━占4字节； -2147483648～2147483647 single(单精度浮点)━占4字节；略 Double(双精度浮点)━占4字节；略 Currency(货币型)━占8字节小数点左15位，右4位 （精确定点数据类型） 2、逻辑型： Boolean(布尔型)━占2字节； true或false 3、字符串型： String?a?a定长型占字符串长度，变长型再加10 4、日期型： Date(日期型)━占8字节 100-1-1～9999-12-31 5、对象型： Object━占4字节；任何Object引用 6、变体型： Variant━变体型数字占16字节，变体型字符占22字节＋字符串长 注：此类型还包含三种特定值：
Empty；Null；Error； ?7、用户定义的数据类型： ?用户可以利用Type语句定义自己的数据类型。格式如下?Type 数据类型名 ?数据类型元素名As 类型名 ?…… ?End Type ?用Type可定义类似于C语言中的结构体类型。例如：?Type Date_Rec ?RYear As Integer ?RMonth As String*3 ?RDay As Integer ?End Type ?注：记录类型中的元素可以是字符串，但必须是定长字符串，其长度由类型名加上一个星号和常数指明。 ?数据类型转换函数： ?函数名及书写格式转换结果 ?CBool（表达式）布尔型 ?CCur（表达式）货币型 ?CByte（表达式）字节型 ?CDate（表达式）日期型 ?CDbl（表达式）双精度
vb 操作word 详解 Visual Basic 支持一个对象集合，该集合中的对象直接对应于Microsoft Word 97 中的元素，并且通过用户界面，用户熟悉这些元素中的绝大多数。例如，Document 对象代表了一个打开的文档，Bookmark 对象代表了一个文档中的书签，而Selection 对象则代表了在一个文档窗口窗格中的选定内容。在Word 中，每一类元素－文档、表格、段落、书签、域等等－都可以用Visual Basic 的对象来表示。要在Word中自动执行任务，可以使用这些对象的方法和属性。 关于理解和使用Microsoft Office 97 对象模型的一般性内容，请参阅本书的第二章“理解对象模型” 。在Microsoft Office 97 中的对象模型相当丰富，其中包含了大约180个对象。要查看Word对 象模型的层次关系图，请参阅“帮助”中的“Microsoft Word对象”。要获得对某种特定对象的详细描述，可以在此图中单击该对象的名字，或是在“帮助”的索引中对特定对象进行搜索。 怎样显示Word Visual Basic 帮助 要使用Word Visual Basic 帮助，必须在安装过程中选择“自定义”的安装方式，并且为Word选中“ Visual Basic 在线帮助”复选框。否则，安装程序不会安装Visual Basic 帮助。如果用户已经安装好了Word,那么可以再次运行Setup程序来安装Visual Basic 帮助。 要查看Word Visual Basic 帮助，可以在“ Visual Basic 编辑器里的“帮助”菜单中点击“目录和索引”一项。在“帮助主题”对话框的“目录” 一表中，双击“ Microsoft WordVisual Basic 参考”，然后再双击“ Visual Basic 参考”。“帮助主题”对话框会重新出现，显示出Microsoft Word Visual Basic 的目录和索引。 运用Application 对象 在用户启动一个Word 时段的同时，也创建了一个Application 对象。用户可以使用Application 对象的属性或方法来控制或返回应用程序范围内的特性、控制应用程序窗口的外观或者调整Word 对象模型的其他方面。可以使用Application 属性来返回Word Application 对象。以下的示例从视图状态切换到打印预览状态。 Application. PrintPreview = True Application 对象的一些属性控制着应用程序的外观。例如，如 果DisplayStatusBar 属性为True（真），那么状态栏是可见的，如果
《VB 程序设计》课后习题答案 第一章 习题参考答案 一、 填空题 1、对象 事件驱动 2、编译运行模式 解释运行模式 第二章 习题参考答案 一、选择题： 1-10、 DCACD BCBBC 11-20、BADCA BBAAB 21-29、AACBB CDDC 二、填空题 1． 窗体、控件 2． 属性值 3． 属性窗口设置、代码窗口设置 4． 事件过程 5． 对象名、下划线、事件名 6． Form_Click 第三章 习题参考答案 一、选择题 1、B 2、C 3、A 4、B 5、A 6、C 7、C 二、填空题 1、 11 字符型、字节型、整型、长整型、单精度型、双精度型、货币型、逻辑型、日期型、对象型、变体型。String 、Byte 、Integer 、Long 、Single 、Double 、Currency 、Boolean 、Date 、Object 、V ariant 2、 双引号(英文)、# 3、 ASCII 、1、2 4、 public 、通用、Dim 、Static 、Private 、Static 5、 &、+、+ 6、 Now()、Time 、日期型 三、解答题 1、(3) 2、(1 ) 3、（1）常量（关键字） （2）字符型常量 （3）逻辑型常量 （4）变量 （5）字符串常量 （6）变量 （7）字符串常量 （8）变量 （9）日期型常量 （题目应是#11/16/1999#） （10）数值型常量（单精度） 4、31 5、（1）(1+y/x)/(1-y/x) （2）x^3+3*x*y/(2-y) （3）sqr(abs(a*b-c^3)) （4）sqr(s*(s-a)*(s-b)*(s-c)) 6、 f e d c b a ++
第二章 一、问答题 1.叙述建立一个完整的应用程序的过程。 答：界面设计编写事件过程代码运行、调试保存文件 2.当建立好一个简单的应用程序后，假定该工程仅有一个窗体模块。问该工程涉及到几个文件要保存？若要保存该工程中的所有文件，正确的操作应先保存什么文件？再保存什么文件？若不这样做，系统会出现什么信息？ 答：涉及到两个文件要保存。先保存窗体文件（.frm），再保存工程文件（.vbp）。若先保存工程文件，系统也会先弹出“文件另存为”对话框，要求把窗体文件先保存。 3.假定在W indows环境中，要保存工程文件时，若不改变目录名，则系统默认的目录是什么？ 答：VB98 4．当标签框的大小由Caption属性的值进行扩展和缩小，应对该控件的什么属性进行何种设置？ 答：将标签的Autosize设置为True. 5．VB6.0提供的大量图形文件在哪个目录下？若你的计算机上没有安装，则怎样安装这些图形文件？ 答：VB6.0提供的图形文件在Graphics目录。 6．在VB6.0中，命令按钮的显示形式可以有标准和图形两种选择，这通过什么属性来设置？若选择图形的，则通过什么属性来装入图形？若已在规定的属性里装入了某个图形文件，但该命令按钮还是不能显示该图形，而显示的是Caption属性设置的文字，怎样改正？答：按钮Style的属性设置为Graphical（或1）。通过Picture属性来装入图形。不能显示图形是因为Style的属性设置为Standard（或0），只要改为Graphical（或1），一般还将Caption 属性的值设置为空。 7．标签和文本框的区别是什么？ 答：文本是否可编辑。 8．当窗体上有三个文本框和一个命令按钮，若程序运行时，需把焦点定位在第三个文本框处，应对何控件的什么属性进行何种设置？ 答：应对Text3控件进行Text3.TabIndex=0的设置。 9．简述文本框的change与keypress事件的区别。 答：文本框内容变化，change与keypress事件都会发生，所不同的是Keyprees还将返回一个Keyasii参数 10.当某文本框输入数据后（按了回车键），进行判断认为数据输入错，怎样删除原来数据？怎样使焦点回到该文本框重新输入？ 答：假定文本框的名称为Text1，则事件过程如下： Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then If 出错条件判断成立Then Text1＝””…先删除原来数据 Text1.SetFocus …焦点回到Text1 End If …… End If End Sub
VB轻松控制Word 今天，我们将制作一个能够控制Word文件的建立和打开的应用程序。我们可以在文本框中输入文件名，单击“新建”按钮即可新建一个Word文档，或者打开一个Word历史记录文件。程序运行结果如图1所示。 图1 运行结果 技术要点 ●添加Word库引用 ●建立Word对象 ●读取Word历史记录文件 实现过程 ■新建项目 打开Visual https://www.doczj.com/doc/db6637429.html,，选择“新建项目”，在项目类型窗口中选择“Visual Basic项目”，在模板窗口中选择“Windows应用程序”，在名称域中输入“ControlWord”，然后选择保存路径。单击“确认”。 ■添加引用和控件 选择菜单“项目|添加引用”，在弹出的“添加引用”对话框中选择COM选项卡，选中“Microsoft Word 10.0 Object Library”，单击“选择”按钮，即可将Word库加入到当前项目中。添加时的界面如图2所示。然后，给窗体上添加两个Label控件和两个Button控件，一个TextBox控件和一个ComboBox控件。
图2 添加Word引用 ■设置属性 对窗体上的控件设置属性，如表所示。 窗体及控件的属性值 ■添加代码 Public Sub New() MyBase.New() '程序启动时，添加Word历史记录文件 'This call is required by the Windows Form Designer. InitializeComponent() Dim i As Short Dim tempword As New Word.Application() For i = 1 To tempword.RecentFiles.Count ComboBox1.Items.Add(tempword.RecentFiles.Item(i).Name) Next 'ComboBox1.Text = ComboBox1.Items.IndexOf(ComboBox1).ToString 'combobox1.Items.GetTy tempword.Quit() 'Add any initialization after the InitializeComponent() call End Sub '打开word文件 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim b As New Word.Application() b.Documents.Open(ComboBox1.Text) b.Visible = True End Sub '新建word文件 Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim word As New Word.Application() word.NewDocument.Add(TextBox1.Text) word.Visible = True End Sub ■运行程序 单击菜单“调试|启动”或单击图标运行程序。 小结 本实例我们先引用了Word库，然后新建Word对象，这样就可以实现与Word的连接了。其余对象的引用类似。
https://www.doczj.com/doc/db6637429.html,操作WORD(VBA) https://www.doczj.com/doc/db6637429.html,操作WORD 1Public Class WordOpLib 2 3 4 Private oWordApplic As Word.ApplicationClass 5 Private oDocument As Word.Document 6 Private oRange As Word.Range 7 Private oShape As Word.Shape 8 Private oSelection As Word.Selection 9 10 11 Public Sub New() 12 '激活com word接口 13 oWordApplic = New Word.ApplicationClass 14 oWordApplic.Visible = False 15 16 End Sub 17 '设置选定文本 18 Public Sub SetRange(ByVal para As Integer) 19 oRange = oDocument.Paragraphs(para).Range 20 oRange.Select() 21 End Sub 22 Public Sub SetRange(ByVal para As Integer, ByVal sent As Integer) 23 oRange = oDocument.Paragraphs(para).Range.Sentences(sent) 24 oRange.Select() 25 End Sub 26 Public Sub SetRange(ByVal startpoint As Integer, ByVal endpoint As Integer, ByVal flag As Boolean) 27 If flag = True Then 28 oRange = oDocument.Range(startpoint, endpoint) 29 oRange.Select() 30 Else 31 32 End If 33 End Sub 34 35 '生成空的新文档 36 Public Sub NewDocument() 37 Dim missing = System.Reflection.Missing.Value 38 Dim isVisible As Boolean = True 39 oDocument = oWordApplic.Documents.Add(missing, missing, missing, missing) 40 oDocument.Activate() 41 End Sub
用VB如何在WORD指定位置上插入文字 在VB6.0中，操作word，使用它强大的查找、替换、删除、复制、翦切功能。还可以把特定字符替换成图片。有了它你就可以使用数据库中的内容或图片文件替换word文件中的特定字符。 只要把下列内容复制到写字板中，另存为SetWord.cls文件，然后在把它添加到工程中，就可以使用了。 VERSION 1.0 CLASS BEGIN MultiUse = -1 'True Persistable = 0 'NotPersistable DataBindingBehavior = 0 'vbNone DataSourceBehavior = 0 'vbNone MTSTransactionMode = 0 'NotAnMTSObject END Attribute VB_Name = "SetWord" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = True Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False Private mywdapp As Word.Application Private mysel As Object '属性值的模块变量 Private C_TemplateDoc As String Private C_newDoc As String Private C_PicFile As String Private C_ErrMsg As Integer Public Event HaveError() Attribute HaveError.VB_Description = "出错时激发此事件.出错代码为ErrMsg属性" '*************************************************** ************ 'ErrMsg代码：1－word没有安装2 - 缺少参数3 - 没权限写文件 ' 4 - 文件不存在 ' '*************************************************** ************
vb操作WORD大全 很多人都知道，用vb操作excel的表格非常简单，但是偏偏项目中碰到了VB操作word表格的部分，google、baidu搜爆了，都没有找到我需要的东西。到是搜索到了很多问这个问题的记录。 没办法，索性只有自己去尝试了。下面把一些代码发上来，给需要的朋友一点提示。 打开一个已经存在的wrod文件（这个文件包含了表格） Dim WordApp Dim Word Set WordApp = CreateObject("Word.Application") WordApp.Vi s ible = True Set Word = WordApp.Documents.Open("c:\record.dot") 知道了就很简单了，下面是选定某一个表格的一个单元格，并修改其内容 Word.Tables(1).cell(1, 2)="内容" VBA中的这些数组元素下标都是从1开始的，比如excel的第一行一列也是 ExSheet.Cells(1,1),而不是ExSheet.Cells（0,0）,WORD的表格也是这样，不信自己试一下就 知道了。所以上面那句话的意思就是对整个word文档中的第一个表格的第一行第二列的内 容改变为“内容”。很简单吧？网上有些人在问是不是 Word.Tables(1).cell(1, 2).range.text或者Word.Tables(1).cell(1, 2).text。试一下就发现这2种 都不对。 插入图片其实也很简单，代码如下： 说到这，肯定又有人会问怎么在一个word里插入一个表格。其实很简单： 如果你的程序里涉及到合并及拆分单元格，那么你可能试一下这段代码： dim Table set Table = w dApp.ActiveDocument.Tables.Add(wdApp.Application.Selection.Range, NumRow s:=27, NumColumn s _ :=7, DefaultTableBehavior:=w dWord9TableBehavior, AutoFitBehavior:= _ wdAutoFitFixed) Set mySelection = w dApp.Documents.Application.Selection mySelection.Cells.Borders(-7).LineStyle = 1 '选中表格的第2行第3列 table.Cell(2, 3).Select '向下移动6格，第1个参数和第3个是常数 Call w dBook.Application.Selection.MoveDow n(5, 6, 1) '合并
VB操纵EXCEL大全 2008-02-2611:07 范例一 Option Explicit Private Sub Command1_Click() Dim xlApp As Excel.Application Dim xlBook As Excel.Workbook Dim xlChar As New Excel.Chart Dim xlSheet As New Excel.Worksheet '建立需要的对象 Set xlApp=New Excel.Application Set xlApp=CreateObject("Excel.Application") Set xlBook=xlApp.Workbooks.Open("F:\BOOK1.xls") Set xlSheet=xlBook.Worksheets(1) '建立Chart对象 Set xlChar=xlApp.Charts.Add() xlChar.ChartType=xlLineMarkers Call xlChar.SetSourceData(xlSheet.Range("A1:E7"),xlColumns)'原数据 ActiveChart.Location Where:=xlLocationAsObject,Name:="Sheet1" ActiveChart.HasLegend=True ActiveChart.Legend.Select Selection.Position=xlRight '选中建立的ChartObjects对象 ActiveSheet.ChartObjects("图表1").Activate ActiveChart.PlotArea.Select ActiveChart.Legend.Select '删除退出(&X)菜单 Dim i As Integer For i=1To https://www.doczj.com/doc/db6637429.html,mandBars("File").Controls.Count Debug.Print https://www.doczj.com/doc/db6637429.html,mandBars("File").Controls(i).Caption If Left$(https://www.doczj.com/doc/db6637429.html,mandBars("File").Controls(i).Caption,2)="关闭" Then https://www.doczj.com/doc/db6637429.html,mandBars("File").Controls(i).Visible=False'Delete Exit For
如何：新建文档 创建新的 Microsoft Office Word 2003 文档时，将其添加到打开 Word 文档的Documents集合中。随后，Add方法会创建一个新的 Word 文档。这与在工具栏上单击“新建空白文档”按钮的效果相同。但是，由于是以编程的方式创建文档，因此该文档为本机Microsoft.Office.Interop.Word.Document 对象，并不具备Microsoft.Office.Tools.Word.Document宿主项增加的事件和数据绑定功能。不能以编程的方式将Microsoft.Office.Tools.Word.Document宿主项添加到项目中。有关更多信息，请参见宿主项和宿主控件的编程限制 创建基于 Normal.dot 的新文档 ?使用Documents集合的Add方法创建基于 Normal.dot 的新文档。 Visual Basic Me.Application.Documents.Add() C# this.Application.Documents.Add(ref missing, ref missing, ref missing, ref missing); 创建基于自定义模板的新文 Me.Application.Documents.Add(Template:="C:\Test\SampleTemplate.Dot") 如何：关闭文档 可以使用Close方法关闭Microsoft Office Word 2003 文档，并指定在关闭文档时是否保存文档。 文档可以是以下两种类型之一： ?宿主项。 Microsoft.Office.Tools.Word.Document宿主项在设计时创建。有关宿主项的更多信息，请参见宿主项和宿主控件概述。
《VB程序设计》课程练习题 上表中的题号所对应题目的题干： 1、叙述Visual Basic的特点。 2、当窗体上有三个文本框和一个命令按钮，若程序运行时，焦点定位在第三个文本框（Text3）处，应对何控件的什么属性进行何种设置？ 3、若要对窗体上的三个文本框输入数据，个控件焦点的移动可通过Tab键（系统本身具有的），也可通过回车键，则要对文本框的什么事件编程？ 4、当某文本框输入数据后（按了回车键），进行判断认为数据输入错，怎样删除原来数据？怎样使焦点回到文本框重新输入？ 5、怎样把关于Command命令按钮的Enabled属性的帮助示例代码复制到你的代码窗口？已知帮助中的代码如下： Private Sub Form_Load() Text1.Text = ””…消除文本框的内容 Command1.Caption = “Save”…在按钮上放置标题 End Sub Private Sub Text1_Change() If Text1.Text = “” Then …查看文本框是否为空 Command1.Enabled = False …使按钮无效 Else Command1.Enabled = True …使按钮有效 End If End Sub 6、当运行程序前，对某些控件设置属性值，除了在窗体中直接设置外，还可以通过代码设置，这些代码一般放在什么事件中？例如，程序要将命令按钮定位在窗体的中央，请写出事件过程。 7、在KeyPress事件中，如何取消用户刚键入的字符？
8、静态数组与动态数组的区别是什么？在声明静态数组、重定义动态数组时的下标都可以用变量来表示吗？ 9、函数过程和子过程的区别是什么？ 10、子过程调用有哪两种形式？ 11、什么是形参？什么是实参？什么是值引用？什么地址引用？地址引用时，对应的实参有没有限制？ 12、如果要时钟控件每半分钟发生一个Timer事件，则Interval属性应设置为多少？ 13、如果在KeyDown事件过程中将KeyCode设置为0，KeyPress的KeyAscii参数会不会受影响？如果输入的对象是文本框，那文本框的内容是否有影响？ 14、构造满足下列条件的Open语句。 （1）建立一个新的顺序文件SEQNEW.DA T，供用户写入数据，指定文件号为1。 （2）打开一个老的顺序文件SEQOLD.DA T，用户将从该文件读出数据，指定文件号为2。（3）打开一个老的顺序文件SEQAPPEND.DA T，用户将在该文件后面添加数据，文件号通过调用FreeFile函数获得。 15、请写出程序代码片段，将磁盘上的两个文件合并。（提示：把它们作为二进制文件打开） 16、PictureBox控件和Image控件有什么区别？ 17、Visual Basic可处理哪些格式的图形文件？ 18、在程序运行时怎样在图形（像）框中装入或删除图形？ 19、简述Printer对象与Printers集合对象的区别。 20、当要在ToolBar控件中添加一个按钮，如何实现？ 21、当要修改ToolBar控件某按钮的图像，如何实现？ 22、Visual Basic中记录集有几种类型？有何区别？