2. 计算机
  3. （1）在考生目录下有一个工程文件sjt3.vbp，窗体上给出了一个文本框Text1 和两个命令按钮，命令按钮的标题分别是“读文件”、“计算”，名称分别是Command1、Command2。请画三个单选按钮，名称分别为Option1、Option2、Opti

（1）在考生目录下有一个工程文件sjt3.vbp，窗体上给出了一个文本框Text1 和两个命令按钮，命令按钮的标题分别是“读文件”、“计算”，名称分别是Command1、Command2。请画三个单选按钮，名称分别为Option1、Option2、Opti

admin2019-01-16  25
问题 （1）在考生目录下有一个工程文件sjt3.vbp，窗体上给出了一个文本框Text1 和两个命令按钮，命令按钮的标题分别是“读文件”、“计算”，名称分别是Command1、Command2。请画三个单选按钮，名称分别为Option1、Option2、Option3，标题分别为“大小写字母数之差”（即大写字母数减小写字母数）、“大小写字母数之和”、“大小写字母数乘积”；窗体如图1－305所示。

    程序运行时，请按以下顺序操作：
    1）单击“读文件”按钮，可把考生目录下的文件in3.dat 中的所有内容读到变量s中（此事件过程已经给出）；
    2）选中一个单选按钮。
    3）单击“计算”按钮，则可按选中的单选按钮的标题要求对s中的字符进行计算，结果放到文本框中（要求考生编写程序）。
    4）单击窗体右上角的关闭按钮结束程序。“读文件”按钮的Click事件过程已经给出，请为“计算”按钮编写适当的事件过程实现上述功能。
    注意：考生不得修改窗体文件中已经存在的程序，在结束程序运行之前，必须进行一次计算，并且必须用窗体右上角的关闭按钮结束程序，否则无成绩。最后，按原文件名存盘。
    （2）在考生目录下有一个工程文件sjt4.vbp，其窗体左部的图片框的名称为Picture1，框中还有六个有香蕉图案的小图片框，它们是一个数组，名称为pic，在窗体右部有一个有香蕉图案的图片框，名称为Picture2，如图1－306（a）所示。
    程序运行时，有六个香蕉图案的小图片框不显示。可以用鼠标拖拽的方法把右边的香蕉放到左部的图片框中（右部的香蕉不动），如图1－306（b）所示。左边的图片框最多可放六个香蕉。

    实现此功能的方法是：刚运行程序时，图片框数组不显示，当拖拽一次香蕉时，就显示一个图片框数组元素，产生香蕉被放入的效果。
    文件中已经给出了所有控件和程序，但程序 不完整，请去掉程序中的注释符，把程序中的?改为正确的内容。
    注意：考生不得修改工程中已经存在的内容和控件属性，最后把修改后的文件按原文件名存盘。
选项
答案1小题 【操作步骤】 步骤1：打开考生文件夹中的本题工程文件sjt4.vbp，按表2－164在窗体中画出控件并设置其相关属性。 [*] 步骤2：双击窗体中的“计算”命令按钮，在打开的代码编辑窗口中编写其单击事件过程。 参考代码： Private Sub Command2_Click() Dim i As Integer, j1 As Integer Dim j2 As Integer, j As Integer j1 = 0: j2 = 0 For i = 1 To Len(s) If Asc(Mid(s, i, 1)) ＞= Asc("A") And Asc(Mid(s, i, 1)) ＜= Asc("Z") Then j1 = j1 + 1 End If If Asc(Mid(s, i, 1)) ＞= Asc("a") And Asc(Mid(s, i, 1)) ＜= Asc("z") Then j2 = j2 + 1 End If Next If Option1.Value = True Then j = j1 - j2 End If If Option2.Value = True Then j = j1 + j2 End If If Option3.Value = True Then j = j1 * j2 End If Text1.Text = j End Sub 步骤3：按＜F5＞键运行程序，单击“读数据”按钮，然后选择不同的单选按钮并单击“计算”按钮，统计出结果。 步骤4：单击窗体右上角的关闭按钮以结束程序。 步骤5：按要求将文件保存至考生文件夹中。 第2小题 【操作步骤】 步骤1：打开考生文件中的本题工程文件sjt4.vbp，在代码编辑窗口中，去掉程序中的注释符“’”，将问号“?”改为正确的内容。 参考代码： For k = 0 To 5 If Pic(k).Visible = False Then Pic(k).Visible = True 步骤2：按要求将文件保存至考生文件夹中。
解析
转载请注明原文地址:https://jikaoti.com/ti/Rwm0FFFM
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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