Question

编写函数过程和子过程判断一个正整数是否为完全平方数,vb编程

编写函数过程和子过程判断一个正整数是否为完全平方数,vb编程

Answer 1

1、首先启动vb6，新建一个标准exe文件，调整窗体的大小。

2、选择窗体，设置属性中font属性值，字体为田英章毛笔楷书，字号为一号。

3、双击窗体进行代码编写区域，设置过程为click，对象为窗体form1。

4、接着输入代码内容。

5、点击启动按钮进行编译调试，根据错误提示修改，直至无误为止。

6、点击窗体会弹出提示对话框，输入要判断素数的数值，点击确定按钮，这个时候自动进行判断并给出结果。

7、执行文件-保存工程命令，按照提示依次保存窗体和工程即可。

Answer 2

private sub sub1 n as integer f as integer
Dim I as integer n as integer
If i dayu 0 then
If int sqrn dengyu sqrn then
F dengyu true
Exit sub
End if
End if
F dengyu false
End sub
Private commmand1click
Call sub1，，， ， ，