求教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.SetFocusEnd SubPrivate Sub Command2_Click() EndEnd SubPrivate Sub Form_Load() Text1.Text = "好好学习,天天向上" Command2.Enabled = FalseEnd Sub
上一个:VB简单还是E语言简单?
下一个:VB和C++的自学技巧