闲的无聊跟新手们分享点东西
要把下面的代码复制到 记事本里然后另存为 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
弄啥来这是？干什么用的？ 电脑给我弄死机了{:huffy:} 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：继续循环。 得到的数字有什么含义？ 事过境迁 发表于 2024-7-17 18:59
do：开始一个循环。
a=inputbox ("tool ")：弹出一个输入框，提示用户输入内容，并将输入的内容赋值给变量 ...
大神,你好无聊{:lol:} ccj0601 发表于 2024-7-17 16:40
电脑给我弄死机了
抱歉 {:lol:} 大家抱歉啊2D刀路 参考刀具 比如说 D63的刀具,最小清角刀具13只是做辅助用 aq626262 发表于 2024-7-18 08:05
得到的数字有什么含义？
清角最小刀具
页:
[1]