- 按键认证大神
- 2699998
- 3587
- 11
- 2173 朵
- 7386 个
- 1021 个
- 91120
- 2014-08-23
|
1#
t
T
发表于 2022-10-10 21:32
|
|只看楼主
题目描述 给定一个由纯数字组成的字符串,每个数字之间使用空格分隔。我们的任务是,编写一个函数,找出其中最大和最小的两个数字。返回结果的两个数字格式为字符串,并且逆序排列,也使用空格分隔。
【示例】: 输入:1 2 3 4 5,输出:5 1。
题目难度:简单 题目来源:CodeWars: Highest and Lowest 题目交流: 584781753
|
- Import "SmAssert.dll"
- Function 最大和最小(数字串)
- // 您的代码写在这里
- End Function
- SmAssert 最大和最小("1 2 3 4 5") = "5 1"
- SmAssert 最大和最小("1 2 -3 4 5") = "5 -3"
- SmAssert 最大和最小("1 9 3 4 -5") = "9 -5"
- SmAssert 最大和最小("1 2 3") = "3 1"
- SmAssert 最大和最小("8 3 -5 42 -1 0 0 -9 4 7 4 -4") = "42 -9"
复制代码 参考题解- Import "SmAssert.dll"
- Function 最大和最小(数字串)
-
- '【作者】:神梦无痕
- '【QQ】:1042207232
- '【Q群】:584781753
-
- Dim min, max, nums, count, i, num
-
- ' 用空格将数字串分割为数组
- nums = Split(数字串, " ")
-
- ' 用索引为0的数组元素初始化最大值和最小值
- max = Int(nums(0))
- min = Int(nums(0))
-
- ' 索引0被上面用掉了,所以这里从索引1开始遍历数组
- For i = 1 To UBound(nums)
- num = Int(nums(i))
- If num > max Then max = num
- If num < min Then min = num
- Next
-
- ' 返回最大值和最小值
- 最大和最小 = max & " " & min
- End Function
- SmAssert.That 最大和最小("1 2 3 4 5"), "=", "5 1"
- SmAssert.That 最大和最小("1 2 -3 4 5"), "=", "5 -3"
- SmAssert.That 最大和最小("1 9 3 4 -5"), "=", "9 -5"
- SmAssert.That 最大和最小("1 2 3"), "=", "3 1"
- SmAssert.That 最大和最小("8 3 -5 42 -1 0 0 -9 4 7 4 -4"), "=", "42 -9"
复制代码 插件下载【插件】神梦断言插件 SmAssert.dll,帮助开发者发现业务逻辑错误
|