题目内容

以下是一个竞赛评分程序。8位评委，去掉一个最高分和一个最低分，计算下均分(设满分为10分)，
请填空补充完整。
Private Sub Form_Click()
Dim Max as Integer,Min as Integer
Dial i as Integer,x as Integer,s as Integer
Dim p as Single
Max=0
Min=10
For i=1 To 8
x=Val (InputBox("请输入分数："))
If 【】 Then Max=x
If 【】 Then Min=x
s=s+x
Next i
s= 【】
p=s/6
MsgBox"最后得分："&P
End Sub

查看答案

搜索结果不匹配？点我反馈

更多问题

试述组织文化的作用。

简述人际关系参照测量法的内容及特点。

新型的企业价值观应包含三个方面的内容:一是(),二是(),三是()。

请在“答题”菜单上选择相应的命令，完成下面的内容：
某模拟网站的主页地址是：HTTP：//locamost/index.htm，打开此主页，浏览“等级考试”页面，查找“等级考试介绍”的页面内容并将它以文本文件的格式保存到考生文件夹下，命名为“DJKSJS.txt”。