VB的运算顺序是：先乘除、后加减，有括号的先算括号内，有负号的先算负号。
成都创新互联公司专注于企业成都全网营销、网站重做改版、东乡族网站定制设计、自适应品牌网站建设、H5技术、商城网站制作、集团公司官网建设、外贸网站制作、高端网站制作、响应式网页设计等建站业务，价格优惠性价比高，为东乡族等各大城市提供网站开发制作服务。
请你比较一下这个运算中x和y的值：
Dim n As Single = 4
Dim x As Single
Dim y As Single
x = n + 1
x = x / n
x = x - 1
x = Math.Sqrt(x)
y = Math.Sqrt((n + 1) / n - 1)
这样就会发现，你的代码中括号的位置错了。
正确的应该是： Math.Sqrt((n + 1) / n - 1)
TextBox1.Text = 7 And 10
TextBox1.Text = 7 Or 10
TextBox1.Text = 7 Xor 10
TextBox1.Text = Not 10
TextBox1.Text = 7 10
TextBox1.Text = 7 10
如这些,我在VB.Net中也找不到shl和shr运算符~
不过可以通过"自定义运算符"来写出我们想要的功能
Dim s1!, s2!, a$ '为小数点的叠加，s1,s2必须定义为单精度型
Dim flag As Boolean 'flag它是过程及的变量，在通用里必须声明
'在数字按钮控件单击数组单击事件中获取操作数（没有区分是哪一个操作数）
Private Sub Command1_Click(Index As Integer)
x = Text1.Text
If flag = True Or x = "0" Then '查看数字是否输入完毕或者是否清零了
Text1.Text = CStr(Index) 'CStr将数值转换字符
Else
Text1.Text = Text1.Text + CStr(Index) '"+"在这里这个是对字符串的操作的叠加，CStr(Index)是接的数据
End If
flag = False '时刻准备数字的输入
End Sub
'2.单击运算符，确定s1，并且要选定运算
Private Sub Command2_Click(Index As Integer)
flag = True
s1 = Val(Text1.Text)
Select Case Index
Case 0
a = "+"
Case 1
a = "-"
Case 2
a = "*"
Case 3
a = "/"
End Select
End Sub
'3."="的单击事件
Private Sub Command3_Click()
flag = True
s2 = Val(Text1.Text)
Select Case a
Case "+"
Text1.Text = s1 + s2
Case "-"
Text1.Text = s1 - s2
Case "*"
Text1.Text = s1 * s2
Case "/"
Text1.Text = s1 / s2 '分母不能为0
End Select
s1 = 0: s2 = 0: a = ""
End Sub
'4.清屏
Private Sub Command4_Click()
Text1.Text = "0"
s1 = 0
s2 = 0
a = ""
flag = False
End Sub
'5.删除最后输入的一个字符，换句话说，将本文框中的字符串取字符（从左往右取left(string,length)），将最后一个字符不取就先行
Private Sub Command5_Click()
If Text1.Text = "" Then
Else
Command5.Enabled = True
Text1.Text = Left(Text1.Text, Len(Text1.Text) - 1)
'len求字符串的长度，left(text1.len(text1)-1减1是取字符串从左往右减去一个字符串
End If
End Sub
'小数点 1）显示出"."(注意前面输入过的整数必须显示) 2）小数后能继续接受数字的输入
Private Sub Command6_Click()
Text1 = Text1 "."
End Sub
'7加入正负号--单击“+、-”,产生一个"-"，而且处于一种等待数字输入的一种状态
Private Sub Command7_Click()
Dim temp As Double
temp = -Val(Text1.Text)
Text1.Text = temp
If d = " " Then s1 = temp Else s2 = temp
End Sub
Private Sub Command8_Click() '退出
End
End Sub
Private Sub Form_Load() '窗体初始化
Text1.Text = 0
Text1.Locked = True
End Sub
注意只能对整型执行按位运算。浮点值必须转换为整型后，才能执行按位运算。按位运算采用二进制（以 2 为基）形式计算两个整数值。它们比较对应位置上的位，然后基于比较的结果赋值。下面的示例演示了 And 运算符。复制Dim x As Integerx = 3 And 5 前面的示例将 x 的值设置为 1。发生这种情况的原因如下：这些值以二进制形式处理：二进制格式的 3 为 011二进制格式的 5 为 101And 运算符比较这些二进制表示方式，一次比较一个二进制位置（位）。如果给定位置的两个位都为 1，则将 1 放在结果中的该位置。如果任何一个位是 0，则将 0 放在结果中的该位置。在前面的示例中，按如下所示计算结果：011（二进制格式的 3）101（二进制格式的 5）001（二进制格式的计算结果）计算结果以十进制形式处理。值 001 是 1 的二进制表示形式，因此 x = 1。除了在任何一个比较位是 1 或两个比较位都是 1 的情况下将 1 赋予结果位以外，按位 Or 运算与此类似。Xor 在比较的位正好只有一个是 1（而不是两者都是 1）时将 1 赋给结果位。Not 采用单个操作数并反转所有位（包括符号位），然后将该值赋予结果。这意味着，对于有符号正数，Not 始终返回负值，而对于负数，Not 始终返回正值或零。AndAlso 和OrElse 运算符不支持按位运算。 追问： 好复杂啊...还是不会,还有整数怎么转换为二进制数? 回答： 为什么一定要用位运算呢，你那个乘法只能通过左移操作符“
题主这个FunctionFindWindow(一堆参数)AsLong，返回值是个Long，而下面wd=FindWindow()，wd却是个Integer类型的，当然会溢出。楼上说都改成Long确实可以，不过题主的API声明是从VB里拷贝过来的吧？VB里的Long到.NET中就是Int32了，所以应该把上面FindWindow的返回类型由Long改为Int32（或者Integer）才是正解。
直接加1可以用a+=1
如果是做循环,直接用
For a = 1 To 10
Next
