数式について…

質問

こんにちわ(^^)。えっとVB開発なんですけれども
数式が分からないもので、質問させていただきます。

例えば、
1⇒2⇒3⇒4⇒5⇒1⇒2　…
上図のようにある一定の数値をぐるぐる回す数式というのが、VBでいう
IntCnt = (IntCnt Mod 数字の個数) + 1
（例：IntCnt = 1 のとき、答え IntCnt = 2
　　　IntCnt = 5 のとき、答え IntCnt = 1）

になるのはわかっているのですが、その逆がわからなくて困っています…(T T)。
つまり
5⇒4⇒3⇒2⇒1⇒5⇒4　…
のようになる数式わかりますか？

回答No.2

hofuhofu · ベストアンサー

x = x - 1 - (x = 1) * 5
今はこんな書き方しないほうがいいのかな・・・

もう一つ。
x = 5 - (6 - x) mod 5

お礼

>x = 5 - (6 - x) mod 5
使用させていただきます(> <)/
ありがとうございます！！

回答No.3

neKo_deux

> 5⇒4⇒3⇒2⇒1⇒5⇒4　…

無理に１行で書く必要が無ければ、以下のように場合分けしてはいかがでしょう？

If IntCnt = 1 Then
　' 1⇒5
　IntCnt = 5
Else
　' それ以外は1減算
　IntCnt = IntCnt - 1
EndIf

--
無理矢理計算させると、

IntCnt = ((IntCnt + 3) Mod 5) + 1

のような式でもＯＫの気がしますが、これが正解というわけでなく、考え方の１つとしてこういう方法もありますよと言う程度に読んでください。
こういうのは、暗記とかするものでは無いと思いますし。

お礼

ありがとうございます。いろいろ数式はあるんですね(^^)
長いコードになってしまいそうなので、
If文を使用しなくても出来そうなところはやろうと思いまして…。(^^>
ありがとうございました。

回答No.1

maruru01

こんにちは。maruru01です。

ベタでかっこ悪いですが。

IntCnt = IIf(IntCnt = 1, 5, IntCnt - 1)

ただし、必ずIntCntの初期値は1～5にして下さい。

お礼

早速のかいとうありがとうございます。（＾＾）参考にさせていただきます。