也可这样说,2的m(m>0)次方,不可能是2个或以上的连续正整数的和。
解决方案 »
- treeview复选框操作鸡毛加急!急盼高人指点
- 急问,Tdbgrid数据使用Exporttofile导入EXCEL后,如何控制不出现乱码啊?
- 关于在win2k下修改计算机名的问题
- 求助,用程序实现,把网页表单里的内容存到变量里
- 如何在installsheild打包的程序安装完成后,激活指定的程序?
- 怎样才能用程序朗读中文,我用金山词霸的texttoSpeech实现了英文朗读,但我不知道该引用什么对象来朗读中文,或者有什么控件吗?
- 谁知道用 VB自带的 “Multimedia MCI 控件” 播放资源文件里的“WAV”声音文件
- 怎样用vb为菜单加上象开始菜单左边的那样的图片?
- 如果让frmToolbar不得到焦点?
- 关于图象处理
- 海量图片浏览筛选有什么好一点的思路?----[color=#FF00FF]彭佳乐来了吗[/color]
- vb6.0,关于winsock控件,udp广播如何穿透路由器
Private Sub Command1_Click()
Cls
Dim i As Long, s As String, TotalNum As Long
TotalNum = Val(InputBox("输入总和", , 1000))
For i = 1 To TotalNum / 2
If TotalNum / i - (i - 1) / 2 < 1 Then Me.Caption = "循环到" & i: Exit For
If TotalNum Mod i = 0 Then '个数为奇数
If i Mod 2 = 1 Then
s = TotalNum / i - (i - 1) / 2 & "到" & TotalNum / i + (i - 1) / 2
Print s
End If
ElseIf TotalNum Mod i = i * 0.5 Then '数字个数为整数
s = TotalNum / i - (i - 1) / 2 & "到" & TotalNum / i + (i - 1) / 2
Print s
End If
Next
End Sub
所以n(n>1)个连续正整数相加,其结果不可能为2的m(m>0)次方