首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画一个名为Command1的命令按钮。下列程序的功能是:从输入对话框输入一个正整数n。用随机函数产生n个1~100范围的随机数,然后求出去掉一个最大数和最小数的平均数。根据题意,请完善下列程序: Private Sub Command1_Click
在窗体上画一个名为Command1的命令按钮。下列程序的功能是:从输入对话框输入一个正整数n。用随机函数产生n个1~100范围的随机数,然后求出去掉一个最大数和最小数的平均数。根据题意,请完善下列程序: Private Sub Command1_Click
admin
2010-09-11
45
问题
在窗体上画一个名为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{
Java程序中的语句不可以是( )。
下面程序段的输出结果为()。pubUCClassTeS{publicstaticvoidmain(StringargS[]){booleaha,b,c;a=(3<5);b=(a==tme)
下面程序段的输出结果是()classTest{publicstaticvoidmain(Stringargs[]){MyThreadt=newMyThread();t.displayOutput("thasbeenc
下列程序的输出结果是()。publicclassArrayTest{publicstaticvoidmain(Stringargs[]){int[]intArray=newint[3]for(inti
Java语言是一种半编译和半解释型语言,经过编译后的Java程序由【】去解释执行。
随机试题
临床治疗阴虚证咽喉肿痛的处方是
A,要素饮食B,全胃肠外营养C,两者均可D,两者均不可用于坏死性胰腺炎和急性肾衰竭的是
A.6-巯嘌呤(6-MP)B.阿糖胞苷C.门冬酰胺酶D.高三尖杉酯碱E.柔红霉素只用于治疗急性非淋巴细胞性白血病
下列关于反射的论述,错误的是
废石场应设置截水、导水沟,防止()流入废石场,防止泥石流危及下游环境。
下列属于抽样调查特点的有()。
下列不属于个人汽车贷款信用风险防控措施的是()。
四等人制
某省人大在开会期间,省人大代表赵某因索贿行为被检察机关批准即行逮捕。另一省人大代表钱某知道此事后,为了为赵某鸣不平,竟然在人大开会期间跑到检察院,将拘捕的人员打成重伤,检察院立即通知公安机关将钱某即行拘留。另一省人大代表孙某在人大开会发言时对检察院和公安机
Allcompetitiveskiandsnowboardingeventsnowtakeplacelargelyonman-madesnow.Unlikeitsnaturalcounterpart,themachine
最新回复
(
0
)