求帮做VB程序分支循环的综合应用一、输入一个自然数x,求这个自然数的所有约数.本题的关键是求出这个数的所有约数.若x除以y的余数为0,则y就是x的约数.所以只要从1开始到x为止,逐个去试,
来源:学生作业帮助网 编辑:作业帮 时间:2024/07/06 14:14:49
![求帮做VB程序分支循环的综合应用一、输入一个自然数x,求这个自然数的所有约数.本题的关键是求出这个数的所有约数.若x除以y的余数为0,则y就是x的约数.所以只要从1开始到x为止,逐个去试,](/uploads/image/z/10333450-10-0.jpg?t=%E6%B1%82%E5%B8%AE%E5%81%9AVB%E7%A8%8B%E5%BA%8F%E5%88%86%E6%94%AF%E5%BE%AA%E7%8E%AF%E7%9A%84%E7%BB%BC%E5%90%88%E5%BA%94%E7%94%A8%E4%B8%80%E3%80%81%E8%BE%93%E5%85%A5%E4%B8%80%E4%B8%AA%E8%87%AA%E7%84%B6%E6%95%B0x%2C%E6%B1%82%E8%BF%99%E4%B8%AA%E8%87%AA%E7%84%B6%E6%95%B0%E7%9A%84%E6%89%80%E6%9C%89%E7%BA%A6%E6%95%B0.%E6%9C%AC%E9%A2%98%E7%9A%84%E5%85%B3%E9%94%AE%E6%98%AF%E6%B1%82%E5%87%BA%E8%BF%99%E4%B8%AA%E6%95%B0%E7%9A%84%E6%89%80%E6%9C%89%E7%BA%A6%E6%95%B0.%E8%8B%A5x%E9%99%A4%E4%BB%A5y%E7%9A%84%E4%BD%99%E6%95%B0%E4%B8%BA0%2C%E5%88%99y%E5%B0%B1%E6%98%AFx%E7%9A%84%E7%BA%A6%E6%95%B0.%E6%89%80%E4%BB%A5%E5%8F%AA%E8%A6%81%E4%BB%8E1%E5%BC%80%E5%A7%8B%E5%88%B0x%E4%B8%BA%E6%AD%A2%2C%E9%80%90%E4%B8%AA%E5%8E%BB%E8%AF%95%2C)
求帮做VB程序分支循环的综合应用一、输入一个自然数x,求这个自然数的所有约数.本题的关键是求出这个数的所有约数.若x除以y的余数为0,则y就是x的约数.所以只要从1开始到x为止,逐个去试,
求帮做VB程序
分支循环的综合应用
一、输入一个自然数x,求这个自然数的所有约数.
本题的关键是求出这个数的所有约数.若x除以y的余数为0,则y就是x的约数.所以只要从1开始到x为止,逐个去试,也就是进行循环和判断.
二、求1~100之间的“同构数”.(“同构数”是这样一种数:它出现在它的平方数的右端.例如,5的平方是25,5是25右端的数,5就是同构数;25的平方是625,25是625右端的数,25是同构数.)
输出格式(一行一个):
同构数 平方数
如:
5 25
25 625
枚举1-100的自然数,检验它平方后末尾是否包含本身.
三、求 100~999中的水仙花数.(所谓水仙花数,是指若有一个n位数,它的各位数字的n次方之和若等于它自身,则该数就是水仙花数.例如:153 13+53+33=1+125+27=153)
由于这样的数并没有规律可找,只能采用穷举的方法.
提示一:采用三重循环得到每个三位数,三重循环的控制变量即是该三位数的三个数字,只要求得这三个数字的三次方之和是否与这三个数字组成的三位数相等即可.
提示二:让循环变量从 100 逐渐增长到 999 ,对每一个控制变量进行分解,分解成三个数字,然后进行与上述相同的判断
求帮做VB程序分支循环的综合应用一、输入一个自然数x,求这个自然数的所有约数.本题的关键是求出这个数的所有约数.若x除以y的余数为0,则y就是x的约数.所以只要从1开始到x为止,逐个去试,
1.
Private Sub Command1_Click()
a = InputBox("")
For i = 1 To a
If a Mod i = 0 Then Print i
Next
End Sub
2.
Private Sub Command1_Click()
For i = 1 To 100
temp = i ^ 2
If i = Val(Right(temp, Len(i))) Then Print i & vbTab & temp
Next
End Sub
3.
Private Sub Command1_Click()
For i = 370 To 999
temp1 = Left(i, 1)
temp2 = Mid(i, 2, 1)
temp3 = Right(i, 1)
j = Val(temp1) ^ 3 + Val(temp2) ^ 3 + Val(temp3) ^ 3
If i = j Then Print i
Next
End Sub