首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
随机生成的10个两位数,求出它们的总和与平均数。产生两位数采用的算法如下:分别产生个位数(0~9)和十位数(1~9),然后十位数乘10再加上个位数即得到一个两位数。 说明:在窗体上有一个Commandl按钮,单击它将计算10个随机数的和与平均数,
随机生成的10个两位数,求出它们的总和与平均数。产生两位数采用的算法如下:分别产生个位数(0~9)和十位数(1~9),然后十位数乘10再加上个位数即得到一个两位数。 说明:在窗体上有一个Commandl按钮,单击它将计算10个随机数的和与平均数,
admin
2010-03-30
21
问题
随机生成的10个两位数,求出它们的总和与平均数。产生两位数采用的算法如下:分别产生个位数(0~9)和十位数(1~9),然后十位数乘10再加上个位数即得到一个两位数。
说明:在窗体上有一个Commandl按钮,单击它将计算10个随机数的和与平均数,
并在窗体上输出平均数。
Private Sub Commandl Click()
Dim m As Integer, n As Integer, sum As Integer
Dim i As Integer, k As Integer, aver As Single
sum=0
Randomize
For i=1 To 10
m=Int(9*RnD)+1
n=【 】
k=m*10+n
sum=【 】
Next i
aver=【 】
Print aver
End Sub
选项
答案
Int(10*Rnd),Sum+k,Sum/10
解析
本题涉及到随机函数方面的知识点。随机函数的格式为:
Rnd[(number #)]
其含义是产生一个小于l,大于等于。的随机双精度数。题中m表示一个1~9之间的十位数,n表示一个0~9之间的个位数。故 [9]处应填Int(10 * Rnd),但不是Int(9* Rnd)(注意:Rnd函数和Int函数的意义)。循环体中对数的求和运算,需每次循环都加数k,故[10]处填Sum+k。[11]处实现的是求平均值的运算,故应为10个数的总和与数字10的比值即Sum/10。
转载请注明原文地址:https://jikaoti.com/ti/drg0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下列关系运算中,能使经运算后得到的新关系中属性个数多于原来关系中属性个数的是()。
在面向对象方法中,允许作用于某个对象上的操作称为【】。
WindowListener中可以实现窗口关闭功能的方法是()。
数据的组织和存储会直接影响算法的实现方式和【】。
下列叙述中,正确的是()。
关系中的属性或属性组合,其值能够唯一地标识一个元组,该属性或属性组合可选做为【】。
设有如下的变量定义:doublex=4.700000;floaty=2.5f;intz=7;则执行表达式“y+z%3*(int)(x+y)%2/4”后的值是【】。
给出下列关于一个使用适当的字符间距字体的TextField的表达式,则哪个选项的叙述是对的?( )TextFieldt=newTextField("theyaregood",40);
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程: PrivateSubCommand1_Click() Dimarray1(10,10)AsInteger DimiAsInte
随机试题
ARDS最典型的病变是
新生儿时期保健重点错误的是
经审理查明,张三的个人财产只有小店的滞销商品,则李云、综合商店能否要求其以家庭财产履行债务?为什么?李云能否代位行使张三对其小舅子的债权?为什么?
按照我国民诉法规定,有下列情形之一的,可以延期审理________。
给付定金的一方不履行约定债务的,无权要求返还定金;收受定金的一方不履行约定债务的,应当返还定金。()
以下哪些属于心理咨询范围?()
新学期开始不久,我发现班上出现了这么一个现象:当孩子们需要移动小椅子进行活动的时候,总是习惯用一只手拎住椅背拖行,或是把椅背夹在腋下,像拄着拐杖一样一摇一晃地行走。每当这个时候教室里总是充斥着一种椅子在地板上敲打、摩擦的声音,很是刺耳,也不安全。起先是一两
一份稿件,甲、乙、丙三人单独打各需20、24、30小时。现在三人合打,但甲因中途另有任务提前撤出,结果用12小时全部完成。那么,甲只打了几小时?()
设单链表的表头指针为h,链表中结点构造为(data,next),其中data域为字符型,链表长度为n。编写算法判断该链表的n个字符是否中心对称。(例如xyx,xyyx都是中心对称。)
Thefreethingdoesbotherme.NotbecauseIthinkgood-qualitycontentoughttoexistonlyforthosewhocanafforditbutbeca
最新回复
(
0
)