vb计算器 简单程序(包含 进制转换 )（VB calculator simple program (including hexadecimal conversion)）R = 10端子“二进制私有子option3_click()command1（6）。启用= falsecommand1（9）。启用= falsecommand1（2）。启用= falsecommand1（3）。启用= falsecommand1（4）。启用= falsecommand1（5）。启用= falsecommand1（8）。启用= falsecommand1（7）。启用= falsecommand25（0）。启用= falsecommand25（1）。启用= falsecommand25（2）。启用= falsecommand25（3）。启用= falsecommand25（4）。启用= falsecommand25（5）。启用= false如果r10，那么text1。文本= trandec（瓦迩（text1文本），2）其他的text1。文本= hex_to_bin（text1文本）最后如果R = 2端子私有子text1_change()如果中期（text1.text，1, 1）=“。”text1。文本= 0和正文。正文最后如果端子“十进制转二和十六进制公共功能trandec $（ByVal m%，ByVal R%）昏暗的strdtor美元模糊%，%strdtor =“”当m0时执行先生= M国防部mr如果先生= 10，那么strdtor = CHR（MR - 10 + 65）和strdtor其他的strdtor =先生及strdtor最后如果环trandec = strdtor端功能公共职能转换（ByVal为字符串，一个n是整数）倍的任意进制转换成10进制作为字符串昏暗的r()作为字符串模糊i为整数模糊j为整数L =“0 | 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 |一| B C D E | | | | F G H | | |我| J | K L M N | | | | O P Q R | | | |的| T | U | V | W | X Y Z”进制字符串字典| |R =分裂（L，“|”）对于我= 1到Len（s）J = 0，UBound（R）如果UCase（MID（S，I，1）= R（J）然后转换=转换最后如果下J下一个我端功能私有函数（ByVal x个字符串）作为字符串的把二进制数转化为十六进制数当Len（x）mod 4 0时x =“0”+ x环当Len（x） 0时选择正确的案例（x，4）案例“0000”个=“0”+个案例“0001”个=“1”+个案例“0010”个=“2”+个案例“0011”个=“3”+个案例“0100”个=“4”+个案例“0101”个=“5”+个案例“0110”个=“6”+个案例“0111”个=“7”+个案例“1000”个=“8”+个案例“1001”个=“9”+个案例“1010”=“”+个16案例“1011”个=“B”+个案例“1100”个=“C”+个案例“1101”个= D +个案例“1110”个=“E”+个案例“1111”个=“F”+个最后选择x =左（x，Len（x）- 4）环端功能“十六转二公共功能hex_to_bin（ByVal Hex为字符串）字符串暗淡我一样长作为字符串六= UCase（HEX）对于i = 1到Len（十六进制）选择案例中（十六进制，I，1）案例“0”：B = B和“0000”案例“1”：B = B和“0001”案例“2”：B = B和“0010”案例“3”：B = B和“0011”案例“4”：B = B和“0100”Case B: B = 5 & 0101Case B: B = 6 & 0110Case B: B = 7 & 0111Case B: B = 8 & 1000Case B: B = 9 & 1001Case a: = 1010 B & BCase B: B = B & 1011Case C: B = B & 1100Case D: = 1101 B & BCase e: = 1110 B & BCase B: B = F & 1111End SelectNext iDo while left (B, 1) = 0B (b = right, Len (b) - 1)Loop_ _ hex to BIN = BEnd Function