vb文本框计算
文本框有以下数5912怎么实现一按计算，就把1,2,3,4,5,6,7这7个数，进行两个数相加等于5,9,12这几个数的两个数找出来，显示到文本框2如下142327364...
文本框有以下数
5
9
12
怎么实现一按计算，就把1,2,3,4,5,6,7这7个数，进行两个数相加等于5,9,12这几个数的两个数找出来，显示到文本框2如下
1 4
2 3
2 7
3 6
4 5
5 7
谢谢老师能指点一下！ 展开
5
9
12
怎么实现一按计算，就把1,2,3,4,5,6,7这7个数，进行两个数相加等于5,9,12这几个数的两个数找出来，显示到文本框2如下
1 4
2 3
2 7
3 6
4 5
5 7
谢谢老师能指点一下！ 展开
2个回答
展开全部
不是私信回了吗，还在这里面来问。
新建一工程，在窗体上拖入一按钮，两个文本框（其MultiLine属性设置为True）
然后进入代码区，删除所有代码后。粘贴以下代码即可。
Option Explicit
Private Sub Command1_Click()
Dim A() As String, K As Integer
Dim N As Integer, I As Integer, J As Integer
A = Split(Text1.Text, vbCrLf)
N = UBound(A)
Print N
For I = 1 To 7
For J = I + 1 To 7
For K = 0 To N
If I + J = A(K) Then
Text2.Text = Text2.Text & I & " " & J & vbCrLf
End If
Next K
Next J
Next I
End Sub
Private Sub Form_Load()
Text1.Text = "5" & vbCrLf & "9" & vbCrLf & "12"
End Sub
已赞过
已踩过<
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
|
广告 您可能关注的内容 |
