早教吧作业答案频道 -->其他-->
我的天~~VB大神快出现!!跪求编三道题~~~1、程序用于找出1~100之间的两个数,使其和与差均为平方数。例如5和4,10和6,13和12的和与差均为平方数。在窗体上添加两个命令按钮。运行程序
题目详情
我的天~~VB大神快出现!!跪求编三道题~~~
1 、程序用于找出1~100之间的两个数,使其和与差均为平方数。例如5和4,10和6,13和12的和与差均为平方数。在窗体上添加两个命令按钮。运行程序时,单击“开始”命令按钮,在窗体输出1~100的所有组平方数。单击“结束”命令按钮,结束程序。
2 、如果一个数的因子之和等于这个数的本身,则称这样的数为“完全数”。例如,整数28的因子为1,2,4,7,14,其和是28,因此28是一个完全数,编写程序,从键盘上输入整数M和N,求出M和N之间所有完全数。
3 、 求两个自然数m和n的最大公约数和最小公倍数。在窗体上添加两个命令按钮。运行程序时,单击“开始”命令按钮,顺序弹出两个输入对话框,要求输入2个整数m和n,程序计算并在窗体显示出他们的最大公约数和最小公倍数,单击“结束”命令按钮结束程序
1 、程序用于找出1~100之间的两个数,使其和与差均为平方数。例如5和4,10和6,13和12的和与差均为平方数。在窗体上添加两个命令按钮。运行程序时,单击“开始”命令按钮,在窗体输出1~100的所有组平方数。单击“结束”命令按钮,结束程序。
2 、如果一个数的因子之和等于这个数的本身,则称这样的数为“完全数”。例如,整数28的因子为1,2,4,7,14,其和是28,因此28是一个完全数,编写程序,从键盘上输入整数M和N,求出M和N之间所有完全数。
3 、 求两个自然数m和n的最大公约数和最小公倍数。在窗体上添加两个命令按钮。运行程序时,单击“开始”命令按钮,顺序弹出两个输入对话框,要求输入2个整数m和n,程序计算并在窗体显示出他们的最大公约数和最小公倍数,单击“结束”命令按钮结束程序
▼优质解答
答案和解析
Private Sub Command1_click()
Dim i As Integer, j As Integer
Print "1~100的所有组平方数包括有:"
For i = 1 To 100
For j = i To 100
If Int(Sqr(j - i)) = Sqr(j - i) And Int(Sqr(j + i)) = Sqr(j + i) Then Print i; j
Next j
Next i
End Sub
Private Sub Command2_Click()
Dim m As Integer, n As Integer
Dim x As Integer, sum As Integer
m = InputBox("m")
n = InputBox("n")
Print "在" & m & "和" & n & "之间的完全数有:"
For x = m To n
sum = 0
For i = 1 To x - 1
If x Mod i = 0 Then
sum = sum + i
End If
Next i
If sum = x Then
Print x;
End If
Next x
End Sub
Private Sub Command3_click()
Dim m As Integer, n As Integer
Dim r As Integer, maxv As Integer, minv As Integer
m = InputBox("m")
n = InputBox("n")
maxv = IIf(m > n, m, n)
minv = IIf(m < n, m, n)
Do
r = maxv Mod minv
maxv = minv
minv = r
Loop While (r <> 0)
minv = m * n / maxv
Print m & "和" & n & "的最大公约数 =" & Str(maxv) & Space(2) & "最小公倍数=" & Str(minv)
End Sub
看了我的天~~VB大神快出现!!跪...的网友还看了以下:
矛盾的特殊性原理要求我们想问题、办事情必须()A坚持两点论、两分法B具体问题具体分析C用联系的观点 2020-05-15 …
预备年级数学上海市居民用电使用“阶梯电价”与“分时电价”相结合的方式.阶梯电价按照年度电量为单位实 2020-06-25 …
五,排序题:金星木星火星水星士星地球天王星冥王星海王星2,将下列天体及天体系统按所占空间的大小按由 2020-07-14 …
求尺规作图三大不能问题证明.三等分角问题:三等分一个任意角;倍立方问题:作一个立方体,使它的体积是 2020-08-02 …
初一几何题,按要求探索,先作一等腰三角形△ABC,使AB=AC,∠A=90°先作一等腰三角形△AB 2020-08-03 …
按照国家规定,凡使用天然气的用户不得在同一空间使用第二火源,这句话是哪本规范里面的如题,按照国家规定 2020-11-01 …
资源税法规定,纳税人以自产的液体盐加工固体盐,按固体盐税额征税,以加工的固体盐数量为课税数量。——这 2020-11-07 …
按下列要求作文,两题按下列要求作文,两题任选一题.(1)学习可以使人增长知识,增长才干,也可以让你在 2020-11-15 …
能飞行的物体质量为M,物体至少要用多少能量才能持续悬浮在空中?好像要用到微积分.我根据运通定理得出0 2020-11-16 …
演示文稿的字体怎么搞先后顺序啊?比如老师上课,在演示文稿出了道数学题:25×25÷5=?。怎么先把题 2020-12-02 …