2个简单的编程问题

Question

编一个函数过程htod（h），将十六进制字符串H转换成十进制数。主调程序调用htod函数，再调用内部函数hex（number）进行逆向验证。2编一函数过程maxlength（s），在已知的字符串s中，找出最长的单词。假定字符串s内只含有字母和空格，空格分隔不同的单词。

Answer 1

Private Sub Command1_Click()
Dim n1, n2, n
n = "&h12345"
n1 = htod(n)
n2 = Hex(n1)
Print n1, n2
End Sub
Function htod(h)
htod = CLng(h)
End Function

Answer 2

dim a as string
dim k as longk=clng("&H" & 123)a=hex(k)