闲的无聊跟新手们分享点东西

野狼爱小宝

要把下面的代码复制到 记事本里  然后另存为 1.vbs 后缀的文本就好了 双击执行, 输入刀具直径,点击确定就出来了,去整数就OK了

do
a=inputbox ("tool ")
if a = "" then
a=inputbox(" ")
else
b=a/2
c=(b*b)*2
d=sqr(c)
e=a/2
f=d-e
msgbox f
exit do
end if
loop

野狼爱小宝

aq626262 发表于 2024-7-18 08:05
得到的数字有什么含义？

清角最小刀具

野狼爱小宝

大家  抱歉啊  2D刀路 参考刀具   比如说 D63的刀具,最小清角刀具13  只是做辅助用

野狼爱小宝

ccj0601 发表于 2024-7-17 16:40
电脑给我弄死机了

抱歉

野狼爱小宝

事过境迁 发表于 2024-7-17 18:59
do：开始一个循环。
a=inputbox ("tool ")：弹出一个输入框，提示用户输入内容，并将输入的内容赋值给变量 ...

大神,你好无聊

aq626262

得到的数字有什么含义？

事过境迁

do：开始一个循环。
a=inputbox ("tool ")：弹出一个输入框，提示用户输入内容，并将输入的内容赋值给变量a。
if a = "" then：检查用户输入的内容是否为空。
a=inputbox(" ")：如果用户没有输入任何内容（即输入为空），则再次弹出输入框，提示用户输入。
else：如果用户输入了内容，执行以下操作：
b=a/2：将输入的数字除以2，结果赋值给变量b。
c=(b*b)*2：计算变量b的平方，再乘以2，结果赋值给变量c。
d=sqr(c)：计算变量c的平方根，结果赋值给变量d。
e=a/2：将输入的数字除以2，结果赋值给变量e。
f=d-e：计算变量d减去变量e的结果，赋值给变量f。
msgbox f：弹出一个消息框显示变量f的结果。
exit do：退出循环。
end if：结束条件判断。
loop：继续循环。

ccj0601

电脑给我弄死机了

主白

弄啥来这是？干什么用的？