女朋友的作业,我没时间接触VB,想请各位帮忙写个小程序。
解决方案 »
- 如何实现list列表和text控件之间的联动
- 怎样在窗体Form_Initialize()事件的时候,就把该窗体关掉,不让它Form_Load()?
- 为什么能提取得到图标,可是保存图标是黑色的
- 可否去掉SQL Server2000触发器中用raiserror 99999 '在[员工资料]中已有记录与本记录相关联,不能删除!'中前面的文字?
- 打开VB工程时,出现冲突名称错误,如何解决??
- 我在做ActiveX的时候用到了Soap3,怎么才能在网上发布的时候自动安装Soap3呢?
- 我快被数组控件搞疯了啊,这不知道怎么都给混晕了,个位帮帮我啊!
- 请问:关于数据溢出问题
- 为什么文件读进来的时候,每一行的长度发生了变化
- VB中用mschart控件画图纵坐标标题显示不清楚
- Visual Basic初学者求助
- 从图片上截取指定大小的图片,然后保存
从 for i = 1 to int(sqr(N)) 循环处理
如果 N/i = int(N/i) 说明N能被i整除, 则 i 和 N/i 都是 N的因子,进行输出 (注意i=N/i的情况),继续循环下一个直至结束如果你用C,这件事情很简单。
代码就不给了,毕竟那是你的女朋友。另外你的截图里,既然1算其中一个因子,为毛45不算?
这就像在和朋友聊天的时候说:我有一个朋友balabalabala……你们觉得他应该怎么做。 一听就知道这是说自己的事情,大家七嘴八舌识破不戳破而已。
Dim colDivisors As New Collection
Dim i As Integer
For i = 1 To Text1 - 1
If Text1 Mod i = 0 Then
colDivisors.Add i
End If
Next
Label2.Caption = "共有" & colDivisors.Count & "个因子."
Text2 = ""
For i = 1 To colDivisors.Count
Text2 = Text2 & colDivisors(i) & " "
Next
End Sub运行示例:下载地址:
链接:https://pan.baidu.com/s/1Bvgp_Y0_jqFWKDJw7Nht6g
提取码:bv95