首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在考生文件夹下有工程文件sjt3.vbp,其窗体上有1个标题为“计算”的命令按钮,1个标题为“无理数e的近似值”的标签。请再画1个初始内容为空的文本框’textl,如下左图所示。程序功能为:单击“计算”命令按钮,则计算无理数e的近似值,并将结果显示在
(1)在考生文件夹下有工程文件sjt3.vbp,其窗体上有1个标题为“计算”的命令按钮,1个标题为“无理数e的近似值”的标签。请再画1个初始内容为空的文本框’textl,如下左图所示。程序功能为:单击“计算”命令按钮,则计算无理数e的近似值,并将结果显示在
admin
2017-07-28
23
问题
(1)在考生文件夹下有工程文件sjt3.vbp,其窗体上有1个标题为“计算”的命令按钮,1个标题为“无理数e的近似值”的标签。请再画1个初始内容为空的文本框’textl,如下左图所示。程序功能为:单击“计算”命令按钮,则计算无理数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 L0ng 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 nunl 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="找到了"&Bum&"个"&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/qCGp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下列命令按纽事件过程执行后,输出的结果是______。privatesubcommand_click()form+1to10step2a=10forn=1to1
在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:PrivateSubCommand1_Click()aS="VisualBasic"
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程:PrivateSubCommandl_Cliek()Dimarrayl(10,10)AsIntegerDimi,
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click()Text1.Text="Visual"
用树形结构来表示实体之间联系的模型称为______。
下面程序的功能是产生10个小于100(不含100)的随机正整数,并统计其中5的倍数所占比例,但程序不完整,请补充完整。SubPR()RandomizeDima(10)Forj=1To10a(i)=In
设有变量声明DimTestDateAsDate,为变量TestDate正确赋值的表达方式是______。
下面的数组声明语句中正确的是()。
使用语句DimAAsInteger声明数组A之后,以下说法正确的是()。
下面程序运行后,输出的结果是如下矩阵:471058116912请在程序[]处填入正确的内容。
随机试题
37岁已婚患者,既往月经规律,自述无明显原因突然闭经6个月。妇科检查,以下哪项支持妊娠
患者,女,43岁。以“右下腹疼痛、腹泻半年”来诊。经X线钡剂灌肠及结肠镜检查诊为溃疡型肠结核。以下关于患者消化道症状的描述中,哪项是错误的
当采用钢木檩条或胶合木檩条时,桁架间距不宜大于()
根据《公约》规定,下列哪一项内容的修改不属于实质性变更发盘的内容______。()
在确定借款费用暂停资本化的期间时,应当区别正常中断和非正常中断,下列各项中,属于非正常巾断的有()。
中国传统绘画一般分为()三种类型。
气象台测得在S岛正东方向80千米处,一台风中心正以20千米/小时的速度沿北偏西60度的方向匀速移动。若台风中心50千米范围内为影响区域,台风中心移动方向不变、强度不变,该台风对S岛的影响时间约持续()。
设n阶矩阵A的伴随矩阵为A*,证明:|A*|=|A|n—1。
下列逻辑表达式中,与X.Y+..Z+Y.Z等价的是(56)。
Wherearetheyfrom?
最新回复
(
0
)