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

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

admin2012-12-21  62
问题 以下程序的功能是从随机产生的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://kaotiyun.com/show/NNhp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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