【每日一题】判断是否有优惠 - 2022.6.28 _ 按键精灵脚本教程

查看: 2871\|回复: 4	[神梦] 【每日一题】判断是否有优惠 - 2022.6.28 [复制链接]

神梦科技

神梦无痕

组别按键认证大神
UID2699998
帖子3587
精华11
鲜花2173 朵
铜币7386 个
银币1021 个
在线时间91120
注册时间2014-08-23

1^#

字体大小: t T

发表于 2022-06-28 19:02 | |只看楼主

题目描述

店铺周年庆，给定一个所有商品列表，商品名以 j、z、d、f 和 h 开头的将会打折扣，请你统计一下打折扣的商品，并以列表的方式打印到控制台。

样例一：输入：['jiu', 'zhangyu', 'luosifen'] 输出：['jiu', 'zhangyu']
样例二：输入：['laobie', 'tudou', 'liyu', 'huangyu'] 输出：['huangyu']

题目难度：简单
题目来源：力扣
题目交流： 584781753

Import "SmAssert.dll"
Function 判断是否有优惠(商品列表)
// 您的代码写在这里
End Function
SmAssert.That 判断是否有优惠(Array("jiu", "zhangyu", "luosifen")) ,"=", Array("jiu", "zhangyu")
SmAssert.That 判断是否有优惠(Array("laobie", "tudou", "liyu", "huangyu")) ,"=", Array("huangyu")

复制代码

参考题解

Import "SmAssert.dll"
Function 判断是否有优惠(商品列表)
'【作者】：神梦无痕
'【ＱＱ】：1042207232
'【Ｑ群】：584781753
Dim i, s, vbDEL
vbDEL = Chr(0) & ChrW(&H200D&) & Chr(0)
For i = 0 To UBound(商品列表)
s = Left(商品列表(i), 1)
If InStr("jzdfh", LCase(s)) = 0 Then
商品列表(i) = vbDEL
End If
Next
判断是否有优惠 = Filter(商品列表, vbDEL, False)
End Function
SmAssert.That 判断是否有优惠(Array("jiu", "zhangyu", "luosifen")) ,"=", Array("jiu", "zhangyu")
SmAssert.That 判断是否有优惠(Array("laobie", "tudou", "liyu", "huangyu")) ,"=", Array("huangyu")

复制代码

插件下载

【插件】神梦断言插件 SmAssert.dll，帮助开发者发现业务逻辑错误

游戏、办公、网页、脚本辅助定制
联系QQ: 1042207232
【命令库】利用IE+Chrome谷歌双核操纵网页填表，支持框架操作
【命令库】按键精灵也玩套接字(Sock)
SMWHff's Blog | 梦痕编程 - 神梦博客

回顶部

发送短消息 UID 8714770 帖子 155 精华 0 鲜花 69 朵铜币 135 个银币 135 个性别在线时间 0 注册时间 2022-04-25 最后登录 2024-07-05 查看公共资料搜索主题搜索帖子 xlqyc 组别初中一年级 UID8714770 帖子155 精华0 鲜花69 朵铜币135 个银币135 个在线时间0 注册时间2022-04-25	2^# 字体大小: t T 发表于 2022-06-30 06:20 \| \|只看该用户学习一下


	回顶部

发送短消息 UID 8274022 帖子 703 精华 0 鲜花 158 朵铜币 714 个银币 863 个性别在线时间 0 注册时间 2021-05-01 最后登录 2024-08-08 28306674 查看公共资料搜索主题搜索帖子 flash5435 农民秀才组别高中三年级 UID8274022 帖子703 精华0 鲜花158 朵铜币714 个银币863 个在线时间0 注册时间2021-05-01 按键精灵开发者5级可通过提升认证等级来升级勋章：rz.anjian.com	3^# 字体大小: t T 发表于 2022-06-30 08:25 \| \|只看该用户学习学习！~


	回顶部

发送短消息 UID 5577281 帖子 13 精华 0 鲜花 7 朵铜币 32 个银币 12 个性别在线时间 0 注册时间 2018-09-14 最后登录 2022-08-05 503284039 查看公共资料搜索主题搜索帖子 sky8835828 sky8835828 组别小学一年级 UID5577281 帖子13 精华0 鲜花7 朵铜币32 个银币12 个在线时间0 注册时间2018-09-14	4^# 字体大小: t T 发表于 2022-07-15 15:15 \| \|只看该用户先看参考


	回顶部

发送短消息 UID 5577281 帖子 13 精华 0 鲜花 7 朵铜币 32 个银币 12 个性别在线时间 0 注册时间 2018-09-14 最后登录 2022-08-05 503284039 查看公共资料搜索主题搜索帖子 sky8835828 sky8835828 组别小学一年级 UID5577281 帖子13 精华0 鲜花7 朵铜币32 个银币12 个在线时间0 注册时间2018-09-14	5^# 字体大小: t T 发表于 2022-07-15 15:53 \| \|只看该用户 Dim 商品,i,temp 商品 = Array("jiu", "zhangyu", "luosifen", "laobie", "tudou", "liyu", "huangyu") Function 判断打印优惠商品（） For i = 0 To UBound(商品) '''TracePrint 商品(i) temp = Mid(商品(i), 1, 1)''提取商品名第一个文字 ''''TracePrint temp If temp = "j" Then TracePrint "我是优惠商品"&商品(i) ElseIf temp = "z" Then TracePrint "我是优惠商品"&商品(i) ElseIf temp = "d" Then TracePrint "我是优惠商品"&商品(i) ElseIf temp = "f" Then TracePrint "我是优惠商品"&商品(i) ElseIf temp = "h" Then TracePrint "我是优惠商品"&商品(i) End If Next End Function Call 判断打印优惠商品（）


	回顶部

上一主题| 下一主题

[神梦] 【每日一题】判断是否有优惠 - 2022.6.28 [复制链接]