VB程序设计教程答案

编写一个程序，输入某仓库的货物数据，建立—个顺序文件。每次从键盘上输入一种货物的数据，包括货物号、名称、单价、进库日期和数量。建立文件后，输出全部内容。

null@null.com (hyf64) — Sat, 06 Aug 2016 15:07:59 +0800

编写一个程序，输入某仓库的货物数据，建立—个顺序文件。每次从键盘上输入一种货物的数据，包括货物号、名称、单价、进库日期和数量。建立文件后，输出全部内容。

    解：该题与前一题类似，其记录结构如下。
货物号     货物名     单价     进库日期     货物数量
……          ……      ……          ……           ……

按以下步骤操作。

(1)执行“工程”菜单中的“添加模块”命令，在工程中添加一个新的标准模块，然后在该模块定义如下记录类型和全局变量：
(2)在窗体上画三个命令按钮，其标题分别设質为“输人数据”、“输出数据”和“退出。
(3)编写第一个命令按钮的事件过程:
Private Sub Command1_Click()
    Num = InputBox("请输人货物种类数")
    Num = CInt(Num)
    n = n + Num
    ReDim bole_stock(Num) As bole_Info
    Open "d:\BoleI.txt" For Append As #1
    For i = 1 To Num
        bole_stock(i).bole_num = InputBox("请输人货物号")
        bole_stock(i).bole_name = InputBox("请输人货物名称")
        bole_stock(i).price = InputBox("请输人货物单价")
        bole_stock(i).stock_date = InputBox("请输入进库日期")
        bole_stock(i).amount = InputBox("请输入货物数量")
        Write #1, bole_stock(i).bole_num, _
              bole_stock(i).bole_name, _
              bole_stock(i).price, _
              bole_stock(i).stock_date, _
              bole_stock(i).amount
    Next i
    Close #1
    Open "d:\bole.txt" For Output As #1
    Print #1, n
    Close #1
End Sub

(4)编写第二个命令按钮的事件过程：
Private Sub Command2_Click()
    Open "d:\bole.txt" For Input As #1
    Input #1, n
    Close #1

    ReDim bole_stock(n) As bole_Info
    Open "d:\BoleI.txt" For Input As #2
    x = 1
    Print "货物号 "; "货物名 "; "单价 "; "进库日期   "; "货物数"
    Print
    Do While Not EOF(2)
        Input #2, bole_stock(i).bole_num, _
              bole_stock(i).bole_name, _
              bole_stock(i).price, _
              bole_stock(i).stock_date, _
              bole_stock(i).amount

        Print bole_stock(i).bole_num; "     "; _
              bole_stock(i).bole_name; "     "; _
              ; bole_stock(i).price; "     "; _
              bole_stock(i).stock_date; "     "; _
              bole_stock(i).amount
        x = x + 1
    Loop
    Close #2
End Sub

(5)编写第三个命令按钮的事件过程：
Private Sub Command3_Click()
    End
End Sub

程序运行后，单击“输人数据”按钮，即可根据提示输人相应的数据。输入后单击“输出数据”按钮，将在窗体上输出结果，如下图所示。

编写一个建立图书数据文件的程序。程序运行后，可以从键盘上输入每种图书的有关数据，包括图书分类号、登记号、作者、单价、购进数、借出数、出版日期和出版社名称，把这些数据存人文件中。文件建立后，按登记号的顺

null@null.com (hyf64) — Sat, 06 Aug 2016 08:57:56 +0800

编写一个建立图书数据文件的程序。程序运行后，可以从键盘上输入每种图书的有关数据，包括图书分类号、登记号、作者、单价、购进数、借出数、出版日期和出版社名称，把这些数据存人文件中。文件建立后，按登记号的顺序（由小到大）输出全部内容。

解：图书数据文件记录的结构见下表：
分类号登记号作者单价购进数借出数出版日期出版社
… … … … … … … …

按以下步骤操作。

(1)执行“工程”菜单中的“添加模块”命令，建立一个新的标准模块，在该模块中定义如下的记录类型和全局变量：
Type Book_Info
    class_num As Integer
    reg_num As Integer
    Author As String * 6
    price As Single
    buy_num As Integer
    loan_num As Integer
    pub_date As String
    pub_com As String * 18
End Type

Option Base 1
Public Book_num() As Book_Info
Public n As Integer

(2)在窗体层编写输入数据的通用过程:
Sub B_Input(Num As Integer)
    n = n + Num
    ReDim Book_num(Num) As Book_Info
    Open "d:\BookI.txt" For Append As #1
    For i = 1 To Num
        Book_num(i).class_num = InputBox("请输人图书分类号")
        Book_num(i).reg_num = InputBox("请输人登记号")
        Book_num(i).Author = InputBox("请输人作者名")
        Book_num(i).price = InputBox("请输入单价")
        Book_num(i).buy_num = InputBox("请输人购进数")
        Book_num(i).loan_num = InputBox("请输人借出数")
        Book_num(i).pub_date = InputBox("出版日期")
        Book_num(i).pub_com = InputBox("请输人出版社名称")
        Write #1, Book_num(i).class_num, Book_num(i).reg_num, _
              Book_num(i).Author, Book_num(i).price, _
              Book_num(i).buy_num, Book_num(i).loan_num, _
              ; Book_num(i).pub_date, Book_num(i).pub_com
    Next i
    Close #1
    Open "d:\num.txt" For Output As #1
    Print #1, n
    Close #1
End Sub

该过程用来输入数据，并把输人的数据存人磁盘文件。它有1个参数，即需要输人的图书种类数。文件用Append方式打开，因此每次输人的数据都附加到原来数据的后面。这里应注意全局变量n的使用。调用该过程时，把Num的实参与n相加，再赋予n，从而可以把多次调用该过程所输人的图书种类数累加起来。在过程的最后，把n存人一个磁盘文件，这样，即使退出程序或关机，仍可以记下当前图书数文件中记录的个数。在这个过程中，输人的数据被存入记录数组。

