【每日一题】基本计算器 - 2022.4.23 _ 按键精灵脚本教程

查看: 6773\|回复: 21	[神梦] 【每日一题】基本计算器 - 2022.4.23 [复制链接]

神梦科技

神梦无痕

组别按键认证大神
UID2699998
帖子3587
精华11
鲜花2173 朵
铜币7386 个
银币1021 个
在线时间91120
注册时间2014-08-23

1^#

字体大小: t T

发表于 2022-04-23 13:34 | |只看楼主

题目描述

给你一个字符串表达式，请你实现一个基本计算器来计算加减乘除并返回它的值。

整数除法仅保留整数部分。

你可以假设给定的表达式总是有效的。所有中间结果将在 [-231, 231 - 1] 的范围内。

注意：不允许使用任何将字符串作为数学表达式计算的内置函数，比如 eval() 。

题目难度：中等
题目来源：Basic Calculator II - LeetCode

Import "SmAssert.dll"
Function 计算器(表达式)
// 您的代码在这里
End Function
SmAssert 计算器("3+2*2") = 7
SmAssert 计算器(" 3/2 ") = 1
SmAssert 计算器(" 3+5 / 2 ") = 5

复制代码

参考题解

Import "SmAssert.dll"
Function 计算器(表达式)
'【作者】：神梦无痕
'【ＱＱ】：1042207232
'【Ｑ群】：624655641
Dim 栈, 长度, 数字, 结果
Dim z, i, s, op
表达式 = Replace(表达式, " ", "")
长度 = Len(表达式)
栈 = Split(Space(长度))
数字 = 0
op = "+"
z = 0
栈(z) = 0
For i = 1 To 长度
s = Mid(表达式, i, 1)
If IsNumeric(s) Then 数字 = 10 * 数字 + (s - "0")
If IsNumeric(s) = False Or i = 长度 Then
Select Case op
Case "+"
z = z + 1
栈(z) = 数字
Case "-"
z = z + 1
栈(z) = -数字
Case "*"
栈(z) = 栈(z) * 数字
Case "/"
栈(z) = Int(栈(z) / 数字)
End Select
op = s
数字 = 0
End If
Next
结果 = 0
While z > -1
结果 = 结果 + 栈(z)
z = z - 1
Wend
计算器 = 结果
End Function
SmAssert 计算器("3+2*2") = 7
SmAssert 计算器(" 3/2 ") = 1
SmAssert 计算器(" 3+5 / 2 ") = 5

复制代码

插件下载

【插件】神梦断言插件 SmAssert.dll，帮助开发者发现业务逻辑错误

神梦科技最后编辑于 2022-04-23 13:54:08

游戏、办公、网页、脚本辅助定制
联系QQ: 1042207232
【命令库】利用IE+Chrome谷歌双核操纵网页填表，支持框架操作
【命令库】按键精灵也玩套接字(Sock)
SMWHff's Blog | 梦痕编程 - 神梦博客

回顶部

发送短消息 UID 8323785 帖子 21 精华 0 鲜花 16 朵铜币 31 个银币 22 个性别在线时间 0 注册时间 2021-06-07 最后登录 2023-01-10 查看公共资料搜索主题搜索帖子 17839758886 @果壳王子组别小学一年级 UID8323785 帖子21 精华0 鲜花16 朵铜币31 个银币22 个在线时间0 注册时间2021-06-07	2^# 字体大小: t T 发表于 2022-04-23 14:05 \| \|只看该用户【插件】神梦断言插件 SmAssert.dll，帮助开发者发现业务逻辑错误


	回顶部

发送短消息 UID 2158646 帖子 9 精华 0 鲜花 6 朵铜币 18 个银币 8 个性别在线时间 0 注册时间 2013-09-24 最后登录 2022-04-30 582602450 查看公共资料搜索主题搜索帖子 582602450 582602450 组别小学一年级 UID2158646 帖子9 精华0 鲜花6 朵铜币18 个银币8 个在线时间0 注册时间2013-09-24	3^# 字体大小: t T 发表于 2022-04-23 15:00 \| \|只看该用户学习学习


	回顶部

发送短消息 UID 8625168 帖子 9 精华 0 鲜花 3 朵铜币 10 个银币 10 个性别在线时间 0 注册时间 2022-02-09 最后登录 2023-02-03 1746869744 查看公共资料搜索主题搜索帖子 DT147369 DT147369 组别小学一年级 UID8625168 帖子9 精华0 鲜花3 朵铜币10 个银币10 个在线时间0 注册时间2022-02-09	4^# 字体大小: t T 发表于 2022-04-23 15:05 \| \|只看该用户有点难


	回顶部

发送短消息 UID 8138815 帖子 9 精华 0 鲜花 7 朵铜币 19 个银币 9 个性别在线时间 0 注册时间 2021-01-30 最后登录 2022-07-14 查看公共资料搜索主题搜索帖子 903077007 越努力，越幸运组别小学一年级 UID8138815 帖子9 精华0 鲜花7 朵铜币19 个银币9 个在线时间0 注册时间2021-01-30	5^# 字体大小: t T 发表于 2022-04-23 17:14 \| \|只看该用户好吧我投降了道行不够 ,主要是运算先后没法处理 ,


	回顶部

