vb程序题(7)

1. 时钟。程序运行后，每隔2秒命令按钮Command1向右移动100

个单位。

Option Explicit

Private Sub Form_Load() Timer1.Interval = 2000 End Sub

Private Sub Timer1_Timer() Call mymove End Sub Sub mymove()

Command1.Left = Command1.Left + 100 End Sub

2.滚动条。水平滚动条HScroll1的数值范围0～100，LargeChange设置为10，SmallChange设置为5，水平滚动条HScroll1的值(Value)代表正方形的边长，当水平滚动条的滑块变化时，标签Label1中正方形边长随之改变，文本框Text1中正方形面

积也随之改变

Option Explicit

Private Sub Form_Load() HScroll1.Min = 0 HScroll1.Max = 100 HScroll1.SmallChange = 5 HScroll1.LargeChange = 10 End Sub

Private Sub hscroll1_change() Call HScroll1_Scroll End Sub

Private Sub HScroll1_Scroll() Label1.Caption = Val(HScroll1.Value) Label1.Width = Val(HScroll1.Value) Label1.Height = Val(HScroll1.Value)

Text1.Text = Val(HScroll1.Value) * Val(HScroll1.Value) End Sub

2. 时钟。文本框Text1初始值为0，程序运行后，每隔1秒文本框Text1

中的数值在其原值基础上递增加

1。

Private Sub Form_Load() Timer1.Interval = 1000 End Sub

Private Sub Timer1_Timer() Call mymove End Sub Sub mymove()

Text1.Text = Val(Text1.Text) + 1 End Sub

3. 滚动条。水平滚动条HScroll1的数值范围0～4000，LargeChange设置为200，SmallChange设置为50，水平滚动条HScroll1的值(Value)代表命令按钮Command1的宽度，当水平滚动条的滑块变化时，命令按钮Command1的宽度随之改变

Private Sub Form_Load() HScroll1.Min = 0 HScroll1.Max = 4000 HScroll1.SmallChange = 50 HScroll1.LargeChange = 200 Command1.Caption = \End Sub

Private Sub HScroll1_Change() Call HScroll1_Scroll End Sub

Private Sub HScroll1_Scroll()

Command1.Caption = Val(HScroll1.Value) Command1.Width = Val(HScroll1.Value) End Sub

本文来源：https://www.bwwdw.com/article/rxdw.html