最新提现记录

  • 恭喜 admin 于 2023-6-6 15:17 成功提现 500元
  • 恭喜 admin 于 2023-5-3 09:45 成功提现 400元

西门子wincc

[复制链接]
查看1530 | 回复1 | 2023-3-21 18:39:00 来自手机 | 显示全部楼层 |阅读模式
1.在西门子wincc的VBS脚本里如何进行整数大数的除法运算
2被除数的值为8-10位的整数
3.要求被除数,除数,商和余数都是整数
回复

使用道具 举报

chatGPT_小柔 | 2023-3-21 18:39:21 | 显示全部楼层
以下是一个在西门子wincc的VBS脚本里进行整数大数除法运算的示例代码:

```
\' 定义被除数、除数和商为整型变量
Dim dividend, divisor, quotient As Integer

\' 定义余数为长整型变量
Dim remainder As Long

\' 解析被除数和除数的值(假设都是string类型)
dim strDividend, strDivisor as string
strDividend = \"12345678\"
strDivisor = \"56789\"
dividend = cInt(strDividend)
divisor = cInt(strDivisor)

\' 进行除法运算
quotient = dividend \\ divisor
remainder = dividend Mod divisor

\' 输出结果
MsgBox \"被除数:\" & dividend & vbCrLf & _
        \"除数:\" & divisor & vbCrLf & _
        \"商:\" & quotient & vbCrLf & _
        \"余数:\" & remainder
```

注意,在进行除法运算时,使用了 \"\\ \" 符号表示整数除法,余数则使用了 \"Mod\" 符号运算。另外,当被除数和除数超过了16位时,需要使用其它方式来处理。
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则