2017西安沣西新城招聘:VB一个简单的问题,,帮帮忙!~

来源：百度文库编辑：高校问答时间：2024/04/29 03:10:44

我用VB做一个定时显示奇偶数的软件,怎样才能实现每2秒就互换一次呢????

新建工程，添加一个TIMER控件，一个TEXTBOX控件
双击窗体FORM1，进入代码编辑，把下列代码拷贝进去，按F5运行。
Dim i As Integer
Private Sub Form_Load()
Timer1.Interval = 2000 '设置运行时间间隔为2秒
i = 1 '初始值为奇数
End Sub

Private Sub Timer1_Timer()
If Timer1.Interval = 2000 Then '当时间等于2秒
Text1.Text = i '显示数值
i = i + 1 '每2秒加1
End If
End Sub

托一个Timer控件，把控件的interval属性设置为2000

VB一个简单的问题,,帮帮忙!~ 一个VB的简单问题一个简单的VB问题快急 VB菜鸟请问一个简单的问题一个关于vb的简单问题!! 一个相当简单的vb问题? 请教一个VB的简单问题请教一个VB的简单问题！ VB问题，一个简单问题 VB问题，一个简单问题