vb 算法问题
发布网友
发布时间：2023-11-26 15:02
共2个回答
热心网友
时间：2024-11-24 17:48
考点：数字算法相结合的问题，最简单的递归。
你建立的前三个文本text1中的属性：滚动条设置为2的多行设置为true，text1中纵向轴的细长点，文字2，文字3，拉伸小（不错的数字），以及一个命令
显式的选项的
昏暗的sourceArray，dstArray，作为字符串strSum，isExist（）作为整数
私人小组联合（A，n为整数，m为整数，作为整数毫米）递归算法
>点心I％J％，strSum美元，总和％
对于i = N到M步骤-1
B（M - 1）= I - 1
如果m> 1，然后 BR />通话联合（A，I - 1，M - 1，B，毫米）
其他
总和= 0
strSum =“”
对于j = MM - 1 0步骤-1
总和= SUM + A（B（J））
strSum = strSum＆A（B（J））＆“+”
下一页?
isExist （总和）= 1
strSum = LEFT $（strSum，strSum） - 莱恩（1）“=”＆总和
文本1 = Text1的strSum＆vbCrLf
调用DoEvents
结束如果
接下来，我
END SUB
私人小组Command1_Click（）
昏暗的nCount为整数，作为整数ArrayMax，作为整数ArrayMin，strTemp作为字符串，intTemp的作为整数
点心我为整数，总和作为整数
nCount =输入框（“请输入一系列的数字总数：”）
ArrayMin = InputBox（“请输入序列，请在最低数字：“）
做，而ArrayMax <= ArrayMin
如果ArrayMax > 0，则
ArrayMax = InputBox的（最大必须大于最低ArrayMin的，请输入的最大值该系列的数字：“）
其他
ArrayMax = InputBox（”请输入的最大数量的一系列:)
如果
的回路
随机文本1 =“”
文本2 =“这个系列，特别是数字：”
对于i = 1 nCount
intTemp = INT（RND *（ArrayMax - ArrayMin + 1）+ ArrayMin ）“随机生成的数字
文本2 =文本2 intTemp为”
strTemp = strTemp，与intTemp“
sourceArray = SPLIT（RTRIM $（strTemp））
dstArray = SPLIT（RTRIM $（strTemp））
i = 0到nCo??unt - 1
总和= SUM + sourceArray（I）
接下来，我
REDIM isExist （总和）作为整数
文字3 =“算了一笔账，请稍候......”
对于i = 1 nCount
呼叫联合（sourceArray，nCount，我dstArray，我）
文字3“的可能，而且肯定不是下面的数字：” BR />对于i = 0总结
如果isExist（I）= 0
文字3 =文本3＆I＆“
结束，如果
文字3 =文本3“大于”总和“数字”的最终结果
END SUB
热心网友
时间：2024-11-24 17:49
