1. 在窗体上画两个文本框,名称分别为T1、T2,初始情况下均为空白,编写适当的事件过程。程序运行后,如果在T1中输入字符,则所输入的字符立即在T2中显示出来,并把小写字母转换为相应的大写字母,如图1—1所示。 要求:程序中不得使用任何变量。 注意:存盘时

admin2009-03-17  26

问题 1. 在窗体上画两个文本框,名称分别为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。 [*]   ③ 编写命令按钮的Click事件过程:   Private Sub T1_change()   T2. Text=UCase(T1. Text)   End Sub 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

解析
转载请注明原文地址:https://jikaoti.com/ti/Vdq0FFFM
0

最新回复(0)