首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画一个名为Command1的命令按钮。下列程序的功能是:从输入对话框输入一个正整数n。用随机函数产生n个1~100范围的随机数,然后求出去掉一个最大数和最小数的平均数。根据题意,请完善下列程序: Private Sub Command1_Click
在窗体上画一个名为Command1的命令按钮。下列程序的功能是:从输入对话框输入一个正整数n。用随机函数产生n个1~100范围的随机数,然后求出去掉一个最大数和最小数的平均数。根据题意,请完善下列程序: Private Sub Command1_Click
admin
2010-09-11
27
问题
在窗体上画一个名为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://jikaoti.com/ti/Afg0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
诊断和改正程序中错误的工作通常称为【】。
下列程序用GridLayout布局管理器将Frame分为1行3列,并放入Button构件,横线处应填入的语句是( )。importjava.awt.*;publicclassTest{publicstaticv
下面程序段的输出结果是( )。publicclassTest{publicstaticvoidmain(String[]args){intn=10;do{
Java程序中的语句不可以是( )。
请将程序补充完整。importjava.awt.*;publicclassFirstFrameextendsFrame{publicstaticvoidmain(Stringargs[]){FirstFramefr=newFirs
下面程序段的输出结果为()。pubUCClassTeS{publicstaticvoidmain(StringargS[]){booleaha,b,c;a=(3<5);b=(a==tme)
Java语言是一种半编译和半解释型语言,经过编译后的Java程序由【】去解释执行。
在oneMethod()方法运行正常的情况下,程序段将输出publicvoidtest(){try{oneMethod();System.out.println("condition1");}catch(ArrayInd
随机试题
反法西斯战争后,人民民主力量明显增长的表现有()
A.1/4B.1/3C.2/3D.1/5E.1/2桩的长度一般为根长的
脑脓肿完全形成包膜一般需要
属于三环类抗抑郁药的是()。
不经常使用的起重机的利用等级应该为()。
上海证券交易所的连续竞价时间为()。Ⅰ.9:00—11:00Ⅱ.9:30—11:30Ⅲ.13:30—15:27Ⅳ.13:00—14:57
只有坚持公有制的主体地位,才能()。①保证我国经济发展的社会主义方向②保证劳动人民在生活中的主人翁地位得到实现③防止两极分化,实现共同富裕④巩固和完善人民民主专政
(92年)当χ→0时,下列四个无穷小量中,哪一个是比其它三个更高阶的无穷小量?【】
数据库表中有一长字段名“期末考试分数”,当该数据库表转为自由表之后,长字段名显示为()。
在窗体上画一个命令按钮,名称为Command1,然后编写如下事件过程:PrivateSubCommand1_Click()Dima()a=Array("机床","车床","钻床","轴承")Print(2)
最新回复
(
0
)