在考生文件夹下有工程文件sjt3.vbp,其窗体上有1个标题为“计算”的命令按钮,1个标题为“无理数e的近似值”的标签。请再画1个初始内容为空的文本框Text1,如下左图所示。程序功能为:单击“计算”命令按钮,则计算无理数e的近似值,并将结果显示在Text

admin2018-06-20  26

问题 在考生文件夹下有工程文件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=1To n t=t*i Next jc=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 =0Then x="没有找到!" Else x="找到了"&num&"个"&"Text2 End If Text3=x End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘。

解析
转载请注明原文地址:https://kaotiyun.com/show/5iGp777K
0

最新回复(0)