更多"模块A提供某个班级某门课程的成绩给模块B，模块B计算平均成绩、最高分和"的相关试题:
[单项选择]检索每门课程的最高分，要求得到的信息包括课程名称、姓名和最高分，正确的命令是( )。
A. SELECT 课程．课程名称，学生．姓名，MAX(成绩)AS 最高分； FROM 成绩，课程，学生； WHERE 成绩．课程编号=课程．课程编号； AND 成绩．学号=学生．学号； GROUP BY 课程编号
B. SELECT 课程．课程名称，学生．姓名，MAX(成绩)AS 最高分； FROM 成绩，课程，学生； WHERE 成绩．课程编号=课程． 课程编号； AND 成绩．学号=学生．学号； GROUP BY 课程．课程编号
C. SELECT 课程．课程名称，学生．姓名，MAX(成绩)AS 最高分； FROM 成绩，课程，学生； WHERE 成绩．课程编号=课程．课程编号； AND 成绩．学号=学生．学号； ORDER BY 课程．课程编号
D. SELECT 课程．课程名称，学生．姓名，MAX(成绩)AS 最高分； FROM 成绩，课程，学生； WHERE 成绩．课程编号=课程．课程编号； AND 成绩．学号=学生．学号； ORDER BY 课程．课程编号
[单项选择]某班学生的统计学平均成绩是78分，最高分是95分，最低分是65分，根据这些信息，可以计算的测度离散程度的统计量是（）。
A. 方差
B. 极差
C. 标准差
D. 变异系数
[填空题]下列是一个体操评分程序。设满分为10分，20位评委，除去一个最高分和一个最低分，计算平均分。
Private Sub Command1 Click（ ）
Max==0
Min=10
For i=1 To 20
n=Val(InputBox("请输入分数"))
If n＞Max Then Max=n
If n＜Min Then Min=n
s=s+n
______
S=S-Min-Max
P=s/18
Print"最高分"; Max; "最低分"; Min
Print"最后得分：": P
End Sub
[填空题]以下是一个竞赛评分程序。8位评委，去掉一个最高分和一个最低分，计算平均分（设 满分为10分）。请填空补充完整。
Private Sub Form_Click（ ）
Dim Max As Integer, Min As Integer
Dim 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
[填空题]以下是一个竞赛评分程序8位评委，去掉一个最高分和一个最低分，计算平均分(设满分为10分)，请填空补充完整。
Private Sub Form_Click（ ）
Dim Max as Integer，Min as Integer
Dim i aS Integer， X as Integer，S as Integer
Dim p aS Single
Max=0
Min=10
For i=1 TO 8
x=Va1(1nputBox("请输入分数："))
If 【13】 Then Max=x
If 【14】 Then Min=x
s=s+x
Next i
s= 【15】
p=s/6
MsgBox"最后得分："& p
End Sub
[填空题]以下是一个竞赛评分程序。8位评委，去掉一个最高分和一个最低分，计算平均分(设满分为10分)，请填空补充完整。
Private Sub Form_Click（ ）
Dim Max as Integer，Min as Integer
Dim 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 【13】 Then Max=x
lf 【14】 Then Min=x
s=s +x
Next i
s= 【15】
p=s/6
MsgBox"最后得分："& p
End Sub
[填空题]以下是一个比赛的评分系统，假设有8名评委，评分标准是去掉一个最高分和一个最低分，剩余分数的平均分即为选手的得分。试将程序补充完整。
Private sub Form_Click( )
Dim max as integer,min as integer,i as integer,num as integer,sum as integer,avg as single
max=0
min=10
For i=1 to 8
num=val(inputbox("请输入分数" )
if 【13】 then max=hum
if 【14】 then min=num
sum=sum+num
Next i
sum= 【15】
avg=sum/6
Msgbox "最后得分:" & avg
End sub
[简答题]Excel操作题
(1)计算每个学生的平均分，不保留小数。
(2)分别合并“最高分”与“最低分”所在的前两列单元。
(3)分别计算三门课程的最高分及平均分中的最高分。
(4)分别计算三门课程的最低分及平均分中的最低分。
(5)第一行标题跨列居中，标题用红色，20磅，楷体。
会计08-10班 学生成绩表 学号 | 姓名 | 会计学 | 统计学 | 财务管理 | 平均分 | 801 | 陈忠波 | <
[单项选择]某学生要在4门不同课程中选修2门课程，这4门课程中的2门各开设一个班，另外2门各开设两个班，该同学不同的选课方式共有（）
A. 6种
B. 8种
C. 10种
D. 13种
E. 15种
[单项选择]某学生要在4门不同课程中选修2门课程，这4门课程中的2门各开设1个班，另外2门各开设2个班，该学生不同的选课方式共有______。
A. 6种
B. 8种
C. 10种
D. 13种
E. 15种
[填空题]以下程序的功能是从键盘输入若干个学生的考试成绩，统计并输出最高分和最低分，当输入负数时结束输入。请填空。
Private Sub Command1_Click（ ）
Dim x,amax,amin As Single
x=InputBox("Enter a score")
amax=x
amin=x
Do While______
If x＞amax Then
amax=x
End If
If______Then
amin=x
End If
x=InputBox("enter a score")
Loop
Print "max=";amax,"min=";amin
End Sub
[填空题]以下程序的功能是从键盘输入若干个学生的考试成绩，统计并输出最高分和最低分，当输 入负数时结束输入，输出结果。请补充完整下列程序段。
Dim x，amax,amin As Single
x=InputBox("Enter a score")
amax=x
amin=x
Do While【 】
If x>amax Then
amax=x
End If
If【 】Then
amin=x
End If
x=InputBox("enter a score")
Loop
Print"max="；amax，"min="；amin
[填空题]在选课表中，求选修了课程号为“C140”学生的最高分、最低分及之间相差的分数(显示的列标题为；课程号，最高分，最低分，相差分数)。请对以下SELECT语句填空： SELECT课程号， 【20】 FROM选课表WHERE课程号="C140"，
[填空题]在选课表中，求选修了课程号为“C140”的学生的最高分、最低分及之间相差的分数(显示的列标题为：课程号，最高分，最低分，相差分数)。请对以下SELECT语句填空：
SELECT课程号， 【15】 FROM选课表WHERE课程号＝“C140”
[简答题]青年歌手大奖赛的比赛规则是：评审委员会由n名评委组成，去掉一个最高分，去掉一个最低分，计算其余评委打分的平均值，作为参赛选手的最终成绩。请编写程序，通过键盘依次输入评委的人数及所有评委的打分，并计算出参赛选手的最终成绩。
[填空题]某次大奖赛有7个评委同时为一位选手打分，去掉一个最高分和一个最低分，其余5个分数的平均值为该名参赛者的最后得分。请填空完成规定的功能。
Sub Command1_Click（ ）
Dim mark!，aver!，i%，max1!，min1!
aver=0
For i=1 To 7
mark=InputBox("请输入第"&i&"位评委的打分")
If i=1 then
max1=mark:min1=mark
Else
If mark＜min1 then
min1=mark
Else If mark＞max1 then
________
End If
End If
________
Next i
aver=(aver-max1-mini)/5
MsgBox aver
End Sub
购买搜题卡查看答案
[会员特权] 开通VIP， 查看 全部题目答案
[会员特权] 享免全部广告特权
请选择支付方式
-
微信支付
-
支付宝支付
立即支付
系统将自动为您注册账号
请使用微信扫码支付
请不要关闭本页面，支付完成后请点击【支付完成】按钮
恭喜您，购买搜题卡成功
重要提示：请拍照或截图保存账号密码！
我要搜题网官网：https://www.woyaosouti.com
我已记住账号密码
|
