设为首页
收藏本站
开启辅助访问
切换到窄版
积分充值
登录
立即注册
微信扫码登录
首页
首页
共享资源
BBS
视频教程
AI聊天机器人
VIP充值
论坛
搜索
搜索
程序分享
文库分享
软件下载
变频手册
干货教程
成套课件
使用必看
GPT3.5免费体验版
万能程序翻译
WinCC脚本编程机器人(VIP免费)
GPT3.5完整版(VIP免费)
自控工程师3.5(VIP免费)
GPT4.0完整版-线路1(VIP免费)
自控工程师4.0版-线路1(VIP免费)
GPT更多线路及版本
最新提现记录
恭喜
admin
于 2023-6-6 15:17 成功提现
500元
恭喜
admin
于 2023-5-3 09:45 成功提现
400元
本版
用户
智控联盟
»
共享资源
›
精选专区
›
ChatGPT专区
›
编程序专区
›
西门子wincc
返回列表
发新帖
西门子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位时,需要使用其它方式来处理。
回复
使用道具
举报
返回列表
发新帖
高级模式
B
Color
Image
Link
Quote
Code
Smilies
您需要登录后才可以回帖
登录
|
立即注册
本版积分规则
发表回复
回帖后跳转到最后一页
皇甫志宇
20
主题
23
帖子
47
积分
新手上路
新手上路, 积分 47, 距离下一级还需 3 积分
新手上路, 积分 47, 距离下一级还需 3 积分
积分
47
加好友
发消息
回复楼主
返回列表
用户使用心得及帮助
GPT3.5免费体验版
GPT3.5完整版(VIP免费)
自控工程师3.5(VIP免费)
伺服变频维修工程师(VIP免费)
GPT4.0-完整版-线路1(VIP免费)
GPT4.0-完整版-线路2(VIP免费)
GPT4.0-完整版-线路3(VIP免费)
自控工程师4.0版-线路1(VIP免费)
自控工程师4.0版-线路2(VIP免费)
自控工程师4.0版-线路3(VIP免费)
WinCC脚本编程机器人(VIP免费)
万能程序翻译
编程序专区