(1)在考生文件夹下有一个工程文件sjt3.vbp,包含了所有控件和部分程序。程序运行时,在文本框中每输入一个字符,则立即判断:若是小写字母,则将它的大写形式显示在标签Labell中;若是大写字母,则把它的小写形式显示在Label1中,若是其他字符,则将该

admin2015-10-23  26

问题 (1)在考生文件夹下有一个工程文件sjt3.vbp,包含了所有控件和部分程序。程序运行时,在文本框中每输入一个字符,则立即判断:若是小写字母,则将它的大写形式显示在标签Labell中;若是大写字母,则把它的小写形式显示在Label1中,若是其他字符,则将该字符直接显示在Ladsel1中。输入的字母总数则显示在标签Labe12中,如图所示。
    注意:存盘时必须存放在考生文件夹下,工程文件名保存为Bjtl.vbp,窗体文件名保存为sjtl.frm。

    (2)在名称为Form1的窗体上建立一个名称为“menu1”、标题为“文件”的弹出式菜单,其含有三个菜单项,它们的标题分别为:“打开”、“关闭”、“保存”,名称分别为“m1”、
“m2”、“m3”。再添加一个命令按钮,名称为“Command1”、标题为“弹出菜单”。要求:编写命令按钮的Click事件过程,使程序运行时,单击“弹出菜单”按钮可弹出“文件”菜单(如图所示)。
    注意:程序中不得使用变最,事件过程中只能写一条语句。
    存盘时必须存放在考生文件夹下,工程文件名保存为sjt2.vbp,窗体文件名保存为sjt2.frm。

选项

答案步骤1:打开本题工程文件。 步骤2:打开代码编辑窗扣,去掉程序中的注释符“’”,将问号改为正确的内容。 Dim n As Integer Private Sub Textl Change() Dim ch As String ch=Right$(Text1,1)’通过Right函数从Text1中取1位 If ch>="A"And ch<="Z"Then’判断ch的范围是否在A~Z中 Labell.Caption=Lcase(ch)’将大写的ch转换为小写 n=n+1’累加大写字符个数 E1seIf ch>="a"And ch<="Z"Then ’判断ch是否为小写字母 Label1.Caption=Ucase(ch) ’将ch转换为大写 n=n+1’累加小写字符个数 E1se Labe11.Caption=ch’当不在字母范围内。则直接赋值显示 End If Label2.Caption=n’Labe12中显示满足条件的个数 End Sub 步骤3:调试并运行程序,关闭程序后按题口要求存盘。 (2)步骤1:打开本题工程文件。 步骤2:打开代码编辑窗口,去掉程序中的注释符“’”,将问号改为正确的内容。 Dim left0 As Integer Const blue_color=&HFF0000,red color=&HFF& Private Sub Commandl C1ick() Timerl.Enabled=True ’单击"开始"按钮,Timer生效 End Sub Private Sub Command2 Click() Timer1.Enabled=False’单击"结束"按钮,Timer失效 End Sub Private Sub Form Load() left0=Shape1.Left’加栽窗体时,初始化圆心到窗体的距离 End Sub Private Sub Timer1 Timer() If Shape1.Fi llColor=blue color Then If Shape1.Left>0 Then Shape1.Height=Shape1.Height+100’圆的高扩大100 Shape1.Width=Shape1.Width+100 Shape1.Left=Shape1.Left-50 ’圆心到图片框左边上边的距离 Shape1.Top=Shape1.Top-50 E1se shape1.FillColor=red_color’当 充满图片框时则变色 End If End If If Shape1.FiliC010r=red color Then If Shape1.Left
解析 (1)通过Right()函数获取输入的字符,通过Lease()函数和Ucase()函数实现字母大小写的转换。
    (2)通过Shape1的Left属性判断图片是否充满图片框或恢复到了初始大小,从而进行图片颜色红蓝的转换以及圆形的放大或缩小。通过形状控件的Height、Width、Left和Top属性来实现圆形的大小变化。
转载请注明原文地址:https://kaotiyun.com/show/PWLp777K
0

最新回复(0)