VB中输入一个数n,求出n以内能被5整除的所有正整数的个数 怎么写程序输入一个数n,求出n以内能被5整除的所有正整数的个数
咸蛋超人3009
被5整除的数有一个特点,分为两类,一类是可以被10整除,如10,20……,另一类就是不能被10整除但是能被5整除,如5,15……dim count1 as long ‘先看n整除以10等于多少,比如n是10的话,那么为1,但是有两个数能被5整除,20同理.count1=(n \10)*2if (n mod 10
为您推荐：
其他类似问题
扫描下载二维码vb产生十个能被5整除的三位数_百度知道
vb产生十个能被5整除的三位数
rivate Sub Form_Click()Dim i As Integer, x As IntegerRandomizeDo While i &lt: P 10x = Int(Rnd * 900 + 100)If x Mod 5 = 0 Then i = i + 1
其他类似问题
为您推荐：
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁VB怎么编程，“显示1到20（包括首尾这两个数）之间所有能被5整除的整数”，麻烦您了！_百度知道
VB怎么编程，“显示1到20（包括首尾这两个数）之间所有能被5整除的整数”，麻烦您了！
提问者采纳
直接拷贝到VB中运行看看:Private Sub Form_Activate()For i = 1 To 20
If i Mod 5 = 0 Then
Next iEnd Sub
其他类似问题
为您推荐：
其他2条回答
dim i as integerfor i=1 to 20if i mod 5=0next i
For i = 1 To 20If i Mod 5 = 0 Then Print iNext i
您可能关注的推广
整除的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁vb中将100到200中既能被3整除又能被5整除的数保存在数组中,并统计其个数_百度知道
vb中将100到200中既能被3整除又能被5整除的数保存在数组中,并统计其个数
Private Sub Command1_Click()Dim a(100), j, k As Integerk = 1For j = 100 To 200 If j Mod 3 = 0 And j Mod 5 = 0 Then
k = k + 1 End IfNext jPrint kEnd Sub
其他类似问题
为您推荐：
整除的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁vb设计程序输出100到两百能被3或5整除的数_百度知道
vb设计程序输出100到两百能被3或5整除的数
vb设计程序输出100到两百能被3或5整除的数
Private Sub Command1_Click()Dim i%For i = 100 To 200If (i Mod 3 = 0) And (i Mod 5 = 0) TNextEnd Sub
来自团队：
其他类似问题
为您推荐：
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁}