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

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

admin2018-03-20  38
问题 (1)在考生文件夹下有工程文件sjt3．vbp，其窗体上有1个标题为“计算”的命令按钮，1个标题为“无理数e的近似值”的标签。请再画1个初始内容为空的文本框Text1，如图所示。程序功能为：单击“计算”命令按钮，则计算无理数e的近似值，并将结果显示在Text1文本框中。近似公式如下：e＝＋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， 并按照表4．6设置文本控件Text1的属性，结果如图4．5所示。 [*] 步骤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 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＝0 Then x＝"没有找到!" Else x＝"找到了"|&num&"个"&Text2． End If Text3＝x End Sub 步骤3：调试并运行程序，关闭程序后按题目要求存盘。
解析
转载请注明原文地址:https://www.kaotiyun.com/show/eMGp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)