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

admin2019-01-16  27

问题 (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
0

最新回复(0)