问答题
在窗体上画两个文本框，名称分别为T1、T2，初始情况下均为空白，编写适当的事件过程。程序运行后，如果在T1中输入字符，则所输入的字符立即在T2中显示出来，并把小写字母转换为相应的大写字母，如图1—1所示。
要求：程序中不得使用任何变量。
注意：存盘时，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。
2．在窗体上画二个文本框，名称为Text1和Text2，内容为空；再画二个标签，名称分别为L1和L2，标题分别为“输入A，B，C：”和“A×B+C＝”；再画一个命令按钮，名称为C1，标题为“运算”。编写适当的程序。程序运行时，在文本框Text1中输入用逗号隔开的3个整数A、B、C，单击“运算”按钮，则计算出A×B+C的值，显示在文本框Text2中。程序运行结果如图1—2所示。
要求：程序中不得使用任何变量。
注意：存盘时，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。
2．在窗体上画二个文本框，名称为Text1和Text2，内容为空；再画二个标签，名称分别为L1和L2，标题分别为“输入A，B，C：”和“A×B+C＝”；再画一个命令按钮，名称为C1，标题为“运算”。编写适当的程序。程序运行时，在文本框Text1中输入用逗号隔开的3个整数A、B、C，单击“运算”按钮，则计算出A×B+C的值，显示在文本框Text2中。程序运行结果如图1—2所示。
【正确答案】① 启动Visual Basic，在窗体上画两个文本框。
② 按F4键激活属性窗口，在属性窗口中设置文本框的属性，见表1。
表 1
③ 编写命令按钮的Click事件过程：
Private Sub T1_change()
T2. Text＝UCase(T1. Text)
End Sub
2．① 对象主要属性设置如表2所示。
表 2
② 分析：按试题要求在窗体上画两个文本框、两个标签和一个单选按钮，并分别将它们的属性按表2的内容进行设置。Split()函数返回一个下标从零开始的一维数组，它包含指定数目的子字符串。Val()函数返回包含于字符串内的数字，字符串中是一个适当类型的数值。CStr()函数将一数值转换为字符串。
③ 编程代码：
Private Sub C1_Click()
Dim a
a＝Split(Text1.Text,",")
Text2.Text＝CStr(Val(a(0))
* Val(a(1))+Val(a(2)))
End Sub
② 按F4键激活属性窗口，在属性窗口中设置文本框的属性，见表1。
表 1
控件 | 属性 | 设置值 |
文本框1 | 名称 Text | T1 (空白) |
文本框2 | 名称 Text | T2 (空白) |
Private Sub T1_change()
T2. Text＝UCase(T1. Text)
End Sub
2．① 对象主要属性设置如表2所示。
表 2
对象 | 对象名 | 属性名 | 属性值 |
窗体 | Form1 | Caption | 数据处理 |
命令按钮 | C1 | Caption | 运算 |
文本框 | Text1 | ||
文本框 | Text2 | ||
标签 | L1 | Caption | 输入A,B,C: |
标签 | L2 | Caption | A×B+C= |
③ 编程代码：
Private Sub C1_Click()
Dim a
a＝Split(Text1.Text,",")
Text2.Text＝CStr(Val(a(0))
* Val(a(1))+Val(a(2)))
End Sub
【答案解析】