帮忙用VB制作一个计算器

显示全部楼层 · 2009-3-5 09:12:31

计算器要求：加减乘除必有，最重要的是有8进制16进制
帮忙做下，越详细越好。采用后补加200分
是不是见分子才回答、我去弄

千问 · 2009-3-5 09:12:31

你不都没200分。你只有5分了。给你做一个简单得吧控件有1个按钮 2个label 2个text 4个option数组控件代码如下Private Sub Command1_Click()Label2.Caption = "等于："If Option1(0).Value = True Then Label2.Caption = Label2.Caption & (Val(Text1.Text) + Val(Text2.Text))If Option1(1).Value = True Then Label2.Caption = Label2.Caption & (Val(Text1.Text) - Val(Text2.Text))...

千问 · 2009-3-5 09:12:31

给你个十进制的参考Option Explicit Dim a As Double, b As Double Dim c As String Dim clear As Boolean Private Sub Command17_Click() 'C清空 Text1.Text = "" End Sub Private Su...

千问 · 2009-3-5 09:12:31

Private Sub Command1_Click()If Option1.Value = True ThenText5.Text = Val(Text1) + Val(Text2)Text3...

千问 · 2009-3-5 09:12:31

z这个要实现起来很简单VAL(TEXT1) * VAL(TEXT2)* 换成你要的-+*/要换成8进制16进制那些要自己写模块才完美.单单的几段代码不可能完成...

千问 · 2009-3-5 09:12:31

哈哈试有期一级200分骗人去吧呵呵！！！VB写计算器最简单的初学者一般都练习过的...