VB课堂作业-2.docVIP

程序设计题（1） D盘上有1个tudent.txt文件，数据为某班级学生姓名和计算机成绩，格式如右表所示，编写程序求该班计算机平均成绩并显示在标签Label1上，同时把成绩90分以上的学生姓名和成绩存放到D盘格式的“good.txt”文件中，单击窗体执行程序。Public Sub Form_Click() Dim Xm As String, Cj As Integer, S As Integer, n As Integer Open C:\Student.txt For Input As #1 Open C:\Good.txt For Output As #2 Do Until EOF(1) Input #1, Xm, Cj If Cj 90 Then Write #2, Xm, Cj S = S + Cj: n = n + 1 Loop Close Print 平均成绩为; S / n End Sub 程序设计题（2） 编制单击窗体的事件过程，从文件C:\Employee.txt中依次读取职工的姓名和性别。挑出其中女职工，将其姓名存放到盘的“.txt”文件中，女职工的人数显示在窗体上。输入文件C:\Employee.txt的格式如右。 Public Sub Form_Click() Dim Xm As String, Xb As String, n As Integer Open C:\Employee.txt For Input As #1 Open C:\Female.txt For Output As #2 Do While Not EOF(1) Input #1, Xm, Xb If Xb = 女 Then Write #2, Xm, Xb: n = n + 1 Loop Close Print 女职工有; n; 人 End Sub 程序设计题（3） 编制单击窗体的事件过程，从文件C:\Workers.txt中依次读取职工的姓名和年龄。选出其中姓王的职工，将其姓名和年龄存放到盘格式的“.txt”文件中，并求出全体职工的平均年龄显示在窗体上。输入输出文件格式如右。 Public Sub Form1_Click() Dim Xm As String, Nl As Integer, S As Integer, n As Integer Open C:\Workers.txt For Input As #1 Open C:\Wang.txt For Output As #2 While Not EOF(1) Input #1, Xm, Nl If Left(Xm, 1) = 王 Then Write #2, Xm, Nl S = S + Nl: n = n + 1 Wend Close Print 全体职工的平均年龄, S / n End Sub F(x() As Integer, S As Integer)，参数x()是一个整型数组，可用UBound(x)函数获知其下标。要求在自定义函数过程中找出x()中的素数，将x()中的素数之和通过参数S传回，而函数值F返回x()中的素数个数。 Public Function F(x() As Integer, S As Integer) As Integer For i = 1 To UBound(x) For j = 2 To Sqr(x(i)) If x(i) Mod j = 0 Then Exit For Next j If j Sqr(x(i)) Then F = F + 1: S = S + x(i) Next i End Function 程序设计题（5） 试编写一个自定义函数F(x() As Integer)，参数x()是一个整型数组，可用UBound(x)函数获知其下标。要求在自定义函数过程中用冒泡法将x()排序后传回，函数值F返回排序过程中的交换次数。 Public Function F(x() As Integer) As Integer n = UBound(x) For i = 1 To n - 1 For j = i + 1 To n If x(i) x(j) Then temp = x(i): x(i) = x