编写一vb程序，两文本框，1,在text1输入内容，单击窗体会复制八个字符在文本框text2中显示

’试一下

'第一题

Private Sub Form_Click()

Text2 = Left(Text1, 8)

End Sub

'第二题

Private Sub Form_Click()

If Text1SelLength > 0 Then Text2Text = Text1SelText

End Sub

你的意思是每次运行时只弁许修改一次吗？

如是这样的话可以怎么:

Dim Flags As Integer

Private Sub Text1_Change()

    If Flags <> 2 Then

    Text2Text = Text1Text

    Flags = 1

    End If

End Sub

Private Sub Text1_LostFocus()

    If Flags = 1 Then Flags = 2

End Sub

算了，我只写了一个文本框改动另一个文本框

Private Sub Command1_Click()

    For i = 1 To Len(Text1Text)

        Select Case Asc(Mid(Text1Text, i, 1))

            Case 65 To 90, 97 To 122: a = a + 1

            Case Is < 0: b = b + 1

        End Select

    Next

    Text2Text = a

    Text3Text = b

End Sub

'给个参考程序。朋友。

Private Sub Picture1_Click()

Dim n As Integer, i As Integer

n = Val(Text1Text)

For i = 1 To n

If n Mod i = 0 Then Picture1Print i

Next i

End Sub

如果是C# Winform的话,  直接注册TextChanged事件就可以了:

private void textBox1_TextChanged(object sender, EventArgs e)

 {

      thislabel3Text = thistextBox1Text;

 }

private sub command1_click()

dim i as integer

dim aa as double

i=val(metext1)

aa=fix/2-fix(i/2)

melable2caption="奇数"

if abs(aa)<001 then melable2caption="偶数"

end sub

1有SublimeREPL应该就可以调试了，输入没问题，调试的时候记得选

tools->SublimeREPL->python->run current file 或者 pdb current

file (pdb 是调试工具，类似gdb)

不要用缺省的build 或者 ctrl-b

2运行调试前别忘了保存，要不不会运行修改后的文件

以上就是关于编写一vb程序，两文本框，1,在text1输入内容，单击窗体会复制八个字符在文本框text2中显示全部的内容，包括:编写一vb程序，两文本框，1,在text1输入内容，单击窗体会复制八个字符在文本框text2中显示、怎样用VB编写这样一个程序，两个文本框，text1和text2……、用vb编写程序,在文本框(text1)中输入一段文本,单机“统计”按钮,分别统计英文字数和汉字个数等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！