求教VB编程题

编程，用程序选择文本框中的文字，程序界面如图。要求：
程序运行时，文本框Text1中立即自动显示“好好学习，天天向上。”并且使“结束”(Command2)按钮不可用。
单击“选择”（Command1)按钮，要求分别用InputBox输入选择文字的起点和要选中的文字数目，然后选中这些文字，并把焦点定位到文本框中，并使“退出”按钮可用。
单击“退出”按钮结束程序运行

答案：Private Sub Command1_Click()
    a = Val(InputBox("请输入要选中文字的起点"))
    b = Val(InputBox("请输入要选的文字个数"))
    Text1.SelStart = a - 1
    Text1.SelLength = b
    Command2.Enabled = True
    Text1.SetFocus
End Sub

Private Sub Command2_Click()
    End
End Sub

Private Sub Form_Load()
    Text1.Text = "好好学习，天天向上"
    Command2.Enabled = False
End Sub
Sub Form_Load()
Text1.text = "好好学习，天天向上。"
Command2.Enable=False
End Sub
Sub Command1_Click()
Dim A as integer,B as integer
A= inputbox("请输入要选择的起点：","提示")
B=inputbox("请输入要选择的字数：","提示")
Text1.SetFourse
Text1.SelStart = A
Text1.SelLenght = B
Command2.Enable = True
ENd Sub

上一个：关于VB入门视频教程
下一个：VB中标准的EXE和Active exe有什么区别

更多图片编程知识: