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

中国石油大学华东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