189 8069 5689
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
让客户满意是我们工作的目标，不断超越客户的期望值来自于我们对这个行业的热爱。我们立志把好的技术通过有效、简单的方式提供给客户，将通过不懈努力成为客户在信息化领域值得信任、有价值的长期合作伙伴，公司提供的服务项目有：域名注册、网页空间、营销软件、网站建设、郸城网站维护、网站推广。
Dim i, p As Integer, c, d As String
c = Trim(TextBox1.Text)
d = Trim(TextBox2.Text)
ReDim A(c.Length - 1)
ReDim B(d.Length - 1)
For i = 0 To c.Length - 1
A(i) = c.Substring(i, 1)
Next
For i = 0 To d.Length - 1
B(i) = d.Substring(i, 1)
Next
m = A.Length
n = B.Length
If m = n And m 0 Then
ReDim F(m - 1)
Label3.Text = "F="
For i = 0 To m - 1 Step 1
If A(i) = "1" And B(i) = "1" Then
F(i) = 1
Else
F(i) = 0
End If
Label3.Text = F(i)
Next i
Else
If m = 0 Or n = 0 Then
MessageBox.Show("输入不能为空！", "错误提示")
Exit Sub
Else
MessageBox.Show("字符串长度不一致", "错误提示")
Exit Sub
End If
End If
End Sub
VB的运算顺序是：先乘除、后加减，有括号的先算括号内，有负号的先算负号。
请你比较一下这个运算中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)
vb6.0中也有，
数字 就是让这个数字为long型（隐式声明Long 数据类型）
这就显然是令数字0为long型的意思
如果不加就会默认是integer型
有很多作用
c=a b 就是把a和b以字符串形式连接起来并赋给c
如果只是要将其它类型数据转换为字符串只要用cstr(变量)就行了
dim x 在定义的时候就是把变量x定义为long型,就像 dim x as long 一样的效果
H十六进制数 的H表示后面的是十六进制数,还有O是表示后面的是八进制数
VB中不能用。
VB也可以按位与运算的。
x=15 and 8的值就是8。
VB中的And可以表示按位与，也可以表示逻辑与，就看参与运算的量是什么类型的了。
注意只能对整型执行按位运算。浮点值必须转换为整型后，才能执行按位运算。按位运算采用二进制（以 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 运算符不支持按位运算。 追问： 好复杂啊...还是不会,还有整数怎么转换为二进制数? 回答： 为什么一定要用位运算呢，你那个乘法只能通过左移操作符“ ”来进行，而左移一次代表乘以2，要是乘以一个小数，就必须先化成2的n次方，不够再用加减法调整，很麻烦啊，没必要用位运算啊。。。 追问： 因为我要进行大量的运算,但速度要快,所有用位运算...我也不想啊.. 回答： 那就不该用VB 啊，c/c++在执行效率上是没话说的。 追问： 问题就是不会嘛... 回答： 那你上csdn上发帖效果应该不错 追问： CSDN发了,我发在高性能运算,没人... 回答： 耐心一些，或者你应该发到VB.NET论坛那里。。。 追问： 额..只能这样了... 提问者 的感言： 太复杂了..算了 2010-11-08