1.新建工程，界面如下图，将窗体名称改为f1，标题属性为“我的第一个工程”，Text2 允许多行，三个命令按钮名称分别为C1、C2、C3，单击C1 按钮将Text1 的字体改为黑体，Text2 的字体改为隶书。单击C2 按钮将Text1 的文字颜色改为红色，Text2 的背景颜色改为蓝色。单击C3 按钮结束程序运行。
Text1
Text2
Private Sub Command1_Click() Text1.Font = 黑体
End Sub
Private Sub Command2_Click() Text1.ForeColor = vbRed
Text2.ForeColor = vbBlue End Sub
Private Sub Command3_Click() End
End Sub
2.新建工程，界面如上图，运行时，鼠标在“改变窗体颜色”按钮上按下时使窗体背景色变为红色，鼠标抬起时使窗体背景色变为绿色。鼠标在窗体空白地方按下时使Text1 的内容为“在窗体上按下了鼠标”，鼠标抬起时使Text1 的内容为“在窗体上抬起了鼠标”。
Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Form1.BackColor = vbRed
End Sub
Private Sub Command1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Form1.BackColor = vbGreen
End Sub
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Text1.Text = "在窗体上按下了鼠标"
End Sub
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) Text1.Text = "在窗体上抬起了鼠标"
End Sub
3.新建工程，界面如下图，运行时，在文本框Text1 中输入内容的同时，在文本框Text2、Text3 中显示相同的内容，但字体不同（字体自定）。
Private Sub Command1_Click() Text1.Text = "" Text2.Text = "" Text3.Text = "" End Sub
Private Sub Command2_Click() End
End Sub
Private Sub Text1_Change() Text2.Text = Text1.Text Text3.Text = Text1.Text End Sub
注：“字体不同”可以在属性那调“Font”
4. 设计一个窗体，如上图所示。当单击某个命令按钮时，对文本框中的文字完成相应的设置。其中， 每单击一次“增大”或“缩小”按钮将使文本框中的文字增大或缩小 5 磅，“粗体”按钮将使文本框 中的文字加粗，“斜体”按钮将使文本框中的文字倾斜，“下划线”按钮将使文本框中的文字加下划线， “删除线”按钮将使文本框中的文字加删除线。
Private Sub Command1_Click() Text1.FontSize = Text1.FontSize + 5 End Sub
Private Sub Command2_Click() Text1.FontSize = Text1.FontSize - 5 End Sub
Private Sub Command3_Click() Text1.FontBold = True End Sub Private Sub Command4_Click() Text1.FontItalic = True End Sub
Private Sub Command5_Click() Text1.FontUnderline = True End Sub
Private Sub Command6_Click() Text1.FontStrikethru = True End Sub
5. 设计一个窗体，如下图所示。程序中将π定义成符号常量（用 Const ）,运行时，输入底面半径 r 和圆柱高 h ，然后单击“计算”命令按钮，在相应文本框中显示计算结果。运算结果为只读。
Private Sub Command1_Click() Const pi = 3.14 h = Val(Text1) r = Val(Text2)
Text3.Text = pi * r ^ 2 Text4.Text = 2 * pi * r * h Text5.Text = pi * r ^ 2 * h
End Sub
6. 设计界面如上图所示。单击“出题”按钮，产生任意两个【1，100】之间的随机整数于 Text1、
Text2
中，单击“计算”按钮，求两个数的和。运算结果为只读。
Private Sub Command1_Click() Text1.Text = Int(100 * Rnd + 1) Text2.Text = Int(100 * Rnd + 1) End Sub
Private Sub Command2_Click() a = Val(Text1.Text) b = Val(Text1.Text) Text3.Text = a + b End Sub
7. 设计一个数字钟表程序，界面如图所示。运行时单击窗体，显示当前的年月日星期及时间。Private Sub Form_Click()
Label2.Caption = Year(Now) Label4.Caption = Month(Now) Label6.Caption = Day(Now)
Label9.Caption = Weekday(Now) Label11.Caption = Time End Sub
8. 设计一个数学函数程序，界面如图所示。程序运行时，在文本框中输入任意数值，单击相应按钮
标签中显示结果。文本框始终处于选中状态。
Private Sub Command1_Click() Label3.Caption = Abs(Val(Text1)) Text1.SetFocus Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text) End Sub
Private Sub Command2_Click() Label3.Caption = Sqr(Val(Text1)) Text1.SetFocus Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text) End Sub
Private Sub Command3_Click() Label3.Caption = Fix(Val(Text1)) Text1.SetFocus
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text) End Sub
Private Sub Command4_Click() Label3.Caption = Int(Val(Text1)) Text1.SetFocus
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text) End Sub
Private Sub Command5_Click() Label3.Caption = Sgn(Val(Text1)) Text1.SetFocus
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text) End Sub
9.设计一工程，在文本框中输入一整数，单击“判断”按钮，判断能否同时被3、5、7 整除，若能用MsgBox 函数显示“能同时被3、5、7 整除”，否则显示“不能整除”。
Private Sub Command1_Click()
a = Val(Text1)
If a Mod 3 = 0 And a Mod 5 = 0 And a Mod 7 = 0 Then
MsgBox "能同时被3、5、7 整除"
Else
MsgBox "不能整除"
End If
End Sub
10.设计一个计算购书价钱的程序，界面如下图所示。为了提高运行速度，设置Tab 键序，使得输入完单价后，焦点定位到输入数量文本框中。单击“计算总价”或用访问键，算出总价。总价文本框要求为只读属性。完成相应功能。
Private Sub Command1_Click()
a = Val(Text1)
b = Val(Text2) Text3.Text = a * b End Sub Private Sub Command2_Click() End
End Sub
11.设计一工程，界面如上图所示。程序运行，单击“计算”，求出对应角度的三角函数的绝对值于文本框Text2 中，同时要求选中文本框Text1 内容，以便继续输入。
Private Sub Command1_Click()
a = Val(Text1)
b = a * 3.14 / 180
c = Abs(Sin(b))
d = Abs(Cos(b))
Text2.Text = Text2.Text & a & Space(10) & Format(c, "0.000") _
& Space(10) & Format(d, "0.000") & vbCrLf
Text1.SetFocus
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
End Sub
12.设计一个程序，用户界面如下图所示。程序运行后，单击“计算”，求出应付款额；单击“清除”，清除所有文本框内容。
Private Sub Command1_Click()
a = Val(Text1)
b = Val(Text2)
c = Val(Text3)
Text4.Text = a * b * c
End Sub Private Sub Command2_Click() Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
End Sub
13. 输入一个学生的学号和考试成绩，然后按如图格式在图片框中输出学号、考试成绩及评语，评语：
90~100 优秀；80~89 良好；70~79 中等；60~69 及格；0~59 不及格。
Private Sub Command1_Click() a = Val(Text2) Select Case a Case 90 To 100 h = " 优 秀 " Case 80 To 89 h = " 良 好 " Case 70 To 79 h = " 中 等 " Case 60 To 69
h = "及格" Case 0 To 59 h = "不及格" End Select Picture1.Print
Picture1.Print "学号：" & Text1.Text Picture1.Print
Picture1.Print "分数：" & a & Space(3) & h
End Sub
14. 设计一个窗体 Forml ，界面如上图所示。编写适当的事件过程，程序运行后在第一个文本框中输
入圆的半径，单击“计算”按钮，分别在第二个和第三个文本框中显示圆的面积和周长。 Private Sub Command1_Click() a = Val(Text1) Text2.Text = a ^ 2 * 3.14
Text3.Text = 2 * a * 3.14 End Sub
15. 设计一个程序，用户界面如下图所示。程序运行后，单击 Command1 按钮，求出最大、最小数。
Private Sub Command1_Click()
a = Val(Text1):
b = Val(Text2):
c = Val(Text3) If a < b Then t = a: a = b: b = t If a < c Then t = a: a = c: c = t If b < c Then t = b: b = c: c = t Text4.Text = a Text5.Text = c
End Sub
16.界面如下图所示。编写适当的事件过程，程序运行后在三个文本框中分别输入三角形的边长值，单击“判断并计算”按钮，判断它们是否能组成三角形，若能组成三角形在Text4 中显示三角形的面积，否则在Text4 中显示“FALSE”。
Private Sub Command1_Click()
a = Val(Text1):
b = Val(Text2):
c = Val(Text3)
If a + b < c Or a + c < b Or b + c < a Or Abs(a - b) > c Or Abs(a - c) > b Or Abs(b - c) > a Then Text4.Text = "FALSE"
Else
h = (a + b + c) / 2
s = Sqr(h * (h - a) * (h - b) * (h - c))
Text4.Text = Format(s, "0.00")
End If
End Sub
17.设计一个程序运行界面如下图所示，将输入的三个不同数，按从小到大的顺序排列。
Private Sub Command1_Click()
a = Val(Text1):
b = Val(Text2):
c = Val(Text3)
If a < b Then t = a: a = b: b = t
If a < c Then t = a: a = c: c = t
If b < c Then t = b: b = c: c = t
Text1.Text = c: Text2.Text = b: Text3.Text = a
End Sub
∑
18. 在窗体上画两个命令按钮分别求 11+22+33+44+……+n n 小于 100000 最大值和
20
n != 1!+2!+3!+ + 20! 的累加和并将结果输出到 Label1 和 Label2 中。
P r i n v =a 1t e Sub Command1_Click() n = 0: s = 0 Do n = n + 1 s = s + n ^ n
Label1.Caption = s
Loop Until s > 100000 End Sub Private Sub Command2_Click() s = 0
For i = 1 To 20 n = 1 For k = 1 To i n = n * k
Next k s = s + n Next i Label2.Caption = s End Sub 19. 在窗体上画两个文本框输入 a 和 n 的值（a 和 n 均为一位数字），单击命令按钮输出 Sn=a+aa+aaa+aaaa+…+aa …a （最后一项 n 个 a ，例如 3+33+333+3333）的值于标签中。 Private Sub Command1_Click() a = Text1.text
n = Val(Text2) Sn = 0 For i = 1 To n b = String(i, a)
Sn = Sn + Val(b) Next i Label1.Caption = Sn End Sub
20. 单击命令按钮将 3 到 200 之间的所有奇数显示在列表框中。 Private Sub Command1_Click() For i = 3 To 200 Step 2 List1.AddItem i
Next i End Sub 21. 在窗体上画一文本框用于输入 n 值，画两个命令按钮分别求下述表达式的值
S1= 4 ? (1 - 1 + 1 - + (-1)n +1
1
) 3
5
2n - 1
S2=1×3×5×7×…×(2n-1)并将 S1、S2 的结果输出到图片框。
Private Sub Command1_Click() n = Val(Text1) s = 0
For i = 1 To n
s = s + (-1) ^ (i + 1) / (2 * i - 1) Next i
S2 = 1
For i = 1 To n
S2 = S2 * (2 * n - 1) Next i
Picture1.Print 4 * s
Picture1.Print S2
22.在文本框T1 中打印100~999 之间的所有水仙花数。
（该数为各位数字的立方和。例如：153=1 3+5 3+3 3 ）
Private Sub Command1_Click()
For i = 100 To 999
a = Fix(i / 100)
b = Fix(i / 10) - a * 10
c = i - Fix(i / 10) * 10
If a ^ 3 + b ^ 3 + c ^ 3 = i Then T1.Text = T1.Text & i & vbCrLf
Next i
End Sub
23.有一数列，它的头2 个数为0、1，以后的每个数都是其前2 个数之和。编程在文本框T1 中输出所有这些数列，直到第30 个数或最后一项等于1000 为止，同时在另一文本框中输出它们的和。
Private Sub Command1_Click()
a = 0:
b = 1: s = 0
Text1.Text = a & vbCrLf & b & vbCrLf For i = 1 To 14
s = s + a + b
a = a + b
b = a + b
Text1.Text = Text1.Text & a & vbCrLf & b & vbCrLf
Next i
Text2.Text = s
End Sub
24.设计如下图所示界面，单击时输出相应结果，2~N 之间素数在列表框中输出，要求判断素数用过程实现。
Function h(a As Integer) As Boolean Dim m As Integer, s As Boolean
m = 0
For i = 2 To (a - 1)
If a Mod i = 0 Then m = m + 1 Next i
If m = 0 Then s = True Else s = False h = s
End Function
Private Sub Command1_Click() Dim a As Integer
a = Val(Text1) If h(a) = False Then
Text2.Text = "不是素数"
Else
Text2.Text = "是素数"
End If
End Sub
Private Sub Command2_Click() Dim i As Integer
a = Val(Text1)
For i = 2 To a
If h(i) = True Then List1.AddItem i
Next i
25.界面如上图，单击各按钮时输入行数，按此行数在窗体上显示不同的图形（参考教材练习6-15）。
Private Sub Command1_Click()
Cls
a = Val(InputBox("请输入行数"))
For i = 1 To a
Print Tab(i); String(a, "*")
Next i
End Sub
Private Sub Command2_Click()
Cls
a = Val(InputBox("请输入行数"))
For i = 1 To a
Print Tab(a - i + 1); String(2 * i - 1, "*") Next i
End Sub Private Sub Command3_Click()
Cls
a = Val(InputBox("请输入行数"))
For i = a To 1 Step -1
Print Tab(a - i + 1); String(2 * i - 1, "*") Next i
End Sub
Private Sub Command4_Click()
Cls
a = Val(InputBox("请输入行数"))
For i = a To 1 Step -1
Print Tab(a - i + 1); String(2 * i - 1, "*"); _ Space(3); String(2 * (a - i) + 1, "*")
Next i
End Sub
26.设计如下图所示界面，单击时输出N!和1!+2!+…+N!结果，要求N!用过程实现。
Function h(n As Integer) As Integer Dim s As Integer
s = 1
For i = 1 To n
s = s * i
Next i
h = s
End Function
Private Sub Command1_Click() Dim n As Integer n = Val(Text1)
Text2.Text = h(n)
End Sub
Private Sub Command2_Click() Dim n As Integer
m = Val(Text1)
s = 0
For n = 1 To m
s = s + h(n)
Next n
Text3.Text = s End Sub
27.编写一个程序，输出一个5*5 的矩阵，该矩阵主、负对角线上元素均为1，其余元素均为2，执行结果如上图所示。
Option Base 1
Dim A(5, 5) As Integer Private Sub Form_Click() For i = 1 To 5
For j = 1 To 5
A(i, j) = 2
If i = j Then A(i, j) = 1
If i + j = 6 Then A(i, j) = 1 Next j, i
For i = 1 To 5 CurrentY = i * 300 For j = 1 To 5
CurrentX = j * 300
Print A(i, j);
Next j, i
End Sub
28.界面如下图所示。分别在Textl 和Text2 中输入两个自然数x、y，用展转相除的方法求自然数x，y 的最大公约数和最小公倍数。在窗体上显示结果。
Dim a As Integer, b As Integer, x As Integer, y As Integer,r as Integer
Private Sub Command1_Click()
x = Val(Text1)
y = Val(Text2)
a = x:
b = y
r = x Mod y
Do While r <> 0
x = y
y = r
r = x Mod y
Loop
Label3.Caption = y
End Sub
Private Sub Command2_Click() Label4.Caption = a * b / y
End Sub
Text1
Text2
Label3
Label4
29.仿照25 题画四个命令按钮，单击各按钮在图片框上显示如下不同的数据图形。Private Sub Command1_Click()
For i = 1 To 6
For j = i To 1 Step -1
Print j;
Next j
Next i
End Sub
Private Sub Command2_Click()
For i = 6 To 1 Step -1
Print Space(18 - 3 * i);
For j = 1 To i
Print j;
Next j
Next i
End Sub
Private Sub Command3_Click()
For i = 1 To 6
Print Space(18 - 3 * i);
For j = i To 1 Step -1
Print 7 - j;
Next j
Next i
End Sub
Private Sub Command4_Click()
For i = 6 To 1 Step -1
For j = i To 1 Step -1
Print j;
Next j
Next i
End Sub
30. 设计一个窗体 Forml ，编写适当的事件过程。控制 Text1 中背景色和字体格式。(字体默认为宋体，
内容为“欢迎学习 VB ”)程序运行界面如图所示。
Private Sub Check1_Click() Text1.FontBold = True End Sub
Private Sub Check2_Click() Text1.FontItalic = True End Sub
Private Sub Check3_Click() Text1.FontUnderline = True End Sub
Private Sub Option1_Click() Text1.BackColor = vbRed End Sub
Private Sub Option2_Click() Text1.BackColor = vbYellow End Sub
Private Sub Option3_Click() Text1.BackColor = vbBlue End Sub
31. 利用两个列表框控件，设计选项移动窗体如上图。编写适当的事件过程实现功能要求。
Private Sub Command1_Click() If List1.ListCount = 0 Then
MsgBox "列表中没有可选的列", , "注意" Exit Sub
If List1.ListIndex >= 0 Then
For i = 0 To List1.ListCount – 1
End If
End Sub
Private Sub Command2_Click() For i = 0 To List1.ListCount - 1 List1.Selected(0) = True List2.AddItem List1.Text List1.RemoveItem 0 Next i End Sub
Private Sub Command4_Click() For i = 0 To List2.ListCount - 1 List2.Selected(0) = True List1.AddItem List2.Text List2.RemoveItem 0 Next i End Sub
32. 设计界面如下图所示，运行时，当移动滚动条时，在标签中能正确显示摄氏、华氏温度值(C=5（F-
32）/9)
Private Sub Form_Load() VScroll1.Min = 100 VScroll1.Max = 0
End Sub Private Sub VScroll1_Change()
Label2.Caption = VScroll1.Value
Label1.Caption = Format(VScroll1.Value * 9 / 5 + 32, "#.0") End Sub
33.设计上面界面，按“开始”按钮使标签在窗体上从左向右移动，当遇到窗体的右侧后，改成从右向左移动，按“停止”按钮停止标签移动。
Dim a As Integer
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub
Private Sub Command2_Click()
Timer1.Enabled = False
End Sub
Private Sub Timer1_Timer()
34.编写一个程序，实现在标签中自动依次显示“祝你”，“考试”，“成功”。
Dim a As Integer
Private Sub Timer1_Timer()
a = a + 1
b = a Mod 3 If b = 1 Then Label1.Caption = "祝你" If b = 2 Then Label1.Caption = "考试" If b = 0 Then Label1.Caption = "成功" End Sub
35.窗体上有一个名为L1 的列表框，通过属性向列表框添加3 个项目，分别是“123、456、789”。当启动后，每次双击列表框中任何一项，则总在最后添加一项，该项是所有项之和。界面如下图。
Private Sub L1_DblClick() Dim b As Double, s As Double a = Val(L1.ListCount) s = 0
For i = 0 To a End Sub
b = Val(L1.List(i)) s = s + b
Next i L1.AddItem s End Sub
36.设计如上界面，编写适当的事件过程。程序运行后，每过1 秒钟文本框的背景色能够由红到绿，绿到蓝，再由蓝到红循环变化。
Dim a As Integer
Private Sub Timer1_Timer()
a = a + 1
b = a Mod 3 If b = 1 Then Text1.BackColor = vbRed If b = 2 Then Text1.BackColor = vbGreen If b = 0 Then Text1.BackColor = vbBlue End Sub
37.单击第一个按钮，生成20 个[0,100]之间的随机整数，显示于文本框1 中，单击第二个按钮，求这20 个数中的最大数和最小数，显示于文本框2 中。
Option Base 1
Dim a(20) As Integer
Private Sub Command1_Click()
Text1.Text = ""
For i = 1 To 20
a(i) = Int(99 * Rnd - 0)
Text1.Text = Text1.Text & a(i) & vbCrLf Next i
For i = 1 To 19
For j = i + 1 To 20
If a(i) > a(j) Then
t = a(i)
a(i) = a(j)
a(j) = t
End If
Next j, i
Text2.Text = a(1) & Space(3) & a(20) End Sub
38.编写程序，单击第一个按钮，用随机函数产生4 行5 列的两位整数并输出到图片框1 中。单击第二个按钮，实现将第1 行和第3 行数据交换或第2 列和第4 列数据交换，输出到图片框2 中。
Dim A(1 To 4, 1 To 5) As Integer, B(1 To 4, 1 To 5) As Integer
Private Sub Command1_Click()
For i = 1 To 4
s1 = ""
For j = 1 To 5
A(i, j) = Int(91 * Rnd + 10)
s1 = s1 & Space(2) & A(i, j)
Next j
Picture1.Print s1 & vbCrLf
Next i
End Sub
Private Sub Command2_Click()
For i = 1 To 4
s1 = ""
For j = 1 To 5
If i Mod 2 <> 0 Then
c = 4 - i
B(i, j) = A(c, j)
s1 = s1 & Space(2) & B(i, j) Else
B(i, j) = A(i, j)
s1 = s1 & Space(2) & B(i, j)
End If
Next j
Picture2.Print s1 & vbCrLf Next i
End Sub
m 39. 利用 Function 计算 N ！，求组合数c n
=
m ! 。
n !(m - n )!
在文本框 1 中输入 n ，文本框 2 中输入 m ，单击命令按钮，在文本框 3 中显示组合结果。
Function A(h As Integer) As Integer Dim s As Integer, i As Integer s = 1
For i = 1 To h s = s * i Next i A = s
End Function
Private Sub Command1_Click() Dim m As Integer, n As Integer, p As Integer, k As Double
n = Val(Text1): m = Val(Text2): p = m - n x = A(m): y = A(n): z = A(p) k = x / (y * z) Text3.Text = k End Sub
40. 生成两个 0~10 之间的随机整数矩阵，分别放入两个列表框，求两个矩阵之和放入第三个列表框。
如下图所示。
Private Sub Form_Load() For i = 1 To 5 s1 = ""
For j = 1 To 5
a(i, j) = Int(Rnd * 11)
s1 = s1 & Format(a(i, j), "!@@@") Next j
List1.AddItem s1 & vbCrLf Next i
For i = 1 To 5 s1 = ""
For j = 1 To 5
b(i, j) = Int(Rnd * 11)
s1 = s1 & Format(b(i, j), "!@@@") Next j
List2.AddItem s1 & vbCrLf
Next i End Sub
Private Sub Command1_Click() For i = 1 To 5 s1 = ""
For j = 1 To 5
c(i, j) = a(i, j) + b(i, j)
s1 = s1 & Format(c(i, j), "!@@@") Next j
List3.AddItem s1 & vbCrLf Next i End Sub
Private Sub Command2_Click() End End Sub
41. 生成 10 个两位数的随机整数， 放入 A 数组， 单击显示按钮全部显示在文本框 1 中，单击排序
按钮由小到大排序，显示在文本框 2 中。（如上图）
Option Base 1
Dim A(10) As Integer
Private Sub Command1_Click()
For i = 1 To 10
A(i) = Int(91 * Rnd + 10)
Text1.Text = Text1.Text & A(i) & Space(1) Next i
End Sub
Private Sub Command2_Click()
For i = 1 To 9
For j = i + 1 To 10
If A(i) > A(j) Then
t = A(i)
A(i) = A(j)
A(j) = t
End If
Next j, i
For i = 1 To 10
Text2.Text = Text2.Text & A(i) & Space(1) Next i
End Sub
42.如下图，单击显示按钮，将20 个随机两位整数，输出在LIST1 中；单击排序按钮，将使用子过程降序排序的结果输出在LIST2 中。
Option Base 1
Dim A(10) As Integer
Private Sub Command1_Click() For i = 1 To 10
A(i) = Int(91 * Rnd + 10)
List1.AddItem A(i)
Next i
End Sub
Private Sub Command2_Click() For i = 1 To 9
For j = i + 1 To 10
If A(i) > A(j) Then t = A(i)
A(i) = A(j)
A(j) = t
End If
Next j, i
For i = 1 To 10 List2.AddItem A(i) Next i
End Sub
43.编写适当的事件过程,在窗体上输出相应行数的杨辉三角形。点击窗体弹出InputBox 对话框，在对话框中输入行数，打印出如上图所示形态的杨辉三角形。
Dim A() As Integer
Private Sub Form_Click()
Dim m As Integer, n As Integer
m = Val(InputBox("请输入行数")) n = m
ReDim A(m, n)
For i = 0 To m - 1
A(i, i) = 1
A(i, 0) = 1
Next i
Print Tab(3 * m - 1); 1
For i = 2 To n - 1
s = ""
For j = 1 To i - 1
A(i, j) = A(i - 1, j) + A(i - 1, j - 1)
s = s & Space(5) & A(i, j)
Next j
Print Tab(3 * (m - i)); A(i, 0) & s & Space(5) & A(i, i) Next i End Sub
44.编写程序，实现矩阵转置，即将一个n m 的矩阵（均由随机函数产生，并且是两位整数）的行和列互换。单击显示按钮将原矩阵放在图片框1，单击转置按钮将转置后的矩阵输出在图片框2。Option Base 1
Dim a(4, 5) As Integer, b(5, 4) As Integer Private Sub Command1_Click()
For i = 1 To 4
s = ""
For j = 1 To 5
a(i, j) = Int(91 * Rnd + 10)
s = s & Space(2) & a(i, j)
Next j
Picture1.Print s
Next i
End Sub Private Sub Command2_Click() For i = 1 To 5
s = ""
For j = 1 To 4
b(i, j) = a(j, i)
s = s & Space(2) & b(i, j) Next j
Picture2.Print s
Next i
End Sub
45.编写函数过程计算1+2+3+。。+n，运行时输入m，n，p 的值，单击“Y=”输出结果（保留三位
小数）。y =(1+ 2 + 3 +... +m) + (1+ 2 + 3 +... +n)
如上图所示。
(1+ 2 + 3 +... +p)
Function A(h As Integer) As Integer Dim s As Integer, i As Integer
s = 0
For i = 1 To h
s = s + i
Next i
A = s End Function
Private Sub Command1_Click()
Dim m As Integer, n As Integer, p As Integer, k As Double
m = Val(Text1): n = Val(Text2): p = Val(Text3)
x = A(m): y = A(n): z = A(p)
k = (x + y) / z
Text4.Text = k
End Sub
46.利用控件数组Text1、Text2 将Text1 中随机产生的数，交换到Text2 中，界面如下图所示。
Private Sub Form_Load()
For i = 0 To 5
Text1(i).Text = Int(91 * Rnd + 10)
Next i
End Sub
Private Sub Command1_Click()
For k = 0 To 5
Text2(k).Text = Text1(5 - k).Text
Next k
End Sub
47.在一工程中有两窗体，界面如图所示，试完成相应功能。
’这是标准模块的代码：
Public w As Integer
’这是Form1 的代码：
Private Sub Command1_Click()
n = Val(Text1)
Text2.Text = n ^ 3
End Sub
Private Sub Command2_Click()
Form2.Show
Unload Me
End Sub
’这是Form2 的代码：
Private Sub Form_Load()
Text1.Text = n
End Sub
Private Sub Command1_Click()
s = 1
For i = 1 To n
s = s * i
Next i
Text2.Text = s
End Sub
Private Sub Command2_Click()
Form1.Show
Unload Me
End Sub
48.在窗体放一个文本框和四个组合框，界面如下图所示，组合框1 和组合框2 的颜色包括：白、黑、红、绿、蓝、黄。组合框3 的对齐方式有左、中、右。组合框4 字体大小有10、12、14、18、20、22 磅，试完成相应功能。
Private Sub Combo1_Click() Select Case Combo1.ListIndex Case 0
Text1.ForeColor = vbWhite Case 1
Text1.ForeColor = vbBlack Case 2
Text1.ForeColor = vbRed Case 3
Text1.ForeColor = vbGreen Case 4
Text1.ForeColor = vbBlue Case 5
Text1.ForeColor = vbYellow End Select
End Sub
Private Sub Combo2_Click() Select Case Combo1.ListIndex Case 0
Text1.BackColor = vbWhite Case 1
Text1.BackColor = vbBlack Case 2
Text1.BackColor = vbRed Case 3
Text1.BackColor = vbGreen Case 4
Text1.BackColor = vbBlue Case 5
Text1.BackColor = vbYellow End Select
End Sub
Private Sub Combo3_Click() Select Case Combo3.ListIndex Case 0
Text1.Alignment = 0
Case 1
Text1.Alignment = 1
Case 2
Text1.Alignment = 2
End Select
End Sub
Private Sub Combo4_Click() Select Case Combo4.ListIndex Case 0
Text1.FontSize = 10
Case 1
Text1.FontSize = 12
Case 2
Text1.FontSize = 14
Case 3
Text1.FontSize = 18
Case 4
Text1.FontSize = 20
Case 5
在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"文档中启用修订。
数学公式编辑器有很多种类如word中的microsoft Equation。它在word中使用的确很方便，但是把它转到Indesign中还是比较困难，我在苹果屋的bbs上提出此问题，想看看谁有什么好的解决办法。还有象大名鼎鼎的MathType在苹果和pc上应用也很广泛，在我印象中它是最早在QuarkXPress上应用了数学公式插件。当然国内也有相当优秀的插件比如wps、北大方正早期的wits也就是现在它的升级软件飞腾以及蒙泰排版软件中都包含有数学公式编辑器。 至于MathMagic ,limac在使用说明里已有详细的功能介绍和使用方法，我就不多说了。下面我着重就讲一下在排版中数学公式的规范问题。如果排过这方面书籍或杂志的朋友肯定有切身体会，那就是因为排版格式的不规范，而造成多次返工。下文适用于自然科学类读物，包括数学、物理、化学以及生物，因为我手头没有权威的规范手册（不知道有没有这类的手册），参考了一些中小学教材和咨询了相关的一些教科老师整理的，不一定百分之百准确。 自然科学类读物中,各种符号、规定也极其具体、繁杂,这里仅列出一些最常用的外文符号的排版规则,作为排版人员的基本常识。由于这些内容在书中大量出现,编辑一般不加标注,排版者就应主动按规则排版。 1. 用正体的外文字母和符号 (1)三角函数符号 sin(正弦),cos(余弦),tg或tan(正切),ctg或cot(余切),sec(正割),sec或cosec(余割)。 (2)反三角函数符号 arcsin,arcos,arctg或arctan,arcctg或arccot,arccsc或arccosec。 (3)双曲函数会号 sh(双曲正弦),ch(双曲余弦),tg或tanh(双曲正切),cth或coth(双曲余切),sech(双曲正割),csch或cosech(双曲余割)。 (4)反双曲函数符号 arsh或arsinh,arch或arcosh,arth或artanh,arcth或arcoth,arsech,arcsch或arcosech。 (5)对数符号 log(通用对数),lg(常用对数),ln(自然对数)。 (6)公式中常用缩写字和常用符号 max(最大),min(最小值),lim(极限),Re(复数实部),Im(复数虚部),arg(复数的幅角),const(常数符号),mod(模数),sgn(符号函数)。 (7)公式中常用算符 Σ(连加),П(连乘),d(微分算子),Δ(注：这是差分符，而不是△)。 (8)罗马数字 (9)化学元素符号 单字母排大写;双字母前者大写,后者排小写。常用化学元素符号如Ag(银)。 (10)法定计量单位符号 如kg(公斤),m(米),mm(毫米),cm(厘米),m2(平方米),m3(立方米),L(升)等。 (11)温度符号 ℃(摄氏温度),(华氏温度),°K(绝对温度)。
第一章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操作中，遇到数学公式时，我们往往都要通过公式编辑器来录入，其实，除了公式编辑器以外，在Word中还有一个编辑公式的利器：域。有了这个工具，应付一般的数学公式编辑还是绰绰有余的。 一、分式的输入 如果用域来解决的话，那么分式的输入还是很简单的。比如我们要输入数字四分之三，只要在相应位置按下“Ctrl+F9”快捷键，就会产生一个空域（一对大括号）。将鼠标定位于大括号内，然后输入“eq \f(3,4)”，然后再点击右键，在弹出的菜单中点击“切换域代码”命令，就可以得到标准的分式四分之三了，如图1所示。其它的分式可以模仿来写，不用担心分式中的那条横线，它会根据分子、分母的长度自动调节长度的。需要注意的是，域代码必须在英文的半角状态下完成输入，此外，那对大括号不能手工输入，只能用快捷键来完成。 二、带根号的分式 先说一个单纯的三次根下二这样的数字输入吧。还是先按下“Ctrl+F9”快捷键，然后在大括号内输入域代码“eq \r(3, 2)”，选中代码中的数字“3”，将它的字号调小，然后按下右键菜单中的“切换域代码”命令，就可以得到数字三次根下二了，如图2所示。 显然，如果要得到二次方根，那么只要将代码中的数字“3”改成“2”就可以了。不过，通常我们的习惯是二次方根的数字“2”是忽略不写的，所以，域代码中的第一个数字我们也可以直接略掉的，直接写代码“eq \r(, 2)”就行。 至于带根号的分式，那就简单了。只要把分式和根式的代码结合起来，在相应的位置改换一下就可以了。因此二分之三次根下二这样的数字，其域代码应该是“eq \f(\r(3,2),2)”。按下“切换域代码”后，得到的效果还可以吧？看图2就知道了。 三、输入向量符号 向量符号是在英文字母的上方加一个箭头符号。用域功能也可以很容易实现这个要求。 在大括号中输入域代码“eq \o(→,a)”，其中，箭头符号可以使用“插入→符号”的方法来
基本要求：需安装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; " 替换。" '提示总替换次数 '如果替换成功，则提示是否保存
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
Word公式编辑器的使用方法 一. 公式编辑器的安装方法二. 打开公式编辑器窗口的方法 1.打开编辑器新窗口的方法 2 激活Word文档中公式的方法 三. 公式编辑器的工具 四. 用公式编辑器创建公式的基本方法 1.创建常见公式的基本方法举例 2.创建多行公式的方法举例 3.创建矩阵公式的基本方法举例 4.利用矩阵模板创建多行公式的方法 五．公式编辑器的基本操作方法 1.插入点的置入方法 2.公式中各个元素的选定方法 3.公式中各个元素的删除方法 4. 公式的复制方法 六．公式各元素的调整和修饰方法 1. 字符大小的设置和调整方法 2. 字符格式的设置和调整方法 3. 公式中各元素微位移的方法 4. 公式中各元素间距的调整方法
5. 给公式编号的方法 6. 公式的修饰方法 7. 公式行间距离的调整方法 (正文) 工程技术人员在编写文章时，经常需要输入公式。公式里的符号都是物理量的符号和数学符号。根据国际标准（ISO 31和ISO 1000）和国家标准(GB 3100)的规定，物理量的符号必须用斜体字；单位的符号必须用正体字。至于数学符号，哪些用正体，哪些用斜体,在相应的国际和国家标准中都有严格的规定。例如，当你将电压的符号不用U或V，而是用Y 时，就相当写了错字；如果把电压符号不用斜体，而用正体，就相当你写了白字。同样，如果把函数符号写成斜体或把小写字写成大写字，同样是错误的。因此，当编写公式时，就必须遵守这些规定，绝对不允许自行设定。使用Office软件提供的公式编辑器编写出来的公式都能满足这些要求，但是，有相当的内容还是需要人工掌控。 在Word 2003中使用的“公式编辑器”实际是Design Science 公司授权给微软的MathType的简化版本，二者并不兼容。但是，Word版的“公式编辑器”已经能满足一般需要，因此，本文主要是介绍这种“公式编辑器”的使用方法。 一. 公式编辑器的安装方法
Word文字处理软件练习题 一、选择题 1、在Word 2010文字编辑中，不能实现的功能是（）。 A. 把文档的标题文字设置成不同的颜色 B. 把选定的英文单词翻译成相应的中文词 C. 打开一个低版本的文档 D. 把当前文档保存成一个低版本的文档 2、在Word中，打开文档是指（）。 A. 为指定的文档创建一个空白文档窗口 B. 为指定的文档开辟一块硬盘空间 C. 把文档的内容从内存中读出并且显示出来 D. 将指定的文档从硬盘调入内存并且显示出来 3、在Word的文档编辑中，如果选定的文字块中含有几种不同字号的汉字，则在工具栏的“字号”下拉列 表中，显示出的字号是（）。 A. 选定文字块中的第一个汉字的字号 B. 选定文字块中最后一个汉字的字号 C. 文字块中使用最多的字号 D. 空白 4、启动Word有多种方式，在下列给出的几种方式： （1）在桌面上双击Word快捷方式图标 （2）在“快速启动”栏中单击Word快捷方式图标 （3）在“开始”菜单的“所有程序”级联菜单中单击Word程序名 （4）通过“开始”菜单的“搜索程序和文件”找到Word应用程序后，单击该程序图标 正确的说法是（） A. 只有（1）是正确的 B. 只有（2）、（3）是正确的 C. 只有（2）、（3）、（4）是正确的 D.（1），（2）、（3）、（4）都正确 5、在Word中，要把整个文档中的所有“电脑”一词修改成“计算机”一词，可能使用的功能是（）。 A. 替换 B. 查找 C. 自动替换 D. 改写 6、Word的主要功能是（）。 A. 文档的编译 B. 文档的编辑排版 C. 文档的输入输出 D. 文档的校对检查 7、在Word的“页面设置”对话框中，不能设置的选项为（）。 A. 字体 B. 页边距 C. 纸张方向 D. 纸张大小 8、在Word 2010中，要在文档中加入页眉，页脚，应该使用（）选项卡中的相关命令按钮。 A. “插入” B. “开始” C. “页面布局” D. “文件” 9、在Word中输入文本时，当输入满一行时会自动换到下一行，这样的换行是插入了一个（）。 A. 硬回车符 B. 分页符 C. 分节符 D. 软回车符 10、在Word 2010中，在“字体”对话框的“高级”选项卡中不能实现的功能是（） A.缩放 B. 间距 C. 位置 D. 字形 11、在Word中，能将剪贴板上的内容拷贝到“插入点”处的操作是（） A. 单击“开始”选项卡中的“剪切”按钮 B. 单击“开始”选项卡中“复制”按钮 C. 单击“开始”选项卡中“替换”命令 D. 按Ctrl＋V键 12、在Word 的“字体”对话框中，不能设置的字符格式是（） A. 上标 B. 加下划线 C. 字符间距 D. 首行缩进 13、下面哪种方法可以选择一个矩形的文字块( )。 A. 按住Ctrl键，再按下鼠标左键，并拖动到矩形字块的右下角 B. 不能一次选定，只能分步来选 C. 按住Alt键，再按下鼠标左键，并拖动到矩形字块的右下角 D. 按住Shift键，再按下鼠标左键，并推动到进行字块的右下角 14、在Word主窗口中，要给一段选定的文本加上边框，应从（）选项卡中选择“边框和底纹”命令。 A. “插入” B. “视图” C. “开始” D. “文件” 15、在编辑Word文档中，“Ctrl+A”表示( )。
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（表达式）双精度
Word公式编辑器常见问题的解决办法 关于公式编辑器的使用在很多书刊和杂志上都有介绍，但在日常使用过程中，还有一些问题经常出现，比如说：输入数学公式后行距不等、不能更改公式的颜色、打印时经常出现乱码等。针对上面提到的各种问题，我们来看一下具体的解决办法。 这么做工具栏里面有mathtype按钮，但是还是没有mathtype菜单项：你在word的菜单：工具→模板和加载项→模板→共用模板及加载项→所选项目当前已经加载，下面的列表框中， MathTypy Command 6 for Word.dot 这个模板是否加载，如果没有加载，添加给模板即可MathType显示菜单重装电脑后，Windows的word的使用有点不正常，算是小问题啦。Backspace 键不能删将所选内容删除，相应的覆盖的功能也没有了。每次都需要用delete键，一点都不习惯。但想想，反正我用Windows的时间也不多，也就懒得理了，将就着用吧。 今天要复习，过程中不得不用word就进了Windows.还是不习惯没有Backspace 的word,就到网上搜了一下。解决方案如下：单击菜单栏中：工具----选项----编辑，然后将“键入内容替换所选内容”前的框打钩，按确定即可。 咳，虽然使用电脑、使用word的那么多年了，可是，连个word都不会用，惭愧呀... 一、解决插入公式后的行距不等问题 大家在Word文档中某一行使用公式编辑器输入数学公式后，发现行距明显变大，就好像公式把这一行和其它行给撑开了一样，使用改变行距的命令也不行。解决它有两种方法： 1.将点击要修改的数学公式，当光标变成“双箭头”时，通过拖动把它缩小。这种方法，适合于只含有极少量的数学公式时使用。并且拖动的精确度不高。 2.点击“文件”下拉菜单，点击“页面设置”项。在“文档网格”中的“网格”项，勾选“无网格”项(如图1)。这样就很好的解决了行距不同的问题。极力向大家推荐这种解决方法。
导语： 数学公式种类繁多，在我们编写公式文档的时候，遇到特殊符号却不知道如何输入。为了快速打出各种公式，我们还是需要运用专业的公式编辑器。下面小编以亿图在线公式编辑器软件为例，给大家介绍一下具体的编辑技巧，让只会打字的你也会用这款公式编辑器软件。 亿图公式编辑器是一款无需下载即可在线使用的公式编辑软件。跟Word自带的编辑器不同的是，这款工具包含了我们常用的符号和一些特殊符号，并做好分类模块，使得我们查找字符的时候很方便。当然，最重要的是它可以实现公式的云储存功能，把编辑不错的公式分类保存，方便二次编辑和使用。 下面给大家展示一下世界十大公式之一：麦克斯韦方程组 免费下载公式编辑器：https://https://www.doczj.com/doc/561436483.html,/ 如何用亿图公式编辑器云储存公式 使用公式编辑器的云存储功能之前，首先需要注册一个账号，然后登录账号即可开始自定义“我的公式”。
1.汉字部分可直接进行输入，在论文写作时可以降低文章的重复率，可以说是论文写作的好帮手。 2.找到对应的数字符号，模块里面都做好了分类。在“顶线模板”里找到箭头向右的向量符号，再输入相应的英文字符。在“关系和运算符符号”里面找到倒三角符号选中插入即可。
3.然后把觉得自己写的不错的公式进行保存，点击右上角我的公式，再点击加号，修改好名称并确认，编辑好的公式就会出现在列表下方。 以上介绍了亿图公式编辑器的云储存功能，希望对大家有所帮助。事实上为了帮助我们编写公式更加方便，这款软件还包含了大中小数学常用模板，相信它贴心的设计可以在我们编写公式文档时迅速上手，节省更多的时间。如果你也在为繁琐的公式编辑而烦恼，那么就用在线亿图公式编辑器软件来帮助你提升工作效率。 在线版公式编辑器：https://https://www.doczj.com/doc/561436483.html,/index.html
1、公式编辑器的启动与退出 工具/自定义/键盘/插入/InsertEquation，把指针放在“请按新快捷键”下的空行内，按 “Ctrl+Enter”（当然也可以用别的快捷键，不过这个最易操作），再顺次点击“指定”、“关闭”、“关闭”。以后在WORD中直接用按“Ctrl+Enter”即可启动公式编辑器，退出公式编辑器时，按Esc即可。 （2）公式编辑器中最常用的几个快捷键 Ctrl+H：上标；Crtl+L：下标；Ctrl+J：上下标；Crtl+R：根号；Ctrl+F：分号。 （3）在公式编辑器中通用的几个快捷键 Ctrl+A：全选；Ctrl+X：剪切；Ctrl+C：复制；Ctrl+V：粘贴；Ctrl+B：加黑；Ctrl+S：保存；Shift+方向键：局部选择。 （4）有时上下标为汉字，则显得很小，看不清楚，可以对设置进行如下改变，操作为“尺寸/定义”，在出现的对话框中将上下标设为8磅。 （5）如果word正文选用五号字，则将公式编辑器中“尺寸/定义”对话框中的“标准”定为11磅最为适宜。 （6）在输入法的全角状态下，可以输入空格，半角状态下则不可以。 （7）在“样式/定义”中可以对文字进行加黑或倾斜等设置。 （8）在公式编辑中，一些特殊符号无法直接输入（如①、★、≌、∽、⊙等），可先在word正文中插入某个特殊符号，再通过“复制、粘贴”的方法将它移植到公式中。 (9)应用样式时可以用鼠标来切换，也可以用键盘快速指定： 数学Ctrl+Shift+=；文字Ctrl+Shift+E； 函数Ctrl+Shift+F；变量Ctrl+Shift+I； 希腊字母Ctrl+Shift+G； 矩阵向量Ctrl+Shift+B； 如果排版公式时出现安装界面，这是因为没有安装公式编辑器的缘故，因为在第一次安装Office时，默认安装是没有安装公式编辑器的，用户可以使用自定义安装的办法，只需在 安装到选择安装功能时的界面中，单击Microsoft Word for Windows前面的“+”号，然后再在展开的选项中选择“Office工具”，然后再选择“公式编辑器”项。
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（真），那么状态栏是可见的，如果
导语： 作为一个理工科专业的学生，在做题和撰写论文中在所难免应用一些数学公式或符号。一般自带的编辑器在遇到公式较多时，没法快速找出对应的符号或者模板，特别是公式中符号较为特殊时，要找到对应符号需要翻查很长时间，更增加了输入的繁琐。下面小编给大家推荐一款比较强大的亿图公式编辑器（EdrawMath），轻松地帮你编辑带公式的文档。 免费下载公式编辑器：https://https://www.doczj.com/doc/561436483.html,/ EdrawMath是一款好用的在线公式编辑器，是理科生备选的工具。不仅因为它强大的实用性，而且有市面上其他公式编辑器难以替代的强大功能。今天跟大家聊一聊选择EdrawMath数学公式编辑器这款软件的N个理由。 一、强大的数学公式编辑能力 强大的公式编辑能力，无需下载软件，在线即可编辑各种数学公式。简洁的页面，带你体验舒适的交互。
二、涵盖大中小学数学常用公式 提供大中小学常用数学公式，一键切换、方便快速输入节省时间。具体有：代数、微积分、函数、矩阵、集合、三角、几何等。其中包含大学的公式，代数、微积分、无穷级数、概率论、线性代数等具体的模板公式，可以访问亿图公式编辑器内详细了解。利用现有的模板，方便大家快速进行编辑。
三、无缝兼容 支持多种导出格式：支持另存为*.png、*.mml、*.latex等多种通用格式，方便存储。并支持多种主流格式导入：支持打开*.mml、*.latex等公式格式，方便大家进 行二次编辑。 四、公式收藏功能 当大家编辑完成一个自己满意的数学公式后，可以在线保存到我的公式，方便下次使用。即使更换电脑，只要登录账号，也可以应用这些已收藏的公式。
如何在word中编写数学公式 在我们编辑技术文档时，常常会用到许多数学公式，用通常的方法在Word文章中插入数学公式要经历如下数步：点击“插入/对象”命令；打开“对象”对话框，选择“新建”标签；在“对象类型”列表框中选择“MicrosoftEqution3.0”，再点对话框中的“确定”按钮才能打开公式编辑器。经常这样编辑公式操作很费时，很累，通过参考一些文献，自己摸索，终于找到了一种简便的方法，现在拿出来，希望您能摆脱编辑公式对您的困扰。 我们的最终目的就是要把公式编辑器变成Word工具栏上的一个按钮，从而大大简化此类操作。具体方法如下： 单击菜单“工具/自定义”命令，打开“自定义”对话框；选择对话框的“工具栏”标签，再单击对话框左边的“新建”按钮打开“新建工具栏”对话框；在对话框的“工具栏名称”文本框内输入一个自定的名字(如“公式”)，并在“工具栏有效范围”下拉列表框中点选“Normal”(通用模板)，再点“确定”关闭“新建工具栏”对话框。就建立了一个名为“公式”的自定义工具栏，“公式”工具栏按钮就显示在屏幕上。你可以将其插到Word工具栏上你认为合适的位置。 在“自定义”对话框中打开“命令”标签，在“类别”列表框中选择“插入”；在“命令”列表框中选择“公式编辑器”；“公式编辑器”被蓝条包围，将它拖至刚建立的“公式”工具栏按钮内。 至此，公式编辑工具按钮就已做成，如果想使该按钮显示的名称更直观，你可进一步修改它的显示名称。即在“自定义”对话框的“命令”标签下，再选中自定义的“公式”工具按钮；这时就使“自定义”对话框的“更改所选内容”按钮有效，点击它会出现子菜单；将子菜单中的“命名”文本框的内容改为“公式编辑器”，并点选子菜单中的“总是只用文字”，最后点击窗口内的“关闭”按钮。 这时，Word工具栏上就有了一个显示为“公式编辑器”的工具按钮，今后要编写公式只需点击此按钮即可。 巧用Word域，快速输入数学公式 很多数学老师想自己出些让学生练习，可有些公式要利用“公式编辑器”，这样给操作带来了很多不便。其实只要巧用word里面的域，更有利于排版，有着“公式编辑器”无法比拟的独到之到。 域是word中的一种特殊命令，它由花括号、域代码及选项开关组成。域代码类似于公式，域选项开关是word中的一种特殊格式指令，在域中可触特定的打操作。如： Ctrl+F9组合键：快速插入域定义符“{}”。 Ctrl+F11组合键：锁定某个域，以防止修改当前的域。 Ctrl+Shift+F11组合键：解除锁定，以便对域进行更改。 Ctrl+Shift+F9组合键：解除域的链接，当前的域变为常规文本，失去域的所有功能。 Shift+F9组合键：显示或者隐藏指定的域代码。 Alt+F9组合键：显示或者隐藏文档中所有域代码。 F9：更改某个域。 实例一：输入分数 例如输入。按Ctrl+F9组合键，插入域定义符“{}”（注意：这个花括号不能用键盘输入），然后在“{}”中输入表示公式的字符串“EQ \f(a,b)”，其中a表示分子，b表示分母。如“EQ \f(1,2)”，然后在其上单击右键，在弹出快捷菜单中选择“切换代码”选项，就会产生域结果。对于带分数，只需在真分数“”前面输入整数部分“1”就变成了带分数1。
VB轻松控制Word 今天，我们将制作一个能够控制Word文件的建立和打开的应用程序。我们可以在文本框中输入文件名，单击“新建”按钮即可新建一个Word文档，或者打开一个Word历史记录文件。程序运行结果如图1所示。 图1 运行结果 技术要点 ●添加Word库引用 ●建立Word对象 ●读取Word历史记录文件 实现过程 ■新建项目 打开Visual https://www.doczj.com/doc/561436483.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的连接了。其余对象的引用类似。