2. 计算机
  3. (1)考生文件夹下有一个工程文件sjt3．vbp，其中的窗体上有一个命令按钮控件数组，名称为Cmd；有一个图像框，名称为Image1。请添加一个名称为Timer1的计时器，时间间隔为3秒，初始状态为不可用，如图所示。 程序功能如下： ①单击

(1)考生文件夹下有一个工程文件sjt3．vbp，其中的窗体上有一个命令按钮控件数组，名称为Cmd；有一个图像框，名称为Image1。请添加一个名称为Timer1的计时器，时间间隔为3秒，初始状态为不可用，如图所示。 程序功能如下： ①单击

admin2015-10-23  35
问题 (1)考生文件夹下有一个工程文件sjt3．vbp，其中的窗体上有一个命令按钮控件数组，名称为Cmd；有一个图像框，名称为Image1。请添加一个名称为Timer1的计时器，时间间隔为3秒，初始状态为不可用，如图所示。
    程序功能如下：
    ①单击“前进”按钮，则Timer1的状态变为可用，且在图像框中显示3秒黄灯(图像文件为考生文件夹下的“yellow．ico”)后显示绿灯(图像文件为考生文件夹下的“green．1co”)，直至下次单击某个命令按钮。
    ②单击“停止”按钮，则Timer1的状态变为可用，且在图像框显永3秒黄灯后显示红灯(图像文件为考生文件夹下的“red．ieo”)，直至下次单击某个命令按钮。
    ③单击“结束”按钮，则结束程序运行。
    请将命令按钮Click事件过程中的注释符去掉，把?改为正确的内容，以实现上述程序功能。

    注意：考生不得修改窗体文件中已经存在的控件和程序。最后将程序按原文件名进行存盘。
    (2)考生文件夹下有一个工程文件sjt4．vbp，其中的窗体上已有如图所示的控件。程序功能如下：
    ①单击“读数据”按钮，则将考生文件夹下in4．dat文件的内容(该文件中仅含有字母和空格)显示在Text1文本框中。
    ②在文本框Text1中选中部分文本，单击“统计”按钮，以不区分大小写字母的方式，自动统计选中文本中同时出现“o”、“n”两个字母的单词的个数(如：million、company都属于满足条件的单词)，并将统计结果在Text2文本框内显示。
    请将“统计”按钮的Click事件过程中的注释符去掉，把?改为正确的内容，以实现上述程序功能。
    注意：考生不得修改窗体文件中已经存在的控件和程序，最后将程序按原文件名进行存盘。
选项
答案步骤1：打开本题工程文件，添加计时器控件，并设置计时器Timerl的Interval属性为3000，Enabled属性设置为False。 步骤2：打开代码编辑窗口，去掉程序中的注释符“’”，将问号改为正确的内容。 Dim flag As Integer Private Sub Cmd_Click(Index As Integer) If Index＝2Then’通过下一条语句End确定此处为单击按钮“结束”，因此Index为2 End E1se Imagel．Picture=LoadPicture ("＼yellow．ico")’在图形框里栽入图片 flag=Index’将按钮下标赋给flag Timer1．Enabled=True End If End Sub Private Sub Timer1 Timer() Select Case flag’判断flag确定按钮类型 Case 0 Imagel．Picture=LoadPicture (" ＼green．ico")’装载图片 Timer1．Enabled=False Case 1 Image1．Picture=LoadPicture (" ＼red．ico") Timer1．Enabled=False End Select End Sub 程序结束 步骤3：调试并运行程序。关闭程序后按题目要求存盘。 (2)步骤1：打开本题工程文件。 步骤2：打开代码编辑窗口，去掉程序中的注释符“?”，将问号改为正确的内容。 Dim S As StringPrivate Sub Commandl_Click() Open App，Path＆"＼in4．dat"’For Input As #1 s=Input(LOF(1)，#(1)’将文件读入s中 Close：#1 Text1．Text=S End Sub Private Sub Command2 C1ick() DimmAs Integer If Len(s)=0 Then’判断文本是否为空 MsgBox"请先使用"读数据"功能!" E1Se If Text1．SelIength=0 Then’判断所选文本是否为空 MsgBox"请先选中文本!" E1se t="" For i=1 To Text1．SelLength C=Mid(Text1．SelText，i，1) l将所选文本内容依次取一个字符比较 If C<>""Then t=t+C’将字符连接成单词 E1Se x＝LCase(t)"如果为空格则一个单词结束并将其全部变为小写 If InStr(x，"O")<>0 AndInStr(x，"n")<>0 Then ’在x中查找是否有"0"，"n"字母 m=m+l’满足条件累加 End If t=""’清空后，进行下一次循环 End If Next i Text2=Str(m)’显示满足条件的个数 End If End If End Sub 步骤3：调试并运行程序。关闭程序后按题目要求存盘。
解析 (1)通过命令按钮的Index属性来判断程序对按钮的响应，单击“前进”按钮，Index=0，则Timer的Enabled属性设置为True，Timer的状态变为可用，且通过Timer1_Timer事件过程中的Select Case语句进行判断，在图像框中显示3秒黄灯后显示绿灯，同理单击“停止”按钮，Index=1，则Timer的状态变为可用，且在图像框显示3秒黄灯后显示红灯，直至下次单击某个命令按钮。单击“结束”按钮，即Index=2，运行End语句结束程序运行。
    (2)单击“读数据”按钮，将考生文件夹下im4．dat文件的内容显示在Text1文本框中。在Command2_Click事件过程中，运用Len()函数判断文本框中是否有字符，如果Len(s)=0那么弹出MsgBox对话框“请先使用‘读数据’功能!”，运用SelLength属性判断文本框中是否有字符被选中，如果SelLength属性为0那么弹出MsgBox对话框“请先选中文本!”。
    在Text中选中部分文本，并单击“统计”按钮，Lcase()函数把大写字母转化为小写字母使统计不区分大、小写字母，运用InStr()函数判断是否在选中文本中同时出现。和n两个字母，并统计这类单词的个数，并将统计结果显示在Text2文本框内。
转载请注明原文地址:https://kaotiyun.com/show/JULp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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