(3)在窗体层编写输出数据的通用过程：
Sub B_output()
    Open "d:\num.txt" For Input As #1
    Input #1, n
    Close #1
    ReDim Book_num(n) As Book_Info
    Open "d:\BookI.txt" For Input As #2
    x = 1
    Print "分类号 "; "登记号   "; "作者     "; "单价 "; "购进数 "; _
          ; "借出数 "; "出版日期 "; "出版社"
    Print
    Print "原来顺序："
    Do While Not EOF(2)
        Input #2, Book_num(x).class_num, Book_num(x).reg_num, _
              Book_num(x).Author, Book_num(x).price, _
              Book_num(x).buy_num, Book_num(x).loan_num, _
              Book_num(x).pub_date, Book_num(x).pub_com

        Print Book_num(x).class_num; " "; Book_num(x).reg_num; " " _
              ; Book_num(x).Author; " "; Book_num(x).price; " "; _
              Book_num(x).buy_num; " "; Book_num(x).loan_num; " " _
              ; Book_num(x).pub_date; " "; Book_num(x).pub_com

        x = x + 1
    Loop
    Close #2
    Print
    SortB
End Sub

该过程用来输出图书数据文件中的记录，它首先打开前一个过程建立的文件,然后按建立顺序输出每个记录。由于题目要求按登记号由小到大的顺序输出记录，因此用一个过程对各记录进行排序，并输出排序后的结果。

排序过程如下：
Sub SortB()
For k = n To 2 Step -1
    For l = 1 To k - 1
        If Book_num(l).reg_num > Book_num(l + 1).reg_num Then
            t = Book_num(l + 1).reg_num
            Book_num(l + 1).reg_num = Book_num(l).reg_num
            Book_num(l).reg_num = t

            t = Book_num(l + 1).class_num
            Book_num(l + 1).class_num = Book_num(l).class_num
            Book_num(l).class_num = t

            t = Book_num(l + 1).Author
            Book_num(l + 1).Author = Book_num(l).Author
            Book_num(l).Author = t

            t = Book_num(l + 1).price
            Book_num(l + 1).price = Book_num(l).price
            Book_num(l).price = t

            t = Book_num(l + 1).buy_num
            Book_num(l + 1).buy_num = Book_num(l).buy_num
            Book_num(l).buy_num = t

            t = Book_num(l + 1).pub_date
            Book_num(l + 1).pub_date = Book_num(l).pub_date
            Book_num(l).pub_date = t

            t = Book_num(l + 1).pub_com
            Book_num(l + 1).pub_com = Book_num(l).pub_com
            Book_num(l).pub_com = t
        End If
    Next l
Next k

Print "按登记号排序后顺序："
For j = 1 To n
    Print Book_num(j).class_num; " "; Book_num(j).reg_num; " "; _
          Book_num(j).Author; " "; Book_num(j).price; " "; _
          Book_num(j).buy_num; " "; Book_num(j).loan_num; " "; _
          Book_num(j).pub_date; " "; Book_num(j).pub_com
Next j
End Sub

该过程用冒泡法对文件中的记录进行排序，然后输出。

(4)编写如下窗体单击事件过程：
Private Sub Form_Click()
    Dim h As Integer
    an = InputBox("是第一次运行程序吗？（Y/N)")
    If UCase(an) <> "Y" Then
        Open "d:\num.txt" For Input As #1
        Input #1, n
        Close #1
    End If

    IOrO = InputBox("输入或输出？ (I/O)")
    If UCase(IOrO) = "I" Then
        h = InputBox("需要输入多少种图书")
        h = Val(h)
        B_Input h
    Else
        B_output
    End If
End Sub

在该过程中，首先询问是不是第一次运行程序，如果不是，则打开存放图书种类数的文件，读人种类数，并把它赋予全局变量n。接着询问是输人还是输出。如果是输入，则调用输人过程，否则调用输出过程。

程序运行后，单击窗体，在输人对话框中输入“Y”（第一次运行程序），在接下来的输人对话框中输人“I”（输入），然后即可根据提示输人数据。假定输人如下表1所列的数据。

分类号登记号   作者    单价购进数借出数出版日期      出版社
3001    2006    王大明   56     40     12    2000年5月    海天出版社
3008    2003    张得功   45     60     21    2000年3月    华联出版社
3009    2004    李得胜   26     80     35    1999年12月   环宇出版社
3005    2012    杨国春   48     60     14     2000年6月   CPW出版公司
3013    2015    陈雷     24     40     16     2000年2月   家电出版社

程序的运行情况如下图所示。

visual basic 程序设计教程第四版答案刘炳文编著

假定磁盘上有一个学生成绩文件，存放着100个学生的情况，包括学号、姓名、性别、年龄和5门课程的成绩。试编写一个程序，建立以下4个文件：(1)女生情况的文件。........

null@null.com (hyf64) — Fri, 05 Aug 2016 17:00:13 +0800

假定磁盘上有一个学生成绩文件，存放着100个学生的情况，包括学号、姓名、性别、年龄和5门课程的成绩。试编写一个程序，建立以下4个文件：
(1)女生情况的文件。
(2)按5门课程成绩高低排列的学生情况的文件(需增加平均成绩一栏）?
(3)按年龄从小到大顺序排列的全部学生情况的文件。
(4)按5门课程及平均成绩的分数段（60分以下，60～70，71～80,81～90,90分以上)进行人数统计的文件。

    解：该题需要建立4个文件,其中第(2)和第(3)建立文件的操作是类似的，我们将只建立“按5门课程高低排列的学生情况的文件”。为了便于试验程序，我们给出—个学生成绩登记表，如下：
学号     姓名     性别年龄   成绩1 成绩2 成绩3 成绩4   成绩5 平均
20001   钟宇光男    20       87       76     90      78      94
........
200010  况新云女     18       87       96     92       98     93

上面的登记表共有10项，没有100项，但用来建立4个文件的操作是一样的。我们把这个登记表放到一个文件中，该文件名为stud.txt，（本程序的几个txt文件的位置都在D盘根目录）内容如下：

20001,"钟宇光","男",20,87,76,90,78,94
20002,"王海华","女",19,97,86,92,88,92
20003,"吴天明","男",21,82,86,79,86,87
20004,"王明华","女",20,89,65,74,88,84
20005,"程世清","男",22,57,46,50,68,59
20006,"于向群","女",23,67,76,70,42,64
20007,"李云清","男",18,97,86,98,89,92
20008,"钟洪涛","女",19,87,76,80,68,72
20009,"张小伟","男",24,86,63,70,68,74
200010,"况新云","女",18,87,96,92,98,93

