十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
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
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可以表示按位与,也可以表示逻辑与,就看参与运算的量是什么类型的了。
Dim CheckColumn As New DataGridViewCheckBoxColumn
CheckColumn.Name = "State"
CheckColumn.HeaderText = "State"
CheckColumn.ThreeState = True
DataGridView1.Columns.Add(CheckColumn)
DataGridView1.AllowUserToAddRows = False
DataGridView1.Rows.Add(False)
DataGridView1.Rows.Add(DBNull.Value)
DataGridView1.Rows.Add(True)
你对For循环的理解是完全错误的!
For循环的代码应修改为:
For i = 0 To un
ListBox2.Items.Add(ListBox1.Items(i))
Next
就这三行就行了!i的值会自动递增的,再放i=i+1不但多余,而且会使i的值按0、2、4、6……递增,这样的话ListBox1的第1、3、5……项就被跳过了!另外,i的值是肯定不会大于un的,所以if i=un then是完全多余的。