程序填空和改错.docVIP

【程序填空】 ------------------------------------------------------- 题目：窗体上建立了一个文本框Text1，用于显示结果。 单击按钮弹出输入对话框录入0-6之间的数值， 判断输入值为星期几 请在【?】处填入正确的内容 ------------------------------------------------------- Private Sub Command1_Click() Dim x As Integer **********SPACE********** x = Val(【?】(请输入星期几(0～6))) **********SPACE********** Select Case 【?】 Case Is = 0 Text1.Text = 星期日(Sunday) Case Is = 1 Text1.Text = 星期一(Monday) Case Is = 2 Text1.Text = 星期二(Tuesday) Case Is = 3 Text1.Text = 星期三(Wednesday) Case Is = 4 Text1.Text = 星期四(Thursday) Case Is = 5 Text1.Text = 星期五(Friday) Case Is = 6 Text1.Text = 星期六(Saturday) **********SPACE********** Case 【?】 Text1.Text = 输入错误 End Select End Sub 1.InputBox 2.x 3.Else ------------------------------------------------ 【程序改错】 ------------------------------------------------ 题目：其功能是从数据文件（in5.txt）中读出学生的成绩，保存在数组arr（100）中。 单击统计按钮（Command1），统计总人数、平均分、及格人数和不及格人数， 将统计结果显示在相应的文本框（Text1、Text2、Text3、Text4）中。 ------------------------------------------------ 注意：不可增加或删除程序行，也不可以更改程序结构 ------------------------------------------------ Private arr(100) As Integer Private n As Integer Private Sub Form_Load() Open App.Path \in5.txt For Input As #1 n = 0 **********FOUND********** Do While EOF(1) Input #1, x n = n + 1 arr(n) = x Loop Close #1 End Sub Private Sub Command1_Click() Text1.Text = n Sum = 0 count1 = 0 count2 = 0 For i = 1 To n Sum = Sum + arr(i) **********FOUND********** If arr(i) = 60 Then count1 = count1 + 1 Else count2 = count2 + 1 End If **********FOUND********** Avg = Sum / m Next Text2.Text = Int(Avg + 0.5) Text3.Text = count1 Text