vb计算器简单程序(包含进制转换)

OptionExplicit

Dims1AsInteger,NAsSingle,rAsInteger

PrivateSubCommand1_Click(IndexAsInteger>

Text1.Text=Text1.Text&Index

EndSub

'CE

PrivateSubCommand11_Click(>

Text1.Text=""

EndSub

PrivateSubCommand12_Click(>

Text1.Text=(Text1.Text>^2

EndSub

PrivateSubCommand17_Click(>

Text1.Text=""

EndSub

PrivateSubCommand18_Click(>

Text1.Text=(Text1.Text>^3

EndSub

PrivateSubCommand20_Click(>

IfText1.Text=""Then

MsgBox("2ù×÷′í?ó">

Else

Text1.Text=Val(Text1.Text>*(-1>

EndIf

EndSub

PrivateSubCommand21_Click(>

IfInStr(Text1.Text,".">Then

MsgBox("D?êyμ?ò?′??ú">

Else

Text1.Text=Text1&Chr(46>

EndIf

EndSub

PrivateSubCommand23_Click(>

IfN=1Then

IfText1.Text=0Then

MsgBox"3yêy2??ü?aá?"

Else

Text1=s1/Text1.Text

EndIf

ElseIfN=2Then

Text1=s1*Text1.Text

ElseIfN=3Then

Text1=s1-Text1.Text

ElseIfN=4Then

Text1=s1+Text1.Text

EndIf

EndSub

PrivateSubCommand24_Click(>

Text1.Text=1/Text1.Text

EndSub

PrivateSubCommand25_Click(IndexAsInteger>

SelectCaseIndex

Case0

Text1.Text=Text1.Text&"A"

Case1

Text1.Text=Text1.Text&"B"

Case2

Text1.Text=Text1.Text&"C"

Case3

Text1.Text=Text1.Text&"D"

Case4

Text1.Text=Text1.Text&"E"

Case5

Text1.Text=Text1.Text&"F"

EndSelect

EndSub

PrivateSubCommand4_Click(IndexAsInteger>

SelectCaseIndex

Case0

N=1

s1=Text1.Text

Text1.Text=""

Case1

N=2

s1=Text1.Text

Text1.Text=""

Case2

N=3

s1=Text1.Text

Text1.Text=""

Case3

N=4

s1=Text1.Text

Text1.Text=""

EndSelect

EndSub

PrivateSubCommand5_Click(>

Text1.Text=Left(Text1.Text,Len(Text1.Text>-1>

EndSub

PrivateSubCommand6_Click(>

Text1.Text=Sqr(Text1.Text>

EndSub

PrivateSubForm_Load(>

r=10

EndSub

'ê?áù????

PrivateSubOption1_Click(>

Command25(1>.Enabled=True

Command25(0>.Enabled=True

Command25(2>.Enabled=True

Command25(3>.Enabled=True

Command25(4>.Enabled=True

Command25(5>.Enabled=True

Command1(6>.Enabled=True

Command1(9>.Enabled=True

Command1(2>.Enabled=True

Command1(3>.Enabled=True

Command1(4>.Enabled=True

Command1(5>.Enabled=True

Command1(8>.Enabled=True

Command1(7>.Enabled=True

Ifr=10Then

Text1.Text=trandec(Val(Text1.Text>,16>

Else

Text1.Text=Two16(Text1.Text>

EndIf

r=16

EndSub

'ê?????

PrivateSubOption2_Click(>

Command1(6>.Enabled=True

Command1(9>.Enabled=True

Command1(2>.Enabled=True

Command1(3>.Enabled=True

Command1(4>.Enabled=True

Command1(5>.Enabled=True

Command1(8>.Enabled=True

Command1(7>.Enabled=True

Command25(0>.Enabled=False

Command25(1>.Enabled=False

Command25(2>.Enabled=False

Command25(3>.Enabled=False

Command25(4>.Enabled=False

Command25(5>.Enabled=False

Text1.Text=Convert(Text1.Text,r>

r=10

EndSub

'?t????

PrivateSubOption3_Click(>

Command1(6>.Enabled=False

Command1(9>.Enabled=False

Command1(2>.Enabled=False

Command1(3>.Enabled=False

Command1(4>.Enabled=False

Command1(5>.Enabled=False

Command1(8>.Enabled=False

Command1(7>.Enabled=False

Command25(0>.Enabled=False

Command25(1>.Enabled=False

Command25(2>.Enabled=False

Command25(3>.Enabled=False

Command25(4>.Enabled=False

Command25(5>.Enabled=False

Ifr=10Then

Text1.Text=trandec(Val(Text1.Text>,2>

Else

Text1.Text=HEX_to_BIN(Text1.Text>

EndIf

r=2

EndSub

PrivateSubText1_Change(>

IfMid(Text1.Text,1,1>="."Then

Text1.Text=0&Text1.Text

EndIf

EndSub

'ê?????×a?toíê?áù????

PublicFunctiontrandec$(ByValm%,ByValr%>

Dimstrdtor$

DimiB%,mr%

strdtor=""

DoWhilem<>0

mr=mModr

m=m\r

Ifmr>=10Then

strdtor=Chr(mr-10+65>&strdtor

Else

strdtor=mr&strdtor

EndIf

Loop

trandec=strdtor

EndFunction

PublicFunctionConvert(ByValSAsString,ByValNAsInteger>As

Double' è?òa????×a??3é10???? b5E2RGbCAP

DimLAsString

Dimr(>AsString

DimiAsInteger

DimjAsInteger

L="0|1|2|3|4|5|6|7|8|9|A|B|C|D|E|F|G|H|I|J|K|L|M|N|O|P|Q|R|S|T|U|V|W|X|Y|Z"'????×?·?′?×?μ?p1EanqFDPw

r=Split(L,"|">

Fori=1ToLen(S>

Forj=0ToUBound(r>

IfUCase(Mid(S,i,1>>=r(j>Then

Convert=Convert*N+j

EndIf

Nextj

Nexti

EndFunction

Private Function Two16(ByVal X As String> As String

'°??t????êy×a?ˉ?aê?áù????êyDXDiTa9E3d

DoWhileLen(X>Mod4<>0

X="0"+X

Loop

DoWhileLen(X>>0

SelectCaseRight(X,4>

Case"0000"

Two16="0"+Two16

Case"0001"

Two16="1"+Two16

Case"0010"

Two16="2"+Two16

Case"0011"

Two16="3"+Two16

Case"0100"

Two16="4"+Two16

Case"0101"

Two16="5"+Two16

Case"0110"

Two16="6"+Two16

Case"0111"

Two16="7"+Two16

Case"1000"

Two16="8"+Two16

Case"1001"

Two16="9"+Two16

Case"1010"

Two16="A"+Two16

Case"1011"

Two16="B"+Two16

Case"1100"

Two16="C"+Two16

Case"1101"

Two16="D"+Two16

Case"1110"

Two16="E"+Two16

Case"1111"

Two16="F"+Two16

EndSelect

X=Left(X,Len(X>-4>

Loop

EndFunction

ê?áù×a?t

PublicFunctionHEX_to_BIN(ByValHexAsString>AsStringDimiAsLong

DimBAsString

Hex=UCase(Hex>

Fori=1ToLen(Hex>

SelectCaseMid(Hex,i,1>

Case"0":B=B&"0000"

Case"1":B=B&"0001"

Case"2":B=B&"0010"

Case"3":B=B&"0011"

Case"4":B=B&"0100"

Case"5":B=B&"0101"

Case"6":B=B&"0110"

Case"7":B=B&"0111"

Case"8":B=B&"1000"

Case"9":B