按以下步骤操作。
(1)在窗体上画5个命令按钮。
(2)编写窗体的Load事件过程：
Private Sub Form_Load()
    Command1.Caption = "显示原来数据"
    Command2.Caption = "建立女生文件"
    Command3.Caption = "建立成绩文件"
    Command4.Caption = "建立分数段文件"
    Command5.Caption = "退出"
End Sub
’该过程用来设置5个命令按钮的标题。

(3)执行“工程”菜单中的“添加模块”命令，建立一个新的标准模块，然后在该模块中输人如下代码：
Type Stud_Grade
    num As Long
    Stud_Name As String
    Sex As String
    Age As Integer
    Grade1 As Single
    Grade2 As Single
    Grade3 As Single
    Grade4 As Single
    Grade5 As Single
    Grade_Aver As Single
End Type

Option Base 1
Public Stud_TabIe() As Stud_Grade
Public n As Integer
’上述代码建立了一个名为Stud_Grade的记录类型，然后定义了该记录类型的一个全局数组，名为Stud_Table。

(4)编写第一个命令按钮的事件过程：
Private Sub Command1_Click()

    n = InputBox("请输人文件中的记录个数")
    n = CInt(n)
    ReDim Stud_Table(n) As Stud_Grade
    Open "d:\stud.txt" For Input As #2
    sp = "    "
    Cls
    Print "文件中原来的数据"
    Print
    Print " 学号", "姓名"; sp; "性别"; sp; "年龄"; sp; "成绩1"; sp; _
          "成绩2"; sp; "成绩3"; sp; "成绩4"; sp; "成绩5"
    Print
    For x = 1 To n
        Input #2, Stud_Table(x).num, _
              Stud_Table(x).Stud_Name, _
              Stud_Table(x).Sex, _
              Stud_Table(x).Age, _
              Stud_Table(x).Grade1, _
              Stud_Table(x).Grade2, _
              Stud_Table(x).Grade3, _
              Stud_Table(x).Grade4, _
              Stud_Table(x).Grade5

        Print Stud_Table(x).num, _
              Stud_Table(x).Stud_Name; sp; _
              Stud_Table(x).Sex; sp; _
              Stud_Table(x).Age; sp; _
              Stud_Table(x).Grade1; sp; _
              Stud_Table(x).Grade2; sp; " "; _
              Stud_Table(x).Grade3; sp; " "; _
              Stud_Table(x).Grade4; sp; _
              Stud_Table(x).Grade5
    Next x
    Close #2

End Sub
’该过程用来显示原始文件中的数据。它首先打开原始文件，然后从文件中读出记录，并在窗体上显示出来。程序运行后，单击该按钮，在显示的输人对话框中输人10,单击“确定”按钮，结果如下图所示。

(5)编写第二个命令按钮的代码：
Private Sub Command2_Click()
    n = InputBox("请输人文件中的记录个数")
    n = CInt(n)
    ReDim Stud_Table(n) As Stud_Grade
    Open "d:\stud.txt" For Input As #1
    sp = "    "
    Cls
    Print "女生情况的数据:"
    For x = 1 To n
        Input #1, Stud_Table(x).num, _
              Stud_Table(x).Stud_Name, _
              Stud_Table(x).Sex, _
              Stud_Table(x).Age, _
              Stud_Table(x).Grade1, _
              Stud_Table(x).Grade2, _
              Stud_Table(x).Grade3, _
              Stud_Table(x).Grade4, _
              Stud_Table(x).Grade5
    Next x
    Close #1

    Open "d:\female.txt" For Output As #1
    Print
    Print " 学号", "姓名"; sp; "性别"; sp; "年龄"; sp; "成绩1"; sp; _
          "成绩2"; sp; "成绩3"; sp; "成绩4"; sp; "成绩5"
    Print
    For x = 1 To n
        If Stud_Table(x).Sex = "女" Then
            Print Stud_Table(x).num, _
                  Stud_Table(x).Stud_Name; sp; _
                  Stud_Table(x).Sex; sp; _
                  Stud_Table(x).Age; sp; _
                  Stud_Table(x).Grade1; sp; _
                  Stud_Table(x).Grade2; sp; " "; _
                  Stud_Table(x).Grade3; sp; " "; _
                  Stud_Table(x).Grade4; sp; _
                  Stud_Table(x).Grade5

            Write #1, Stud_Table(x).num, _
                  Stud_Table(x).Stud_Name, _
                  Stud_Table(x).Sex, _
                  Stud_Table(x).Age, _
                  Stud_Table(x).Grade1, _
                  Stud_Table(x).Grade2, _
                  Stud_Table(x).Grade3, _
                  Stud_Table(x).Grade4, _
                  Stud_Table(x).Grade5

End If
Next x

    Print
    Print "以上数据已经写入文件female.txt"
    Print
    Close #1
End Sub

    该过程首先打开原始文件,把它读到内存，然后査找文件中性别为“女”的记录，把这些记录在窗体上显示出来，同时写入文件female.txt。
    程序运行后，单击该命令按钮，将显示一个输人对话框，在对话框中输人10,再单击“确定”按钮，即可在窗体上显示女生情况的记录，在显示的同时，把每个记录写人文件。

执行上述操作后，建立女生情况文件female.txt,内容如下:
20002,"王海华","女",19,97,86,92,88,92
20004,"王明华","女",20,89,65,74,88,84
20006,"于向群","女",23,67,76,70,42,64
20008,"钟洪涛","女",19,87,76,80,68,72
200010,"况新云","女",18,87,96,92,98,93

