填空题

以下是一个比赛评分程序。在窗体上建立一个名为Text1的文本框数组，然后画一个名为Text2的文本框和名为Command1命令按钮。运行时在文本框数组中输入7个分数，单击“计算得分”命令按钮，则最后得分显示在Text2文本框中(去掉一个最高分和一个最低分后的平均分几位最后得分)，如图16-9所示。请填空。

Private Sub Command1_Click()
Dim k As Integer
Dim sum Ad Single, max As Single, min As Single
sum=Text1(0)
max=Text1(0)
min= 【10】
For k= 【11】 To 6
If max＜Text1(k)Then
max=Text1(k)
End If
If min＞Text1(k)Then
Min=Text1(k)
End If
sum=sum+Text1(k)
Next k
Text2=( 【12】 )/5
End Sub

【参考答案】

[10]Text(0) [11]1 [12]sum-max-min

<上一题目录下一题>

热门试题

填空题

设有如下记录类型： Type student Number As String*10 Name As String*8 End Type 窗体中有若干控件，单击其中的一个按钮Command1时，执行如下事件过程，该过程的功能是把数据输出到指定的文件中。根据题意，请完善下列程序。 Private Sub Command1_click() Dim stu As student Open C: file. dat For Random As #1 Len=Len( 【13】 ) Title $= 写记录到随机文件 Str1 $= 请输入学生名 Str2 $= 请输入学生名 For i=1 To 5 stu. Number=InputBox(Str1 $, Title $) stu. Name=InputBox$(Str2 $, Title $) 【14】 #1, i, stu Next i Close 【15】 End Sub

填空题

在窗体上画一个命令按钮和一个文本框。然后编写命令按钮的Click事件过程。程序运行后，在文本框中输入一串英文字母(不区分大小写)，即命令按钮，程序可找出在文本框中输入的其他所有英文字母，并以大小写方式降序显示到Text1中，显示的字符串是ZYXWUTSRQPONMLKJIHGEC。请填空。 Private Sub Oommandl_Click() Dim str As String, s As String, c As String str=UCase(Text1) s= c= Z While c＞= A If InStr(str, c)=0 Then s=【8】 End If c=Chr $(Asc(C)【9】) Wend If s＜＞ Then Text1=s End If End Sub

相关试题