作者smooth131 (囧rz)
看板Visual_Basic
标题[VBA ] 判断数列是否呈现"递增or递减"
时间Wed Aug 17 23:30:28 2011
【目的】
1.求出以下数列是否呈现递增or递减的状态
2.判断递增or递减的起始点及终点的数值
【资料状态】
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
【问题描述】
1. 如何判断是否为递增or递减状态已经好了，
目前想知道的是怎麽样求得起始点及终点的值
2. 照我这样写，只要k > num 时k = 0，原意是想当k > num 时才判定成递增
，现在想改却不知道该从何下手
感谢各位大哥的协助 m(-_-)m
【程式码】
Sub test()
Dim n As Integer, num As Integer
num = 10
Sheets("sheet1").Select
Range(Cells(1, 1), Cells(1, 1).End(xlDown)).Select
n = Selection.CountLarge
For i = 1 To n - 1
If Cells(i, 1).Value < Cells(i + 1, 1).Value Then
k = k + 1
If k > num Then
MsgBox "呈递增现象"
k = 0
End If
ElseIf Cells(i, 1).Value > Cells(i + 1, 1).Value Then
k = k + 1
If k > num Then
MsgBox "呈递减现象"
k = 0
End If
Else
k = 0
End If
Next
End Sub
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 111.254.232.245
※ 编辑: smooth131 来自: 114.40.164.111 (08/18 00:00)
1F：→ MOONRAKER:用微积分的做法就可以了。 08/18 00:37
2F：→ MOONRAKER:一阶差分=>判断斜率 二阶差分=>判断增减趋势 08/18 00:38
3F：→ smooth131:微积分…不太懂，是否可换种说法 thx 08/18 22:43
4F：→ MOONRAKER:差分：邻近两点上y的差值除以x的差值 08/20 20:05