在text1中输入一任意正整数下载_Word模板_1

首页 > 在text1中输入一任意正整数

is_841159

暂无简介

在text1中输入一任意正整数在text1中输入一任意正整数在text1中输入一任意正整数，判断其是否为完数。提示:所谓完数，就是如果一个数与它的所有因子之和相等，那么这个数就称为完数。 Private sub form_click() Dim x as integer, s as integer X=val(text1) For i=1 to x-1 If x mod i=0 then S=s+i Endif Next i If s=x then Print “输入的数是完数” Else Print “输入的数不是完数” ...

在text1中输入一任意正整数在text1中输入一任意正整数，判断其是否为完数。提示:所谓完数，就是如果一个数与它的所有因子之和相等，那么这个数就称为完数。 Private sub form_click() Dim x as integer, s as integer X=val(text1) For i=1 to x-1 If x mod i=0 then S=s+i Endif Next i If s=x then Print “输入的数是完数” Else Print “输入的数不是完数” Endif End sub

本文档为【在text1中输入一任意正整数】，请使用软件OFFICE或WPS软件打开。作品中的文字与图均可以修改和编辑，图片更改请在作品中右键图片并更换，文字修改请直接点击文字进行修改，也可以新增和删除文档中的内容。

在text1中输入一任意正整数

热门搜索

历史搜索