vb6.0中要是一个变量p每大约10秒加1的代码该怎么写

vb6增加几百毫秒或增加几秒的代码怎么写？~

dim dt as date
'取系统时间
dt=time
'例如 加 5 秒
dt=dateadd("s",dt,5)
'修改系统时间
time=dt

'dateadd的用法
'dateadd(所增加的时间类型,时间,增加数量)

Two buttons ,two textbox ,one frame

Option Explicit

Dim pname As String
Dim pkey As String
Dim DB As Database
Dim rd1 As Recordset
Public ok As Boolean



'Private Const MAX_FILENAME_LEN = 256
Private Sub cmdCancel_Click()
ok = False
rd1.Close
DB.Close
Unload Me
End
End Sub

Private Sub cmdOK_Click()
Dim DogAddr As Long ' The address read
Dim DogBytes As Long ' The number of bytes read
Dim DogDataStr As String ' The data read
Dim DogDataInt As Long
Dim DogDataDouble As Double
Dim Ret As Long ' The return value
Dim DogUser As String
Dim DogKeys As String
'ToDo: 创建测试密码是否正确
'检查正确密码
If Trim(txtUserName.Text) "" Then
If Trim(txtPassword.Text) "" Then

rd1.FindFirst " username='" + Trim(txtUserName.Text) + "'"
If rd1.NoMatch Then '没有发现库中有用户，在dogkey中找
MsgBox "用户不存在(注意输入大小写) ,请再试一次!", vbCritical, "登录"
Call txtUserNameGetFocus
Else

If Trim(txtPassword.Text) = Trim(rd1("userKey").Value) Then
'做出相应的标志,处理动作
MsgBox "祝贺你成功登录系统.", vbInformation, "登录"
ok = True '登陆标志
UsName = txtUserName.Text
rd1.Close
DB.Close
Unload Me
Else
MsgBox "密码错误 (注意输入大小写) ,请再试一次!", vbCritical, "登录"
Call txtPasswordGetFocus
End If

End If

Else: MsgBox "请输入你的密码!", vbInformation, "登录"
Call txtPasswordGetFocus
End If
Else
MsgBox "请输入你的姓名!", vbInformation, "登录"
End If
End Sub
Private Sub ChkDog()
Private Sub txtPasswordGetFocus()
txtPassword.SetFocus
txtPassword.SelStart = 0
txtPassword.SelLength = Len(txtPassword.Text)
End Sub

Private Sub txtUserNameGetFocus()
txtUserName.SetFocus
txtUserName.SelStart = 0
txtUserName.SelLength = Len(txtUserName.Text)
End Sub

Private Sub Form_Load()
'App.HelpFile = App.Path + "\WHELP.HLP"
'OpenDatabase(DatabaseName, False,False, ";Pwd=密码")
Set DB = OpenDatabase(App.Path + "\Access.mdb", False, False, ";pwd=ma")
Set rd1 = DB.OpenRecordset("kkey", dbOpenSnapshot)
If rd1.RecordCount = 0 Then Exit Sub
pname = rd1("username")
pkey = rd1("userkey")
End Sub

在窗体中加入timer控件，将它的interval属性设置为1000，然后在timer1_timer事件中加入如下代码：
Private Sub Timer1_Timer()
p = p + 1
End Sub
p的初始值要在全局中设置一下，比如初始值为：p=0即可

Dim P as Long
Private Sub Timer1_Timer()
'请先设置Timer1控件的Interval属性为1000
P=P+1
Print P
End Sub

---

通川区17872589432： vb6.0中要是一个变量p每大约10秒加1的代码该怎么写 - ？
箕策丽乐： Dim P as Long Private Sub Timer1_Timer()'请先设置Timer1控件的Interval属性为1000 P=P+1 Print P End Sub

通川区17872589432： VB6.0的变量作用范围,与浮点运算 - ？
箕策丽乐： 因为1/3是一个无限循环小数,而计算机在存储这个数字的时候,不可能无限保留小数点后的位数,只能保留有限的位数,可能会发生四舍五入,比如说是0.3333333333,当它再乘以3的时候,结果是0.9999999999,就不等于1了,这就是浮点...

通川区17872589432： 在VB6.0软件中怎么设置一个计数器？
箕策丽乐： 定义一个全局变量 没输入错误一次+1 然后判断是否大于3 成立 就退出 Dim i As Integer'定义全局变量i Private Sub Command1_Click() If i < 2 Then'i默认值是0 所以这里用i小于2 MsgBox ＂密码错误,请重新输入＂ i = i + 1 Else MsgBox ＂错误次数达到3次,软件将退出＂ End End If End Sub 定义一个全局变量 每输入错误一次+1 然后判断是否大于3次 成立 就退出

通川区17872589432： 求VB6.0的函数列表 - ？
箕策丽乐： 类型转换函数 1、 Int(x):求不大于自变量x的最大整数 2、 Fix(x):去掉一个浮点数的小数部分,保留其整数部分 3、 Hex$(x):把一个十进制数转换为十六进制数 4、 Oct$(x):把一个十进制数转换为八进制数 5、 Asc(x$):返回字符串x$中第一个...

通川区17872589432： VB6.0环境下,有一个变量,它的值是一串多行文本,如何把它的每一行分离出来,并且把各行添加到COMBO中? - ？
箕策丽乐： Private Sub Command1_Click() dim xstr as string xstr= 'xstr的值,多行.a = Split(xstr Chr(13) & Chr(10)) For i = 0 To UBound(a) Combo1.AddItem a(i) Next i End Sub 多行文本的换行符是 chr(13) & chr(10)

通川区17872589432： VB6.0中怎么产生1到9的随机数？
箕策丽乐： 产生1到9的随机整数用 int(Rnd*9+1) 因为Rnd是随机0~1的小数,但不含0和1 如果产生大于1小于9的随机实数用 Rnd*8+1

通川区17872589432： vb6.0练习题 - ？
箕策丽乐： 结果应为120 具体是 s=120 就是把1到5相乘的意意Dim a%(1 To 5), i%, s#'变量申明'-----下面代码是:组变量数组a中的每个元素一个值For i = 1 To 5 a(i) = i Next'下面这行...

通川区17872589432： vb6.0随机数据问题 - ？
箕策丽乐： 两个过程用同一个变量,应该定义公用变量如下面代码:Dim a(1 To 10) As IntegerPrivate Sub Command1_Click()RandomizeFor i = 1 To 10k = ia(i) = Val(Int(40 * Rnd + 60))Text1.Text = a(i) & ...

通川区17872589432： vb6.0中,在form1中定义的变量如何才能在form中使用???????????? - ？
箕策丽乐： 不用DIM,用PUBLIC

通川区17872589432： 这段程序有什么问题?(vb6.0)？
箕策丽乐： 楼主你在用VB写程序的时候要注意一点,就是变量一定要遵循先定义后使用的原则,不然会出现很多问题的 n和Y要先定义成整形变量 dim n ,y as integer 还有input函数返回的值都是STRING类型的 还要加一句x = Val(InputBox(＂＂))还有一点·如果你输入的X值过大的话·运算的量比较大会造成程序暂时的失去响应,你可以加doevents 来把控制权交给CPU,如果还不行的话就要用到多线程技术了 错了,你程序里的a有什么用吗?·N>X,n是0,X输入1就直接退出循环了,这个循环写的没有意义