Question

vb 文本框用Print打印

现有Text1 Text2 Text3 我想在1和2中输入一些数字.然后能在3中合起来用Print打印出来，

注：当按下Command后，才将text1和text2合起来打印在text3中...

例 ：text1输入 “1” text2中输入“2” 那么按下command后，text3就要出现“12”
____________
再输入“3 ”和“4” 那么text3就应该这样输出| 12 |
“|”是文本框边边 | 34 |
|____________|
= =那...读入后分别存入数组...然后从大到小排序呢？
例如 1 2 3.5 4.5
5 6 7 8.5
9 10 11 12.5
1,5，9存在一数组，2.6.10在另一数组，然后计算每横行之和，从小到大排序其横行...做得出我加20分

Answer 1

超简单
Private Sub Command1_Click()
Text3 = Text1 & Text2
End Sub

冒泡排序法
Private Sub Command2_Click()

Dim a(4)
Dim i, temp, j, s '加了j和s变量
For i = 0 To 4
a(i) = Val(InputBox("输入第" & i + 1 & "个数")) '加了Val()
Next
For i = 0 To 3
For j = i + 1 To 4 '要多加一层循环
If a(i) < a(j) Then '把i+1换成j
temp = a(i)
a(i) = a(j)
a(j) = temp
End If
Next
Next
For i = 0 To 4 '先把各个值串在一起
s = s & " " & Str(a(i))
Next
MsgBox ("从大到小排列为" & s) '最后输出结果
End Sub

1,5，9存在一数组，2.6.10在另一数组，然后计算每横行之和
Private Sub Command3_Click()
Print "1+2="; &O1 + 2
Print "5+6="; &O5 + 6
Print "9+10=" & 9 + 10
End Sub