咋整呀，看不懂

你这是试题吧，大学基础知识，要花时间自己去弄懂啊，我稍微给你解释一下：
1、y = x Mod 2 ''十进制转二进制，口诀：除2取余，余数倒序排列
   x = x \ 2   ''这是除以2得到的商
   Text2.Text = st
  If c0 = c1 Then

2、n = len(s) ''先获取字符串的长度
   ans = ans + x * 2^(n-i) ''按位权展开相加
   ans = 2 * ans + x       ''按累乘相加

3、x = x \ 16 ''十进制转十六进制也是一样的口诀：除16取余，余数倒序排列
   a = chr(55 + r)
   a = r

4、s = 0 & s ''在s的前面补0
   sum = 0   ''4个一组求和，求和前将sum置零
   ans = ans + Mid( s1, sum + 1 , 1)