习题5与答案

第五章使用文本框和标签输入输出文字信息
5-1设计一程序，窗体如图5.19所示。

要求在“输入数据”框中输入一个数字。

当单击“计算”命令按钮时，将输入的数据乘以10后显示在另一个标签中。

图5.19
程序代码：
Private Sub Command1_Click()
n = Val(Text1.Text)
Text2.Text = Str(n * 10)
Text1.SetFocus
End Sub
Private Sub Command2_Click()
End
End Sub
5-2设计一个程序，窗体中有两个文本框、两个命令按钮，窗体外观如图5.20所示。

图 5.20
当在第一个文本框中输入信息时，立刻在第二个文本框中显示相同的内容；或在第二个文本框中输入信息时，立刻在第一个文本框中显示相同的内容。

单击“清除”按钮时，清除两个文本框中的信息。

单击“退出”按钮，结束程序的运行。

程序代码：
Private Sub cmdclear_Click()
Text1.Text = ""
Text2.Text = ""
End Sub
Private Sub cmdExit_Click()
End
End Sub
Private Sub Form_Load()
Text1.Text = ""
Text2.Text = ""
End Sub
Private Sub Text1_Change()
Text2.Text = Text1.Text
End Sub
Private Sub Text2_Change()
Text1.Text = Text2.Text
End Sub
5-3修改例5.5的程序，是文本框中能放入更长的信息。

由于文本加长，文本框不能直接把所有内容全部显示出来，因此，应该用滚动条将原来在文本框范围以外的内容顺序移到文本框中显示出来，如图5.21所示。

图 5.21
程序代码：
Private Sub cmdExit_Click()
End
End Sub
Private Sub cmdShow_Click()
txtMultiline.Text = "VB工具箱 1.指针工具 2.图片框工具 3.标签工具 4.文本框工具 5.框架工具 6.命令按钮工具------"
End Sub
P。