(6)编写第三个命令按钮的事件过程:
Private Sub Command3_Click()
    n = InputBox("请输入文件中的记录个数")
    n = CInt(n)
    ReDim Stud_Table(n) As Stud_Grade
    Open "d:\stud.txt" For Input As #1
    sp = "    "
    Cls
    Print "按5门课程成绩髙低排列的数据："
    For x = 1 To n
        Input #1, Stud_Table(x).num, _
              Stud_Table(x).Stud_Name, _
              Stud_Table(x).Sex, _
              Stud_Table(x).Age, _
              Stud_Table(x).Grade1, _
              Stud_Table(x).Grade2, _
              Stud_Table(x).Grade3, _
              Stud_Table(x).Grade4, _
              Stud_Table(x).Grade5
    Next x
    Close #1

    '求平均分数
    For x = 1 To n
        Stud_Table(x).Grade_Aver = _
                   Format((Stud_Table(x).Grade1 + _
                   Stud_Table(x).Grade2 + _
                   Stud_Table(x).Grade3 + _
                   Stud_Table(x).Grade4 + _
                   Stud_Table(x).Grade5) / 5, "00.00")
    Next x

    '按平均分排序
    For k = n To 2 Step -1
        For l = 1 To k - 1
            If Stud_Table(l).Grade_Aver > Stud_Table(l + 1).Grade_Aver Then

                t = Stud_Table(l + 1).Grade_Aver
                Stud_Table(l + 1).Grade_Aver = Stud_Table(l).Grade_Aver
                Stud_Table(l).Grade_Aver = t

                t = Stud_Table(l + 1).num
                Stud_Table(l + 1).num = Stud_Table(l).num
                Stud_Table(l).num = t

                t = Stud_Table(l + 1).Stud_Name
                Stud_Table(l + 1).Stud_Name = Stud_Table(l).Stud_Name
                Stud_Table(l).Stud_Name = t

                t = Stud_Table(l + 1).Sex
                Stud_Table(l + 1).Sex = Stud_Table(l).Sex
                Stud_Table(l).Sex = t

                t = Stud_Table(l + 1).Age
                Stud_Table(l + 1).Age = Stud_Table(l).Age
                Stud_Table(l).Age = t

                t = Stud_Table(l + 1).Grade1
                Stud_Table(l + 1).Grade1 = Stud_Table(l).Grade1
                Stud_Table(l).Grade1 = t

                t = Stud_Table(l + 1).Grade2
                Stud_Table(l + 1).Grade2 = Stud_Table(l).Grade2
                Stud_Table(l).Grade2 = t

                t = Stud_Table(l + 1).Grade3
                Stud_Table(l + 1).Grade3 = Stud_Table(l).Grade3
                Stud_Table(l).Grade3 = t

                t = Stud_Table(l + 1).Grade4
                Stud_Table(l + 1).Grade4 = Stud_Table(l).Grade4
                Stud_Table(l).Grade4 = t

                t = Stud_Table(l + 1).Grade5
                Stud_Table(l + 1).Grade5 = Stud_Table(l).Grade5
                Stud_Table(l).Grade5 = t

            End If
        Next l
    Next k

    Open "d:\grade.txt" For Output As #1
    '输出按平均分排序的记录并写入到文件
    Print
    Print " 学号", "姓名"; sp; "性别"; sp; "年龄"; sp; "成绩1"; sp; _
          "成绩2"; sp; "成绩3"; sp; "成绩4"; sp; "成绩5"; sp; "平均"

For x = 1 To n

        Write #1, Stud_Table(x).num, _
              Stud_Table(x).Stud_Name, _
              Stud_Table(x).Sex, _
              Stud_Table(x).Age, _
              Stud_Table(x).Grade1, _
              Stud_Table(x).Grade2, _
              Stud_Table(x).Grade3, _
              Stud_Table(x).Grade4, _
              Stud_Table(x).Grade5, _
              Stud_Table(x).Grade_Aver

Next x

    Print
    Print "以上数据已写人文件grade, txt"
    Print
    Close #1
End Sub

    该过程首先打开原始文件，把数据读到内存，接着求出5门课程的平均分数，再按平均分对记录进行排序，然后把排过序的数据在窗体上显示出来，并把这些数据写入磁盘文件。程序运行后，单击该命令按钮,在输入对话框中输人10,单击“确定”按钮，即可输出排序后的数据，在窗体上会有结果显示。

上述过程建立的文件名为grade.txt,内容如下:

20005,"程世清","男",22,57,46,50,68,59,56
20006,"于向群","女",23,67,76,70,42,64,63.8
20009,"张小伟","男",24,86,63,70,68,74,72.2
20008,"钟洪涛","女",19,87,76,80,68,72,76.6
20004,"王明华","女",20,89,65,74,88,84,80
20003,"吴天明","男",21,82,86,79,86,87,84
20001,"钟宇光","男",20,87,76,90,78,94,85
20002,"王海华","女",19,97,86,92,88,92,91
20007,"李云清","男",18,97,86,98,89,92,92.4
200010,"况新云","女",18,87,96,92,98,93,93.2

(7)编写第四个命令按钮的事件过程：
    n = InputBox("请输人文件中的记录个数")
    n = CInt(n)
    ReDim Stud_Table(n) As Stud_Grade
    Static score(10, 6) As Single
    Dim assort(5, 6) As Single

    Open "d:\stud.txt" For Input As #1
    sp = "    "
    Cls

    For x = 1 To n
        Input #1, Stud_Table(x).num, _
              Stud_Table(x).Stud_Name, _
              Stud_Table(x).Sex, _
              Stud_Table(x).Age, _
              Stud_Table(x).Grade1, _
              Stud_Table(x).Grade2, _
              Stud_Table(x).Grade3, _
              Stud_Table(x).Grade4, _
              Stud_Table(x).Grade5

Next x
Close #1

'建立分数数组

    For i = 1 To n
        score(i, 1) = Stud_Table(i).Grade1
        score(i, 2) = Stud_Table(i).Grade2
        score(i, 3) = Stud_Table(i).Grade3
        score(i, 4) = Stud_Table(i).Grade4
        score(i, 5) = Stud_Table(i).Grade5
        score(i, 6) = Stud_Table(i).Grade_Aver
    Next i

    '输出分数数组
    Print "输出分数："
    Print
    For i = 1 To n
        For j = 1 To 6
            Print score(i, j);
        Next j
        Print
    Next i

    '对分数按分数段分类
    For i = 1 To n
        For j = 1 To 6
            If score(i, j) < 60 Then
                assort(1, j) = assort(1, j) + 1
                ElseIf score(i, j) >= 60 And score(i, j) <= 70 Then
                assort(2, j) = assort(2, j) + 1
                ElseIf score(i, j) > 70 And score(i, j) <= 80 Then
                assort(3, j) = assort(3, j) + 1
                ElseIf score(i, j) > 80 And score(i, j) < 90 Then
                assort(4, j) = assort(4, j) + 1
            Else
                assort(5, j) = assort(5, j) + 1
            End If
        Next j
    Next i

    '输出分类的分数并写人文件
    Open "d:\assort.txt" For Output As #1
    Print
    Print "*", "成绩1 "; "成绩2 "; "成绩3 "; "成绩4 "; "成绩5 "; "平均"
    Write #1, "*", "成绩1 "; "成绩2 "; "成绩3 "; "成绩4 "; "成绩5 "; "平均"
    Print

    For i = 1 To 5
        If i = 1 Then
            msg = "60分以下"
            ElseIf i = 2 Then
            msg = "60 ～ 70"
            ElseIf i = 3 Then
            msg = "71 ～ 80"
            ElseIf i = 4 Then
            msg = "81 ～ 90"
        Else
            msg = "90分以上"
        End If
        Print msg,
        Write #1, msg,

        For j = 1 To 6
            Print assort(i, j); "   ";
            Write #1, assort(i, j); "   ";
        Next j

        Print #1, " "
        Print
    Next i
    Close #1
    Print
    Print "以上数据已写人文件 assort.txt"
