左移位运算符的问题

[marco08]

<< 在C#中是左移位运算符

在VB.NET中有左移位运算符吗？如果沒有如何实现按位左移的功能

[magicbacon]

Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim b As Byte = 1
MsgBox(Convert.ToInt32(b))
b = b << 1
MsgBox(Convert.ToInt32(b))
End Sub

[magicbacon]

一样的.

[marco08]

b = b << 1 '报错：需要表达式

[真相重于对错]

Dim Pattern As Short = 192 ' Bit pattern is 0000 0000 1100 0000.
Dim Result1, Result2, Result3, Result4, Result5 As Short
Result1 = Pattern << 0 ' Result is 192 (0000 0000 1100 0000).
Result2 = Pattern << 4 ' Result is 3072 (0000 1100 0000 0000).
Result3 = Pattern << 9 ' Result is -32768 (1000 0000 0000 0000).
Result4 = Pattern << 17 ' Result is 384 (0000 0001 1000 0000).
Result5 = Pattern << -1 ' Result is 0 (shifted 15 places to left).
---------------msdn

[magicbacon]

不会吧，这都会报错？

[viena]

b = b << 1
没有错吧

[viena]

你把整段代码粘贴过来看一下

[magicbacon]

lz大人也不是新手啊。

[marco08]

--ASP.NET中运行

Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'在此处放置初始化页的用户代码

If Not Me.IsPostBack Then
Dim b As Byte = 1
Response.Write(Convert.ToInt32(b))
Response.Write("<br>")

b = b<<1
Response.Write(Convert.ToInt32(b))
End If

End Sub

[marco08]

我是在ASP.NET中试的

[marco08]

加到50分，请各位大大帮忙啊

[mqmmx]

不行的话左移乘2的几次方,移多少次方多少,右移整除2的几次方

如
b = b<<1 可写成 b = b * Math.Pow(2, 1)就行了

[viena]

我测试没有问题
如下复制楼主代码到Page_Load里面
If Not Me.IsPostBack Then
Dim b As Byte = 1
Response.Write(Convert.ToInt32(b))
Response.Write("<br>")

b = b << 1
Response.Write(Convert.ToInt32(b))
End If

网页输出，第一行1，第二行2

[viena]

你的IDE什么版本？

[marco08]

VS2003企业版

[viena]

那就是见鬼了，我用VS2003测试是没有问题的~

[marco08]

靠，原来是VS2002