首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画一个名为Command1的命令按钮。下列程序的功能是:从输入对话框输入一个正整数n。用随机函数产生n个1~100范围的随机数,然后求出去掉一个最大数和最小数的平均数。根据题意,请完善下列程序: Private Sub Command1_Click
在窗体上画一个名为Command1的命令按钮。下列程序的功能是:从输入对话框输入一个正整数n。用随机函数产生n个1~100范围的随机数,然后求出去掉一个最大数和最小数的平均数。根据题意,请完善下列程序: Private Sub Command1_Click
admin
2010-09-11
51
问题
在窗体上画一个名为Command1的命令按钮。下列程序的功能是:从输入对话框输入一个正整数n。用随机函数产生n个1~100范围的随机数,然后求出去掉一个最大数和最小数的平均数。根据题意,请完善下列程序:
Private Sub Command1_Click()
Dim ave As Single, max As Integer, i As Integer, n As Integer
Dim min As Integer, Sum As Integer, s As String
Dim t As Integer
s=InputBox("输入一个正整数: ")
n=Val(s)
If n>0 Then
max=n: min=n: Sum=0
For j=1 To n
t=【 】
print t;
Sum=Sum+t
If t<min Then
min=t
ElseIf max<t Then
max=t
End If
Next j
【 】
ave=Sum/n
MsgBox"平均值="+Str(ave),,"去掉最大数和最小数后"
End If
End Sub
选项
答案
Int(Rnd*100+1), Sum=Sum-max-min
解析
首先假定输入的正整数为最大数(max)和最小数(min)初值。本题采用了InputBox从键盘上输人数据,用Ms-gBox输出结果。在程序中min必须赋一个初值,否则min默认为0。在循环中,每产生一个数就和max及min进行比较,大的放入max,小的放入min,并计算各数之和。循环结束后,减去max和min,求得平均数ave。
转载请注明原文地址:https://kaotiyun.com/show/8Rmp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下面程序段的输出结果是( )。publicclassTest{publicstaticvoidmain(String[]args){intn=10;do{
下面程序段的输出结果是()classTest{publicstaticvoidmain(Stringargs[]){MyThreadt=newMyThread();t.displayOutput("thasbeenc
在oneMethod()方法运行正常的情况下,程序段将输出publicvoidtest(){try{oneMethod();System.out.println("condition1");}catch(ArrayInd
随机试题
下列不属于我国保护消费者权益的其他法律的是()
简述全国人民代表大会的职权。
关于胸腔积液病因的描述,哪项是正确的
缺铁性贫血患者血象为
按照财务制度和企业会计准则,新增固定资产价值的计算对象为()。
【背景资料】某城市给水工程项目,通过招标投标确定了本市一家具有工程项目资质的施工企业承担该施工任务。施工企业在给水厂站工程施工时制订了以下施工技术要求:(1)水池底板混凝土应分层分次浇筑完成;(2)水池底板混凝土浇筑采用掺外加剂的泵送混凝土时,其坍落度
下列捐赠支出中,准予在个人所得税前全额扣除的有()。
一2,一4,0,16,()
-7的反码为(51)。
ThoughitnowseemsmerelyanepisodeinthelastyearofWorldWarI,theinfluenzapandemicoftheautumnof1918wasoneoft
最新回复
(
0
)