高分求助简单VB编程问题

显示全部楼层 · 2010-6-2 10:36:11

帮忙编两个简单VB的程序：编一个能进行进制转换的（二进制，八进制，十进制，十六进制的）简易计算器。还有一个就是一个文本框，四个option键，也用vb语言不要太难，简单点。用上if语句。先谢谢了！！

千问 · 2010-6-2 10:36:11

function trandec$(byval m%,byval r%)dim strdtor$dim ib%,mr%strdotor=""do while m0mr=m mod rm=m/rif mr>=10 thenstrdtor=chr(mr-10+65)&strdtorelsestrdtor= mr & strdtorend iflooptrandec=strdotrend functionprivate sub command1_click()dim m0%,r0%,i%mo=val(text1.text)r0=val(text12.text)if r0<2

千问 · 2010-6-2 10:36:11

我有现成的自制进制转换器（自己写的，人品保证没病毒）功能：2-36进制任意转换本来还想加个算术计算的还没来得及算是半成品了要的代码给代码要程序给程序 qq349439276

千问 · 2010-6-2 10:36:11

给你几个进制间的转换函数吧，具体的自己实现。Public Function D_To_B(ByVal Dec As Long) As String
Do
D_To_B = Dec Mod 2 & D_To_B
Dec = Dec \ 2
Loop While DecEnd FunctionPubli

千问 · 2010-6-2 10:36:11

怎样给你?

千问 · 2010-6-2 10:36:11

Option ExplicitDim NowOp As IntegerDim TextNei As LongDim AutoRun As BooleanPrivate Sub Command1