首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在考生文件夹下有工程文件sjt3.vbp,其窗体上有1个标题为“计算”的命令按钮,1个标题为“无理数e的近似值”的标签。请再画1个初始内容为空的文本框Textl,如下左图所示。程序功能为:单击“计算”命令按钮,则计算无理数e的近似值,并将结果显示在T
(1)在考生文件夹下有工程文件sjt3.vbp,其窗体上有1个标题为“计算”的命令按钮,1个标题为“无理数e的近似值”的标签。请再画1个初始内容为空的文本框Textl,如下左图所示。程序功能为:单击“计算”命令按钮,则计算无理数e的近似值,并将结果显示在T
admin
2017-12-14
61
问题
(1)在考生文件夹下有工程文件sjt3.vbp,其窗体上有1个标题为“计算”的命令按钮,1个标题为“无理数e的近似值”的标签。请再画1个初始内容为空的文本框Textl,如下左图所示。程序功能为:单击“计算”命令按钮,则计算无理数e的近似值,并将结果显示在Textl文本框中。近似公式如下:e=1+1/1 !+1/2 !+1/3 !+…+1/n!+…请将程序代码中的注释符去掉,把?改为正确内容,以实现上述程序功能。
注意:考生不得修改窗体文件中已经存在的控件和程序,最后,程序按原文件名存盘。
(2)在考生文件夹下有一个工程文件sjt4.vbp。其窗体中有1个名称为Command1,标题为“查找”的命令按钮;3个初始内容为空的文本框Text1、Text2和Text3,其中Text1允许显示多行内容,且有垂直滚动条,如下右图所示。程序功能为:首先在Text1中输入原始字符串,在Text2中输入要查找的单个字符,然后单击“查找”按钮,则在Text3中显示查找的结果。图示为某一次的运行效果。
请将“查找”命令按钮Click事件过程中的注释符去掉,把?改为正确内容,以实现上述程序功能。
注意:考生不得修改窗体文件中已经存在的控件和程序,最后,程序按原文件名存盘。
选项
答案
(1)在窗体中添加Text控件,首先将Text控件中的内容设置为空,然后进入“计算”按钮的单击事件过程,Do While循环结构中凋用求阶乘函数jc。依次求变量j的阶乘结果,将最后的计算结果,显示在Text控件上。 【操作步骤】 步骤1:打开本题项目工程,并在窗体中添加文本控件Text1,并按照表1.6设置文本控件Textl的属性。 [*] 步骤2:打开代码编辑窗口,去掉程序中的注释符"*",将问号改为正确的内容。 参考答案(阴影部分是需考生填入的内窖) Private Sub Commandl—Click() Dim e As Single.x As Single Dim i As Integer e=0:i=0 x=1 Do While x>0.00001 e=e+x i=i+1 x=1/jc(i) Loop Text1.Text=e End Sub Function jc(As Integer)As Long Dim i As Integer DimtAs Long i=1 For i=1 To 1 t=t*i Next jc=t End Function 步骤3:调试并运行程序,关闭程序后按题目要求存盘。 (2)利用Do While循环遍历Text1中的字符串.并使用Mid(Textl,i,1)取出。Textl中相应位置的字符,判断该字符是否与Texl2中的字符相等,如果相等则将变量inlm加1,循环结束后根据hum的值。判断程序的查找结果。 【操作步骤】 步骤1:打开本题工程文件。 步骤2:打开代码编辑窗口,去掉程序中的注释符"’",将问号改为正确的内容。 参考答案(阴影部分是需考生填入的内容) Private Sub Commandl一_Click() Dim xAs String Dim Hum As Integer.i As Integer i=1 num=0 Do While i<=Len(Text 1) If Mid(Text1,i,1)=Text2 Then num=num+1 End If i=i+1 Loop Ifnum =0 Then x=“没有找到!" Else x=“找到了”&num&“个”& Text2 End If Text3=x End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
转载请注明原文地址:https://kaotiyun.com/show/EgGp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画一个命令按钮,其名称为Command1,然后编写如下程序:FunctionFunc(ByValxAsInteger,yAsInteger)y=x*yIfy>0ThenFunc=xEl
以下程序段的输出结果是 【】 。 num=0 Whilenum<=2 num=num+1 &nb
在面向对象程序设计中,从外面看只能看到对象有外部特征,而不知道也无须知道数据的具体结构以及实现操作的算法,这称为对象的______。
下列关于过程叙述不正确的是()。
下面对语句:"Open"Text.Dat"forOutputAs#FreeFile"的功能说明中错误的是______。
软件设计中,有利于提高模块独立性的一个准则是
软件开发的结构化生命周期方法将软件生命周期划分成______。
为了在按下Esc键时执行某个命令按钮的Click事件过程,需要把该命令按钮的一个属性设置为True,这个属性是______。
在关系数据库中,用来表示实体间联系的是
假定建立了一个名为Commandl的命令按钮数组,则以下说法中错误的是()。
随机试题
对于烧伤后糖代谢说法错误的是
女性患者,76岁,5年前开始,每年4~5次心悸发作,突然发作,同时感胸闷、脉律不齐,持续10余分钟可自行终止,有时可持续3~6h。根据上述提供信息考虑诊断
动机一般具有的功能有()。
【2013年烟台龙口市】一些事例显示,对“兽孩”进行的补救教育都不是很成功,这表明人的发展具有()。
某市居民生活用水每月标准用水量的基本价格为每立方米3.5元,若每月用水量超过标准用水量,超出部分按基本价格的120%收费,某户十月份用水14立方米,共交水费51.8元,则该市每月标准用水量为多少立方米?()
组织过程资产在项目管理中扮演很重要的角色,()不属于组织过程资产。
数据库设计的根本目标是要解决
将考生文件夹下FVP文件夹中的文件ZUO.ARJ复制到同一文件夹下,并命名为“BEER2.ARJ”。
WherewasNigelPlayer’sfirstjob?
Everybodylovesafatpayrise.Yetpleasureatyourowncanvanishifyoulearnthatacolleaguehasbeengivenabiggerone.I
最新回复
(
0
)