给你写段伪代码吧！*******************************************************************************dim col as collection'这个集合是用来存放一个指定的数字的完全数，比如28的1、2、4、7、14dim Num as intfor i as int = 1 to Num。
countif i <>Num。count thenif Num/i =整数 thencol。add(i)end ifend ifnext '这样的话就可以算和数num所有整除的数，并把所有的完全数放进col*******************************************************************************'接下来是把所有的可以和num整除的数加在一起，判断是不是等于numdim num_all as intfor j as int = 1 to col。
countnum_all = num_all + col(i)nextif num_all = num then '如果相等则说明num为完全数end if*******************************************************************************接下来说说你要输入两个数n和m之间 ，之后求完全数！要做的就是做一个循环！之后反复调用我上面写的代码，判断n和m之间的所有完全数！for x as int = n to m上面的代码！end if。
答：Private Sub cmdAns_Click() Dim s As Double If IsNumeric(Text1.Text) And IsNumeri...详情>>
答：详情>>
答：三级网络技术考试大纲 三级网络新大纲 基本要求 1． 具有计算机系统及应用的基础知识。 2． 掌握计算机局域网的基本概念和工作原理。 3． 了解网络操作系统的基...详情>>
