首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画一个名为Command1的命令按钮。下列程序的功能是:从输入对话框输入一个正整数n。用随机函数产生n个1~100范围的随机数,然后求出去掉一个最大数和最小数的平均数。根据题意,请完善下列程序: Private Sub Command1_Click
在窗体上画一个名为Command1的命令按钮。下列程序的功能是:从输入对话框输入一个正整数n。用随机函数产生n个1~100范围的随机数,然后求出去掉一个最大数和最小数的平均数。根据题意,请完善下列程序: Private Sub Command1_Click
admin
2010-09-11
41
问题
在窗体上画一个名为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全国计算机二级
相关试题推荐
诊断和改正程序中错误的工作通常称为【】。
下列程序用GridLayout布局管理器将Frame分为1行3列,并放入Button构件,横线处应填入的语句是( )。importjava.awt.*;publicclassTest{publicstaticv
Java程序中的语句不可以是( )。
请将程序补充完整。importjava.awt.*;publicclassFirstFrameextendsFrame{publicstaticvoidmain(Stringargs[]){FirstFramefr=newFirs
下面程序段的输出结果为()。pubUCClassTeS{publicstaticvoidmain(StringargS[]){booleaha,b,c;a=(3<5);b=(a==tme)
下列程序的输出结果是()。publicclassArrayTest{publicstaticvoidmain(Stringargs[]){int[]intArray=newint[3]for(inti
Java语言是一种半编译和半解释型语言,经过编译后的Java程序由【】去解释执行。
随机试题
正常心脏后前位不易观察到的是
右下腹疼痛拒按,或右足屈而不伸,伸则痛甚,甚则局部肿痞,或时时发热,自汗恶寒,舌苔薄腻而黄,脉滑数。方剂选用
气雾剂的优点有()。
《建设工程安全生产管理条例》制定的基本法律依据包括()。
若企业不打算享受现金折扣优惠,则应尽量推迟付款的时间。()
如果会计师事务所非审计项目组成员的主要近亲属,通过继承从审计客户获得直接经济利益,则()。
《与朱元思书》是八年级下册第五单元的一篇课文,如果让你给八年级的学生执教这篇课文,你会怎么做呢?请按要求完成后面的题目:附:《与朱元思书》课文与朱元思书①
缺陷补偿,是指个体在充当社会角色时不可能事事成功,当自我角色目标失败时,常常可能会对相关的社会角色的重要性做重新评价,从而进行自我定义以补偿自己角色缺陷。根据上述定义,下列属于缺陷补偿的是()。
求|cos(x+y)|dxdy,其中D={(x,y)|
A、Assoonasshestarteduniversity.B、Aftershedidsomeresearch.C、Aftershetookaliteraturecourse.D、Whenshemetagood
最新回复
(
0
)