皇甫志宇 发表于 2023-3-21 18:39:00

西门子wincc

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位时,需要使用其它方式来处理。
页: [1]
查看完整版本: 西门子wincc