1、以下程序的功能是从随机产生的20个20~200(含20和200)的整数中，找出能够同时被3和5
答案:1 悬赏:0
解决时间 2021-01-07 11:46
- 提问者网友：niaiwoma
- 2021-01-06 18:07
1、以下程序的功能是从随机产生的20个20~200(含20和200)的整数中，找出能够同时被3和5
最佳答案
- 二级知识专家网友：街头电车
- 2021-01-06 19:11
完整代码如下：
Option Base 1
Private Sub Command1_Click( )
Dim a(20) As Integer
m =0
For i=1 To 20
a(i)=Int(Rnd * 181 )+20
If a(i) Mod 3 = 0 and a(i) Mod 5=0 Then
If a(i) >m Then m=a（i）
End If
Next
If m=0 Then
Print “没有满足条件的数”
else
Print “满足条件的数是”;m
End If
End Sub
Option Base 1
Private Sub Command1_Click( )
Dim a(20) As Integer
m =0
For i=1 To 20
a(i)=Int(Rnd * 181 )+20
If a(i) Mod 3 = 0 and a(i) Mod 5=0 Then
If a(i) >m Then m=a（i）
End If
Next
If m=0 Then
Print “没有满足条件的数”
else
Print “满足条件的数是”;m
End If
End Sub
我要举报
如以上问答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