用vb设计一个简易计算器
做两个VB程序 简单题目
1.用VB编程序设计一个简易的计算器 代码:Dim num_1, num2, flagPrivate Sub Command1_Click(Index As Integer) Select Case Index Case 0 To 9 Label1.Caption = Label1.Caption + CStr(Command1(Index).Caption) Case 10 Label1.Caption = Label1.Caption + "." Case 1...
vb制作一个简易的计时器,说明都用了什么控件和代(源)码
窗口里加一个label控件,一个timer控件。所有代码如下 Dim a, b Private Sub Form_Load()a = Now()End Sub Private Sub Timer1_Timer()Label1.Caption = Format(Now() - a, "Long Time")End Sub
用VB程序编写设计一个简易记事本,要求能够实现“复制”、“剪切...
Dim sFind As String Dim FileType, FilterType As String Private Sub Form_Load()Me.Height = 6000 Me.Width = 9000 End Sub Private Sub Form_Resize()On Error Resume Next RichTextBox1.Top = 5 RichTextBox1.Left = 5 RichTextBox1.Height = ScaleHeight - 40 RichTextBox1.Width =...
求VB简易计算器的代码。用户从文本框输入数字、有+ — X ÷ 绝对值...
引用Excel就可以解决了,具体做法如下:首先进入设计页面点“菜单栏”里的“工程”,再点“引用”,在" Microsoft Excel11.0 Object Library " 前打勾,点确定 紧接着就是输入代码最后,您调试一下,看看效果。(注:输入的式子的格式要求与Excel的相同,只是不用在式子前加个“=”号)
简易计算器代码
Shift As Integer) If KeyCode = vbKeyV And Shift = vbCtrlMask Then Text1.Enabled = False Clipboard.Clear Text1.Enabled = True End If End Sub '防止右键粘贴 Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) If Button = vbR...
VB简易计算器 !!!急求
If Val(Text2.Text) = 0 Then MsgBox "零不能做除数!", vbOKOnly, "错误提示"Exit Sub End If Text3.Text = Str(CSng(Val(Text1.Text)) \/ CSng(Val(Text2.Text)))End Select End Sub Private Sub Form_Load() '初始第一个运算符(即+)选中 Option1(0).Value = True End Sub ...
如何用VB6.0做一个简易计算器?(有加减乘除就行)
Private Sub Command1_Click(Index As Integer)Dim a, b Select Case Index Case 5 If Label2.Caption = "" Then Label1.Caption = Label1.Caption & 1 ElseIf Label2.Caption <> "" And Label4.Caption = "" Then Label3.Caption = Label3.Caption & 1 Else MsgBox "请清零后再输入....
跟我制作简易仓库系统:入库出库自动记帐?
3、插入模块:点击开发工具/代码/visualbasic,(或者AIT+F11)弹出VB编辑窗口。点击VB编辑器中的插入,选择模块点击,会出现一个新的模块。4、编写代码:在代码编辑窗口写入如下代码 Sub入库提交()DimaAsLonga=IIf(Sheets(\\"入库单").=\\"1、制作库存进出表格一般用EXCEL,因为它有强大的数据计算...
vb简易计算器4.1-4=9.9999999996E-02,5 6 7 8 9都是这样,为啥啊_百度...
首先 9.9999999996E-02 是浮点数的科学计数法,其值为 0.099999999996;其次,这是浮点数的运算误差造成的,具体说来就话长了,你自己百度“浮点运算误差”;解决办法:无法避免,但可以采取措施减轻。比如指定保留的小数位数:Print Round(4.1 - 4, 2) '保留2位小数 或者转为整数来处理:Print...
救命!求WINDOWS简易计算器VB代码!
Private Sub text1_keypress(keyascii As Integer)If keyascii < 48 Or keyascii > 57 Then '判断数字 If keyascii = 8 Or keyascii = 45 Or keyascii = 46 Then Else MsgBox "请输入数字!!"Text1.SetFocus Text1 = ""End If End If End Sub Private Sub text2_keypress(keyascii As ...
黄埔区黄瑞回答:[答案] 帮你写了一个,调试通过,不过第5个条件很奇怪啊,这样做出来的计算器是不能连续运算的,每次都要按下等号给出结果,程序在附录中若满意请及时采纳,谢谢
姜宝13328938057问: 怎样用VB设计简单计算器 - ?
黄埔区黄瑞回答: Dim x As String Private Sub Command1_Click() Text1.Text = Text1.Text & "1" End Sub Private Sub Command10_Click() Text1.Text = Text1.Text & "6" End Sub Private Sub Command11_Click() Text1.Text = Text1.Text & "9" End Sub ...
姜宝13328938057问: 用VB程序设计一个简单计算器 - ?
黄埔区黄瑞回答: 界面:text11 2 3 +4 5 6 -7 8 9 *0 = AC / 代码:dim newnum as boolean dim n1,n2 op as integer private sub ac_click() text1.text="" end sub private sub command1_click(index as integer) if newnum=true then text1="" text1=text1&index ...
姜宝13328938057问: 用VB做一个最简单的计算器 - ?
黄埔区黄瑞回答: Dim a As Double, b As Double Dim c As StringPrivate Sub Command10_Click()Text2.Text = Text2.Text & "2" End SubPrivate Sub Command11_Click()Text2.Text = Text2.Text & "3" End SubPrivate Sub Command12_Click()a = Text2....
姜宝13328938057问: 在VB中,怎么样做一个简单计算器?
黄埔区黄瑞回答: val(text1.text)+val(text2.text2) '加 val(text1.text)-val(text2.text2) '减 val(text1.text)*val(text2.text2) '乘 val(text1.text)/val(text2.text2) '除
姜宝13328938057问: vb 制作简易计算器 - ?
黄埔区黄瑞回答: 初学者的VB计算器 窗体代码如下 Option Explicit Dim blnStratrOperationFlag As Boolean '是否开始运算 Dim lngOperationFlag As Long '运算标志 Dim dblFirstOperationValue As Double '先前的操作数 Private Sub cmdValuedDecimal_Click(Index ...
姜宝13328938057问: VB简易计算器程序《用VB实现简易计算器》 一.内容要求:1. 加、减、乘、除,清零等一定要有;2. 乘方、开方、小数点等可自选;3. 考虑“0不能做除数”... - ?
黄埔区黄瑞回答:[答案] Dim shishu As DoubleDim yi As DoubleDim er As DoubleDim fuhao As String'按件数组Private Sub Command1_Click(Index As Integer) din = 0 '数字设置: Select Case IndexCase 1 To 9Text1.Text = V...
姜宝13328938057问: 如何用VB编写最简单的计算器程序 - ?
黄埔区黄瑞回答: 组成包括Label控件2个,其中一个用来显示数字,一个在那个显示数字的上方空白显示,纯属修饰作用 按钮19个,分别为10个数字0~9,小数点,四则运算按钮,正负号按钮,求倒数按钮,等号按钮,清零按钮,C和CE有啥区别我还真不知道..所以就写了C了.
姜宝13328938057问: VB编写一个简单计算器?
黄埔区黄瑞回答: 在这里我就只给你说出加减乘除的算法部分,其他的部分都是很简单的第一 加减乘除4个按钮为控件数组 private sub command3_click(index as integer)'这个是那四个按钮的a=val(text1.text) '设置a 的值为输入前的值select case indexcase 0...
姜宝13328938057问: vb怎么设计个简单的计算器 - ?
黄埔区黄瑞回答: 给你个稍微简单一点的....用控件数组的.Dim v As Boolean Dim s As Integer Dim x As Double Dim y As Double Private Sub Command1_Click(Index As Integer) If Form1.Tag = "s" Then If Index = 10 Then Text1.Text = "0." Else Text1....