以下程序代码实现单击命令按钮Commandl时生成20个(0，100)之间的随机整数，存于数组中，打印数组中大于50的数，并求这些数的和。Dimalt(1 To 20)Fori=1 To 20arr(i)=NextiSub=0For Each X In arrIf X＞50 ThenPrint Tab(20)；XSum=Sum+XEnd IfNext XPrint Tab(20)；"Su

题目

以下程序代码实现单击命令按钮Commandl时生成20个(0，100)之间的随机整数，存于数组中，打印数组中大于50的数，并求这些数的和。

Dimalt(1 To 20)

Fori=1 To 20

arr(i)=

Nexti

Sub=0

For Each X In arr

If X＞50 Then

Print Tab(20)；X

Sum=Sum+X

End If

Next X

Print Tab(20)；"Su

相似考题

1.假定建立了一个名为Commandl的命令按钮数组，则以下说法中错误的是______。A． 数组中每个命令按钮的名称(Name属性)均为CommandlB．数组中每个命令按钮的标题(Caption属性)都一样C．数组中所有命令按钮可以使用同一个事件过程D．用名称Commandl(下标)可以访问数组中的每个命令按钮

2.假定建立了一个名为Commandl的命令按钮数组，则以下说法中错误的是（ ）。A.数组中每个命令按钮的名称(名称属性)均为CommandlB.数组中每个命令按钮的标题(Caption属性)都一样C.数组中所有命令按钮可以使用同一个事件过程D.用名称Commandl(下标)可以访问数组中的每个命令按钮

3.窗体上有Commandl、Command2两个命令按钮。现编写以下程序：OptionBase 0Dim a()As Integer，m As IntegerPrivate Sub Commandl_Click()m=InputBox(”请输入一个正整数”)ReDim a(m)End SubPrivate Sub Command2_Click()in=InputBox(”请输入一个正整数”)ReDim a(m)End Sub运行程序时，单击Commandl后输入整数10，再单击Command2后输入整数5，则数组a中元索的个数是A．5B．6C．10D．11

4.（35）有下列程序代码实现生成20个0-100之间的随机整数，存于数组中，打印数组中大于50的数，并求这些数的和。请选择正确的程序段 ，完成程序。 Private Sub Commandl_Click() Dim arr(1 To 20) For i=1 To 20 arr(i)=________ Text1.Text=Text1.Text&arr(i)&Chr(13)&Chr(10) Next i Sum=0 For Each X________ If X>50 Then Print Tab(20)；X Sum=Sum+X End If Next X Print Tab(20)；"Sum="；Sum End SubA.Int(Rnd*99+1) In arr B.Int(Rnd) In arr C.Int(Rnd*99+1) In arr() D.Int(Rnd) In arr()

参考答案和解析
正确答案：Int(Rnd*99+1)
Int(Rnd*99+1)
更多“以下程序代码实现单击命令按钮Commandl时生成20个(0,100)之间的随机整数,存于数组中,打印数组中 ”相关问题

  • 第1题：

    下列程序代码实现生成20个0～100之间的随机整数，存于数组中，打印数组中大于50的数，并求这些数的和。请选择正确的程序段是( )，完成程序。 Private Sub Commandl_Click() Dim arr(1 To 20) For i=1 To 20 arr(i)=______ Textl.Text=Textl.Text & arr(i)& Chr(13)& Chr(10) Next i Sum=0 For Each X ______ If X＞50 Then Print Tab(20)；X Sum=Sum+X End If Next X Print Tab(20)；"Sum="；Sum End Sub

    A．Int(Rnd*99+1) In arr

    B．Int(RnD)In arr

    C．Int(Rnd*99+1) In arr()

    D．Int(RnD)In arr()


    正确答案：A
    解析：Rnd函数用于产生一个小于1但大于或等于0的实数，题中要求0～100之间的随机整数，所以需要对Rnd产生的实数进行计算处理Int(Rnd*99+1)。要处理数组中的元素，使用For Each…Next语句处理数组元素时，Each后只需写出数组名，不能使用小括号。

  • 第2题：

    设用复制、粘贴的方法建立了一个命令按钮数组Commandl,以下对该数组的说法错误的是

    A．命令按钮的所有Caption属性都是Commandl

    B．在代码中访问任意一个命令按钮只需使用名称Commandl

    C．命令按钮的大小都相同

    D．命令按钮共享相相同的事件过程


    正确答案：B
    解析：访问控件数组中的一个控件应使用名称加索引,如:[控件名称](索引值)

  • 第3题：

    在窗体上画一个命令按钮，其名称为Commandl，然后编写如下事件过程：

    程序运行后，单击命令按钮，将产生l00个1000以内的随机整数，放入数组aft中，然后查找并先后使用消息框输出这100个数中的最大值Max和最小值Min，请填空。


    正确答案：
    1000arr(i)>Maxarr(i)<Min【解析】本题考查VBA中程序设计的知识。对于这个问题，首先要产生l00个1000以内的随机整数，放入数组an"中，由于Rnd函数可以产生0～l之间的随机数，所以将其乘以1000后再取整就可以得到1000以内的随机整数。然后预先设置数组的第一个元素为最大值兼最小值，然后在循环中把数组元素依次与最大值和最小值比较，如果比当前的最大值还大，则让这个数组元素成为新的最大值：如果比当前的最小值还小，则让这个数组元素成为新的最小值，接着继续比较直至数组元素都比较一遍为止。

  • 第4题：

    以下程序代码实现单击命令按钮Command1时生成20个(0，100)之间的随机整数，存于数组中，打印数组中大于50的数，并求这些数的和。

    Dim arr(1 To 20)

    For i=1 To 20

    arr(i)=【 】

    Next i

    Sum=0

    For Each X In【 】

    If X＞50 Then

    Print Tab(20)；X

    Sum=Sum+X

    End If

    Next X

    Print Tab(20)；“Sum＝”；Sum


    正确答案：Int (Rnd*99+1) arr
    Int (Rnd*99+1), arr

  • 第5题：

    设有命令按钮Commandl的单击事件过程，代码如下： Private Sub Commandl_Click() Dima(30)As Integer Fori=1 To 30 a(i)=Int(Rnd*100) Next For Each arrltem In a IfarrltemMod7=0 ThenPrintarrItem； Ifarrltem＞90ThenExitFor Next End Sub

    A．a数组中的数据是30个100以内的整数

    B．语句ForEacharrItem Ina有语法错误

    C．Ifarrltem Mod7=0……语句的功能是输出数组中能够被7整除的数

    D．Ifarrltem＞90……语句的作用是当数组元素的值大于90时退出For循环


    正确答案：B

相关内容