计算机VB高手进来帮忙做个程序，谢谢

来源：百度知道 编辑：UC知道 时间：2024/06/04 01:40:26
一个简单计算器软件的设计与实现
主要功能：
1） 实现加、减、乘、除、取余、求根、清零。
2） 实现 十进制、八进制、十六进制、二进制间相互转换。
要求包含
1）包含菜单、工具栏、状态栏

你还是自己写一个吧~你说的功能 一都很简单
功能 二调用下面模块来解决
例如 msgbox DEC_to_BIN(10)
还不会你百度搜下“VB 简单计算器” 把进制转换添加进去就好了~

' 用途：将十进制转化为二进制
' 输入：Dec(十进制数)
' 输入数据类型：Long
' 输出：DEC_to_BIN(二进制数)
' 输出数据类型：String
' 输入的最大数为2147483647,输出最大数为1111111111111111111111111111111(31个1)
Public Function DEC_to_BIN(ByVal Dec As Long) As String
DEC_to_BIN = ""
Do While Dec > 0
DEC_to_BIN = Dec Mod 2 & DEC_to_BIN
Dec = Dec \ 2
Loop
End Function

' 用途：将二进制转化为十进制
' 输入：Bin(二进制数)
' 输入数据类型：String
' 输出：BIN_to_DEC(十进制数)
' 输出数据类型：Long
' 输入的最大数为1111111111111111111111111111111(31个1),输出最大数为2147483647
Public Function BIN_to_DEC(ByVal Bin As String) As Long
Dim i As Long
For i = 1 To Len(Bin)
BIN_to_DEC = BIN_to_DEC * 2 + Val(Mid(Bin, i, 1))
Next i
End Function

' 用途：将十六进制