VB高手请进，

来源：百度知道 编辑：UC知道 时间：2024/06/15 12:15:59
我想设计一个小程序，通过几个Label和几个Text和两个Command按钮，实现如下功能，通过Text输入几项数值内容，再通过command1按钮让它自动求出值来，放入别外的几个Text中，最后再通过command2就可以进行所有内容的文字及数值的打印汇总出来。(用弹出窗口的方式，而且汇总出来的内容是可以进行复制的。)
小弟急用，谢谢。
不用弹出窗口也行，但是能够把窗口中的所有内容包括label文字和text中的数值内容全部按照一定的格式输出来也行，最后可以进行全选复制也可以。谢谢
你提供的答案我很满意，请问高手方便能留个QQ号，再跟你具体再聊一下。谢谢

Private Sub Command1_Click()
Text1(3) = Text1(0) & Text1(1) & Text1(2)
End Sub

Private Sub Command2_Click()
Dim str1 As String
str1 = Label1(0).Caption & vbTab & Label1(1).Caption & vbTab & Label1(2).Caption & vbTab & Label1(3).Caption & vbCrLf & _
Text1(0).Text & vbTab & Text1(1).Text & vbTab & Text1(2).Text & vbTab & Text1(3).Text
MsgBox str1
Clipboard.Clear
Clipboard.SetText str1
End Sub

VB中填出窗口是不能复制的。但是你可以让结果赋值到变量中，或者用代码直接到内存中

准备3个按纽command1，command2，command3
准被21个文本框控件放在窗体上，分成7行，每行放3个
准备14个标签控件于窗体上，分成7行，每行放2个
因为你所说的设计思路可能是一个计算器，所以代码如下：
Option Explicit: Dim a1 As Double, a2 As Double, b1 As Double, b2 As Double, c1 As Double, c2 As Double, d1 As Double, d2 As Double, e1 As Double, e2 As Double, f1 As Long, f2 As Long, g1 As Long, g2 As Long

Private Sub Command1_Click()
a1 = Val(Text1.Text): a2 = Val(Text2.Text): b1 = Val(Text3.Text): b2 = Val(Text4.Tex