首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在考生文件夹下有工程文件sjt3.vbp,其窗体上有1个标题为“计算”的命令按钮,1个标题为“无理数e的近似值”的标签。请再画1个初始内容为空的文本框Text1,如图所示。程序功能为:单击“计算”命令按钮,则计算无理数e的近似值,并将结果显示在Tex
(1)在考生文件夹下有工程文件sjt3.vbp,其窗体上有1个标题为“计算”的命令按钮,1个标题为“无理数e的近似值”的标签。请再画1个初始内容为空的文本框Text1,如图所示。程序功能为:单击“计算”命令按钮,则计算无理数e的近似值,并将结果显示在Tex
admin
2016-08-24
48
问题
(1)在考生文件夹下有工程文件sjt3.vbp,其窗体上有1个标题为“计算”的命令按钮,1个标题为“无理数e的近似值”的标签。请再画1个初始内容为空的文本框Text1,如图所示。程序功能为:单击“计算”命令按钮,则计算无理数e的近似值,并将结果显示在Text1文本框中。近似公式如下: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)步骤1:打开本题项目工程,并在窗体中添加文本控件Text1,并按照表1.6设置文本控件Text1的属性。 [*] 步骤2:打开代码编辑窗口,去掉程序中的注释符“’”,将问号改为正确的内容。 参考答案 Private Sub Command1_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(n As Integer)As Long Dim i As Integer Dim t As Long t=1 For i=1 To n t=t*i Next je=t End Function 步骤3:调试并运行程序,关闭程序后按题目要求存盘。 (2)步骤1:打开本题工程文件。 步骤2:打开代码编辑窗口,去掉程序中的注释符“’”,将问号改为正确的内容。 参考答案(阴影部分是需考生填入的内容) Private Sub Command1_Click() Dim x As String Dim num As Integer.i As Integer i=1 num=0 Do While i<=Len (Text1) If Mid(Text1,i,1)=Text2 Then num=num+1 End If i=i+1 Loop If num=0 Then x="没有找到!" Else x=”找到了"&num&"个"&" Text2 End If Text3=x End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
(1)在窗体中添加Text控件,首先将Text控件中的内容设置为空,然后进入“计算”按钮的单击事件过程,Do While循环结构中调用求阶乘函数jc,依次求变量i的阶乘结果,将最后的计算结果,显示在Text控件上。
(2)利用Do While循环遍历Text1中的字符串,并使用Mid(Text1,i,1)取出。Text1中相应位置的字符,判断该字符是否与Text2中的字符相等,如果相等则将变量num加1,循环结束后根据num的值,判断程序的查找结果。
转载请注明原文地址:https://kaotiyun.com/show/MYLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
当窗体大小改变时,要使其中的控件也按比例发生变化,应使用窗体的()。
下列程序的输出结果为()。PrivateSubCommand1_Click()Dima(20)Forj=1To20Step2 a(j)=jNextiPrinta(1)+a(2)+a
下面程序运行结果是()。PrivateSubForm_Click() DimxAsSingle,yAsSingle x=InputBox("请输入数据25"):y=InputBox("请输入数据10")
编写如下事件过程:PrivateSubForm_KeyDown(KeyCodeAsInteger,ShiftAsInteger)If(ButtonAnd3)=3ThenPrint“AAAA”EndIf
数据库设计分为以下6个设计阶段:需求分析阶段、______、逻辑设计阶段、物理设计阶段、实施阶段及数据库运行和维护阶段。
下面程序运行后,单击命令按钮,输出的结果是______。PrivateSubCommand1_Click()Dima%(1To5),i%,s# Fori=1To5 a(i)=i Next
单击命令按钮时,下列程序的执行结果是PrivateSubCommand1_Click()DimaAsInteger,bAsInteger,cAsInteger a=3:b=4:c=5 PrintSec
下面的数组声明语句中正确的是
对已在窗体中控件的操作不正确的是()。
在窗体上画一个名称为TxtA的文本框,然后编写如下的事件过程:PrivateSubTxtA_KeyPress(keyAsciiAsInteger)EndSub若焦点位于文本框中,则能够触发KeyPress事件的操作是(
随机试题
近代中国革命进入新民主主义革命阶段的标志是()
解决问题的策略与方法有哪些?
精子的获能过程开始于________,完成于________;它使精子成为________和________上均成熟的雄性配子。
一产妇,足月妊娠,G1P1,因滞产行会阴侧切+产钳术,产后8小时宫底上升达脐上,在宫底下方触及一囊性物,首先考虑的是()。
2019年10月,党的十几届四中全会贯彻十九大精神,围绕“坚持和完善党和国家监督体系,强化对权力运行的制约和监督”作出重大制度安排。结合中国特色社会主义法治理论,下列说法正确的是()。
顺直均匀河道,断面水质浓度变化符合指数衰减规律c=c0.exp(一kx/μ),已知区间无污染源汇入且流量稳定条件下,COD断面平均浓度每4km下降6%,原始断面COD浓度为10mg/L时,下游16km处的COD浓度约为()。
斜拉桥索塔的施工可视其结构、体形、材料、施工设备和设计要求综合考虑,选用适合的方法,横梁较多的高塔,宜采用()。
甲股份有限公司(以下简称甲公司)2009年至2010年发生如下与金融资产有关的业务:(1)购入债券、股票作为交易性金融资产:①2009年1月1日,甲公司从证券市场以银行存款1000万元(含相关税费2万元)购入A上市公司(以下简称A公司)当
东方公司有一个投资中心,预计今年销售收入为2500万元,营业成本为1520万元,销售及管理费用为500万元,利息费用为30万元,部门平均净经营资产为2500万元。其他资料如下:(1)投资中心要求的税前投资报酬率(等于加权平均税前资本成本)为12%。(2
程序调试的任务是( )。
最新回复
(
0
)