计算机上机实习报告纲要内容

一、系统的名称 简易学生成绩管理系统 二、摘要 1、实习目的

这次上机实习的主要目的是使同学们将平日所学的理论知识用于实践，理论与实践相结合，以便更牢固地掌握，同时让同学们熟悉VB 6.0的开发环境,掌握基本的编程方法,熟悉用VB语言完成一个应用程序的设计过程,掌握有关编辑和调试程序的方法和技巧 。

2、实验要求

（一）用记事本新建一文本文件，将本班的M名学生在本学期的N门考试课的成绩（要求用假想分数，并要求将自己的每门课的分数定在96分以上，放在第一列；而将别人的大多数课程的分数都定在96分以下）输入到这个文件中,建议按如下形式存放(注：20≤M≤50、5≤N≤8，下文以M=5,N=5为例):

编号 姓名 幸运日 出生日 英语 VB 数学 体育 专业 22 我自已 3 1992.09.09 96 98 99 100 99 2 李某 7 1993.01.01 91 96 67 88 71 9 王某 11 1994.11.11 75 58 56 81 95 4 赵某 17 1993.07.01 58 67 77 87 77 5 李静 7 1995.09.09 66 77 88 99 77 （二）将本学期的N门课程及其学分(16学时为1个学分)输入到另一个数据文件（文件类型同上题）中，建议如下列形式存放：

1 编号 课程名称 课程学分

1 英语 5.0 2 VB 4.0 3 数学 4.5 4 体育 3.0 5 专业 10.0

（三） 请编写一个简单的学生成绩管理程序,要求完成以下功能: 1、 找出“出生日”与幸运日相同的人，并打印出其信息（没行输

出一个人信息）

2、 统计出分别拥有幸运数字1,2,3,4,5,6,7,8,9,0的人数； 3、 能查询出任何一个你感兴趣的人的信息； 4、 课添加一个人的信息；

5、 可以删除某个不受欢迎的人的信息；

6、 可以对某个人的幸运数字进行修改，只修改其幸运数字，其它

信息不变；

7、 根据以上两文件内容分别计算每个学生N门课的加权平均分（保

留2位小数，4舍5入）,按平均分排列名次，平均分相同则名次并列，如第1、2、2、4、5、5、7?名。用VB创建一个数据文件，存放班级的成绩表，建议按以下形式存放。

序号 姓名 英语 VB 数学 体育 专业 平均成绩 名次 1 张某 76 80 89 88 99 89.51 4

2 李某 88 59 90 66 87 84.45 9

2 8、 分别统计全班每门课的平均分，并计算各分数段（60分以下；60～69；70～79；80～89；90分以上）的学生人数。用VB创建一个新的数据文件，在该文件中存放数据的格式如下：

范围. 英语 VB ... ... >=90 3 5 ... .... 80-89 10 12 ... ... ... ... ... ... ... ... ... ... ... ...

9、 打印每名学生成绩条（并将结果存放到用VB创建的一个新的数据文件中）。

10、 打印所有存在不及格课程学生的名单（含学号、不及格课程名称、课程的学分及成绩）

11、 打印优等生名单（学号、Ｎ门课成绩、平均分名次）

优等生条件：

a) 平均分 ? 90分 b) 名次在本班位于前三名

c) 平均分?85分，并且有二门课的成绩都 ? 95分

三、系统设计

1、系统简要设计

由于本程序需要用名为“成绩表”和“课程学分”的文本文档记录成绩数据和学分数据，通过设计程序载入相应数据并处理，使其显示学生的加权平均分和名次以及各门课程的平均分，平均分各分数段人数，每门课程各分数段人数，打印每位同学的成绩条，打印不及格

3 学生名单及优等生名单，以及关于幸运数字与出生日的计算。

所以首先在窗体是根据相应要求进行菜单编辑，设置出相应层次。最后根据所编辑的菜单进行编程，达到要求。

2、系统详细设计

流程图

进入学生成绩管理系统统计幸运数字 幸运号 修改幸运数字 找出出生日与幸运数字相同相同的人 查询一个人 添加一个人 删除一个人 出生日 个人信息 读成绩表 读课程学分 计算每位同学的加计算每门课程的加权平均分 权平均分 计算各分数段人数 按平均分排名 计算每门课程各分数段人数 打印每名学生成绩条 打印挂科学生名单 打印优等生名单 各科成绩分布

