vb实例 甄选

vb实例 （优选.)

rd

实验报告1略。 实验报告2：

实验题目1：设计窗体。参考界面如下：

运行前 运行后 要求：

1） 在窗体上添加一个标签，通过属性窗囗设置标签格式：

Caption：字体格式 Alignment：2—Center（居中） BorderStyle：1—Fixed Single（有边框） Backstyle：0—Tansparent（背景透明）

2） 运行时，单击“字号”，将标签内容的字号设置为

30；单击“加粗”，将标签内容加粗；单击“下划线”则在标签内容下加下划线。

提示：字号FontSize、加粗FontBold、下划线FontUnderline 实验题目1源程序代码： Private Sub Command1_Click() Label1.FontSize = 30 End Sub

Private Sub Command2_Click() Label1.FontBold = true End Sub

1 / 32doc格式 可编辑

，

精品word.仅供参考

Private Sub Command3_Click() Label1.FontUnderline = True End Sub

实验题目2：设计一个计算器。参考界面如下：

要求：

1）实现算术运算（+、-、*、/）的功能； 2）实现清除和结束的功能；

3）实现清除后，将焦点移到第一个文本框中。 实验题目2源程序代码： Private Sub Command1_Click()

Text3.Text = Val(Text1.Text) + Val(Text2.Text) End Sub

Private Sub Command2_Click()

Text3.Text = Val(Text1.Text) - Val(Text2.Text) End Sub

Private Sub Command3_Click()

Text3.Text = Val(Text1.Text) * Val(Text2.Text) End Sub

2 / 32doc格式 可编辑

精品word.仅供参考

Private Sub Command4_Click()

Text3.Text = Val(Text1.Text) / Val(Text2.Text) End Sub

实验题目3：设计一个能够统计某学生三门课程成绩总分和平均分的程序。参考界面如下：

要求：没有计算出总分前，计算均分的命令按钮不可用，计算出总分后，计算均分的命令按钮才可用。 说明：设计时先将计算均分的命令按钮的Enabled属性设置为false。 实验题目3源程序代码： Private Sub Command1_Click()

Text4.Text = Val(Text1.Text) + Val(Text2.Text) + Val(Text3.Text) Command2.Enabled = True End Sub

Private Sub Command2_Click() Text5.Text = Val(Text4.Text) / 3 End Sub

Private Sub Command3_Click() Text1.Text = \"\" Text2.Text = \"\" Text3.Text = \"\" Text4.Text = \"\" Text5.Text = \"\"

3 / 32doc格式 可编辑

精品word.仅供参考

End Sub

实验题目4：设计界面，编写程序计算圆的周长和面积。参考界面如下：

要求：

①设置窗体的标题为“计算圆的周长和面积”。

②“计算”命令按钮的功能：定义变量和符号常量，计算出圆的周长和面积。

③“清除”命令按钮的功能：将三个文本框的内容清除，并将焦点移到第一个文本框中。 ④“退出”命令按钮的功能：程序运行结束。 实验题目4源程序代码： Private Sub Command1_Click() Dim r As Double, s As Double Const pi = 3.1415926 r = Val(Text1.Text) s = pi * r * r c = 2 * pi * r Text2.Text = Str(c) Text3.Text = Str(s) End Sub

Private Sub Command2_Click() Text1.Text = \"\" Text2.Text = \"\" Text3.Text = \"\"

4 / 32doc格式 可编辑

精品word.仅供参考

Text1.SetFocus End Sub

实验题目5：设计界面，编写程序验证算术运算符的功能。参考界面如下：

要求：

①设置窗体的标题为“验证算术运算符”。

②“计算”命令按钮的功能：计算两个数的除、整除和取余。

③“清除”命令按钮的功能：将五个文本框的内容清除，并将焦点移到第一个文本框中。 ④“退出”命令按钮的功能：程序运行结束。 实验题目5源程序代码： Private Sub Command1_Click()

Text3.Text = Val(Text1.Text) / Val(Text2.Text) Text4.Text = Val(Text1.Text) \\ Val(Text2.Text) Text5.Text = Val(Text1.Text) Mod Val(Text2.Text) End Sub

Private Sub Command2_Click() Text1.Text = \"\" Text2.Text = \"\" Text3.Text = \"\" Text4.Text = \"\" Text5.Text = \"\" End Sub

