Question

怎样用vb程序将两个文本框中的不同的数字找出来显示在另一个文本框中?

Answer 1

用两个数组存储两个文本框中的数字 然后套嵌两个循环 外层循环用数组1 内层循环用数组2 找到相同的就忽略 不同的就记录 假设文本框1中有10个数字 文本框2中有10个数字 文本框1用数组a(9)记录 文本框2用数组b(9) 记录
下面是举例说明
Dim a() As Int32 = {0, 0, 0, 1, 0, 2, 0, 0, 0, 5}
Dim b() As Int32 = {0, 0, 0, 0, 3, 0, 0, 0, 6, 0}
Dim c As Boolean = False
Dim d As String
For i = 0 To 9
For j = 0 To 9
If a(i) = b(j) Then '挨个比较 如果相等 说明这个数字在两个文本框中是都有的 则不用记录
c = True
Exit For
End If
Next j
If c = False Then '比较完成 标志变量显示没有相同的 则记录a
TextBox3.Text += a(i).ToString + " "
End If
c = False
Next i

For i = 0 To 9 '上面是数组a 轮流比较 数组b 下面是数组b 轮流比较数组a
For j = 0 To 9
If b(i) = a(j) Then '挨个比较 如果相等 说明这个数字在两个文本框中是都有的 则不用记录
c = True
Exit For
End If
Next j
If c = False Then '比较完成 标志变量显示没有相同的 则记录a
TextBox3.Text += b(i).ToString + " "
End If
c = False
Next i
VB.NET的代码 输出结果为1 2 5 3 6

追问

你编的这个程序在运行时,
Dim a() As Int32 = {0, 0, 0, 1, 0, 2, 0, 0, 0, 5}
Dim b() As Int32 = {0, 0, 0, 0, 3, 0, 0, 0, 6, 0}
Dim c As Boolean = False
Dim d As String
TextBox3.Text += a(i).ToString + " "
TextBox3.Text += b(i).ToString + " "
以上几处地方为什么显示为语法编译错误呢?

追答

我这个是用VB.NET写的代码 和VB6的有些区别 你主要就是看个思路 在VS2008环境中是完全可以编译的 Dim a() As Int32 = {0, 0, 0, 1, 0, 2, 0, 0, 0, 5}就是定义一个整数类型的数组 并且给每一维赋值 这个只是举例 你要做得是定义一个数组 把文本框中的数字赋值到数组里 VB6可能不支持显示的{}赋值 但是这段代码主要是给你提供个思路 手上没装VB6 也没办法用VB6写代码给你看

Answer 2

是要思路还是要代码？思路是把两个数字分段比较，不等的放到第三个文本框中（累加）