具体过程如下：

4 （1）首先根据菜单编辑器在窗体上添加菜单选项，如读文件、查询之类

（2）我根据本次实验设计要求：要同时表示学生的序号、姓名等一些信息，及课程、课程学分等一些信息，由于每项信息的意义不同，数据类型也不同，但还要同时作为一个整体来描叙和处理，因此需要通过用户自定义来解决。所以在编程之前我了新建一个标准模块用来定义自定义类型。

（3）我为了便于后面执行求加权平均分、排名等命令，我在Form1发生Load事件时应将学生信息和课程信息读取并放到两个数组中，由于这两个数组在该管理系统的全程序都要用到，因此应定义为全局类型。如是在标准模块中定义两个数组。

（4）由于原始数据文件中相邻的两列之间空格的长短不一，因此在调用Split函数之前应窗体通用模块中自定义一个space1函数将原始数据文件中相邻的两列之间空格数变成由n个空格组成的字符串。 （5）本次实验系统运行之前，我必须把记事本里的原始文件先读出来，才能进行后续操作。

（6）将文件读入之后，我按要求相应编辑了各段代码。

（7）由于在打印成绩条、不及格名单、优等生等信息时，我应该用write语句分别将数据存入一个新的文件。

3、系统应用说明

1.菜单编辑

5

菜单编辑后在窗体1界面上显示为如下

2.运行结果

读文件

6

读课程

（1）出生日与幸运日相同

（2）统计出分别拥有幸运数字1,2,3,4,5,6,7,8,9,0的人数

7

（3）查询任何一个你感兴趣的人的信息

（4）添加一个人的信息

8

…

(5)删除一个不受欢迎的人的信息

9

（6）修改幸运数字

10

（7）加权平均分

（8）每门课的平均分

（9）成绩条

11

（10）不及格课程学生的名单

（11）优等生

四．问题及解决方案

在程序设置中经常会出现下标越界，以及出现中文字符之类的问

12 题导致程序出错。而且由于程序代码较多，不易找到错误的原因，往往花大量时间也找不出。而这种情况别人也不易查找出，因为有些东西是你定义的，别人也看不懂。在这种情况下，只有你自己耐心的一行一行的看代码找出错误的原因，根据程序运行出现错误的提示来找出问题所在。所以经过这费劲的活动让我找出了问题所在，在模板中定义的长度与其它代码的长度不符，所以出现了这种错误。

五．程序缺陷

相对于比较复杂的程序，我们本次做的实习相对比较简单。但是在这种情况下。我觉得代码太过冗长复杂，变量设置过多，使得程序的调试非常麻烦。其次，程序菜单的名称完全是由程序员按自己的喜好编排的，这样使得除程序员以外的人在看代码是不知道该段程序到底是哪个菜单的。再次，本程序的代码受输入的文件的局限性太大，不能做成通用程序。因此在实际应用中还需要大量改进。

六．心得体会

对于我们这些对计算机语言的初学者来说，编一套比较系统而且

完整的系统有一定的困难。而且通过书上的学习，也不太系统，属于比较凌乱的那种。而这次实习机会，给了我们一个平台，让我们独立的完成一系列的程序代码编写及其设计，我认为这对我们的帮助是相当大的，让我们不完全的脱离书本，去创作一套系统。虽然这套系统不一定很完美，在某些方面还存在着不少缺陷。但却让我们享用了一次属于自己打大餐，这种成就感是不言而喻的。即使你对着电脑5到六个小时也不会觉得累，特别是当你解决某些问题是，那种幸福感真

13 的只有用享受二字来形容。

而且通过这次实习也让我们对VB6.0有了更多的认识。学会了

常用控件的编辑和编辑菜单和多窗体的编程，并理解数组和过程及函数的类型定义，以及过程和函数的调用方法，初步认识了文件的读取和存放。再次，我觉得编程不仅需要自己的思维和方法，还应该有足够的细心和耐心，否则，这么长的英文代码让你不断的调试和检查早就让你头晕目眩了。同时，不懂就要问，这样才能不断的进步。认真思考也是非常的重要，只有经过自己思考的东西和知识才会变成自己的。还有，我认为编程不仅要知道自己的方法，还应看懂别人的程序，体验别人的思维方法。这样不仅可以在别人遇到问题时给予帮助，还可以通过对比融会贯通并得出最简洁的程序编写方法。最后，我在实习中遇到的问题帮助了我理解在课堂理论上没有弄懂的问题，更让我发现了我学习中的薄弱环节，让我有机会去改正和提高。我也深刻的懂得了实践是获取知识的最好方法，在今后的学习中，我应该多将理论与实践结合起来。因为书本上的东西是为你服务的，只有通过动手才能体现出来。所以总的来说，这次实习对我们的帮助很大，对我们的世界观及认知观都有很大的改变。