End Sub

    该过程首先打开原始文件，把数据读到内存，接着求出每个学生课程成绩的平均分, 然后把5门课程的分数及平均分放到一个二维数组中，再对这个二维数组进行处理，从中求出每门课程及平均分的不同分数段的人数，并把它放入另一个二维数组中。最后输出各分数段的人数，同时把这些数据写人磁盘文件。
    程序运行后，单击第四个命令按钮,在输人对话框中输人10,单击“确定”按钮后，结果如下图所示。

    以上过程建立的文件名为assort.txt,内容如下：

"*","成绩1 ","成绩2 ","成绩3 ","成绩4 ","成绩5 ","平均"
"60分以下",1,"   ",1,"   ",1,"   ",1,"   ",1,"   ",1,"   ",
"60 ～ 70",1,"   ",2,"   ",2,"   ",3,"   ",1,"   ",1,"   ",
"71 ～ 80",0,"   ",3,"   ",3,"   ",1,"   ",2,"   ",3,"   ",
"81 ～ 90",6,"   ",3,"   ",0,"   ",4,"   ",2,"   ",2,"   ",
"90分以上",2,"   ",1,"   ",4,"   ",1,"   ",4,"   ",3,"   ",

(8)编写第五个命令按钮的事件过程:
Private Sub Command5_Click()
    End
End Sub

VB编程：假定在磁盘上已建立了一个通信录文件，文件中的每个记录包括编号、用户名、电话号码和地址等4项内容。试编写一个程序，用自己选择的检索方法（如二分法）从文件中查找指定的用户的编号，并在文本框中输出

null@null.com (hyf64) — Thu, 04 Aug 2016 08:12:46 +0800

假定在磁盘上已建立了一个通信录文件，文件中的每个记录包括编号、用户名、电话号码和地址等4项内容。试编写一个程序，用自己选择的检索方法（如二分法）从文件中查找指定的用户的编号，并在文本框中输出其名字、电话号码和地址。

解：我们假定已建立了通信录文件，并且知道该文件中记录的个数。通信录文件名为comm.txt，该文件中记录的个数存放在tel.txt文件中，这两个文件均位于d:\目录下。
comm.txt的内容如下：
1602,"张三","13776541255","解放路15号"
1609,"李四","13987651543","建国大道123号"
1601,"王五麻子","13598769988","张家巷98号"
1603,"江学民","18977650876","胜利路19号附3号"
1606,"李小明","18632781234","和平路88号"
1605,"潘小东","12587654455","北京路129号"
1608,"胡鑫","18798765432","青年大道45号"
1604,"龚小英","13298231877","重庆东路8号"
1607,"朱明","18976541234","韶山北路1号"

tel.txt文件的内容为：9

按以下步骤操作。

(1)在窗体画三个命令按钮，其标题分別为“添加数据”、“检索数据”和“退出”，在属性窗口中设置适当的字体和字号，完成后的窗体如下图所示。

(2)执行“工程”菜单中的“添加窗体”命令，添加一个窗体（Form2)，在窗体上画4个标签、3个文本框和一个命令按钮，如下图所示。

(3)执行“工程”菜单中的“添加模块”命令，添加一个标准模块，在该模块中定义如下类型和变量:
Type Tel_Addr
num As Integer
User_Name As String
Tel As String
User_Addr As String
End Type

Option Base 1
Public Tel_Addr_Rec() As Tel_Addr
Public n As Integer

(4)编写第一个窗体的Form_Load事件过程：

Private Sub Form_Load()
Command1.Enabled = False
End Sub

在该过程中，把第一个命令按钮（即“添加数据”）的Enabled属性设置为False。也就说，在程序开始运行时，该按钮是禁用的。只有在单击“检索数据”按钮后才能启用“添数据”按钮（见后）。

(5)编写第一个窗体中“添加数据”按钮的事件过程：

Private Sub Command1_Click()
    num = InputBox("请输入要添加的用户数量")
    num = CInt(num)
    n = n + num
    ReDim Tel_Addr_Rec(num) As Tel_Addr
    Open "d:\comm.txt" For Append As #1
    For i = 1 To num
        Tel_Addr_Rec(i).num = InputBox("输人编号：")
        Tel_Addr_Rec(i).User_Name = InputBox("请输人用户名字")
        Tel_Addr_Rec(i).Tel = InputBox("请输人用户电话号码")
        Tel_Addr_Rec(i).User_Addr = InputBox("请输人地址")
        Write #1, Tel_Addr_Rec(i).num, _
              Tel_Addr_Rec(i).User_Name, _
              Tel_Addr_Rec(i).Tel, _
              Tel_Addr_Rec(i).User_Addr
    Next i
    Close #1
    Open "d:\tel.txt" For Output As #1
    Print #1, n
    Close #1
End Sub

该程序用来向通信录文件中添加数据。如前所述，只有在执行“检索数据”按钮的事件过程后才能执行这个事件过程。过程中的全局变量n在执行“检索数据”事件过程时得到，新添加的id录个数为num,添加完数据后，文件中记录的个数为n = n + mun。在过程的最后，把n写人存放记录个数的文件（tel.txt)，以备下次检索时使用。

(6)编写第一个窗体中“检索数据”按钮事件过程：

