中国石油大学华东VB练习题(大一下)绪论.doc

中国石油大学华东VB练习题（大一下） 时钟 滚动条 列表框 复选框 单选框 组合框 多分枝选择 定义函数 九、TXT 十、数组 一、时钟 程序运行后，每隔2秒命令按钮Command1向右移动100个单位。 水平滚动条HScroll1的数值范围0～4000，LargeChange设置为200，SmallChange设置为50，水平滚动条HScroll1的值(Value)代表命令按钮Command1的宽度，当水平滚动条的滑块变化时，命令按钮Command1的宽度随之改变 Private Sub Form_Load() List1.AddItem A List1.AddItem B List1.AddItem C List2.AddItem d List2.AddItem e End Sub Private Sub Command1_Click() i = List1.ListIndex If i = 0 And i = List1.ListCount - 1 Then List2.AddItem List1.Text List1.RemoveItem i End If End Sub Private Sub Command2_Click() i = List2.ListIndex If i = 0 And i = List2.ListCount - 1 Then List1.AddItem List2.Text List2.RemoveItem i End If End Sub Private Sub Command3_Click() Dim i% For i = 0 To List1.ListCount - 1 List2.AddItem List1.List(i) Next i List1.Clear End Sub Private Sub Command4_Click() Dim i% For i = 0 To List2.ListCount - 1 List1.AddItem List2.List(i) Next i List2.Clear End Sub ② 实现追加、插入、修改、删除、清空等5个按钮的功能 Sub ClrList(AList As ListBox) For i = AList.ListCount - 1 To 0 Step -1 AList.RemoveItem i Next i End Sub Private Sub Command1_Click() List1.AddItem Text1.Text End Sub Private Sub Command2_Click() i = List1.ListIndex With List1 If i = 0 And i = .ListCount - 1 Then .AddItem Text1.Text, i End With End Sub Private Sub Command3_Click() i = List1.ListIndex If i = 0 And i = List1.ListCount - 1 Then List1.List(i) = Text1.Text End If End Sub Private Sub Command4_Click() With List1 If .ListIndex -1 Then _ .RemoveItem .ListIndex End With End Sub Private Sub Command5_Click() ClrList List1 List1.Clear End Sub Private Sub Form_Load() List1.Clear: List1.AddItem 语文: List1.AddItem 数学: List1.AddItem 英语 End Sub ③实现第一条、前一条、后一条、最后一条等4按钮的功能 Private Sub form_load() List1.AddItem 财务 List1.AddItem 会计 List1.AddItem 国贸 List1.AddItem 营销 List1.AddItem 工管 Private Sub Command_Click() List1.Text = List1.List(0) End Sub Private Sub Command2_Click() List1.Text = List1