首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在考生文件夹下有工程文件sjt3.vbp,其窗体上有1个标题为“计算”的命令按钮,1个标题为“无理数e的近似值”的标签。请再画1个初始内容为空的文本框Text1,如图所示。程序功能为:单击“计算”命令按钮,则计算无理数e的近似值,并将结果显示在Tex
(1)在考生文件夹下有工程文件sjt3.vbp,其窗体上有1个标题为“计算”的命令按钮,1个标题为“无理数e的近似值”的标签。请再画1个初始内容为空的文本框Text1,如图所示。程序功能为:单击“计算”命令按钮,则计算无理数e的近似值,并将结果显示在Tex
admin
2016-08-24
47
问题
(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全国计算机二级
相关试题推荐
下列程序的执行结果是()。PrivaaeSubForm_ActivateDimscore(3)AsInteger,totalAsIntegerDimaa_scoreAsVariantscore(1)
假定有如下事件过程:PrivteSubForm_Click0 DimxAsInteger,nAsInteger x=1 n=0 DoWhilex<28 x=x*3
在窗体上画一个文本框,其名称为Text1,然后编写如下事件过程:PrivateSubText1_KeyPress(KeyAsciiAsInteger)DimstrAsString,nAsIntegerStr=UCas
执行以下程序段后,变量C$的值为()。A$="VisualBasicPrograming"B$="Quick"C$=B$&Ucase(Mid$(A$,7,6))&Right$(A$,11)
在以下程序中,变量S为()。DefDblA-HO-ZDefIntI-NS=1ForI=1To20 S=S*INextIPrintf"S=",S
设有如下的记录类型:TypeStudentnumberAsStringnameASStringageAsIntegerEndType则正确引用该记录类型变量的代码是()。
设用复制、粘贴的方法建立了一个命令按钮数组Command1,以下对该数组的说法错误的是
执行下列程序后,鼠标单击窗体,输出结果为PrivateSubForm_Click() Print"Click":EndSubPrivateSubForm_MouseDown(ButtonAsInteger,S
阅读下列程序:PrivateSubCommand1_Click()DimiAsInteger,kAsInteger k=2 Fori=1To3 PrintFun(k); Ne
窗体上有Text1、Text2两个文本框及一个命令按钮Command1,编写下列程序:DimyAsIntegerPrivateSubCommand1_Click()DimxAsInteger x=2
随机试题
6个月至6岁儿童贫血的判断标准为每升血液中血红蛋白含量少于
某自诉案件,法院受理案件以后,对被告人作出了取保候审的决定,案件的审判由审判员何某一人进行。那么此案应当在受理后的多长时间内宣告判决?
在()中应提出拟建项目的轮廓设想、论述项目的必要性、主要建设条件及获利条件。
关于防水砂浆的防水性质,说法正确的是()。
下列哪一项不属于合规管理的内容?()
交货及时是商品采购单位评价供应单位的一个重要标准,交付及时性一般用()来表示。
下列属于银行风险产生的主管因素的是()。
企业亏损补贴对生产的影响是()。
阅读下面的材料,根据要求写作。钱理群教授曾说:“真正的精英应该有独立自由的创造精神,要有自我的承担,要有对自己职业的承担,要有对国家、民族、社会、人类的承担。”
Everyfiveyears,thegovernmenttriestotellAmericanswhattoputintheirbellies.Eatmorevegetables.Dialbackthefats.
最新回复
(
0
)