16楼的 我怎么运行不了啊

我是做电缆装盘 工装的

Private Sub Command1_Click()
MsgBox numsp(20038, 2500, 2510)
End Sub

Public Function numsp(Num As Long, lstart As Long, lend As Long) As String
Dim lm As Long
Dim lb As Long
Dim lmm As Long
Dim lmb As Long
Dim strTemp As String
If IsNumeric(Num) = False Then Exit Function

lm = Num Mod lstart
lb = Fix(Num / lstart)
If lm = 0 Then
strTemp = lstart & "*" & lb
ElseIf lm > 0 Then
lmm = lm Mod (lend - lstart)
lmb = Fix(lm / (lend - lstart))
If lmm = 0 Then
If lmb > lb Then
strTemp = lstart & "*" & lb & "+" & lm
Else
strTemp = lend & "*" & lmb
strTemp = strTemp & "+" & lstart & "*" & (lb - lmb)
End If
Else
If lmb < lb Then
strTemp = lend & "*" & lmb
strTemp = strTemp & "+" & (lstart + lmm)
strTemp = strTemp & "+" & lstart & "*" & (lb - lmb - 1)
ElseIf lmb = lb Then
strTemp = lstart & "*" & lb & "+" & lm
End If
End If
End If
numsp = strTemp
End Function

这个答案 还行吧~

线性不定方程，但由于你的2500, 2510是连续不间断的整数，于是的确有特殊解法
但当输入的数大于2500的平方就肯定有不止一解


by 雨中飞燕 QQ:78803110 C/C++讨论群:5305909

[url=http://bbs.bc-cn.net/viewthread.php?tid=163571]请大家不要用TC来学习C语言，点击此处查看原因[/url]
[url=http://bbs.bc-cn.net/viewthread.php?tid=162918]C++编写的Windows界面游戏[/url]
[url=http://yzfy.org/]C/C++算法习题(OnlineJudge)：[/url] http://yzfy.org/

[此贴子已经被作者于2007-9-24 16:03:14编辑过]

不是唯一的也行 只要是整数 问题不大

这不可以写成一个范围吗？

我刚接触VB,基本算法还可以,这个就难死我了!!

没有什么规律
数学不太行