求出1000以内的所有的因子个数为5的数的VB编程
来源:学生作业帮 编辑:搜狗做题网作业帮 分类:综合作业 时间:2024/07/05 18:30:07
求出1000以内的所有的因子个数为5的数的VB编程
![求出1000以内的所有的因子个数为5的数的VB编程](/uploads/image/z/1028799-63-9.jpg?t=%E6%B1%82%E5%87%BA1000%E4%BB%A5%E5%86%85%E7%9A%84%E6%89%80%E6%9C%89%E7%9A%84%E5%9B%A0%E5%AD%90%E4%B8%AA%E6%95%B0%E4%B8%BA5%E7%9A%84%E6%95%B0%E7%9A%84VB%E7%BC%96%E7%A8%8B)
Option Explicit
Option Base 1
Private Sub Form_Click()
Dim i%,j%,k%,n%
Dim a() As Integer
n = 0
For i = 1 To 1000
k = 0
For j = 1 To i
If (i Mod j) = 0 Then
k = k + 1
End If
Next j
If k = 5 Then
n = n + 1
ReDim Preserve a(n)
a(n) = i
End If
Next i
For i = 1 To n
Print a(i)
Next i
End Sub
看了上面两条回复真的挺搞笑啊,
Option Base 1
Private Sub Form_Click()
Dim i%,j%,k%,n%
Dim a() As Integer
n = 0
For i = 1 To 1000
k = 0
For j = 1 To i
If (i Mod j) = 0 Then
k = k + 1
End If
Next j
If k = 5 Then
n = n + 1
ReDim Preserve a(n)
a(n) = i
End If
Next i
For i = 1 To n
Print a(i)
Next i
End Sub
看了上面两条回复真的挺搞笑啊,
求出1000以内的所有的因子个数为5的数的VB编程
vb编程:求1000以内所有能被7整除的数的个数
用vb求出[2000,9999]以内的所有回文数的个数.
编程:求1000以内的所有完全数.(说明:一个数如果恰好等于它的因子—(自身除外)之和,则称该数为完全
VB中输入一个数n,求出n以内能被5整除的所有正整数的个数 怎么写程序
用vb编程:输入三个数,求出最大的数
VB编程 求出能被三整除且至少有一位数字是8的所有三位正整数及这些数的个数
VB编程题目单击按钮随机产生5个0-9之间不同的整数并排序,试求出5个数能组合的所有5位数显示在文本框中,并求出最大数和
1000以内所有连绵数的个数
VB编程找出10000以内所有的回文数的平方仍是回文数的数.
matlab 编程若某数等于其所有因子(不含这个数本身)的和,则称其为完全数.编程求10000以内所有的完全数
vb编程 1000以内能被7、17整除的正整数的个数,并求和