vb代码 求助

来源：百度知道 编辑：UC知道 时间：2024/05/22 00:18:04
我接了个作业.给弄个小表格的VB出来,结果我弄了半天没弄上来
要求是在文本框1,2,3,4,5中输入内容通过"确定"控件在文本框6显示出来
但是显示出来有几个要求.
1.按格式显示
"1文本框内容" 对 "2文本框内容"
条件: "3文本框内容"
名单:4文本框 vs 5文本框(但有点不同是,4文本框是以一行对5文本框一行.即,如果是多个名单，就直接自动罗列好)
1.2是拿来输入两个球队的名字
3是规则
4和5是两组人的名字
然后按确定就在6显示
在6显示的格式是,比如说1输入英格兰.2输入法国.
3输入90分钟制
4输入贝克汉姆和小罗 5输入 C罗和巴赛
然后在6显示为"
球队:英格兰队 对 法国 队.
规则:90分钟制
名单:01.[贝克汉姆] VS [C罗]
02.[小罗] VS [巴赛]
又改了下

Private Sub Command1_Click()
Dim i As Integer, s1 As String, s2 As String, name0 As String, name1() As String, name2() As String
name1() = Split(Text4.Text, vbCrLf)
name2() = Split(Text5.Text, vbCrLf)
For i = 0 To UBound(name1)
s1 = name1(i)
s2 = name2(i)
If s1 = "" Then
Exit For
Else
name0 = name0 & s1 & s2 & vbCrLf
End If
Next i
Text6.Text = "球队：" & Text1.Text & " 对 " & Text2.Text & vbCrLf & vbCrLf & "规则：" & Text3.Text & vbCrLf & vbCrLf & "名单：" & name0
End Sub

群里人

不理解题目意思

楼主去补下语文吧........

不明白意思

真的是不登陆也能回答哎

确定的单击事件
6=1+2+3+4+5
换行用& vbCrLf &