如何用VB编写程序判断一个数是完全平方数

如36=6^2 判断一百以内的整数是否完全平方数

推荐答案 2007-04-02

思路：
1、判断值是否大于等于0
2、开平方这个数
3、判断开平方后取整和开平方后的数是否相等，如果相等是完全平方数，否则不是

例子：
dim a,b
for a=1 to 100
if a>=0 then
b=sqr(a)
if int(b)=b then
\'完全平方数
else
\'不是完全平方数
end if
else
\'这个数不能开平方
end if
next a

温馨提示：答案为网友推荐，仅供参考

当前网址：http://33.wendadaohang.com/zd/c4455Rc4.html

其他回答

第1个回答 2007-04-02

input X
判断x是整数
判断x<>0
判断x<>1
条件成立（是整数，不等于0不等于1） then

y=x开方。
m＝y的整数
判断：
if y=m then
是
if Y《》m then
不是

第2个回答 2007-04-02

什么是完全平方数呢

相似回答

编写函数过程和子过程判断一个正整数是否为完全平方数,vb编程答：1、首先启动vb6，新建一个标准exe文件，调整窗体的大小。2、选择窗体，设置属性中font属性值，字体为田英章毛笔楷书，字号为一号。3、双击窗体进行代码编写区域，设置过程为click，对象为窗体form1。4、接着输入代码内容。5、点击启动按钮进行编译调试，根据错误提示修改，直至无误为止。6、点击窗体会弹出提...

VB编写程序判断是否为完全平方数这个输入什么都是显答：Private Sub Command1_Click()Dim n As Long,x As Long n = InputBox("请输入一个整数：")x = Sqr(n)If x * x n Then MsgBox (n & "不是一个完全平方数") Else MsgBox (n & "是一个完全平方数")End Sub

计算机vb如何编写 如果x是一平方数答：If i = Int(Sqr(i)) * Int(Sqr(i)) Then Print i & “是一个完全平方数！”End If 下面的代码输出1-100中的完全平方数 Dim i As Integer For i = 1 To 100 If i = Int(Sqr(i)) * Int(Sqr(i)) Then Print i End If Next i ...

大家正在搜

判断一个程序用几个线程编写如何编写判断回文数程序编写一个判断闰年的程序用c语言编写判断闰年的程序编写程序判断回文数编写一个程序编写一个c语言程序写一段程序模拟三个线程编写函数判断是否闰年