附录：系统代码

模板代码:

Type chengji xh As String xm As String luck As String birthday As String

score(1 To 5) As Integer

14 mingci As Integer End Type Type kecheng bh As String kc As String xf As Integer End Type

Public ch() As chengji Public ke() As kecheng

其它代码

Dim m%, n%, str1$, str2$

Private Sub add_Click() Cls

Dim a$, b$, c$, d$, e&, f&, g&, h&, i& a = InputBox(\请输入学生序号\

If Val(a) <= Val(UBound(ch)) Then Print \该序号已经存在，请重新输入！\请重新输入改学生序号\

b = InputBox(\请输入该学生的姓名！\c = InputBox(\请输入该学生的幸运日！\d = InputBox(\请输入该学生的生日！\e = InputBox(\请输入该学生英语成绩！\f = InputBox(\请输入该学生的VB成绩！\g = InputBox(\请输入该学生的数学成绩！\h = InputBox(\请输入该学生的体育成绩！\i = InputBox(\请输入该学生的专业成绩！\Print str1

For i = 0 To UBound(ch)

Print ch(i).xh; Spc(3); ch(i).xm; Spc(6); ch(i).luck; Spc(7); ch(i).birthday; Spc(5); For j = 1 To 5

Print ch(i).score(j); Spc(2); Next j Print Next i

Print a; Spc(3); b; Spc(6); c; Spc(7); d; Spc(5); e; Spc(2); f; Spc(2); g; Spc(2); h; Spc(2); i Close #1 End Sub

Private Sub cxy_Click() Dim i%, j% Cls

Print str1

15

For i = 0 To UBound(ch)

If ch(i).luck = Right(ch(i).birthday, 2) Then

Print ch(i).xh; Spc(3); ch(i).xm; Spc(6); ch(i).luck; Spc(6); ch(i).birthday; Spc(6); For j = 1 To 5

Print ch(i).score(j); Spc(2); Next j Print End If Next i Print Print

End Sub

Private Sub end_Click() End End Sub

Private Sub average_Click() Cls

Dim a%(1 To 5), b1%(1 To 5), b2%(1 To 5), b3%(1 To 5), b4%(1 To 5), b5%(1 To 5), b6%(1 To 5), i%, j% For i = 1 To 5

For j = 0 To UBound(ch()) a(i) = a(i) + ch(j).score(i) Next j Next i

For i = 1 To 5

b1(i) = a(i) / (UBound(ch) + 1) Next i

For j = 0 To UBound(ch)

Select Case ch(j).score(1) \\ 10 Case 9, 10: b2(1) = b2(1) + 1 Case 8: b2(2) = b2(2) + 1 Case 7: b2(3) = b2(3) + 1 Case 6: b2(4) = b2(4) + 1

Case 0 To 5: b2(5) = b2(5) + 1 End Select Next j

For j = 0 To UBound(ch)

Select Case ch(j).score(2) \\ 10 Case 9, 10: b3(1) = b3(1) + 1 Case 8: b3(2) = b3(2) + 1 Case 7: b3(3) = b3(3) + 1 Case 6: b3(4) = b3(4) + 1

16 Case 0 To 5: b3(5) = b3(5) + 1 End Select Next j

For j = 0 To UBound(ch)

Select Case ch(j).score(3) \\ 10 Case 9, 10: b4(1) = b4(1) + 1 Case 8: b4(2) = b4(2) + 1 Case 7: b4(3) = b4(3) + 1 Case 6: b4(4) = b4(4) + 1

Case 0 To 5: b4(5) = b4(5) + 1 End Select Next j

For j = 0 To UBound(ch)

Select Case ch(j).score(4) \\ 10 Case 9, 10: b5(1) = b5(1) + 1 Case 8: b5(2) = b5(2) + 1 Case 7: b5(3) = b5(3) + 1 Case 6: b5(4) = b5(4) + 1

Case 0 To 5: b5(5) = b5(5) + 1 End Select Next j

For j = 0 To UBound(ch)

Select Case ch(j).score(5) \\ 10 Case 9, 10: b6(1) = b6(1) + 1 Case 8: b6(2) = b6(2) + 1 Case 7: b6(3) = b6(3) + 1 Case 6: b6(4) = b6(4) + 1

Case 0 To 5: b6(5) = b6(5) + 1 End Select Next j

Open App.Path + \平均分.txt\

Write #1, \范围\英语\数学\体育\专业\Write #1, \平均分\Write #1, \Write #1, \Write #1, \Write #1, \Write #1, \ 60\Close #1

Print \范围\英语\数学\体育\专业\Print \平均分\Print \Print \Print \

17 Print \Print \ 60\End Sub

Private Sub xy_Click() Cls

Dim i%, j%, k%, a%(1 To 10) For i = 0 To UBound(ch) If Val(ch(i).ld) = 0 Then a(1) = a(1) + 1

ElseIf Val(ch(i).ld) = 1 Then a(2) = a(2) + 1

ElseIf Val(ch(i).ld) = 2 Then a(3) = a(3) + 1

ElseIf Val(ch(i).ld) = 3 Then a(4) = a(4) + 1

ElseIf Val(ch(i).ld) = 4 Then a(5) = a(5) + 1

ElseIf Val(ch(i).ld) = 5 Then a(6) = a(6) + 1

ElseIf Val(ch(i).ld) = 6 Then a(7) = a(7) + 1

ElseIf Val(ch(i).ld) = 7 Then a(8) = a(8) + 1

ElseIf Val(ch(i).ld) = 8 Then a(9) = a(9) + 1

ElseIf Val(ch(i).ld) = 9 Then a(10) = a(10) + 1 End If Next i

Print \拥有幸运数字0的人有\个\Print \拥有幸运数字1的人有\个\Print \拥有幸运数字2的人有\个\Print \拥有幸运数字3的人有\个\Print \拥有幸运数字4的人有\个\Print \拥有幸运数字5的人有\个\Print \拥有幸运数字6的人有\个\Print \拥有幸运数字7的人有\个\Print \拥有幸运数字8的人有\个\Print \拥有幸运数字9的人有\个\End Sub

Public Sub Form_Load()

Dim st() As String, str As String

18 Open App.Path + \学生成绩.txt\Line Input #1, str1 Do While Not EOF(1) Line Input #1, str

str = space1(Trim(str)) st = Split(str, \

ReDim Preserve ch(m) ch(m).xh = st(0) ch(m).xm = st(1) ch(m).luck = st(2) ch(m).birthday = st(3) ch(m).score(1) = Val(st(4)) ch(m).score(2) = Val(st(5)) ch(m).score(3) = Val(st(6)) ch(m).score(4) = Val(st(7)) ch(m).score(5) = Val(st(8)) m = m + 1 Loop Close #1

Open App.Path + \Line Input #2, str2 Do While Not EOF(2) Line Input #2, str

str = space1(Trim(str)) st = Split(str, \

ReDim Preserve ke(n) ke(n).bh = st(0) ke(n).kc = st(1) ke(n).xf = Val(st(2)) n = n + 1 Loop Close #2 End Sub

Private Sub chengji_Click() Cls Dim i% Print str1

For i = 0 To UBound(ch)

Print ch(i).xh; Spc(2); ch(i).xm; Spc(7); ch(i).luck; Spc(8); ch(i).birthday; Spc(5); For j = 1 To 5

Print ch(i).score(j); Spc(2); Next j Print

19 Next i Print Print

End Sub

Private Sub greatstudend_Click() Cls Print

Dim i%, j%, a!(0 To 27), b%(0 To 27) For i = 0 To UBound(ch)

a(i) = Round((ch(i).score(1) * 5 + ch(i).score(2) * 4 + ch(i).score(3) * 4.5 + ch(i).score(4) * 3 + ch(i).score(5) * 10) / 26.5, 2) Next i

For i = LBound(ch) To UBound(ch) b(i) = 1

For j = LBound(ch) To UBound(ch) If a(i) < a(j) Then b(i) = b(i) + 1 Next j Next i

Print Spc(1); \序号\姓名\英语\数学\体育\专业\平均分;\名次\For i = 0 To UBound(ch)

If (a(i) >= 90) Or (b(i) <= 3) Or (a(i) >= 85 And ((ch(i).score(1) >= 95 And ch(i).score(2) >= 95) Or (ch(i).score(1) >= 95 And ch(i).score(3) >= 95) Or (ch(i).score(1) >= 95 And ch(i).score(4) >= 95) Or (ch(i).score(1) >= 95 And ch(i).score(5) >= 95) Or (ch(i).score(2) >= 95 And ch(i).score(3) >= 95) Or (ch(i).score(2) >= 95 And ch(i).score(4) >= 95) Or (ch(i).score(2) >= 95 And ch(i).score(5) >= 95) Or (ch(i).score(3) >= 95 And ch(i).score(4) >= 95) Or (ch(i).score(3) >= 95 And ch(i).score(5) >= 95) Or (ch(i).score(4) >= 95 And ch(i).score(5) >= 95))) Then

Print Spc(1); ch(i).xh; Spc(4); ch(i).xm; Spc(5); ch(i).score(1); Spc(3); ch(i).score(2); Spc(3); ch(i).score(3); Spc(3); ch(i).score(4); Spc(3); ch(i).score(5); Spc(3); a(i); Spc(4); b(i) End If Next i End Sub

Private Sub bujg_Click() Cls

Dim i%, j% Print

Print \序号\姓名\不及格课程及其该课程的学分\

Print Spc(16); \英语（学分5）\学分4)\数学（学分4.5）\体育（学分3）\专业（学分10）\For i = 0 To UBound(ch) For j = 1 To 5

20

If ch(i).score(j) < 60 Then

Print ch(i).xh; Spc(4); ch(i).xm; Spc((j - 1) * 16 + 7); ch(i).score(j) End If Next j Next i End Sub

Private Sub interest_Click() Cls

Dim i%, j%, s$, p As Boolean p = False

s = InputBox(\请输入你想要查询的人名！\Print str1

For i = 0 To UBound(ch) If s = Trim(ch(i).xm) Then p = True

Print ch(i).xh; Spc(3); ch(i).xm; Spc(6); ch(i).luck; Spc(6); ch(i).birthday; Spc(5); For j = 1 To 5

Print ch(i).score(j); Spc(2); Next j Print End If Next i Print Print

If p = False Then Cls: Print \对不起！没有这个人！！\End Sub

Private Sub delete_Click() Cls

Dim s$, i%, j%

s = InputBox(\请输入你要删除的人的名字!\For i = 0 To UBound(ch)

If s = ch(i).xm Then Exit For Next i Cls

Print str1

For i = 0 To i - 1

Print ch(i).xh; Spc(3); ch(i).xm; Spc(6); ch(i).luck; Spc(6); ch(i).birthday; Spc(5); For j = 1 To 5

Print ch(i).score(j); Spc(2); Next j Print Next i

21

For i = i + 1 To UBound(ch)

Print ch(i).xh; Spc(3); ch(i).xm; Spc(6); ch(i).luck; Spc(6); ch(i).birthday; Spc(5); For j = 1 To 5

Print ch(i).score(j); Spc(2); Next j Print Next i Print Print End Sub

Private Sub xgai_Click() Cls

Dim i%, s$, r$

s = InputBox(\请输入要修改的人名!\For i = 0 To UBound(ch) If s = ch(i).xm Then

Print \该学生的幸运日是:\

r = InputBox(\请输入该学生新的幸运日!\ch(i).luck = r End If Next i Cls

Print str1

For i = 0 To UBound(ch)

Print ch(i).xh; Spc(3); ch(i).xm; Spc(6); ch(i).luck; Spc(6); ch(i).birthday; Spc(5); For j = 1 To 5

Print ch(i).score(j); Spc(2); Next j Print Next i Print Print End Sub

Private Sub kecheng_Click() Cls

Print str2

For i = 0 To UBound(ke)

Print Spc(2); ke(i).bh; Spc(6); ke(i).kc; Spc(8); ke(i).xf Print Next i

22 End Sub

Public Function space1$(ByVal sss As String) Dim x%

x = InStr(sss, \ \ Do While x > 0

sss = Replace(sss, \ \ x = InStr(sss, \ \ Loop

space1 = sss End Function

Private Sub cjt_Click() Cls

Dim i%, j%

Open App.Path + \成绩条.txt\For i = 0 To UBound(ch) Write #1,

Write #1, \序号\姓名\英语\数学\体育\Spc(4); \专业\

Write #1, ch(i).xh; Spc(6); ch(i).xm; Spc(3); ch(i).score(1); Spc(3); ch(i).score(2); Spc(3); ch(i).score(3); Spc(3); ch(i).score(4); Spc(3); ch(i).score(5) Next i Close #1

For i = 0 To UBound(ch) Print

Print \序号\Spc(5); \姓名\Spc(3); \英语\Spc(4); \Spc(4); \数学\Spc(4); \体育\Spc(4); \专业\

Print ch(i).xh; Spc(6); ch(i).xm; Spc(3); ch(i).score(1); Spc(3); ch(i).score(2); Spc(3); ch(i).score(3); Spc(3); ch(i).score(4); Spc(3); ch(i).score(5) Next i End Sub

Private Sub averagejia_Click() Cls

Dim a!(27), i%, j%, b!(27), c%(27) For i = 0 To UBound(ch)

a(i) = (ch(i).score(1) * 5 + ch(i).score(2) * 4 + ch(i).score(3) * 4.5 + ch(i).score(4) * 3 + ch(i).score(5) * 10) / (5 + 4 + 4.5 + 3 + 10) b(i) = Round(a(i), 2) Next i

For i = LBound(ch) To UBound(ch()) c(i) = 1

For j = LBound(ch()) To UBound(ch()) If b(i) < b(j) Then c(i) = c(i) + 1

23 Next j Next i

Open App.Path + \加权平均分.txt\

Write #1, \序号\姓名\英语\数学\体育\Spc(4); \专业\平均分;\名次\For i = 0 To UBound(ch)

Write #1, ch(i).xh; Spc(4); ch(i).xm; Spc(3); ch(i).score(1); Spc(3); ch(i).score(2); Spc(3); ch(i).score(3); Spc(3); ch(i).score(4); Spc(3); ch(i).score(5); Spc(4); b(i); Spc(4); c(i) Next i Close #1

Print \序号\Spc(3); \姓名\Spc(3); \英语\Spc(4); \Spc(4); \数学\Spc(4); \体育\Spc(4); \专业\平均分;\名次\For i = 0 To UBound(ch)

Print ch(i).xh; Spc(4); ch(i).xm; Spc(3); ch(i).score(1); Spc(3); ch(i).score(2); Spc(3); ch(i).score(3); Spc(3); ch(i).score(4); Spc(3); ch(i).score(5); Spc(4); b(i); Spc(4); c(i) Next i End Sub

Private Sub xyyy_Click() Cls

Dim a%(9), i%

For i = 0 To UBound(ch)

If Val(ch(i).luck) = 0 Then a(0) = a(0) + 1 If Val(ch(i).luck) = 1 Then a(1) = a(1) + 1 If Val(ch(i).luck) = 2 Then a(2) = a(2) + 1 If Val(ch(i).luck) = 3 Then a(3) = a(3) + 1 If Val(ch(i).luck) = 4 Then a(4) = a(4) + 1 If Val(ch(i).luck) = 5 Then a(5) = a(5) + 1 If Val(ch(i).luck) = 6 Then a(6) = a(6) + 1 If Val(ch(i).luck) = 7 Then a(7) = a(7) + 1 If Val(ch(i).luck) = 8 Then a(8) = a(8) + 1 If Val(ch(i).luck) = 9 Then a(9) = a(9) + 1 Next i

Print Spc(1); \拥有幸运数字0的人有\个\Print Spc(1); \拥有幸运数字1的人有\个\Print Spc(1); \拥有幸运数字2的人有\个\Print Spc(1); \拥有幸运数字3的人有\个\Print Spc(1); \拥有幸运数字4的人有\个\Print Spc(1); \拥有幸运数字5的人有\个\Print Spc(1); \拥有幸运数字6的人有\个\Print Spc(1); \拥有幸运数字7的人有\个\Print Spc(1); \拥有幸运数字8的人有\个\Print Spc(1); \拥有幸运数字9的人有\个\End Sub

24

本文来源：https://www.bwwdw.com/article/pwfr.html