寻求vb达人帮助

编写一个VB程序,使得十进制,八进制,十六进制,十二进制之间能互相转换我只要输入一个十进制的数,然后点击显示,分别出来其他进制的数。一个是输入文本,一个是显示按钮,还有三... 编写一个VB程序,使得十进制,八进制,十六进制,十二进制之间能互相转换
我只要输入一个十进制的数,然后点击显示,分别出来其他进制的数。
一个是输入文本,一个是显示按钮,还有三个是八进制,十六进制,十二进制的显示窗
展开
 我来答
Felly0813
2010-04-09
知道答主
回答量:9
采纳率:0%
帮助的人:0
展开全部

这是我写的一个程序,是2,8,10,16进制进行转换的,楼主可以自己再思考一下,本程序只有两个文本框,一个输入,一个显示

Private Sub Command1_Click()    '二进制

    Dim i As Integer

    Dim a As Long

    Dim b As String

    a = Val(Text1.Text)

    Do

        i = a Mod 2

        a = a \ 2

        b = i & b

    Loop While a > 0

    Text2.Text = b

End Sub

Private Sub Command2_Click()  '八进制

    Dim i As Integer

    Dim a As Long

    Dim b As String

    a = Val(Text1.Text)

    Do

        i = a Mod 8

        a = a \ 8

        b = i & b

    Loop While a > 0

    Text2.Text = b

End Sub

Private Sub Command3_Click()  ’十六进制

    Dim i As Integer

    Dim a As Long

    Dim b As String

    a = Val(Text1.Text)

    Do

        i = a Mod 16

        a = a \ 16

        If i >= 10 Then

            b = Chr(55 + i) & b

        Else

            b = i & b

        End If

    Loop While a > 0

    Text2.Text = b

End Sub

Private Sub Command4_Click() '退出

    Unload Me

End Sub

如有不足,请楼主指正

haokeyy
2010-04-09 · TA获得超过1487个赞
知道小有建树答主
回答量:1002
采纳率:0%
帮助的人:1143万
展开全部
哪有十二进制,是二进制吧。

有几个自带的函数
Hex
Oct
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
glass_nfl49ac
2010-04-09 · TA获得超过1031个赞
知道大有可为答主
回答量:2711
采纳率:79%
帮助的人:613万
展开全部
请提问同志:搞清楚:几个概念再问吧!别急.....
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
bydosniper
2010-04-09 · TA获得超过1059个赞
知道小有建树答主
回答量:605
采纳率:100%
帮助的人:245万
展开全部
同志,你要的程序很多年以前我就写过,但是你的党费太少
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 更多回答(2)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式