元の質問が変更されました。
Short値(&H8000)の左端のビットをビット単位でオフにし、他のビットはそのままにしておきます。
Dim x = BitConverter.GetBytes(Short.MaxValue Or &H8000)
Dim z = BitConverter.ToInt16(x, 0)
ビット演算子を使用したより短い方法はありませんか?
私がする時
Dim a = Short.MaxValue Or &H8000
コンパイラエラーが発生します。否定するのではなく、アップします。