以下程序的功能是从随机产生的20个20~200(含20和200)的整数中,找出能够同时被3和5整除的数的最大值,并显示出来,请填空。 Option Basel Private Sub Commandl Click() Dim a(2

admin2012-12-21  32

问题 以下程序的功能是从随机产生的20个20~200(含20和200)的整数中,找出能够同时被3和5整除的数的最大值,并显示出来,请填空。
    Option Basel
    Private Sub Commandl Click()
    Dim a(20)As Integer
   m=0
    For i=1 To 20
    a(i)=Int(Rnd* __________ )+20
    If a(i)Mod 3=0    a(i)Mod 5=0 Then
    If a(i)>In Then m=a(i)
    End If
    Next i
    lf Then
    Print"没有满足条件的数"
    EIse
    Print"满足条件的数是";m
    End If
    End Sub

选项

答案18l,And,m=0

解析 为求最小公倍数.20~200,跨度为180,但因为用了Int,向下取整,因此是181个。
转载请注明原文地址:https://jikaoti.com/ti/EEO0FFFM
0

相关试题推荐
随机试题
最新回复(0)