![[填空题] 以下程序的功能是从随机产生的20个20~200(含20和200)的整数中，找出能够同时被3和5整除的数的最大值，并显示出来。请填空。Option Base 1Private Sub Com,第1张](/aiimages/%5B%E5%A1%AB%E7%A9%BA%E9%A2%98%5D+%E4%BB%A5%E4%B8%8B%E7%A8%8B%E5%BA%8F%E7%9A%84%E5%8A%9F%E8%83%BD%E6%98%AF%E4%BB%8E%E9%9A%8F%E6%9C%BA%E4%BA%A7%E7%94%9F%E7%9A%8420%E4%B8%AA20%7E200%28%E5%90%AB20%E5%92%8C200%29%E7%9A%84%E6%95%B4%E6%95%B0%E4%B8%AD%EF%BC%8C%E6%89%BE%E5%87%BA%E8%83%BD%E5%A4%9F%E5%90%8C%E6%97%B6%E8%A2%AB3%E5%92%8C5%E6%95%B4%E9%99%A4%E7%9A%84%E6%95%B0%E7%9A%84%E6%9C%80%E5%A4%A7%E5%80%BC%EF%BC%8C%E5%B9%B6%E6%98%BE%E7%A4%BA%E5%87%BA%E6%9D%A5%E3%80%82%E8%AF%B7%E5%A1%AB%E7%A9%BA%E3%80%82Option+Base+1Private+Sub+Com.png "[填空题] 以下程序的功能是从随机产生的20个20~200(含20和200)的整数中，找出能够同时被3和5整除的数的最大值，并显示出来。请填空。Option Base 1Private Sub Com,第1张")
[填空题] 以下程序的功能是从随机产生的20个20~200(含20和200)的整数中，找出能够同时被3和5整除的数的最大值，并显示出来。请填空。Option base 1Private Sub Command1_Click( )Dim a(20) As Integerm =0For i=1 To 20a(i)=Int(Rnd * （）)+20If a(i) Mod 3 = 0 （） a(i) Mod 5=0 ThenIf a(i) >m Then m=a(i)End IfNextIf （）ThenPrint “没有满足条件的数”ElsePrint “满足条件的数是”;mEnd IfEnd SubIf （）Then
正确答案：m=0
欢迎分享，转载请注明来源：内存溢出
微信扫一扫
支付宝扫一扫
评论列表（0条）