从n枚硬币中找出假币 vb代码
答案:1 悬赏:30 手机版
解决时间 2021-03-28 09:58
- 提问者网友：美人性情
- 2021-03-27 12:51
从n枚硬币中找出假币 vb代码
最佳答案
- 五星知识达人网友：duile
- 2021-03-27 14:29
哈哈，不是一个简单的问题，需要检测硬币的设备，没有检测硬币的设备，无法判断。
如果仅仅是玩的一个程序，可以假定硬币是一个字符串，字符串中不包含某个字符的是假币，包含这个字符的是真币，看下面的程序。
Dim SS As String
SS = "以下硬币不是真币：" & vbCrLf
AA = Array("AB000", "AC111", "AD111", "AB111", "AB222", "AD222", "AB333", "AC222", "AD333", "AB444", "AB555", "AB666") '共 12 个硬币
For I = 0 To 11
If InStr(1, AA(I), "B") = 0 Then
SS = SS & "第" & CStr(I + 1) & "个硬币 " '将不是真币的放在字符串 SS 中
End If
Next I
Print SS '输出不是真币的号码这是输出的截图：
如果仅仅是玩的一个程序，可以假定硬币是一个字符串，字符串中不包含某个字符的是假币，包含这个字符的是真币，看下面的程序。
Dim SS As String
SS = "以下硬币不是真币：" & vbCrLf
AA = Array("AB000", "AC111", "AD111", "AB111", "AB222", "AD222", "AB333", "AC222", "AD333", "AB444", "AB555", "AB666") '共 12 个硬币
For I = 0 To 11
If InStr(1, AA(I), "B") = 0 Then
SS = SS & "第" & CStr(I + 1) & "个硬币 " '将不是真币的放在字符串 SS 中
End If
Next I
Print SS '输出不是真币的号码这是输出的截图：
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