vb文本中如何实现并显示按某个规律的计算结果

来源：百度知道 编辑：UC知道 时间：2024/06/14 13:53:22
比如TEXT.TEXT=1,TEXT2.TEXT=10,TEXT3.TEXT=2按下计算按钮后TEXT4.TEXT显示1-2，3-2，5-2，7-2，9-2的结果，就是TEXT1.TEXT的1为开始数值，TEXT2.TEXT的10为结束数值，TEXT3.TEXT的2为从1开始然后3，5，7，9超过TEXT2.TEXT的10结束，然后结果要全部显示在TEXT4里，显示结果用逗号分开

按键command1
Private Sub Command1_Click()
Dim ii As Integer
text4 = ""
For ii = text1 To text2 Step text3
text4 = text4 & "," & ii - text3
Next ii

End Sub

都过国庆去了，我在这给你回答问题

LZ的描述有点...

我先这样理解了: text1 起始值 text2 终值 text3步长值
1-2 3-2 这些的2 是text3的值吧?...

s = test1.text
e = text2.text
t = text3.text
out = "";

for i=s to e step t
if(out<>"") out = out & ","
out = out & (i - t )
next i

text4.text = out

大概就是这个样子。
代码是直接在这给你打上的，没有测.

机器上没装vb, 好多年没写了...