5 / 32doc格式 可编辑

精品word.仅供参考

Private Sub Command3_Click() End End Sub

实验题目6：设计界面，编写程序分离出一个三位数的个位、十位、百位上的数字。参考界面如下：

要求：

①设置窗体的标题为“分离三位数”。

②“分离”命令按钮的功能：分离出一个三位数的个位、十位、百位上的数字。

③“清除”命令按钮的功能：将四个文本框的内容清除，并将焦点移到第一个文本框中。 ④“退出”命令按钮的功能：程序运行结束。 实验题目6源程序代码： Private Sub Command1_Click() Dim a As Integer a = Val(Text1.Text) Text4.Text = Str(a \\ 100)

Text3.Text = Str((a Mod 100) \\ 10) Text2.Text = Str(a Mod 10) End Sub

Private Sub Command2_Click() Text1.Text = \"\" Text2.Text = \"\" Text3.Text = \"\"

6 / 32doc格式 可编辑

精品word.仅供参考

Text4.Text = \"\" Text1.SetFocus End Sub

Private Sub Command3_Click() End End Sub

实验题目7：输入一个三位数，将它按逆序输出。参考界面如下：

要求此题用两种解法：

第一种解法：将文本框中的数据按字符型数据进行处理，用函数实现；

第二种解法：将文本框中的数据按数值型数据进行处理，用算术表达式实现（利用mod、\\、*、+等运算符）。 实验题目7源程序代码： 第一种解法：

Private Sub Command1_Click()

Dim a As String, b As String, c As String, d As String a = Trim(Text1.Text) b = Left(a, 1) c = Mid(a, 2, 1) d = Right(a, 1)

Text2.Text = d & c & b End Sub

7 / 32doc格式 可编辑

精品word.仅供参考

Private Sub Command2_Click() Text1.Text = \"\" Text2.Text = \"\" End Sub

第二种解法：

Private Sub Command1_Click()

Dim a As Integer, b As Integer, c As Integer, d As Integer a = Val(Text1.Text) b = a \\ 100

c = (a Mod 100) \\ 10 d = a Mod 10

Text2.Text = Str(d * 100 + c * 10 + b) End Sub

Private Sub Command2_Click() Text1.Text = \"\" Text2.Text = \"\" End Sub

实验题目8：输入两个数，将这两个数交换。

要求：不允许使用第三个文本框，可以借助一个中间变量。 实验题目8源程序代码： Private Sub Command1_Click()

Dim a As Integer, b As Integer, c As Integer a = Val(Text1.Text) b = Val(Text2.Text)

8 / 32doc格式 可编辑

精品word.仅供参考

c = a a = b b = c

Text1.Text = Str(a) Text2.Text = Str(b) End Sub

实验题目9：设计文本编辑窗体。

复制按钮的功能： 移动按钮的功能：

提示：文本框的SelText属性表示选定的内容。 要求：文本框可以多行输入。

说明：设计时先将文本框的multiline属性设置为true。 实验题目9源程序代码： Private Sub Command1_Click() Text2.Text = Text1.SelText End Sub

9 / 32doc格式 可编辑

精品word.仅供参考

Private Sub Command2_Click() Text2.Text = Text1.SelText Text1.SelText = \"\" End Sub

Private Sub Command3_Click() Text1.Text = \"\" Text2.Text = \"\" End Sub

Private Sub Command4_Click() End End Sub 实验报告3：

实验题目1：编写程序计算某个学生三门课程的平均成绩。

要求：

（1）单击“计算”命令按钮，输入学生的成绩并在文本框中显示该学生的平均分。（调用三次inputbox函数输入三门课程的成绩，并用三个内存变量保存成绩）