Private Sub Command2_Click()

    Command1.Enabled = True
    Open "d:\tel.txt" For Input As #1
    Input #1, n
    Close #1

    ReDim Tel_Addr_Rec(n) As Tel_Addr
    Open "d:\comm.txt" For Input As #2
    x = 1
    '读数据
    Me.Cls
    Print "文件中原来的数据"
    Do While Not EOF(2)
        Input #2, Tel_Addr_Rec(x).num, _
              Tel_Addr_Rec(x).User_Name, _
              Tel_Addr_Rec(x).Tel, _
              Tel_Addr_Rec(x).User_Addr

        Print Tel_Addr_Rec(x).num, _
              Tel_Addr_Rec(x).User_Name, _
              Tel_Addr_Rec(x).Tel, _
              Tel_Addr_Rec(x).User_Addr
        x = x + 1
    Loop
    Close #2

'排序

    For i = n To 2 Step -1
        For j = 1 To i - 1
            If Tel_Addr_Rec(j).num > Tel_Addr_Rec(j + 1).num Then
                T = Tel_Addr_Rec(j + 1).num
                Tel_Addr_Rec(j + 1).num = Tel_Addr_Rec(j).num
                Tel_Addr_Rec(j).num = T

                T = Tel_Addr_Rec(j + 1).User_Name
                Tel_Addr_Rec(j + 1).User_Name = Tel_Addr_Rec(j).User_Name
                Tel_Addr_Rec(j).User_Name = T

                T = Tel_Addr_Rec(j + 1).Tel
                Tel_Addr_Rec(j + 1).Tel = Tel_Addr_Rec(j).Tel
                Tel_Addr_Rec(j).Tel = T

                T = Tel_Addr_Rec(j + 1).User_Addr
                Tel_Addr_Rec(j + 1).User_Addr = Tel_Addr_Rec(j).User_Addr
                Tel_Addr_Rec(j).User_Addr = T

            End If
        Next j
    Next i

    '排序后输出
    Print "---------------------------"
    Print "排序后的数据："
    For i = 1 To n
        Print Tel_Addr_Rec(i).num, _
              Tel_Addr_Rec(i).User_Name, _
              Tel_Addr_Rec(i).Tel, _
              Tel_Addr_Rec(i).User_Addr
    Next i

    '检索
    flag = 0
    ta = InputBox("请输人要检索的编号", "输入査找内容", , 5000, 6000)
    lo = 1
    hi = n + 1
     i = Int(n / 2 + 1)
    For k = 1 To Int(n / 2)
        If Tel_Addr_Rec(i).num = ta Then
            Form2.Show
            Form2.Text1.Text = Tel_Addr_Rec(i).User_Name
            Form2.Text2.Text = Tel_Addr_Rec(i).Tel
            Form2.Text3.Text = Tel_Addr_Rec(i).User_Addr
            flag = 1
            Exit For
        Else
            If Tel_Addr_Rec(i).num < ta Then
                lo = i
            Else
                hi = i
            End If
        End If
        i = Int((hi - lo) / 2) + lo
    Next k
    If flag = 0 Then
        MsgBox "没有要査找的编号", , ""
    End If

End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Form_Load()
Command1.Enabled = False
End Sub