发送短消息 UID 8138815 帖子 9 精华 0 鲜花 7 朵铜币 19 个银币 9 个性别在线时间 0 注册时间 2021-01-30 最后登录 2022-07-14 查看公共资料搜索主题搜索帖子 903077007 越努力，越幸运组别小学一年级 UID8138815 帖子9 精华0 鲜花7 朵铜币19 个银币9 个在线时间0 注册时间2021-01-30	6^# 字体大小: t T 发表于 2022-04-23 17:17 \| \|只看该用户 , Function 计算器(s) Dim 长度 = Len(s) Dim b(),c,f TracePrint 长度 For i = 1 To 长度 b(i)=Mid(s,i,1) TracePrint zm.VarInfo (b(i)) Next F = (长度-1)/2 TracePrint F For i = 1 To 2 If b(1 + i) = "+" Then TracePrint "+" ElseIf b(1 + i) = "-" Then TracePrint "-" ElseIf b(1 + i) = "" Then TracePrint "" ElseIf b(1 + i) = "/" Then TracePrint "/" End If Next End Function 我写到这里突然感觉运算先后没法处理
	903077007 最后编辑于 2022-04-23 17:29:09

	回顶部

发送短消息 UID 8138815 帖子 9 精华 0 鲜花 7 朵铜币 19 个银币 9 个性别在线时间 0 注册时间 2021-01-30 最后登录 2022-07-14 查看公共资料搜索主题搜索帖子 903077007 越努力，越幸运组别小学一年级 UID8138815 帖子9 精华0 鲜花7 朵铜币19 个银币9 个在线时间0 注册时间2021-01-30	7^# 字体大小: t T 发表于 2022-04-23 17:18 \| \|只看该用户 , 不知道 PC 版是不是写这个容易些,PC 还没学


	回顶部

发送短消息 UID 8138815 帖子 9 精华 0 鲜花 7 朵铜币 19 个银币 9 个性别在线时间 0 注册时间 2021-01-30 最后登录 2022-07-14 查看公共资料搜索主题搜索帖子 903077007 越努力，越幸运组别小学一年级 UID8138815 帖子9 精华0 鲜花7 朵铜币19 个银币9 个在线时间0 注册时间2021-01-30	8^# 字体大小: t T 发表于 2022-04-23 17:25 \| \|只看该用户老师给我说过任何数字型字符串+ 0 or -0 or * 1 都会转成数字运算符可以用对比字符串来判断当前位置运算符为 + - * / 就是运算先后没思路


	回顶部

发送短消息 UID 8138815 帖子 9 精华 0 鲜花 7 朵铜币 19 个银币 9 个性别在线时间 0 注册时间 2021-01-30 最后登录 2022-07-14 查看公共资料搜索主题搜索帖子 903077007 越努力，越幸运组别小学一年级 UID8138815 帖子9 精华0 鲜花7 朵铜币19 个银币9 个在线时间0 注册时间2021-01-30	9^# 字体大小: t T 发表于 2022-04-23 21:33 \| \|只看该用户 , 栈 = Split(Space(长度) 在安卓好像不能这么用


	回顶部

发送短消息 UID 3239521 帖子 85 精华 0 鲜花 70 朵铜币 310 个银币 225 个性别在线时间 0 注册时间 2015-05-08 最后登录 2023-10-28 查看公共资料搜索主题搜索帖子 yxf123 胖虎组别小学四年级 UID3239521 帖子85 精华0 鲜花70 朵铜币310 个银币225 个在线时间0 注册时间2015-05-08 图灵勋章参与按键精灵验证码识别大赛奖励黄金之翼黄金之翼勋章按键精灵开发者6级可通过提升认证等级来升级勋章：rz.anjian.com	10^# 字体大小: t T 发表于 2022-04-23 21:55 \| \|只看该用户 111111111111111111111111


	回顶部

发送短消息 UID 8177281 帖子 67 精华 0 鲜花 57 朵铜币 90 个银币 230 个性别在线时间 0 注册时间 2021-02-23 最后登录 2023-07-07 查看公共资料搜索主题搜索帖子 a1234lxm a1234lxm 组别小学三年级 UID8177281 帖子67 精华0 鲜花57 朵铜币90 个银币230 个在线时间0 注册时间2021-02-23 按键精灵开发者4级可通过提升认证等级来升级勋章：rz.anjian.com	11^# 字体大小: t T 发表于 2022-04-23 22:02 \| \|只看该用户 6666666666666666


	回顶部

