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

如题所述

推荐答案 2013-04-02

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

温馨提示：答案为网友推荐，仅供参考

当前网址：http://66.wendadaohang.com/zd/spxsxsi22.html

其他回答

第1个回答 2013-04-03

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

第2个回答 2013-04-03

private sub command1_click()
label1.caption=left(text1.text,1) & right(text1.text,1)
end sub本回答被网友采纳

相似回答

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

vb中字符串函数的使用,请问该如何让编写代码?答：Private Sub Command1_Click()Dim strTemp As String strTemp = Mid$(Text1.Text, 2)strTemp = Left$(strTemp, Len(strTemp) - 1)Text2.Text = strTemp End Sub

(vb程序设计)求代码:分类统计。文本框中输入一串字符,统计各字母出现的...答：Private Sub Command1_Click()List1.Clear Dim a(97 To 123) As Byte, i As Integer, t As String For i = 1 To Len(Text1.Text)t = Asc(LCase(Mid(Text1.Text, i, 1)))Select Case t Case Is >= 97, Is <= 122 a(t) = a(t) + 1 Case Else a(123) = a(123) + ...

用vb编程:在文本框中输入一个字符串,统计其中的大写英文、小写英文、数...答：i As Integer Dim stra As String Dim a As Integer For i = 1 To Len(Text1.Text)stra = Mid(Text1.Text, i, 1)MsgBox "当前字母为：" & stra & " 添加分析即可"'利用ASC的值区分字母数字字符等,因为要统计的太多了不多说，只教方法 ' if Asc(stra)= 91 then Next End Sub ...

用VB制作一个程序求字符的AscII值,向文本框中输入一个字符,单击命令按 ...答：Private Sub Command1_Click()a = InputBox("输入要验证ASCLL码的字符")k = Asc(a)Print k End Sub

VB 在文本框里输入内容,敲回车,即可按文本框里的内容去查询,这个功能咋...答：InStr函数返回 Variant (Long)，指定一字符串在另一字符串中最先出现的位置。语法 InStr([start, ]string1, string2[, compare])InStr 函数的语法具有下面的参数：部分说明start可选参数。为数值表达式，设置每次搜索的起点。如果省略，将从第一个字符的位置开始。如果 start 包含 Null，将发生错误。...

大家正在搜

如果要在文本框中输入字符程序将文本框作为窗体标签的标题程序运行后在文本框中输入文本框最多显示五个字符文本框最多能够显示5个字符 vb文本框最多输入6个字符文本框能输入控制字符么文本框最多允许输入字符文本框能输入下列控制字符