Question

在VB中创一个listbox,设计程序把列表框中选中的内容打印到窗体上，谢谢！

Answer 1

Private Sub Command1_Click()
If List1.Text = "" Then
MsgBox "你还没有选择呢"
Exit Sub
End If
Print List1.Text
End Sub

追问

是这样的，把列表框的属性设为复选框，单击命令按钮，你选中几项，就在窗体上打印那几项。麻烦再帮忙一下，感激不尽。

追答

Private Sub Command1_Click()
Dim 已选项目 As String
For i = 0 To List1.ListCount - 1
If List1.Selected(i) Then 已选项目 = 已选项目 & vbCrLf & List1.List(i)
Next i
If 已选项目 = "" Then
MsgBox "你一项都没有选择呀！"
Else
Print "已经选择项目如下："; 已选项目
End If
End Sub

追问

那个已选项目是什么啊，麻烦 一下

追答

我真要服了你了
第二行：Dim 已选项目 As String
说的很清楚，这是一个变量，这个变量的类型是字符串型，不定长。

另外，你有话能不能直接说？每次等一天，你不烦我都怕忘记了说的啥呢

追问

那个已选项目是什么啊，麻烦 一下。我想加你为好友，能告诉我你的QQ 号吗？我还有一个问题：按命令按钮计算500以内两个数之间所有连续数的和为1250的正整数，并在窗体上显示。谢谢。

追答

另外的问题，另说。
有话就在百度Hi上说。

追问

能交个朋友吗，想要你QQ 号

追答

只答问题，不交朋友。