作业帮 > 数学 > 作业

VB中 If y * y = x Then中y * y = 怎样用这个语句来判断一个数是否是平方数啊

来源:学生作业帮 编辑:搜搜做题作业网作业帮 分类:数学作业 时间:2024/06/25 08:56:51
VB中 If y * y = x Then中y * y = 怎样用这个语句来判断一个数是否是平方数啊
问题就是那样的
VB中 If y * y = x Then中y * y = 怎样用这个语句来判断一个数是否是平方数啊
If y * y = x Then
是否 y 的平方等于 x 是
用这个语句来判断一个数是否为平方数可以如下表达,其中x为待检测数
if sqr(x) mod 1 = 0 then print "X为平方数"
再问: ����֪�������дһ��function�������ж�һ�����Ƿ���ƽ����ô
再答:  Private Function pfs(x As Long) As Boolean
If Sqr(x) Mod 1 = 0 Then
pfs = True
Else
pfs = False
End If
End FunctionPrivate Sub Command1_Click()
Dim a As Boolean
Dim b As Long
b = InputBox("������һ�������������", "��ʾ")
a = pfs(b)
If a = True Then
Print "���������Ϊƽ����"
Else
Print "�����������ƽ����"
End If
End Sub