永发信息网

关于VB设计程序,请进入。

答案:3  悬赏:40  手机版
解决时间 2021-04-27 08:59

设计程序,在一个文本框中输入一串字符(长度大于2),单击“处理”按钮时,取出该字符的头、尾部各一个字符,合并后显示在第2个文本框中。如输入“ABCDEF”,输出“AF”。

哪个高手懂?谢谢!

最佳答案
Private Sub Command1_Click()
If Len(Text1.Text) >= 2 Then
Text2.Text = Left(Text1.Text, 1) & Right(Text1.Text, 1)
Else
MsgBox "字符不能小于2"
End If
End Sub
Private Sub Form_Load()
Text1.Text = "ABCDEF"
End Sub
全部回答
Text2.Text = Left(Text1.Text, 1) & Right(Text1.Text, 1)

Option Explicit

Private Sub Command1_Click() If Len(Text1.Text) >= 2 Then Text2.Text = Left(Text1.Text, 1) & Right(Text1.Text, 1) End If End Sub

Private Sub Form_Load() Text1.Text = "sdfghj": Text2.Text = "" Command1.Caption = "处理" End Sub

我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
蒙牛专卖(御龙湾店)怎么去啊,有知道地址的么
大南瓜的PK场伤害问题
DNF后跳斩拉怎么用 详细点?
请问三国杀一个问题
公元年356年属于哪个世纪哪个年代?
怡寳矿泉水含微量元素和矿物质吗?
在秋天来临之时我们在饮食和生活上应该注意什
怎样亮滔滔图标
万顺商店在哪里啊,我有事要去这个地方
谁告诉我R2JJ的下载地址啊?
我的私事问题
怎样才能让大家认为我是最棒的
求人在囧途之泰囧下载地址,非常感谢
帮我做下语文题
如果可以,我会选择和他做个很好的朋友,可是他
推荐资讯
公务员工作鉴定评语,公务员实习单位综合评语
为什么玫瑰小镇登不上
沙场阅兵喊的口号,A.“沙场秋点兵”一句写阅
爱情心灵鸡汤经典语录,心灵鸡汤经典语录假期
想问一下怀孕四个多月还能做药流么?
处处春光好 ,下联?
怎么包移动的包月手机电视的套餐?
最近有什么好看的日本漫画吗
魔兽3 ND内战为什么要首发Lich?一但对方成型
进入高中后总觉得自已跟不上老师的步伐,很多
额敏县民政局在什么地方啊,我要过去处理事情
用QQ播放器搞背景音乐要怎么搞啊?
正方形一边上任一点到这个正方形两条对角线的
阴历怎么看 ?