该过程代码较多，实际上执行了3种操作，即：
1.把通信录中的数据读到内存，放到记录数组 Tel_Addr_rec中，然后在窗体上显示出来。
2.对记录按编号从小到大的顺序迸行排序。二分法（折半法）只能对排过序的记录进行检索，因此，在检索前必须对记录排序。
3.用二分法检索数据。二分法检索的基本思路是：首先把要检索的数据项与文件中位于中部(二分之一处)的记录进行比较，如果相等，则它就是要检索的数据；如果大于，则要査找的数据项位于文件的后半部，否则位于前半部，然后再取后半部或前半部继续检索，直至找到所需要的数据项（如果有的话）。找到所需要的数据 (编号）后，将打开第二个窗体，显示记录的内容；如果没有找到，则显示相应的信息。

(7)编写第一个窗体中“退出”按钮事件过程：
Private Sub Command3_Click()
End
End Sub
该过程用来结束程序运行。

(8)编写第二个窗体的事件过程：
Private Sub Command1_Click()
Unload Me
End Sub

Private Sub Form_Load()
    Label1.FontSize = 16
    Label1.Caption = "姓名"
    Label2.FontSize = 16
    Label2.Caption = "电话"
    Label3.FontSize = 16
    Label3.Caption = "地址"
    Label4.FontSize = 16
    Label4.FontName = "幼圆"
    Label4.FontBold = True
    Label4.Caption = "要査找的用户为："
    Text1.FontSize = 16
    Text2.FontSize = 16
    Text3.FontSize = 16
    Command1.Caption = "返回"
    Command1.FontSize = 18
    Command1.FontName = "隶书"
End Sub

最后运行此程序，效果如下图所示。

VB编程：编写程序，按下列格式输出月历，并把结果放入一个文件中：

null@null.com (hyf64) — Thu, 04 Aug 2016 08:08:11 +0800

编写程序，按下列格式输出月历，并把结果放入一个文件中：

SUN MON TUE WED THU FRI SAT
1    2    3     4    5    6    7
8      9     10     11 12   13 14
15   16 17     18 19   20 21
22    23 24    25   26   27   28
29    30 31

解：在窗体上建立一个命令按钮，然后编写如下事件过程。

Private Sub Command1_Click()

Open "d:\monology.txt" For Output As #1
Print #1, "SUN    "; "MON    "; "TUE    "; "WED    "; "THU    "; "FRI    "; "SAT"
Print #1, ""
For i = 1 To 31
If i Mod 7 = 0 Then
Print #1, i
Print #1, ""
Else
If i < 10 Then
Print #1, i; "    ";
Else
Print #1, i; "   ";
End If
End If
Next i
Close #1

MsgBox "已经在D盘根目录里建立了 monology.txt 点“确定”将打开它。"
Shell "c:\windows\notepad.exe " & "d:\monology.txt", vbNormalFocus

End Sub

程序运行后，单击按钮，将在当前目录下建立一个名为monology.txt的文件，程序将调用记事本打开它。

编写一个程序，用来处理活期存款的结算事务。程序运行后，先由用户输入一个表示结存的初值，然后进入循环，询问是接收存款还是扣除支出。每次处理之后，程序都要显示当前的结存，并把它存入一个文件中。要求输出的浮

null@null.com (hyf64) — Wed, 03 Aug 2016 16:46:58 +0800

编写一个程序，用来处理活期存款的结算事务。程序运行后，先由用户输入一个表示结存的初值，然后进入循环，询问是接收存款还是扣除支出。每次处理之后，程序都要显示当前的结存，并把它存入一个文件中。要求输出的浮点数保留小数点后两位。

解：编写程序如下：

Private Sub Form_Click()

    Open "d:\delosit.txt" For Output As #1
    initVal = InputBox("", "请输入结存初值")
    initVal = Val(initVal)
    initVal = Format(initVal, "0.00")
    Print #1, "结存初值为"; initVal
    cl = Chr(13) & Chr(10)
    Do
        answer = InputBox("请选择" & cl & "1.接收存款" & cl & _
                 "2.扣除支出" & cl & "3.退出", "选择")
        If answer = 1 Then
            currVal = InputBox("请输入存款数")
            currVal = Val(currVal)
            initVal = initVal + currVal
            initVal = Format(initVal, "0.00")
            Print "存入"; currVal; "当前结存数"; initVal
            Print #1, "存入"; currVal; "当前结存数"; initVal
        ElseIf answer = 2 Then
            currVal = InputBox("请输入支出数")
            currVal = Val(currVal)
            initVal = initVal - currVal
            initVal = Format(initVal, "0.00")
            Print "支出"; currVal; "当前结存数"; initVal
            Print #1, "支出"; currVal; "当前结存数"; initVal
        Else
            Exit Do
        End If
    Loop
    Close 1

End Sub

运行此程序，单击窗体，根据显示的输入对话框输入所需要的数据，程序即可以执行存款，支出等操作，并即时显示在窗体上，同时也会把数据写入到delosit.txt这个文件中。

运行此程序，输入图中所示数据，效果如下图所示。

运行此程序后，delosit.txt这个文件的跟窗体显示的是一样的，即：
结存初值为：35847.64
存入 12000 ，当前结存为：47847.64
存入 3765.5 ，当前结存为：51613.14
支出 4000 ，当前结存为：47613.14
存入 2000 ，当前结存为：49613.14
存入 18000 ，当前结存为：67613.14
支出 3428 ，当前结存为：64185.14

某单位全年每次报销的经费（假定为整数）存入在一个磁盘文件中，试编写一个程序，从该文件中读出每次报销的经费，计算其总和，并将结果存入另一个文件中。

null@null.com (hyf64) — Wed, 03 Aug 2016 16:23:30 +0800

某单位全年每次报销的经费（假定为整数）存入在一个磁盘文件中，试编写一个程序，从该文件中读出每次报销的经费，计算其总和，并将结果存入另一个文件中。

解：假定存入报销经费的文件为outlayI.txt，位置在D盘根目录，其内容为：
3635
1476
3267
4356
8542
7564
8754
3614
6547
12435
2314
6755
69259

编写如下事件过程：

Private Sub Form_Click()
Me.Cls
Open "d:\outlayI.txt" For Input As #1
Print "从文件读出每次报销经费，显示并相加："

    Do While Not EOF(1)
        Input #1, n
        Print n
        Sum = Sum + n
    Loop
    Close 1
    Print
    Print "把计算结果（总和）写入文件(d:\outlayO.txt)。"
    Print Sum
    Open "d:\outlayO.txt" For Output As #1
    Print #1, Sum
    Close 1

MsgBox "已经在d盘根目录里建立了 outlayO.txt 文件(计算结果已经写入这个文件)，点“确定”将打开它。"
Shell "c:\windows\notepad.exe " & "d:\outlayO.txt", vbNormalFocus

End Sub

运行此程序，结果如下图所示。

visual basic 程序设计教程第4版课后答案刘炳文编著

在磁盘上以文件形式建立一个三角函数表，其格式如下：

null@null.com (hyf64) — Wed, 03 Aug 2016 15:54:41 +0800

在磁盘上以文件形式建立一个三角函数表，其格式如下：
*      SIN      COS      TAN
0       ?          ?          ?
1       ?          ?          ?
2       ?          ?        ?
3       ?          ?        ?
…      …         …       …
99     ?        ?         ?

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

Private Sub Command1_Click()

    Dim sinval, cosval, tanval As Single
    Open "d:\TrigFun.txt" For Output As #1
    Print #1, " *", "SIN", "COS", "TAN"
    Print #1, ""
    For i = 1 To 90
        arg = i * 3.14159 / 180
        sinval = Sin(arg)
        sinval = Format(sinval, "0.000000")
        cosval = Cos(arg)
        cosval = Format(cosval, "0.000000")
        tanval = Tan(arg)
        tanval = Format(tanval, "0.000000")
        Print #1, i, sinval, cosval, "0" & tanval
    Next
    Close #1

    MsgBox "已经在d盘根目录里建立了 TrigFun.txt 文件，点“确定”将打开它。"
    Shell "c:\windows\notepad.exe " & "d:\TrigFun.txt", vbNormalFocus

End Sub

******************************
visual basic程序设计教程第四版答案刘炳文编著

仿照本章中的例子（例13.1）建立多窗体程序。

null@null.com (hyf64) — Wed, 03 Aug 2016 11:18:10 +0800

仿照本章中的例子（例13.1）建立多窗体程序。
设计一个“古诗选读”程序，该程序由3个字体构成，其中一个窗体为封面窗体，一个窗体为诗歌列表窗体，一个为诗歌显示窗体。，程序运行后，先显示封面窗体，接着显示列表窗体，在该窗体中列出所要阅读的古诗目录，双击某个目录后，在另一个窗体的文本框中显示相应的诗文内容。

1.首先建立第一个窗体，中间一个image控件（加入漂亮图片，起美化作用），下面两个按钮，如下图所示。
此窗体属性：
Name:"多窗体程序示例"
Caption:ListForm
按钮字体为“隶书”，大小为小二

编写如下代码：（注意，此代码只输入了四首诗歌，其它的大家自己输入吧。）

Private Sub Command1_Click()
ListForm.Show
FormCover.Hide
End Sub

Private Sub Command2_Click()
End
End Sub

2.编写第二个窗体（ListForm），即诗歌选择窗体，窗体中一个标签，一个按钮，再加一个列表框控件。各控件字体大小等属性可自己选择（本示例中，标签选择行楷字体，大小为二号；列表框字体为幼圆，字体大小为三号；按钮字体为隶书，大小为小二）。

编写如下代码

Private Sub Command1_Click()
Unload Me
End Sub

Private Sub Form_Load()
    List1.AddItem "望天门山"
    List1.AddItem "黄鹤楼送孟浩然之广陵"
    List1.AddItem "黄鹤楼"
    List1.AddItem "蜀相"
    List1.AddItem "早发白帝城"
    List1.AddItem "秋日登岳阳楼晴望"
    List1.AddItem "经河源军汉村作"
    List1.AddItem "金陵怀古"
    List1.AddItem "赋得古原草送别"
End Sub

Private Sub Form_Unload(Cancel As Integer)
FormCover.Show
End Sub

Private Sub List1_DblClick()
ListForm.Hide
SG.Caption = List1.Text

Select Case List1.ListIndex
Case 0

        SG.Label1.Caption = "李白"
        SG.Text1.Text = "天门中断楚江开，" & Chr(13) & Chr(10) & _
                        "碧水东流至此回。" & Chr(13) & Chr(10) & _
                        "两岸青山相对出，" & Chr(13) & Chr(10) & _
                        "孤帆一片日边来。"
      Case 1

        SG.Label1.Caption = "李白"
        SG.Text1.Text = "故人西辞黄鹤楼，" & Chr(13) & Chr(10) & _
                        "烟花三月下扬州" & Chr(13) & Chr(10) & _
                        "孤帆远影碧空尽，" & Chr(13) & Chr(10) & _
                        "唯见长江天际流。"

Case 2

        SG.Label1.Caption = "崔颢"
        SG.Text1.Text = "昔人已乘黄鹤去，" & Chr(13) & Chr(10) & _
                        "此地空余黄鹤楼。" & Chr(13) & Chr(10) & _
                        "黄鹤一去不复返，" & Chr(13) & Chr(10) & _
                        "白云千载空悠悠。" & Chr(13) & Chr(10) & _
                        "晴川历历汉阳树，" & Chr(13) & Chr(10) & _
                        "芳草萋萋鹦鹉洲。" & Chr(13) & Chr(10) & _
                        "日暮乡关何处是？" & Chr(13) & Chr(10) & _
                        "烟波江上使人愁。"
      Case 3

        SG.Label1.Caption = "杜甫"
        SG.Text1.Text = "丞相祠堂何处寻，" & Chr(13) & Chr(10) & _
                        "锦官城外柏森森。" & Chr(13) & Chr(10) & _
                        "映阶碧草自春色，" & Chr(13) & Chr(10) & _
                        "隔叶黄鹂空好音。" & Chr(13) & Chr(10) & _
                        "三顾频烦天下计，" & Chr(13) & Chr(10) & _
                        "两朝开济老臣心。" & Chr(13) & Chr(10) & _
                        "出师未捷身先死，" & Chr(13) & Chr(10) & _
                        "长使英雄泪满襟。"
      Case 4

Case 5

Case 6

End Select

SG.Show
End Sub

3.最后编写诗歌显示窗体（SG）
窗体有三个控件：一个标签，用于显示诗歌作者，（作者名称就直接用窗体的Caption来显示了），一个文本框，用来显示诗歌，一个按钮，用于返回。

编写代码如下：
Private Sub Command1_Click()
Unload Me
End Sub

Private Sub Form_Unload(Cancel As Integer)
ListForm.Show
End Sub

最后运行程序，显示诗歌效果如下图所示。

在窗体上画一个文本框和三个命令按钮，在文本框中输入一段文本（汉字），然后实现以下操作：(1)通过字体对话框把文本框中文本的字体设置为黑体，字体样式设置为粗斜体，字体大小设置为24。......

null@null.com (hyf64) — Fri, 29 Jul 2016 16:38:45 +0800

在窗体上画一个文本框和三个命令按钮，在文本框中输入一段文本（汉字），然后实现以下操作：
(1)通过字体对话框把文本框中文本的字体设置为黑体，字体样式设置为粗斜体，字体大小设置为24。该操作在第一个命令按钮的亊件过程中实现。
(2)通过颜色对话框把文本框中文字的前景色设置为红色。该操作在第二个命令按钮的事件过程中实现。
(3)通过颜色对话框把文本框中文字的背景色设置为黄色。该操作在第三个命令按钮的事件过程中实现。

解：在窗体上画一个文本框、一个通用对话框和三个命令按钮，并把文本框的MultiLine属性设置为True。
    编写如下事件过程：Private Sub Command1_Click()
    CommonDialog1.Flags = 3
    CommonDialog1.ShowFont
    Text1.FontName = CommonDialog1.FontName
    Text1.FontSize = CommonDialog1.FontSize
    Text1.FontBold = CommonDialog1.FontBold
    Text1.FontItalic = CommonDialog1.FontItalic
    Text1.FontUnderline = CommonDialog1.FontUnderline
    Text1.FontStrikethru = CommonDialog1.FontStrikethru
End Sub

Private Sub Command2_Click()
    CommonDialog1.Flags = vbccrgbinit
    CommonDialog1.Color = BackColor
    CommonDialog1.Action = 3
    Text1.ForeColor = CommonDialog1.Color
End Sub

Private Sub Command3_Click()
    CommonDialog1.Flags = vbccrgbinit
    CommonDialog1.Color = BackColor
    CommonDialog1.Action = 3
    Text1.BackColor = CommonDialog1.Color
End Sub

Private Sub Form_Load()
    Me.Caption = "设置文本框字体和颜色"
    Command1.Caption = "设置字体"
    Command2.Caption = "设置前景颜色"
    Command3.Caption = "设置背景颜色"
    msg = vbCrLf & "诗情放，剑气豪。" & vbCrLf & "英雄不把穷通较。"
    msg = msg & vbCrLf & "江中斩蛟，云间射雕，席上挥毫。" & vbCrLf
    msg = msg & "他得志笑闲人，他失脚闲人笑。"
    Text1.Text = msg
End Sub

运行结果如下图所示：

*********************
新世纪计算机基础教育丛书丛书主编：谭浩强
Visual Basic 程序设计教程题解与上机指导（第四版）刘炳文编著