求出100到200之间能同时满足除3余2,除5余3条件的数的个数VB怎样编程
答案:6 mip版
解决时间 2021-01-30 11:24
- 提问者网友：不在服务区的爱
- 2021-01-29 21:17
求出100到200之间能同时满足除3余2,除5余3条件的数的个数VB怎样编程
最佳答案
- 二级知识专家网友：在時光深處躲貓貓
- 2021-01-29 22:40
满足除3余2,除5余3条件的数符合公式15n+8（n是整数），所以可用以下代码：
Private Sub Command1_Click()
n = 0: m = 0: k = 8
Print "满足条件的数有：";
Do While k <= 200
If k >= 100 Then Print k;: m = m + 1
n = n + 1
k = 15 * n + 8
Loop
Print
Print "共计有" & m & "个。"
End Sub
结果：满足条件的数有：113 128 143 158 173 188 共计有6个。
Private Sub Command1_Click()
n = 0: m = 0: k = 8
Print "满足条件的数有：";
Do While k <= 200
If k >= 100 Then Print k;: m = m + 1
n = n + 1
k = 15 * n + 8
Loop
Print "共计有" & m & "个。"
End Sub
结果：满足条件的数有：113 128 143 158 173 188 共计有6个。
全部回答
- 1楼网友：嘴硬欠吻
- 2021-01-30 05:40
a=0
for i=100 to 200
if i mod 3 =2 and i mod 5=3 then
a=a+1
end if
next i
- 2楼网友：這傷，你給的
- 2021-01-30 04:03
Dim s3 As Integer
Dim s5 As Integer
Dim y2 As Integer
Dim y3 As Integer
s3 = 0
s5 = 0
For i = 100 To 200
y2 = i Mod 3
y3 = i Mod 5
If y2 = 2 Then s3 = s3 + 1
If y3 = 3 Then s5 = s5 + 1
Next i
- 3楼网友：哭嗻説侢見
- 2021-01-30 02:25
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim i As Integer, sum As Integer
For i = 100 To 200
If i Mod 3 = 2 And i Mod 5 = 3 Then
sum = sum + 1
End If
Next
TextBox1.Text = sum.ToString
End Sub
- 4楼网友：戰磕蒗亽辤
- 2021-01-30 00:59
100到200之间能同时满足除3余2,除5余3条件的数的个数为6个。具体代码如下：
Private Sub Form_Click()
Dim x As Integer
x = 0
For i = 100 To 200
If i Mod 3 = 2 And i Mod 5 = 3 Then
Print i
x = x + 1
End If
Next i
MsgBox "100到200之间能同时满足除3余2,除5余3条件的数的个数为" & x & "个。"
End Sub
- 5楼网友：幼稚园小班大佬
- 2021-01-29 23:22
private sub command1_click()
dim sum as integer,i as integer
for i=1 to 100
sum=sum+i
next i
print "sum=";sum
end sub
我要举报
如以上问答内容为低俗/色情/暴力/不良/侵权的信息，可以点下面链接进行举报，我们会做出相应处理，感谢你的支持！
点此我要举报以上问答信息
推荐资讯