Question

VB判断是否有整数代码?

X Y的平方等于根整数时,把数值发为变量a.VB中怎么写这个代码?

Answer 1

这个题楼主表达不清楚，是不是：“X Y的平方和的根等于整数时,把数值发为变量a.VB中怎么写这个代码?”？若是，则程序如下：

Dim X As Integer, Y As Integer, A As Integer, B As Single
Private Sub Form_Click()
X = Val(InputBox("请输入x的值"))
Y = Val(InputBox("请输入x的值"))
B = Sqr(X * X + Y * Y)
Print "x="; X; "y="; Y;
If Int(B) = B Then
A = B
Print "a="; A
Else
Print "不是整数！"
End If
End Sub

如果题意不对，请把原题说明白。

Answer 2

那就来点通俗的吧
新建一个vb工程
添加一个command按钮控件
然后复制下面代码
private
sub
command1_click()
dim
a
as
double,
b
as
long,
c
as
double
a
=
3.143
if
a
=
int(a)
then
b
=
a
c
=
0
else
b
=
int(a)
c
=
(a
-
int(a))
*
60
end
if
print
a,
b,
round(c,
2)
end
sub
点击按钮
即可达到你要的目的
代码中的a=3.143
你自己可以随意修改
a就是你的输入数.