VB设计程序,在一个文本框输入一串字符（大于2个）,点击处理按钮取字符串的头,尾各一个显示在标签中 这个VB程序怎么写?

Private Sub Command1_Click()
    Label1.Caption = IIf(Len(Text1) > 2, Left(Text1, 1) & Right(Text1, 1), "")
End Sub
Private Sub Form_Load()
    Text1 = "abcde"
End Sub

Sub Button1_Click() str = Left(Text1.value, 1) & Right(Text1,1) Label1.value = strEnd Sub

private sub command1_click()
label1.caption=left(text1.text,1) & right(text1.text,1)
end sub

【VB】求以下题目事件过程代码~

第一题：
Option Explicit

Private Sub Form_Load()
Label1.Caption = Now()
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.ForeColor = RGB(0, 0, 0)
End Sub

Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.ForeColor = RGB(255, 0, 0)
End Sub

第二题：
Option Explicit

Private Sub Command1_Click()
If Len(Text1.Text) < 2 Then
MsgBox "您输入的字符长度小于2"
Exit Sub
End If
Text2.Text = Left(Text1.Text, 1) & Right(Text1.Text, 1)
End Sub

第三题：
Option Explicit

Private Sub Command1_Click()
Randomize
Text1.Text = Int(Rnd() * 10000)
Text2.Text = ""
End Sub

Private Sub Command2_Click()
Dim i As Integer
For i = 4 To 1 Step -1
Text2.Text = Text2.Text & Mid(Text1.Text, i, 1)
Next i
End Sub

第四题：
Option Explicit
Private Sub Form_Load()
Dim y As Integer
y = InputBox("请输入一个年份", "判断闰年", 0)

If (y Mod 4 = 0 And y Mod 100 0) Or y Mod 400 = 0 Then
MsgBox "是闰年"
Else
MsgBox "不是闰年"
End If
End Sub

第五题：
Option Explicit

Private Sub Command1_Click()
Dim s As Long, tax As Long

If IsNumeric(Text1.Text) Then
s = Val(Text1.Text) - 1600
Else
MsgBox "输入的不是数字"
End If

Select Case s
Case Is <= 500
tax = s * 0.05
Case Is <= 2000
tax = s * 0.1 - 25
Case Is <= 5000
tax = s * 0.15 - 125
Case Is <= 20000
tax = s * 0.2 - 375
Case Is <= 40000
tax = s * 0.25 - 1375
Case Is <= 60000
tax = s * 0.3 - 3375
Case Is <= 80000
tax = s * 0.35 - 6375
Case Is <= 100000
tax = s * 0.4 - 10375
Case Else
tax = s * 0.45 - 15375
End Select

Text2.Text = tax
End Sub

Private Sub Form_Load()
Text1.Text = InputBox("请输入工资总额", "计算个税", 0)
Text2.Text = ""
End Sub

private sub command1_click()
text2 = left(text1, 1) & right(text1, 1)
end sub

VB设计程序,在一个文本框输入一串字符(大于2个),点击处理按钮取字符串的...
答：Private Sub Command1_Click() Label1.Caption = IIf(Len(Text1) > 2, Left(Text1, 1) & Right(Text1, 1), "")End SubPrivate Sub Form_Load() Text1 = "abcde"End Sub

VB编程,设计一个程序,在文本框里输入一个三位数,单击窗体,在窗体中输出...
答：Private Sub Form_Click() Dim a As Integer, b As Integer, i As Integer If Text1 <> "" Then a = Val(Text1) If a < 100 Or a > 999 Then GoTo 1234 Else1234 MsgBox "请在文本框中输入一个三位数字!", vbOKOnly + vbCritical Text1.Text = "" Text...

VB编程问题:程序运行时,在文本框text1中输入1个字符串,单击命令按钮com...
答：1、首先，在窗体上面添加一个文本框。2、单击文本框，在属性窗口设置文本框的属性，清空文本内容，将文本框的enabled属性设置为False。3、双击“提取信息”命令按钮，编写程序的代码，如下图所示。提取信息时，需要使用截取字符串相关的函数，如Left,Right,Mid等。本题还需要使用InStr函数查找字符。4、双击...

vb设计程序,从文本框中输入一个整数n(n<500),单击处理按钮时产生3个...
答：Private Sub Command1_Click()Dim Plate As Integer Dim a(3) As Integer Randomize Plate = Val(Text1.Text) - 1 For i = 1 To 3 a(i) = Int(Rnd() * Plate + 1)Next Label1.Caption = a(1)Label2.Caption = a(2)Label3.Caption = a(3)End Sub ...

vb编程,在文本框(text1输入一个三位数据,单击窗体后,在窗体打印输出改数...
答：Private Sub Form_Click()Dim d As Integer,s As String d=Val(Text1.Text)Print "方法一"Print "百位数：";d\100 Print "十位数：";d\10 Mod 10 '也可以用 d Mod 100 \10 Print "个位数：";d Mod 10 Print s=Right(Text1.Text,3);Print "方法二"Print "百位数：";Left(s,...

vb中,设计在一个文本框中输入,若输入的是数字,则分行显示在文本框2 中...
答：dim Temp as String '中间变量，用于存储你输入的字符中的一个 YN=True '默认是数字 str=Text1.text strlen=len(str)for i=1 to strlen Temp=mid(str,i,1)if Temp<"0" and Temp>"9" then ‘这里，你输入只要有一个不是数字，马上执行下面的，并退出循环，否则继续判断下一个字...

设计VB程序界面,程序运行时,在文本框中输入一个0-360的数,计算函数类型...
答：在表单上放2个文本框1个command按钮，在按钮中添加如下代码即可。（sin 改成cos 即可得余弦值）Private Sub Command1_Click()If Val(Text1.Text) >= 0 And Val(Text1.Text) <= 360 Then Text2.Text = Sin(Val(Text1.Text))Else MsgBox "请输入0-360的数字！"End If End Sub ...

设计一个程序,在文本框中输入一个3位整数,单击按钮后,在标签上输出该数...
答：文本框名称为txtNum，显示信息的标签名称为lbl，按钮的名称为btn。按钮的click事件代码如下：Private Sub btn_Click()Dim num As IntegerIf IsNumeric(txtNum.Text) = True Then num = CInt(txtNum.Text) If num < 100 Or num > 999 Or num <> Val(txtNum.Text) Then lbl.Caption...

关于VB编程实现:在文本框中每输入一个字符时,立即在窗体上输出当前文本...
答：Private Sub Command1_Click() ’这个表示是Command1的单击事件，本行表示事件过程的开始 Cls '清除窗体上的显示内容 Text1.Text = "" '清除文本框Text1里的内容 Text1.SetFocus '使得文本框Text1获得焦点，即光标处于该控件里 End Sub '本行表示事件过程的结束 ---...

VB:编程题~~在文本框1中输入一个整数n,判断其能否同时被5和7整除...
答：Private Sub Command1_Click()If Not IsNumeric(Text1.Text) Then Exit Sub If Val(Text1.Text) Mod 5 = 0 And Val(Text1.Text) Mod 7 = 0 Then Label1.Caption = Text1.Text & "能同时被5和7 整除"Else Label1.Caption = Text1.Text & "不能同时被5和7 整除"End If End Sub ...