问一个简单的问题. 0和1, 怎样简单地转换成1和-1

准提部林 · 发表于 2021-3-5 14:32

這是VBA版,
N = 1
MsgBox 1 + (N = 0) * 2

大灰狼1976 · 发表于 2021-3-5 15:16

n*2-1
字数字数

zopey · 发表于 2021-3-6 10:13

dim ar(0 to 1)
ar(0)=1
ar(1)=-1

ggmmlol · 发表于 2021-3-6 11:13

VBA版，数组元素的值与下标关联：
Sub a()
ss = Array(1, -1)
Debug.Print ss(0), ss(1)
End Sub

smiletwo · 发表于 2021-3-6 11:26

if( a1=0, -1,if(a1=1,1,-1) 写的太复杂， if(a1=1,1,-1)即可

rosguy · 发表于 2021-3-6 19:05

本帖最后由 rosguy 于 2021-3-6 19:07 编辑

复制代码

这个效果就是所有的正整数都变1，0和负整数都变-1，不知道是不是你要的效果？

		自动登录	找回密码
密码			免费注册