发送短消息 UID 8641533 帖子 128 精华 0 鲜花 188 朵铜币 182 个银币 307 个性别在线时间 0 注册时间 2022-02-27 最后登录 2022-07-04 查看公共资料搜索主题搜索帖子 tenglonggzs 组别小学六年级 UID8641533 帖子128 精华0 鲜花188 朵铜币182 个银币307 个在线时间0 注册时间2022-02-27 按键精灵开发者6级可通过提升认证等级来升级勋章：rz.anjian.com	12^# 字体大小: t T 发表于 2022-04-26 12:56 \| \|只看该用户学习一下


	回顶部

发送短消息 UID 8678850 帖子 6 精华 0 鲜花 6 朵铜币 7 个银币 7 个性别在线时间 0 注册时间 2022-03-30 最后登录 2023-03-12 查看公共资料搜索主题搜索帖子 a294149678 a294149678 组别小学一年级 UID8678850 帖子6 精华0 鲜花6 朵铜币7 个银币7 个在线时间0 注册时间2022-03-30	13^# 字体大小: t T 发表于 2022-04-27 18:00 \| \|只看该用户 .54


	回顶部

发送短消息 UID 5117303 帖子 28 精华 0 鲜花 21 朵铜币 104 个银币 24 个性别在线时间 960 注册时间 2018-03-15 最后登录 2022-07-19 741001447 查看公共资料搜索主题搜索帖子 sdk8689521 sdk8689521 组别小学一年级 UID5117303 帖子28 精华0 鲜花21 朵铜币104 个银币24 个在线时间960 注册时间2018-03-15	14^# 字体大小: t T 发表于 2022-04-28 17:04 \| \|只看该用户 ++++分啦


	回顶部

发送短消息 UID 434374 帖子 2 精华 0 鲜花 0 朵铜币 11 个银币 1 个性别在线时间 0 注册时间 2010-06-04 最后登录 2022-04-28 82447528 查看公共资料搜索主题搜索帖子 mingtong mingtong 组别幼儿园 UID434374 帖子2 精华0 鲜花0 朵铜币11 个银币1 个在线时间0 注册时间2010-06-04	15^# 字体大小: t T 发表于 2022-04-28 17:51 \| \|只看该用户看着就头大，仰慕大神。。。


	回顶部

发送短消息 UID 8718930 帖子 27 精华 0 鲜花 57 朵铜币 46 个银币 36 个性别在线时间 0 注册时间 2022-04-28 最后登录 2022-10-02 查看公共资料搜索主题搜索帖子 liuyon5 组别小学一年级 UID8718930 帖子27 精华0 鲜花57 朵铜币46 个银币36 个在线时间0 注册时间2022-04-28	16^# 字体大小: t T 发表于 2022-04-28 22:01 \| \|只看该用户学无止境


	回顶部

发送短消息 UID 8348000 帖子 26 精华 0 鲜花 22 朵铜币 35 个银币 25 个性别在线时间 0 注册时间 2021-06-24 最后登录 2023-10-15 查看公共资料搜索主题搜索帖子 a172059350 a172059350 组别小学一年级 UID8348000 帖子26 精华0 鲜花22 朵铜币35 个银币25 个在线时间0 注册时间2021-06-24	17^# 字体大小: t T 发表于 2022-04-29 21:16 \| \|只看该用户 zhicdal


	回顶部

发送短消息 UID 4627510 帖子 53 精华 0 鲜花 42 朵铜币 56 个银币 47 个性别在线时间 0 注册时间 2017-09-11 最后登录 2024-01-14 924249945 查看公共资料搜索主题搜索帖子 x924249945 x924249945 组别小学三年级 UID4627510 帖子53 精华0 鲜花42 朵铜币56 个银币47 个在线时间0 注册时间2017-09-11 黄金之翼黄金之翼勋章	18^# 字体大小: t T 发表于 2022-04-30 08:59 \| \|只看该用户学习一下


	回顶部

发送短消息 UID 4533877 帖子 37 精华 0 鲜花 23 朵铜币 48 个银币 27 个性别在线时间 100 注册时间 2017-07-04 最后登录 2024-01-10 查看公共资料搜索主题搜索帖子 woshinibaw 组别小学二年级 UID4533877 帖子37 精华0 鲜花23 朵铜币48 个银币27 个在线时间100 注册时间2017-07-04	19^# 字体大小: t T 发表于 2022-05-02 19:50 \| \|只看该用户 111111111


	回顶部

发送短消息 UID 3328028 帖子 1497 精华 0 鲜花 199 朵铜币 3957 个银币 204 个性别在线时间 26840 注册时间 2015-06-28 最后登录 2024-03-09 查看公共资料搜索主题搜索帖子 zjcyjj zjcyjj 组别大学三年级 UID3328028 帖子1497 精华0 鲜花199 朵铜币3957 个银币204 个在线时间26840 注册时间2015-06-28 小红帽对论坛提出良好建议（可向管理员申请）	20^# 字体大小: t T 发表于 2022-05-03 23:06 \| \|只看该用户移位加密


	回顶部

上一主题| 下一主题

[神梦] 【每日一题】基本计算器 - 2022.4.23 [复制链接]