求各位给详细解释一下这个代码的各个意思！！每行都要！！谢谢了

[lxhbcy]

Private Sub clock(ByRef kk As Double)
Dim t2 As String
Dim t1 As String
Dim hr As Object
Dim t As String
t = TimeString
hr = Val(Mid(t, 1, 2)) + kk
If hr >= 24 Then hr = hr - 24
t1 = Str(hr)
t2 = Mid(t, 3, 6)
Label1.Text = t1 & t2
Beep()
End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Select Case ComboBox1.Text
Case "北京"
clock((0))
Case "上海"
clock((0))
Case "东京"
clock((1))
Case "纽约"
clock((11))
Case "伦敦"
clock((16))
End Select
End Sub

[长风大叔]

不會吧,這樣的代碼你都看不懂啊

t = TimeString 當前時間的字符串給變量
hr = Val(Mid(t, 1, 2)) + kk 從字符t中取第一個字符開頭的兩個字符,并轉化成數字,再加上kk

If hr >= 24 Then hr = hr - 24
t1 = Str(hr) 把數字轉化為字符
t2 = Mid(t, 3, 6) 從第3個字母開始取6個字符給變量t2
Label1.Text = t1 & t2 把t1和t2連接起來
Beep() 發一個叫聲.

[chinahth]

你这是实现时间转换，把本地时间转换为其他几个时间，通过选择
mid(t,1,2)这个函数的意思是从t字符串中从第一个开始2了字符，都是比较简单的，MSDN上都有

[lxhbcy]

为什么要加 kk

[lxhbcy]

Select Case ComboBox1.Text
Case "北京"
clock((0))
Case "上海"
clock((0))
Case "东京"
clock((1))
Case "纽约"
clock((11))
Case "伦敦"
clock((16））
什么意思（）里的

[chinahth]

我想这就是两地的时间差，如本地和北京、上海的时间差为零，所以也加零，啊，你怎么会有两个括号，呵呵，两个能运行吗？能得到你要的结果吗？不懂了

[lxhbcy]

能啊

[lxhbcy]

多给我解释一下好吗？
hr = Val(Mid(t, 1, 2)) + kk
If hr >= 24 Then hr = hr - 24
t1 = Str(hr)
t2 = Mid(t, 3, 6)
Label1.Text = t1 & t2
Beep()
为什么要加KK起什么作用Val(Mid(t, 1, 2))
Mid(t, 3, 6)，多说说！！！我刚学不太理解！！！！

[chinahth]

加kk就是让北京时间转为其他时间啊，如：北京时间9点，东京时间10点，那么就加一啊，
mid(t,1,2)这个函数的意思是从t字符串中从第一个开始取2个字符，就是小时啊，val()的意思是把字符转换成数字型，mid(t,3,6)从第3位开始取6个字符，上面那位也说的很清楚啊

[Ninputer]

你还是先找本书看看吧，想编VB的程序，最起码语句要掌握啊
而且不能因为刚学就不自己思考是不是

[lxhbcy]

谢谢

[k4]

Mid 语句
【命名空间】：Microsoft.VisualBasic

【模块】：Strings

【程序集】：Microsoft Visual Basic .NET 运行库（位于 Microsoft.VisualBasic.dll 中）
用另一个字符串中的字符替换 String 变量中指定数量的字符。

Mid( _
ByRef Target As String, _
ByVal Start As Integer, _
Optional ByVal Length As Integer _
) = StringExpression
【各部分说明】
Target
必选项。要修改的 String 变量的名称。
Start
必选项。Integer 表达式。Target 中文本替换开始的字符位置。Start 使用从一开始的索引。
Length
可选项。Integer 表达式。要替换的字符数。如果省略该参数，则使用所有字符串。
StringExpression
必选项。String 表达式，替换 Target 部分。
【示例】
本例使用 Mid 语句用一个字符串中的字符替换字符串变量中指定数量的字符。

Dim MyString As String
MyString = "The dog jumps" ' Initializes string.
Mid(MyString, 5, 3) = "fox" ' MyString = "The fox jumps".
Mid(MyString, 5) = "cow" ' MyString = "The cow jumps".
Mid(MyString, 5) = "cow jumped over" ' MyString = "The cow jumpe".
Mid(MyString, 5, 3) = "duck" ' MyString = "The duc jumpe".

ˇˇˇˇˇˇˇˇˇˇˇˇˇˇˇˇˇˇˇˇˇˇˇˇˇˇˇˇˇˇˇ
Val 函数
〖命名空间〗：Microsoft.VisualBasic

〖模块〗：Conversion

〖程序集〗：Microsoft Visual Basic .NET 运行库（位于 Microsoft.VisualBasic.dll 中）
以适当类型的数值形式返回包含于字符串内的数字。

Public Overloads Function Val(ByVal Expression As String) As Double
－ 或 －

Public Overloads Function Val(ByVal Expression As Object) As Double
－ 或 －

Public Overloads Function Val(ByVal Expression As Char) As Integer
〖参数〗
Expression
必选项。任何有效的 String 表达式、Object 变量或 Char 值。如果 Expression 是 Object 类型，它的值必须可以转换为 String，否则，将出现 ArgumentException 错误。

-----------------------------------------------------
因此Val(Mid(t, 1, 2)) + kk:将从t字符第一个字符开始的两个字符转化为字符，并和kk相加(注:kk表示当地时间与其他时间之差)
Mid(t, 3, 6):从t字符第三个字符开始的六个字符