题目
vb 输入一个数,判断该数是否为完数,并把其因子输出
Private Sub Command1_Click()
m = Val(Text1.Text)
For i = 1 To m - 1
If 【9】 Then k = k + i ' 因子之和
Next i
If 【10】 Then
Picture1.Print m & "是完数"
Picture1.Print m; " = 1";
For i = 【11】 ' 因子输出
If m Mod i = 0 Then Picture1.Print "+"; i;
【12】
Picture1.Print
Else
Picture1.Print m & "不是完数"
【13】
End Sub
Private Sub Command1_Click()
m = Val(Text1.Text)
For i = 1 To m - 1
If 【9】 Then k = k + i ' 因子之和
Next i
If 【10】 Then
Picture1.Print m & "是完数"
Picture1.Print m; " = 1";
For i = 【11】 ' 因子输出
If m Mod i = 0 Then Picture1.Print "+"; i;
【12】
Picture1.Print
Else
Picture1.Print m & "不是完数"
【13】
End Sub
提问时间:2021-04-01
答案
(m mod i) = 0
k = m
1 to m - 1
Next
End If
k = m
1 to m - 1
Next
End If
举一反三
已知函数f(x)=x,g(x)=alnx,a∈R.若曲线y=f(x)与曲线y=g(x)相交,且在交点处有相同的切线,求a的值和该切线方程.
我想写一篇关于奥巴马的演讲的文章,写哪一篇好呢?为什么好
奥巴马演讲不用看稿子.为什么中国领导演讲要看?
想找英语初三上学期的首字母填空练习……
英语翻译
最新试题
- 1氢化钠(NaH)是一种生氢剂,可发生如下反应:NaH+H2O=NaOH+H2↑,对这一反应的描述正确的是( ) A.NaH是氧化剂 B.NaOH是氧化产物 C.NaOH是还原产物 D.氧化产物和还原
- 2动物的单眼和复眼有什么区别?
- 31.第一天看1/10 第二天看50页 一共看100页 一共有多少页?2.第一天看1/5 第2天1/10.看↓补充
- 4为了防止矿泉水冷冻后胀破矿泉水瓶,450ml规格的矿泉水瓶容积至少为多少?冰ρ=0.9g/㎝³
- 5干电池的电是什么流电
- 6660÷55-120÷24的简便算法
- 7关于二次微分表示形式的含义
- 815又12分之一加上负4分之一等于多少
- 9问一句古文意思
- 10汽车以10M/S的速度在平直公路上前进,
热门考点