UC知道VB程序注释
来源：百度知道 编辑：UC知道 时间：2024/06/20 23:55:26
Private Sub Timer3_Timer()
Dim i As Integer
Dim strWd As String
Dim strSd As String
Dim strF As String
Dim strM As String
Dim strl As String
Dim strF1 As String
Dim strM1 As String
Dim strl1 As String
Dim strJs As String
Dim s As String
s = MSComm1.Input
s = Replace(s, " ", "")
strJs = s
If Left(strJs, 2) = "01" And Right(strJs, 2) = "EE" Then
Timer4.Enabled = True
strF = Mid(strJs, 6, 1)
strM = Mid(strJs, 8, 1)
strl = Mid(strJs, 10, 1)
strF1 = Mid(strJs, 12, 1)
strM1 = Mid(strJs, 14, 1)
strl1 = Mid(strJs, 16, 1)
If Mid(strJs, 4, 1) = 0 Then
If Mid(strJs, 12, 1) = 0 Then
Label13.Caption = Replace(strM1, "0", " ") & Replace(strl1, "
Dim i As Integer
Dim strWd As String
Dim strSd As String
Dim strF As String
Dim strM As String
Dim strl As String
Dim strF1 As String
Dim strM1 As String
Dim strl1 As String
Dim strJs As String
Dim s As String
s = MSComm1.Input
s = Replace(s, " ", "")
strJs = s
If Left(strJs, 2) = "01" And Right(strJs, 2) = "EE" Then
Timer4.Enabled = True
strF = Mid(strJs, 6, 1)
strM = Mid(strJs, 8, 1)
strl = Mid(strJs, 10, 1)
strF1 = Mid(strJs, 12, 1)
strM1 = Mid(strJs, 14, 1)
strl1 = Mid(strJs, 16, 1)
If Mid(strJs, 4, 1) = 0 Then
If Mid(strJs, 12, 1) = 0 Then
Label13.Caption = Replace(strM1, "0", " ") & Replace(strl1, "
你这么少的分谁个你翻译啊
楼下请
就用了几个简单的字符函数
left(str,n) 从str左边截取n个字符
right(str,n)从str右边截取n个字符
mid(str,m,n)从str第m个字符开始截取n个字符
Replace(s, " ", "") 字符替换函数，用null替换字符是的空格