首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在考生目录下有一个工程文件sjt3.vbp,窗体上给出了一个文本框Text1 和两个命令按钮,命令按钮的标题分别是“读文件”、“计算”,名称分别是Command1、Command2。请画三个单选按钮,名称分别为Option1、Option2、Opti
(1)在考生目录下有一个工程文件sjt3.vbp,窗体上给出了一个文本框Text1 和两个命令按钮,命令按钮的标题分别是“读文件”、“计算”,名称分别是Command1、Command2。请画三个单选按钮,名称分别为Option1、Option2、Opti
admin
2019-01-16
26
问题
(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://kaotiyun.com/show/4uFp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
设窗体上有一个名称为Timer1的计时器控件,其Interval属性被设置为500,Enabled属性被设置为True;还有一个名称为Text1的文本框和下面的事件过程:PrivateSubTimer1_Timer()Sta
输入VisualBasic源程序时,若一个命令行中包含两个语句,则两个语句之间的分隔符应使用()。
算法的空间复杂度是指( )。
编写如下程序:PrivateSubCommand1_Click()DimnAsLong,sAsStringn=InputBox("输入一个数")DoWhilen0Printn\10
以下变量名中合法的是( )。
在窗体上画一个文本框,其名称为Text1,然后编写如下程序:OptionBase1PrivateSubForm_Click()DimArr(10)AsIntegerFori=6To10Arr
下列控件中,没有Caption属性的是( )。
下面哪个属性肯定不是框架控件的属性( )。
设窗体文件中有下面的事件过程:PrivateSubCommand1_Click() Dims a%=100 PrintaEndSub其中变量a和s的数据类型分别是( )。
设有一名称为mnuBold的下拉菜单项,程序运行时,希望达到如下效果:当第一次单击该菜单项时,其标题左侧显示"√",当第二次单击该菜单项时,其标题左侧的"√"消失,依此交替进行,......。则应在mnuBold_Click事件过程中书写的语句是(
随机试题
构音异常有多种不同表现,下列不正确的是()
=________.
“扬州画派”的产生是由于当时扬州的()
A、2~10℃B、10~30℃C、<20℃D、遮光、<20℃E、巴曲酶冷处应()。
过期妊娠指妊娠达到或超过
港商戚某委托好友龚某向著名书法家刘某求作品二幅,龚某与刘某谈妥于当月20日去刘某处取字,共4000元。当月18日,单位通知龚某去外地开会一周,龚某便委托其学生钱某办理受托一事,并告知戚某,戚某同意并告诉钱某21日到刘某处去取字,龚某出差前交给钱某4000元
甲机械设备租赁公司与乙建筑工程公司签订一份机械设备租赁合同,合同中约定:乙公司租赁使用甲公司所有的混凝土搅拌车5辆,租金每月1000元,每月1日支付上月租金,乙公司承建的某工程项目竣工时合同终止。对于此合同,下列说法正确的是()。
税收作为一种经济活动,属于经济基础范畴;而税法则是一种法律制度,属于上层建筑范畴。()
根据沟通手段的不同,沟通可以划分为()。
依据我国社会主义初级阶段生产力落后的实际情况,我们必须()。
最新回复
(
0
)