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

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

admin2015-10-23  27
问题 (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://jikaoti.com/ti/BIJ0FFFM
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)