请电脑大神们帮忙写VB代码,/在起始位置和长度的文本框中输入数字后,单机选取按钮时第一个文本框中的相应内容为选中状态,

来源：学生作业帮编辑：神马作文网作业帮分类：综合作业时间：2024/11/12 21:28:43

'设控件text1为文本 text2为开始位置 text3为长度
代码如下：Private Sub Command1_Click()
'设text1为文本 text2为开始位置 text3为长度
If Len(Text1) = 0 Then MsgBox "文本为空!": Text1.SetFocus: Exit Sub '文本为空
If IsNumeric(Text2) = False Then MsgBox "起始位置不为数字!": Text2.SetFocus: Exit Sub '起始位置不为数字
If IsNumeric(Text3) = False Then MsgBox "长度不为数字!": Text3.SetFocus: Exit Sub '长度不为数字
If Len(Text1) <= CInt(Text2) Then MsgBox "起始位置超过文本长度!": Text2.SetFocus: Exit Sub '起始位置超过文本长度
If (Len(Text1) - CInt(Text2)) < CInt(Text3) Then Text3 = Format(Len(Text1) - CInt(Text2), "0") '总长度超长时,自动设置为最长长度
'上面的都是防止错误,下面才是主要的
Text1.SelStart = Format(Text2, 0) '文本起始位置
Text1.SelLength = Format(Text3, 0) '设置选取的文本长度
Text1.SetFocus '设置焦点
End Su

请电脑大神们帮忙写VB代码,/在起始位置和长度的文本框中输入数字后,单机选取按钮时第一个文本框中的相应内容为选中状态, VB个人所得税计算有两个文本框和一个按钮,在第一个文本框输入金额点击按钮算出来的结果在第二个文本框显示2000块起征点扣用vb设计一个随即抽取幸运数字的程序,单击"开始"按钮,在文本框中随机产生7为数字,并不断滚动.单击"暂停"按钮,文本框计算n个电阻并联后的阻值(其中n的值由文本框输入,n个不同的阻值通过循环控制输入.电脑编程 vb 代码 VB编写一个程序,实现在文本框内输入一个长度值,单位为“厘米”,点击名利按钮转化为X米X分米X厘米的形式帮忙写一个vb程序要求通过文本框输入三角形任意两条边的长度和夹角度数,求三角形的面积设计一个程序,在文本框中输入一个3位整数,单击按钮后,在标签上输出该数的百位数、十位数和个位数 VB程序、、编写应用程序,要求在TextBox控件的文本框中输入一个英文句子后完成如下操作： VB编程题：从3个文本框中输入3个数值,并判断能否构成三角形.若能,则显示三角形的特征.求代码,感激不尽 1.设计一个表单,每次按增加按钮,文本框数值加1,文本框初始值为0.写代码就好. 一道简单的VF题理解大小写转换函数.在文本框中输入文本串,按“转大写”按钮,文本中的英文字母变为大写,按“转小写”按钮, 例子1.在窗体内创建文本框和按钮分别命名为Text1和command2在命令按钮下输入代码dim a as 整形a =