vb中文本框可以输出的内容如何在列表框里输出?
我写了下面的一段代码,界面上有一个文本框控件,Multiline属性为True,Scrollbars属性为2,还有一个标签和一个命令按钮.运行一切正常,我现在的问题是把文本框改为列表框,要达到与文本框一样的效果,里面的每一个数都要以"00"格式显示.还有一个要求就是每行的数据要从小到大的顺序排列,代码该怎么写呢?谢谢!
Private Sub Command1_Click()
Dim a0() As Integer, a1() As Integer, x%, y$
y = InputBox("请输入a0数组元素个数", "输入数据", "5")
If Val(y) = 0 Or Val(y) = 1 Then Exit Sub
ReDim a0(1 To Val(y))
For x = 1 To UBound(a0)
y = InputBox("请输入a0数组第" & x & "个元素", "输入数据", "1")
If Val(y) = 0 Then Exit Sub
a0(x) = Val(y)
Next
y = InputBox("请输入a1数组元素个数", "输入数据", "4")
If Val(y) = 0 Or Val(y) = 1 Then Exit Sub
ReDim a1(1 To Val(y))
For x = 1 To UBound(a1)
y = InputBox("请输入a1数组第" & x & "个元素", "输入数据", "2")
If Val(y) = 0 Then Exit Sub
a1(x) = Val(y)
Next
Text1.Text = Px(a0(), a1())
End Sub
Private Function Px(aa%(), bb%()) As String
Dim a%, b%, c%, x%, y%, i%, m%
i = 0
For a = 1 To UBound(aa) - 2
For b = a + 1 To UBound(aa) - 1
For c = b + 1 To UBound(aa)
For x = 1 To UBound(bb) - 1
For y = x + 1 To UBound(bb)
i = i + 1 '行序列号
If i >= 1000 Then
m = 3 '行序列号后面的空格数,确保组合后的第一个数据对齐
ElseIf i >= 100 And i < 1000 Then
m = 4
ElseIf i >= 10 And i < 100 Then
m = 5
Else
m = 6
End If
Px = Px & i & Space(m) & Str(aa(a)) & Str(aa(b)) & _
Str(aa(c)) & Str(bb(x)) & Str(bb(y)) & vbCrLf
Next y, x, c, b, a
Label1.Caption = "一共有" & Str(i) & "种组合"
End Function
以下程序实现：在文本框输入内容，按回车键（Enter键）后，文本框中的内容输出到列表框。
1）在窗体上布置一个TextBox控件和一个ListBox控件
2）代码
Option ExplicitPrivate Sub Form_Load()
' 窗体启动时，清空Text1和List1
Text1.Text = ""
List1.Clear
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
' 如果按下了回车键（回车键的Ascii码为13）
If KeyAscii = 13 Then
Dim s As String
' 取出Text1中输入的内容并滤除前后的空格
s = Trim(Text1.Text)
If s <> "" Then
' 如果Text1中输入的内容不为空，则添加到List1中
List1.AddItem s
' 添加后，清空Text1
Text1.Text = ""
End If
End If
End Sub
3）运行效果
窗体启动时
在Text1中输入，按回车后，输入的内容在List1中显示
代码:
Private Sub Command1_Click()
Dim a0() As Integer, a1() As Integer, x%, y$
y = InputBox("请输入a0数组元素个数", "输入数据", "5")
If Val(y) = 0 Or Val(y) = 1 Then Exit Sub
ReDim a0(1 To Val(y))
For x = 1 To UBound(a0)
y = InputBox("请输入a0数组第" & x & "个元素", "输入数据", "1")
If Val(y) = 0 Then Exit Sub
a0(x) = Val(y)
Next
y = InputBox("请输入a1数组元素个数", "输入数据", "4")
If Val(y) = 0 Or Val(y) = 1 Then Exit Sub
ReDim a1(1 To Val(y))
For x = 1 To UBound(a1)
y = InputBox("请输入a1数组第" & x & "个元素", "输入数据", "2")
If Val(y) = 0 Then Exit Sub
a1(x) = Val(y)
Next
'Text1.Text = Px(a0(), a1())
Call Pxlist(a0(), a1(), List1)
End Sub
Private Sub Pxlist(aa%(), bb%(), l As ListBox)
Dim i&, a&, b&, c&, d&, x&, y&, m&, n&, z&, t&(4), s$(4)
For a = 1 To UBound(aa) - 2
For b = a + 1 To UBound(aa) - 1
For c = b + 1 To UBound(aa)
For x = 1 To UBound(bb) - 1
For y = x + 1 To UBound(bb)
i = i + 1 '行序列号
t(0) = aa(a): t(1) = aa(b): t(2) = aa(c): t(3) = bb(x): t(4) = bb(y)
For m = 0 To 4
For n = m + 1 To 4
If t(n) < t(m) Then z = t(m): t(m) = t(n): t(n) = z
Next
s(m) = Format(t(m), "00")
Next
l.AddItem Format(i, "@@@@ ") & Join(s)
Next y, x, c, b, a
Label1.Caption = "一共有" & Str(i) & "种组合"
End Sub本回答被提问者采纳
vb中文本框可以输出的内容如何在列表框里输出?
以下程序实现：在文本框输入内容，按回车键（Enter键）后，文本框中的内容输出到列表框。1）在窗体上布置一个TextBox控件和一个ListBox控件 2）代码 Option ExplicitPrivate Sub Form_Load() ' 窗体启动时，清空Text1和List1 Text1.Text = "" List1.ClearEnd SubPrivate Sub Text1_KeyPr...
VB 怎样将TEXTBOX文本框多行内容导入LISTBOX
'多行文本框中的每行内容是以回车换行符（在VB中是vbcrlf）结束的，也就是说 vbcrlf 是行与行之间的“分割符”。'如果要把多行文本框中的多行文本添加到列表框，也就是让列表框根据多行文本框“分割点”的个数，来确定行数。'然后再通过循环依次把每行内容添加到ListBox中。所以“分割”的关键...
VB将文本框中的数据添加到列表框中
假如文本框是text1，列表框是list1,那么 list1.addItem text1就好。如果你是输入框input1，那么先定义个变量吧 a=input1(………)list1.addItem a
VB6.0中窗体2文本框中的数据传输到窗体1的列表框中
首先要找到窗体2的引用 然后在通过这个引用来获取文本框的的值。如在form1中打开form2：sub showfrm()form2 frm=new form2 frm.show()end sub 然后就通过frm来调用文本框的值。另外也可以把文本框的值跟属性绑定 然后通过访问属性访问这些值。[上面举例的代码未必正确，大概的就是表达那个意思]
vb 怎样把多个文本框的内容放入列表框中
依次添加就可以了，类似这样的语句：list1.additem text1.text list1.additem text2.text 等等。
...单击“添加”按钮,则将文本框中文字添加到列表框中
PrivateSubCommand1＿Click（）ListBoxAdditemText1Text EndSub 按钮 Combo1AddItemText1 Combo1Text＝Text1
vb中如何将所得数据打印在列表框中
myStr = "数据A"List1.Additem myStr List1.Additem myStr 同样代码2行，这样就连续加进了2笔相同的数据（如果加入一次就是一笔）删除一笔数据，使用List1.RemoveItem 0 （0是删除第一行， 1是删除第二行）
vb,我想要问的是我要在文本框输入一串英文句子,然后按单词分解到列表框...
Private Sub Command1_Click()Me.List1.Clear s = Me.Text1.Text For i = 1 To Len(s) '遍历s中的每一个字母，如果不是字母或数字，就换成连字符 J = Asc(Mid(s, i, 1))Select Case J Case 48 To 57, 65 To 90, 97 To 122 Case Else Mid(s, i, 1) = "-"End Selec...
vb如何让list里的文字,显示在label里面
1、打开VB软件，再窗体上加载一个标签。2、点击刚刚添加的标签，接下来，找到属性窗口并设置标签的属源性和其名称，再把Caption设置为快乐学习。3、把Autosize设置为True。4、添加一个列表框控件在窗体上表面。5、点击列表框，并且在属性窗口下面设置列表框控件的属性以及名称。6、双击下面的列表框，就会...
vb 如何在msgbox中显示组合框和列表框里选定的内容?
在Visual Basic中，若需通过 MsgBox 显示组合框或列表框中选定的内容，可利用 Combobox 和 Listbox 的 text 属性实现。具体实现代码如下：MsgBox Combo1.text 或 MsgBox List1.text。为了确保 MsgBox 指令生效，需确保在 MsgBox 触发之前，组合框和列表框的内容已被选定。在设计代码时，应首先确保用户...
