关于计算器的一点小问题

2004-09-14 05:05:09 385 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

C#制作稍微复杂一点的计算器计算器项目需求一、界面设计 1.做一个显示屏 2.17个button按钮（0-9，±×÷=%，CE）二、需要实现的功能 1.输入第一个数字 2.选择运算符号 3.输入第二个数字 4.按下等号计算结果，结果显示在显示屏上三、实现步骤 1.先做界面 a. 显示屏 textbox / listbox / label b. 按钮使用17个button，button上的文本改成对应的符号 2... 阅读详情

windows的计算器1/3=0.333333333333333333333333333333333
在vb中怎样也能得到这样的结果

...全文

计算器加减乘除优先级算法_如何拆解复杂问题：实现一个计算器 (给算法爱好者加星标，修炼编程内功)作者：labuladong ，公众号：labuladong我记得很多大学数据结构的教材上，在讲栈这种数据结构的时候，应该都会用计算器举例，但是有一说一，讲的真的垃圾，我只感受到被数据结构支配的恐惧，丝毫没有支配数据结构的快感。不知道多少未来的计算机科学家就被这种简单的数据结构劝退了。那么，我们最终要实现的计算器功能如下：1、输入一个字符串，可以包含+ ... 阅读详情

wantknow999

VB基础类 7,788 成员 197,583 内容

+ 关注 + 加入社区

切换为时间正序

wantknow999 2004-09-15

打赏
举报

to: northwolves(狼行天下) 大哥
对于小数相除先将小数转化为整数可以了吧，谢谢了。

kmzs 2004-09-14

打赏
举报

嗯

northwolves 2004-09-14

打赏
举报

Private Sub Command1_Click()
DEVIDE 355, 113, 1000
End Sub

Sub DEVIDE(ByVal X As Integer, ByVal Y As Integer, Optional ByVal Numdigitsafterdecimal As Integer = 100, Optional ByRef result As String)'x/y取小数点后Numdigitsafterdecimal 位（默认100)
Dim a() As String, temp As Integer, temp2 As Integer, m As Integer
ReDim a(Numdigitsafterdecimal)
result = Int(X / Y) & "."
m = 0
a(m) = X Mod Y
temp = a(m)
Do While m < Numdigitsafterdecimal
temp = temp * 10
temp2 = Int(temp / Y)
temp = temp Mod Y
result = result & Right(temp2, 1)
m = m + 1
a(m) = temp
Loop
result = X & "÷" & Y & "=" & result
Debug.Print result
End Sub

返回：

355÷113=3.1415929203539823008849557522123893805309734513274336283185840707964601769911504424778761061946902654867256637168141592920353982300884955752212389380530973451327433628318584070796460176991150442477876106194690265486725663716814159292035398230088495575221238938053097345132743362831858407079646017699115044247787610619469026548672566371681415929203539823008849557522123893805309734513274336283185840707964601769911504424778761061946902654867256637168141592920353982300884955752212389380530973451327433628318584070796460176991150442477876106194690265486725663716814159292035398230088495575221238938053097345132743362831858407079646017699115044247787610619469026548672566371681415929203539823008849557522123893805309734513274336283185840707964601769911504424778761061946902654867256637168141592920353982300884955752212389380530973451327433628318584070796460176991150442477876106194690265486725663716814159292035398230088495575221238938053097345132743362831858407079646017699115044247787610619469026548672

wantknow999 2004-09-14

打赏
举报

to littlefishli(凉水塞牙～)
或者就像自己用的除法法则那样，用char来实现，想除多少位都没问题

怎么实现呀？谢先了

starsoulxp 2004-09-14

打赏
举报

Format(1 / 3, "0.000000000000000")

littlefishli 2004-09-14

打赏
举报

或者就像自己用的除法法则那样，用char来实现，想除多少位都没问题。

laviewpbt 2004-09-14

打赏
举报

同意楼上的意见

northwolves 2004-09-14

打赏
举报

.333333333333333

精度问题，VB DOUBLE 型15位

changei123 2004-09-14

打赏
举报

text1.text=val(text2.text)/val(text3.text)

tztz520 2004-09-14

打赏
举报

Private Sub Command1_Click()
MsgBox Format(1 / 3, "0.000000000000000")'后面最多可以取15位.
End Sub

关于计算器的一点小问题

相关推荐