VisualBasic语言程序设计及实验教程周建丽第3章节顺序结构程序设计.ppt

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发生 事件，完成 功能。 9．在窗体上放置一个滚动条HScroll1和一个文本框Text1，要使每次单击滚动条两端箭头、单击滚动的滚动块与两端箭头之间的空白区域以及拖动滚动条的滚动块时，文本框的内容能够反映滚动条的值，请完成以下程序代码。 Private Sub HScroll1_Change() Text1.Text = HScroll1. ⑴ End Sub Private Sub HScroll1_Scroll() Text1.Text = HScroll1. ⑵ End Sub 上机编程练习3 1．设计程序，在指定范围内(1～n)产生3个随机整数，范围n在文本框中输入，3个随机整数显示在3个标签中。 2．在窗体上建立4个文本框和2个命令按钮，当用户在第1、第2及第3个文本框中输入数据和单击“交换”按钮时，3个文本框内数据进行交换，即第2个文本框的内容放入第1个文本框，第3个文本框的内容放入第2个文本框，第1个文本框的原内容放入第3个文本框。当单击“合并”按钮时，把3个文本框内当前内容进行合并，第1个文本框内容居前，接着是第2个文本框的内容，最后是第3个文本框内容，合并后内容放入第4个文本框中。 3．随机产生一个4位正整数，求出该数的倒序数，输出该数及倒序数。如产生的数为1234，则倒序数为4321。通过上机