vb程序问题如何在一个文本框中输入两个不同的数字

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

用两个数组存储两个文本框中的数字 然后套嵌两个循环 外层循环用数组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

form1.text1.text+form2.text1.text

Private Sub Command1_Click()
Dim a As String, b As String
Open "C:\Documents and Settings\Administrator\桌面\新建 文本文档.txt" For Output As #1
Print #1, Text1.Text
Close #1
Open "C:\Documents and Settings\Administrator\桌面\新建 文本文档.txt" For Input As #1
Line Input #1, a
Line Input #1, b
Close #1
MsgBox a * b
End Sub

感觉这样太麻烦了。text1.text属性药设置成多行，multline=true, text1.text中输入一个数之后要换行输入



dim a!,b!
if len(text1)=2 and isnumeric(text1)=true then
a=val(left(text1,1))
b=val(right(text1,1))
msgbox "和是" & a+b
end if

---

vb程序问题如何在一个文本框中输入两个不同的数字视频

---

相关评论：

13758847925：在VB中怎么在文本框中实现,输入一个文本或数字,便随机一种颜色呢?
贲炭茅Private Sub Form_Load()Text1 = ""Randomize End Sub Private Sub Text1_Change()Text1.BackColor = QBColor(Int(Rnd * 16))'改变背景色,可不用 Text1.ForeColor = QBColor(Int(Rnd * Rnd * 16))'改变文字色 End Sub

13758847925：VB如何把文件内容显示在文本框中?
贲炭茅如果文本框的 MultiLine 属性设置为 True 而且它的 ScrollBars 没有设置为 None (0)，则滚动条总出现在文本框上。如果将 MultiLine 属性设置为 True，则可以在 TextBox 内用 Alignment 属性设置文本的对齐。如果 MultiLine 属性是 False，则 Alignment 属性不起作用。代码实例：Private Sub Command1_...

13758847925：VB中如何把多个文本框内的内容集合到一个文本框里,要分行
贲炭茅可以设计数组比如说有一个text1和5个text2控件分别是text2(0),text2(1),text2(2),text2(3),text2(4),text2(5)可以这样写 for i=0 to 5 text1=text1 & text2(i).text & chr(13)next 不一定和我的一样.但是思路可以是这样 ...

13758847925：VB中怎样把结果显示在文本框中
贲炭茅private sub commad1_click()dim a,b,c as istring if a>b then text4.text=a else text4.text=b elseif a>c text4.text=a else text4.text=c 。。。(省略)endif endsub 废话不多说了 你问的问题嘛。 text4.text=a 可以实现，但前提是定义A变量是字符值。如果是输入的字符串...

13758847925：vb中如何在文本框中加入文字?比如有若干个按钮,点击一个就向该文本框...
贲炭茅文本框内的内容为:"135"你现在点击一个按钮,要使他变成"2135"则 TEXTBOX1.text="2"&TEXTBOX1.text 变为"1352"则 TEXTBOX1.text=TEXTBOX1.text&"2"要在其他文字添加则可以用mid等函数先分割TEXTBOX1.text,然后再把几部分连接起来 其他一些函数也非常有用 如replace TEXTBOX1.text=replace(...

13758847925：VB上加了两个文本框,如何在文本框1中输入内容文本框2就可以显示文本框...
贲炭茅Private Sub Text1_Change()Text2.Text = Len(Text1.Text)End Sub

13758847925：vb如何编写代码 在运行时 往文本框中输入信息 小白刚学
贲炭茅往窗体上放置一个文本控件（text1），点击run即可。或者：你在放置个按钮、放置个标签。在按钮的单击代码中输入：Sub Command1_Click ()label1.Caption = text1.Text End Sub －－－再run试试

13758847925：vb编程里,如何实现点击窗体中一个文本框出现日历控件,然后可以选择相应...
贲炭茅这个解答完全符合你的要求：首先在默认form1窗体上画一个文本框text1、再画一个日历控件MonthView1，记得是MonthView1控件，你自己排列好它们两个的位置即可，一切都按默认（不用改属性）。然后复制以下代码到form1的代码窗口里运行即可看到结果啦（如图）：Private Sub Form_Load()MonthView1.Visible = ...

13758847925：vb中如何从一个文本框中提取需要的字符
贲炭茅str5(0) = 255 '字串的前两个Byte存该字串的最大长度 str5(0) = 255 i = SendMessage(Text1.hwnd, EM_GETLINE, ntx, str5(0))If i = 0 Then GetaLine = ""Else str6 = StrConv(str5, vbUnicode)GetaLine = Left(str6, InStr(1, str6, Chr(0)) - 1)End If End ...

13758847925：vb怎么在文本框输入时下拉
贲炭茅提供个思路给你,控件：一个textbox1用于输入，一个list1用于预存数据，一个list2用于下拉。lsit1不可见，list2不可见 程序运行时，先从数据库加载数据到list1。在文本框输入时，将list1里含在文本框内容的项加载到list2,然后设置list2可见即可 代码：1、在窗体的load事件里将数据库里的数据加载到...