随机生成的10个两位数,求出它们的总和与平均数。产生两位数采用的算法如下:分别产生个位数(0~9)和十位数(1~9),然后十位数乘10再加上个位数即得到一个两位数。说明:在窗体上有一个Commandl按钮,单击它将计算10个随机数的和与平均数,并在窗体上输出平均数。Private Sub Commandl Click()Dim m As Integer, n As Integer, sum As IntegerDim i As Integer, k As Integer, aver As Singlesu

题目

随机生成的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


相似考题
更多“随机生成的10个两位数,求出它们的总和与平均数。产生两位数采用的算法如下:分别产生个位数(0~9)和 ”相关问题
  • 第1题:

    有一个两位数,它的十位数字比个位数字大1,并且这个两位数大于30且小于42,求这个两位数。

  • 第2题:

    将两位数的个位数与十位数互换后所得的数是原来的十分之一,这样的两位数有多少个 ?( )

    A . 6

    B . 9

    C . 12

    D . 15


    正确答案:B
    35 . B
    设原数字的个位数字为 x ,十位数字为 y ,则得:(10y+x)X1/10=10x+y化简得 x = 0个位数字是 0 的两位数有 10 , 20 , 30 , 40 , 50 , 60 , 70 , 80 , 90 , 共 9 个 , 故正确答案为 B 。

  • 第3题:

    一个两位数等于其个位数字的平方与十位数字之和,这个两位数是( )。


    A. 10
    B. 76
    C. 89
    D. 45

    答案:C
    解析:
    解题指导: 设个位数字是x,十位数字是y 10y+x=x^2+y 9y=x^2-x=x(x-1) x必须是9的倍数 x=9,y=8 这个数是89 。故答案为C。

  • 第4题:

    用0、1、2、3、……、9十个数字组成5个两位数,每个数字只用一次,要求它们的和是一个奇数,并且尽可能大,问这五个两位数的和是多少?( )

    A.279

    B.301

    C.351

    D.357


    正确答案:C

     和是奇数,说明五个数中,奇数的个数是奇数个,根据题干要求,五个数之和最大时为95+83+72+61+40=351

  • 第5题:

    有一个两位数,如果用它去除以个位数字,商为9余数为6,如果用这个两位数除以个位数字与十位数字之和,则商为5余数为3。这个两位数为( )。 A.33 B.78 C.38或78 D.33或78


    正确答案:D
    设这个两位数为10a+b,则有10a+6=96+6,1Oa+b=5(a+b)+3,两式化简得到相同的方程5a-4b=3,将各选项代入,可知33、78均满足。故选D。