问题
问答题
在窗体上画两个文本框，名称分别为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所示。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。
答案
参考答案：
解析：① 启动Visual Basic，在窗体上画两个文本框。
② 按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