Question

一道vb题目求解。

麻烦大佬解答

Answer 1

程序运行界面如图：

完整代码：

Option Explicit

Private Sub Command1_Click()
Dim MySelStr As String

MySelStr = ""
Dim i As Integer
For i = 0 To List1.ListCount - 1
   If List1.Selected(i) Then
      MySelStr = List1.List(i)
      Exit For
   End If
Next i

For i = 0 To List2.ListCount - 1
   If List2.List(i) = MySelStr Then
      MsgBox "已选过这门课！"
      Exit Sub
   End If
Next i

List2.AddItem MySelStr

End Sub

Private Sub Form_Load()
List1.AddItem "Java"
List1.AddItem "VB 6.0"
List1.AddItem "C#"
List1.AddItem "网页制作"
List1.AddItem "软件测试"
List1.AddItem "ASP.net"
List1.AddItem "PHP"
List1.AddItem "HTMLS"

End Sub

Answer 2

我们就是超级巨星，超级巨星。我们有传递快乐的魔力。。。我们就是超级巨星，超级巨星。我们有传递看来的魔力。。。。我们就是超级巨星，超级巨星。我们一传递快乐的魔力。。。。。我们就是超级巨星，超级巨星，我们有传递快乐的能力………………yenh ……

Answer 3

上百度搜一搜吧

Answer 4

他一直有个骑行环游中国的梦想，从大三开始就积极在各大平台网站上联络驴友，可就在准备出发的当口，他实习的公司正好赶上业务增长的繁忙期，每天连按时下班都是奢望，更别说请几个月的长假。

他的经理也说得直白：“你可以走，但肯定回不来，这个岗位多少个应届生在竞争，哪儿可能留到你旅游完再来干。”

他恨不得转身就飞奔而去，却迫于囊中羞涩，父母又以断绝经济援助要，依旧得乖乖地打卡上班加班。

他跟我吐槽说，这个社会真是太坏了，一点也不鼓励年轻人追求梦想体验生活。

Answer 5

上百搜一搜吧