大家好,小豆豆来为大家解答以上的问题。VB考题，vb考题这个很多人还不知道,现在让我们一起来看看吧！

1、Private Sub Form_Load()L1(0).BorderStyle = 1L1(1).BorderStyle = 1L1(2).BorderStyle = 1L1(3).BorderStyle = 1L1(0).Caption = "程序运行"L1(1).Caption = "文本编辑"L1(2).Caption = "双向箭头"L1(3).Caption = "移动窗体"L1(0).MousePointer = 11L1(1).MousePointer = 3L1(2).MousePointer = 7L1(3).MousePointer = 5End SubPrivate Sub Command1_Click()List2.AddItem List1.List(List1.ListIndex) & " " & Combo1.Text & "->" & Combo2.TextEnd SubPrivate Sub Command2_Click()If List2.ListIndex < 0 Then Exit SubList2.RemoveItem (List2.ListIndex)End SubPrivate Sub Command3_Click()List2.ClearEnd SubPrivate Sub Form_Load()Dim i As IntegerList1.AddItem "G145"List1.AddItem "G396"List1.AddItem "G398" Combo1.AddItem "xx1"Combo1.AddItem "xx2"Combo1.AddItem "xx3"Combo2.AddItem "zz1"Combo2.AddItem "zz2"Combo2.AddItem "zz3"End Sub。

本文到此分享完毕，希望对大家有所帮助。

版权说明： 本文版权归原作者所有，转载文章仅为传播更多信息之目的，如作者信息标记有误，请第一时间联系我们修改或删除，多谢。

标签：