提示：如a表示一门课程的成绩，则调用inputbox函数输入为：a=val(inputbox(\"请输入第一门课的成绩\"))

（2）单击“结束”命令按钮结束程序运行。 界面如下：

实验题目1源程序代码：

10 / 32doc格式 可编辑

精品word.仅供参考

Private Sub Command1_Click()

Dim a As Integer, b As Integer, c As Integer, d As Integer a = Val(InputBox(\"请输入第一门成绩\")) b = Val(InputBox(\"请输入第二门成绩\")) c = Val(InputBox(\"请输入第三门成绩\")) d = (a + b + c) / 3 Text1.Text = d End Sub

实验题目2：编写程序计算长方体的体积。

要求：

（1）单击“计算”命令按钮，输入长方体的长、宽和高（调用三次inputbox函数输入，并用三个内存变量保存），计算出长方体的体积后通过输出对话框输出（调用MsgBox函数，输出框的标题为“计算长方体的面积”。）输出对话框参考界面如下：

（2）单击“结束”命令按钮结束程序运行。 实验题目2源程序代码： Private Sub Command1_Click()

Dim a As Integer, b As Integer, c As Integer, v As Integer a = Val(InputBox(\"请输入长方体的长\")) b = Val(InputBox(\"请输入长方体的宽\")) c = Val(InputBox(\"请输入长方体的高\")) v = a * b * c

MsgBox \"长方体的体积为：\" & v, , \"计算长方形的体积\" End Sub

11 / 32doc格式 可编辑

精品word.仅供参考

Private Sub Command2_Click() end End Sub 实验报告4：

实验题目1：编写程序求出四个数中的最小数。 实验题目1源程序代码： Private Sub Command1_Click() Dim a!, b!, c!, d!, min! a = Val(Text1) b = Val(Text2) c = Val(Text3) d = Val(Text4) min = a

If b Label1 = \"最小的数是：\" & min End Sub

实验题目2：编写程序判断某个数是否是水仙花数。

要求：用inputbox函数输入一个数，将结果输出在窗体上。

提示：水仙花数是一个三位数，这个三位数各个位上数字的立方和等于它本身。 实验题目2源程序代码： Private Sub Form_Click()

Dim a As Integer, b As Integer, c As Integer, d As Integer d = InputBox(\"请输入一个三位数\判断水仙花数\")

12 / 32doc格式 可编辑

精品word.仅供参考

a = d \\ 100

b = (d Mod 100) \\ 10 c = d Mod 10

If d = a ^ 3 + b ^ 3 + c ^ 3 Then Print True Else Print False End If End Sub

实验题目3：编写程序，实现数字和英文单词的对应。

提示：在文本框1中输入0到6之间的整数，在文本框2中显示对应的星期英文单词。 实验题目3源程序代码： Private Sub Command1_Click() Dim a As Integer a = Val(Text1.Text) If a = 0 Then

Text2.Text = \"sunday\" ElseIf a = 1 Then Text2.Text = \"monday\" ElseIf a = 2 Then Text2.Text = \"tuesday\" ElseIf a = 3 Then

Text2.Text = \"wednesday\" ElseIf a = 4 Then Text2.Text = \"thursday\"

13 / 32doc格式 可编辑

精品word.仅供参考

ElseIf a = 5 Then Text2.Text = \"friday\" ElseIf a = 6 Then Text2.Text = \"saturday\" End If End Sub

实验题目4：设计程序，判断从键盘上输入的某个字符为哪类字符。（大写字母、小写字母、数字字符或其他字符）

要求：用select case语句实现。

提示：字符输入在一个文本框中，字符类别信息显示在标签上。将文本框的maxlength属性设置为1，则一次只能输入一个字符。

实验题目4源程序代码： Private Sub Command1_Click()

Dim a As String a = Text1.Text Select Case a Case \"a\" To \"z\"

Label1.Caption = \"它是小写字母\" Case \"A\" To \"Z\"

Label1.Caption = \"它是大写字母\" Case \"0\" To \"9\"

Label1.Caption = \"它是数字字符\" Case Else

Label1.Caption = \"其他字符\" End Select End Sub

14 / 32doc格式 可编辑

精品word.仅供参考

实验题目5：设计一个简单的文本编辑器，可以实现文本的简单格式化操作。 具体要求如下：

（1）可以设置字号，包括10、20、30号 （2）可以设置字体，包括宋体、隶书、幼圆 （3）可以设置字型，包括加粗、倾斜、下划线 （4）可以设置字的颜色，包括红色、绿色、蓝色 实验题目5源程序代码：Private Sub Check1_Click() If Check1.Value = 1 Then Text1.FontBold = True Else

Text1.fontbold = false End If End Sub

Private Sub Check2_Click() If Check2.Value =1 Then Text1.FontItalic = True Else

Text1.fontitalic = false End If End Sub

Private Sub Check3_Click() If Check3.Value =1 Then Text1.FontUnderline = True15 / 32doc格式 可编辑

精品word.仅供参考

Else

Text1.fontunderline = false End If End Sub

Private Sub Option1_Click() Text1.FontSize = 10 End Sub

Private Sub Option2_Click() Text1.FontSize = 20 End Sub

Private Sub Option3_Click() Text1.FontSize = 30 End Sub

Private Sub Option4_Click() Text1.FontName = \"宋体\" End Sub

Private Sub Option5_Click() Text1.FontName = \"隶书\" End Sub

Private Sub Option6_Click() Text1.FontName = \"幼圆\"

/ 32doc格式 可编辑16

精品word.仅供参考

End Sub

Private Sub Option7_Click() Text1.ForeColor = vbRed End Sub

Private Sub Option8_Click() Text1.ForeColor = vbGreen End Sub

Private Sub Option9_Click() Text1.ForeColor = vbBlue End Sub 实验报告5：

实验题目1：编写程序输出图形，运行界面如下：

实验题目1源程序代码： Private Sub Command1_Click() Dim a% a = 1

While a <= 6 Print \"******\" a = a + 1 Wend

17 / 32doc格式 可编辑

精品word.仅供参考

End Sub

实验题目2：编写程序求n！。

实验题目2源程序代码： Private Sub Command1_Click()

Dim a as integer, b as integer, c As Long a = Val(Text1.Text) b = 1: c = 1 Do While b <= a c = c * b b = b + 1 Loop

Label2.Caption = a & \"!=\" & c End Sub

实验题目3：编写程序，求出某班所有同学某门课程的平均成绩。

实验题目3源程序代码： Private Sub Command1_Click()

Dim s As Integer, i As Integer, n As Integer, d As Integer, a As Double s = 0: i = 1: n = Val(Text1.Text) Do While i <= n

d = InputBox(\"输入第\" & i & \"位同学的成绩\成绩输入\") s = s + d i = i + 1 Loop a = s / n

MsgBox \"全班\" & n & \"位同学的平均分为:\" & a, , \"求平均分\"

18 / 32doc格式 可编辑

精品word.仅供参考

End Sub

实验题目4：编写程序输出1-100之间所有能被3整除的整数，要求每行输出5个。并输出这些整数的和。（用for语句实现）

实验题目4源程序代码： Private Sub Command1_Click()

Dim i As Integer, n As Integer, s As Integer s = 0 n = 0

For i = 1 To 100 Step 1 If i Mod 3 = 0 Then Print i; n = n + 1

If n Mod 5 = 0 Then Print End If s = s + i End If Next i Print s End Sub

实验题目5：编写程序，统计输入的一个字符串中各类字符的个数。实验题目5源程序代码： Private Sub Command1_Click() Dim i%, a%, b%, c%, d%, s As String s = Text1.Text

19 / 32doc格式 可编辑

for语句实现） （用精品word.仅供参考

For i = 1 To Len(s) Step 1 Select Case Mid(s, i, 1) Case \"a\" To \"z\" a = a + 1 Case \"A\" To \"Z\" b = b + 1 Case \"0\" To \"9\" c = c + 1 Case Else d = d + 1 End Select Next i

Print a, b, c, d, End Sub 实验报告6：

实验题目1：编写程序，定义包含10个数组元素的一维数组，给该数组中的数组元素赋值为12……数字，并以顺序和逆序两种方式输出各元素值。

实验题目1源程序代码： Private Sub Command1_Click() Dim i As Integer

Dim a(1 To 10) As Integer For i = 1 To 10 a(i) = 3 * i Print a(i); Next i

20 / 32doc格式 可编辑

3，6，9，精品word.仅供参考

Print

For i = 10 To 1 Step -1 Print a(i); Next i End Sub

实验题目2：随机生成20个100以内的正整数，将其中的奇数和偶数分两行显示在窗体上，并分别统计奇数和偶数的个数。 实验题目2源程序代码： Private Sub Command1_Click()

Dim i As Integer, n As Integer, m As Integer Dim a(1 To 20) As Integer For i = 1 To 20

a(i) = Int(100 * Rnd + 1) If a(i) Mod 2 = 0 Then Print a(i); n = n + 1 End If Next Print

For i = 1 To 20

If a(i) Mod 2 <> 0 Then Print a(i); m = m + 1 End If Next i

21 / 32doc格式 可编辑

精品word.仅供参考

Print Print m, n End Sub

实验题目3：用数组实现从键盘输入10个学生的计算机课程成绩，求其平均成绩和高于平均成绩的人数。

实验题目3源程序代码： Option base 1

Private Sub Command1_Click()

Dim sum As Integer, i As Integer, n As Integer, m As Integer Dim data(10) As Integer, average As Single sum = 0: i = 1: n = Val(Text1.Text) Do While i <= n

data(i) = InputBox(\"输入第\" & i & \"位学生的成绩\成绩输入\") sum = sum + data(i) i = i + 1 Loop

average = sum / n

MsgBox \"全班\" & n & \"位学生的平均成绩为:\" & average, , \"求平均分\" For i = 1 To 10

If data(i) > average Then m = m + 1 End If Next Print m End Sub

22 / 32doc格式 可编辑

精品word.仅供参考

实验题目4：用数组实现从键盘输入10个学生的计算机课程成绩，求最高分和最低分。 实验题目4源程序代码： Option base 1

Private Sub Command1_Click()

Dim i As Integer, n As Integer, max As integer, min As integer Dim data(10) As Integer

data(1) = InputBox(\"输入第\" & 1 & \"位学生的成绩\成绩输入\") max = data(1): min = data(1) For i = 2 To 10

data(i) = InputBox(\"输入第\" & i & \"位学生的成绩\成绩输入\") If data(i) > max Then max = data(i) End If

If data(i) < min Then min = data(i) End If Next

Print \"最高分是：\"; max, \"最低分是：\"; min End Sub

实验题目5：阅读并上机运行下面程序，理解动态数组的用法。

23 / 32doc格式 可编辑

精品word.仅供参考

实验题目5程序运行结果：21

实验题目6：阅读并上机运行下面程序，理解array函数的用法。

实验题目6程序运行结果：1234

实验题目7：阅读并上机运行下面程序，理解for each …… next语句的用法。

在实验题目7中用到for each ……

next语句，该语句中用到的Temp变量必须是什么类型的？

答：变体类型

实验题目8：用控件数组实现下面界面的设计。（建立一个含有3个单选按钮的控件数组，当单击某个单选按钮时，标签的背景分别显示不同的颜色）

提示：根据控件数组的index值进行判断，用if语句实现。

24 / 32doc格式 可编辑

精品word.仅供参考

实验题目8源程序代码：

Private Sub Option1_Click(Index As Integer) If Index = 0 Then

Label1.BackColor = vbRed ElseIf Index = 1 Then

Label1.BackColor = vbGreen ElseIf Index = 2 Then Label1.BackColor = vbBlue End If End Sub 实验报告7：

实验题目1：阅读并运行以下程序，理解过程中的参数传递。

实验题目1各参数传递的方式：i和j是按值传递；k是按地址传递。

两种方式参数传递的区别：按值传递是把实参的值传给形参，形参值的变化不会影响到实参，而按地址传递是把实参的地址传给形参，实参和形参共用一个存储单元，形参值的变化也就是实参值的变化。 实验题目1程序运行结果：8

实验题目2：编写程序，实现两个变量值的交换。要求用过程。

25 / 32doc格式 可编辑

精品word.仅供参考

实验题目2源程序代码：

Public Sub gc(ByRef x As Integer, ByRef y As Integer) Dim t As Integer t = x: x = y: y = t End Sub

Private Sub Command1_Click() Dim a As Integer, b As Integer a = val(text1.text) b = val(text2.text) Call gc(a, b) text1.text =a text2.text = b End Sub

实验题目3：以下代码的功能是：调用整。

实验题目3源程序代码： Public Sub max(m%, n%, t%) If m > n Then t = m

max “子过程”，求出两个数中的最大值。请将以下代码补充完26 / 32doc格式 可编辑

精品word.仅供参考

Else t = n End If End Sub

Private Sub Form_Click() Dim x%, y%, z%

x = Val(InputBox(\"请输入数据\")) y = Val(InputBox(\"请输入数据\")) Call max(x, y, z) Print \"最大值是:\"; z End Sub

实验题目4：以下代码的功能是：调用完整。

实验题目4源程序代码： Function max(m%, n%) As Integer If m > n Then max = m Else max = n End If

max“函数过程”，求出两个数中的最大值。请将以下代码补充27 / 32doc格式 可编辑

精品word.仅供参考

End Function

Private Sub Form_Click() Dim x%, y%, z%

x = Val(InputBox(\"请输入数据\")) y = Val(InputBox(\"请输入数据\")) z = max(x, y)

Print \"最大值是:\"; z End Sub

实验题目5：阅读并运行下面的程序代码，多次单击command1命令按钮，比较两种数组的区别。

实验题目5两种数组的区别是：用static定义的数组表示静态数组，如果没有给该数组赋初值，第一次运行时，各元素的初值都为0，再次运行时以上一次运行的结果作为初始值；用dim定义的数组则表示动态数组，如果没有给该数组赋初值，每次运行时，各元素的初值都为0。

实验题目5程序运行结果： 第一次输出22222

22222

第二次输出44444

22222

…… 实验报告8：

28 / 32doc格式 可编辑

精品word.仅供参考

实验题目1：设计窗体，界面如下：当单击“图片1”，“图片2”，“图片3”时，图片（像）框分别加载不同图片。（要求：图片自己从网上下载）

实验题目1源程序代码： Private Sub Option1_Click()

Picture1.Picture = LoadPicture(App.Path + \"\\1.jpg\") End Sub

Private Sub Option2_Click()

Picture1.Picture = LoadPicture(App.Path + \"\\2.jpg\") End Sub

Private Sub Option3_Click()

Picture1.Picture = LoadPicture(App.Path + \"\\3.jpg\") End Sub

实验题目2：设计个人情况登记程序。程序初始界面如下：

窗体中共包含3个标签，3个组合框，1个图片框和2个命令按钮。 Combo1提供2个选项：东校区、西校区

29 / 32doc格式 可编辑

精品word.仅供参考

Combo2提供3个选项：中文系、外语系、教心系 Combo3提供3个选项：0901、0902、0903

程序运行时，当在3个组合框中分别选择相应内容后，单击“确认”按钮，会将选择的内容在图片框中打印出来。

实验题目2源程序代码： Private Sub Command1_Click()

Picture1.Print Combo1.Text & Combo2.Text & Combo3.Text End Sub

Private Sub Command2_Click() End End Sub

实验题目3：设计“商品统计”窗体。初始界面如下：

运行时，在“商品列表”列表框中选择商品（注：可以多选），然后在组合框中选择卡号，单击“确定”按钮，在“您的卡号”所对应的文本框中显示所选择的卡号，同时在“您所选的商品数量”所对应的文本框中显示用户所选择的商品数量。

实验题目3源程序代码： Private Sub Command1_Click() Text1.Text = Combo1.Text Dim i As Integer, j As Integer For i = 0 To List1.ListCount - 1 If List1.Selected(i) = True Then

30 / 32doc格式 可编辑

精品word.仅供参考

j = j + 1 End If Next

Text2.Text = j End Sub

Private Sub Command2_Click() End End Sub

实验题目4：设计界面，实现调色板功能。 实验题目4源程序代码：

Private Sub HScroll1_Change(Index As Integer) Text1(Index).Text = HScroll1(Index).Value

Picture1.BackColor = RGB(HScroll1(0).Value, HScroll1(1).Value, HScroll1(2).Value) Label1.ForeColor = Picture1.BackColor

Private Sub HScroll1_scroll(Index As Integer) Text1(Index).Text = HScroll1(Index).Value

Picture2.BackColor = RGB(HScroll1(0).Value, HScroll1(1).Value, HScroll1(2).Value) End Sub

实验题目5：

设计一个窗体含1个图像框和1个计时器。运行程序时，图像从右下角向左上角移动，当图像移出左上角后，再从右下角向左上角移动，周而复始。Interval属性设置为50。

31 / 32doc格式 可编辑

精品word.仅供参考

实验题目5源程序代码： Private Sub form_load() Image1.Left = Form1.Width Image1.Top = Form1.Height End Sub

Private Sub timer1_timer()

Image1.Move Image1.Left - 50, Image1.Top - 50 If Image1.Left <= 0 Then Image1.Left = Form1.Width Image1.Top = Form1.Height End If End Sub

赠人玫瑰，手留余香。

感谢您使用本店文档 您的满意是我们的永恒的追求！ （本句可删） ------------------------------------------------------------------------------------------------------------

32 / 32doc格式 可编辑