vb计算器 简单程序(包含 进制转换 )（vb calculator simple program (including hexadecimal conversion)）

《vb计算器 简单程序(包含 进制转换 )（vb calculator simple program (including hexadecimal conversion)）》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。

1、vb计算器简单程序(包含进制转换)（VBcalculatorsimpleprogram(includinghexadecimalconversion)）R=10端子“二进制私有子option3_click()command1（6）。启用=falsecommand1（9）。启用=falsecommand1（2）。启用=falsecommand1（3）。启用=falsecommand1（4）。启用=falsecommand1（5）。启用=falsecommand1（8）。启用=falsecommand1（7）。启用=falsecommand25（0）。启用=falsec

2、ommand25（1）。启用=falsecommand25（2）。启用=falsecommand25（3）。启用=falsecommand25（4）。启用=falsecommand25（5）。启用=false如果r＝10，那么text1。文本=trandec（瓦迩（text1文本），2）其他的text1。文本=hex_to_bin（text1文本）最后如果R=2端子私有子text1_change()如果中期（text1.text，1,1）=“。”text1。文本=0和正文。正文最后如果端子“十进制转二和十六进制公共功能trandec$（ByValm%，ByValR%

3、）昏暗的strdtor美元模糊%，%strdtor=“”当m＜0时执行先生=M国防部m＝r如果先生=10，那么strdtor=CHR（MR-10+65）和strdtor其他的strdtor=先生及strdtor最后如果环trandec=strdtor端功能公共职能转换（ByVal为字符串，一个n是整数）倍的任意进制转换成10进制作为字符串昏暗的r()作为字符串模糊i为整数模糊j为整数L=“0

4、1

5、2

6、3

7、4

8、5

9、6

10、7

11、8

12、9

13、一

14、BCDE

15、

16、

17、

18、FGH

19、

20、

21、我

22、J

23、KLMN

24、

25、

26、

27、OPQR

28、

29、

30、

31、的

32、T

33、U

34、V

35、W

36、XYZ”进制字符串字典

37、

38、R=分裂（L，“

39、”）

40、对于我=1到Len（s）J=0，UBound（R）如果UCase（MID（S，I，1））=R（J）然后转换=转换最后如果下J下一个我端功能私有函数（ByValx个字符串）作为字符串的把二进制数转化为十六进制数当Len（x）mod4<>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”+个案例

41、“1001”个=“9”+个案例“1010”=“”+个16案例“1011”个=“B”+个案例“1100”个=“C”+个案例“1101”个=D+个案例“1110”个=“E”+个案例“1111”个=“F”+个最后选择x=左（x，Len（x）-4）环端功能“十六转二公共功能hex_to_bin（ByValHex为字符串）字符串暗淡我一样长作为字符串六=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

42、和“0100”CaseB:B="5"&"0101"CaseB:B="6"&"0110"CaseB:B="7"&"0111"CaseB:B="8"&"1000"CaseB:B="9"&"1001"Case"a":="1010"B&BCaseB:B=B&"1011"CaseC:B=B&"1100"Case"D":="1101"B&BCase"e":="1110"B&BCaseB:B="F"&"1111"EndSelectNextiDowhileleft(B,1)="0"B(b=right,Len(b)-1)Loop__hextoBIN=BEndFunction