Visual Basic语言程序设计及实验教程电子教案周建丽 第3章 顺序结构程序设计.pptVIP

18．在窗体上建立三个文本框(Text1，Text2及Text3)和一个命令按钮(Command1)，并编写如下两个事件过程： Private Sub Command1_Click() Dim x As Integer x = Val(Text1.Text) + Val(Text2.Text) + Val(Text3.Text) Text1.Text = 11 Text3.Text = x End Sub Private Sub Form_Load() Text1.Text = Text2.Text = 22 Text3.Text = 33 End Sub 程序运行后，单击命令按钮Commandl，在三个文本框Textl，Text2和Text3中显示的内容分别为 ⑴ 、 ⑵ 和 ⑶ 。 ⑴⑵⑶　A．33 B．22 C．55 D．11 19．在窗体上建立两个文本框Text1和Text2，并编写如下一个事件过程： Private Sub Text1_KeyPress(KeyAscii As Integer) Dim Strc As String Strc = UCase(Chr(KeyAscii + 1)) Text2.Text = String(3, Strc) End Sub 运行程序后，在文本框Text1中键人“a”键，则在文本框Text2中显示的内容是 。 A．AAA B．aaa C．bbb D．BBB 20．如果把命令按钮的Cancel属性设置为True，则程序运行后 。 A．按Esc键与单击该命令按钮的作用相同 B．按Enter键与单击该命令按钮的作用相同 C．按Esc键将停止程序的运行 D．按Enter键将中断程序的运行 三．填空题 1．执行语句Print Format(123.5, $000,###)的输出结果是 。 2．要在标签Label1上显示a*b=，所使用的语句是 。 3．确定一个控件的大小的属性是 和 。 4．为了使标签中的标题(Caption)内容居中显示，应将Alignment属性值设置为 。 5．要使文本框Textl具有焦点，应执行的语句是 。 6．为了使文本框具有垂直滚动条，应将 属性设置为True，再将 属性设置为 。 7．在窗体上已经建立了一个文本框Text1和一个标签Label1，然后编写如下两个事件过程： Private Sub Form_Load() Show Text1.Text = 编程技术 End Sub Private Sub Text1_Change() Label1.Caption = 程序设计 End Sub 运行后，在文本框中显示的内容是 ，在标签上显示的内容是 。 8．设在窗体上已经建立了两个文本框Text1，Text2和一个标签Label1，简单说明以下事件过程代码的作用(说明当发生什么事件时完成什么功能)。 Private Sub Text1_GotFocus() Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text) End Sub Private Sub Text2_Change() Label1.Caption = Text1.Text End Sub Text2发生 事件，完成 功能。 Text1发生 事件，完成 功能。 例：利用标签和命令按钮设置一个测试游戏。 3.4.3 文本框 (1) Text属性 (3) PasswordChar属性 2、方法： Move方法、 SetFocus方法 3、事件： Click事件、DblClick事件、Change事件 1、属性： (2) Multiline属性 例： 产生