(1)在考生目录下有一个工程文件sjt3.vbp,窗体上有两个命令按钮,其中“读数据”按钮的名称是Command1,“统计”按钮的名称是Command2;还有一个文本框。请画三个单选按钮,其名称分别是:Option1、Option2、Option3,标题分

admin2019-06-11  16

问题 (1)在考生目录下有一个工程文件sjt3.vbp,窗体上有两个命令按钮,其中“读数据”按钮的名称是Command1,“统计”按钮的名称是Command2;还有一个文本框。请画三个单选按钮,其名称分别是:Option1、Option2、Option3,标题分别是“统计大写字母数”、“统计小写字母数”、“统计空格字符数”,如图1-320所示。

    程序运行时,请按以下顺序操作:
    1)单击“读数据”按钮,把考生目录下的文件in3.dat 中的所有内容读到变量s中(此过程已经给出);
    2)选择一个单选按钮;
    3)单击“统计”按钮,则可按选中的单选按钮的标题要求对s中的字符进行统计,结果放到文本框中(要求考生编写程序);
    4)单击窗体右上角的关闭按钮结束程序。
    “读数据”按钮的Click事件过程已经给出,请为“统计”按钮编写适当的事件过程实现上述功能。
    注意:考生不得修改窗体文件中已经存在的程序,在结束程序运行之前,必须进行一次统计,并且必须用窗体右上角的关闭按钮结束程序,否则无成绩。最后,程序按原文件名存盘。
    (2)在考生文件夹下有一个工程文件sjt4.vbp。程序功能是:在程序运行时,显示红灯,汽车不动;单击“开始”按钮后,显示绿灯,汽车向右运动;单击右边命令按钮中的一个方向按钮后,则汽车向该按钮上箭头所示的方向移动(如图1-321所示);单击“停止”按钮,则显示红灯,汽车停止运动。

    在窗体文件中已经给出了全部控件,但程序不完整,要求:去掉程序中的注释符,把程序中的?改为正确的内容。
    提示:两个图片框Picture1、Picture2 分别装入了红灯亮和绿灯亮的图片,并重叠在一起,要使哪种灯亮,就使相应的图片框为可见,另一图片框为不可见。汽车的移动是由计时器按一定时间间隔移动汽车所在的图片框来实现的。
    注意:不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。

选项

答案第1小题 【操作步骤】 步骤1:打开考生文件夹中的本题工程文件sjt3.vbp,按表2-172在窗体中画出控件并设置其相关属性。 [*] 步骤2:双击窗体中的“统计”命令按钮,在打开的代码编辑窗口中编写其单击事件过程。 参考代码: Private Sub Command2_Click() Dim i As Integer, j As Integer j = 0 For i = 1 To Len(s) If Option1.Value = True Then If Asc(Mid(s, i, 1)) >= Asc("A") And Asc(Mid(s, i, 1)) <= Asc("Z") Then j = j + 1 End If End If If Option2.Value = True Then If Asc(Mid(s, i, 1)) >= Asc("a") And Asc(Mid(s, i, 1)) <= Asc("z") Then j = j + 1 End If End If If Option3.Value = True Then If Mid(s, i, 1) = " " Then j = j + 1 End If End If Next Text1.Text = j End Sub 步骤3:按<F5>键运行程序,单击“读数据”按 钮,然后选择不同的单选按钮并单击“统计”按钮,统计出结果。 步骤4:单击窗体右上角的关闭按钮以结束程序。 步骤5:按要求将文件保存至考生文件夹中。 第2小题 【操作步骤】 步骤1:打开考生文件中的本题工程文件sjt4.vbp,在代码编辑窗口,去掉程序中的注释符“’”,将问号“?”改为正确的内容。 参考代码: Timer1.Enabled = True m = Index Select Case m 步骤2:按要求将文件保存至考生文件夹中。

解析
转载请注明原文地址:https://kaotiyun.com/show/DtUp777K
0

最新回复(0)