I now defines a floating-point data, a if a is equal to an arbitrary integer, such as 2, is to give message prompt, the value of a can't more than 30000.00

CodePudding user response:

Don't understand? Do you want to input a data judgment? Or according to the original number from + 1?

CodePudding user response:

Is randomly generated a floating point number, such as 2.0, and then judge whether is equal to the integer is equal to an integer to a message

CodePudding user response:

 dim as double d 
D=RND () * 30000 
If abs (d - int (d)) & lt; 0.00001 then 
Msgbox "equal" & amp; D 
End the if 

CodePudding user response:

Thank you very much! Has been used, it's good to run!