首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在考生文件夹中有一个工程文件sj3.vbp,相应的窗体文件为sj3.frm。在名为Form1的窗体上有一个命令按钮,其名称为Commandl,标题为“添加”;有一个文本框,名为Textl,初始内容为空白;此外还有一个列表框,其名称为Listl。程序运
(1)在考生文件夹中有一个工程文件sj3.vbp,相应的窗体文件为sj3.frm。在名为Form1的窗体上有一个命令按钮,其名称为Commandl,标题为“添加”;有一个文本框,名为Textl,初始内容为空白;此外还有一个列表框,其名称为Listl。程序运
admin
2009-03-26
49
问题
(1)在考生文件夹中有一个工程文件sj3.vbp,相应的窗体文件为sj3.frm。在名为Form1的窗体上有一个命令按钮,其名称为Commandl,标题为“添加”;有一个文本框,名为Textl,初始内容为空白;此外还有一个列表框,其名称为Listl。程序运行后,如果在文本框中输入一个英文句子(由多个单词组成,各单词之间用一个空格分开),然后单击命令按钮,程序将把该英文句子作为一个项目添加到列表框中,如图4l一4所示。
该程序不完整,请补充完整。
注意:去掉程序中的注释符“’”,把程序中的问号“?”改为正确的内容,使其能正确运行,但不得修改程序的其他部分最后,按原文件名并在原文件夹中保存修改后的文件。
(2)在考生文件夹中有工程文件sj4.vbp及窗体文件sj4.frm。在名为Forml的窗体上有2个框架、7个标签和7个文本框,所有控件已经画好。判断输入的条件是否为三角形,若是三角形,则在Textl中显示“是三角形”;在Text2中显示是何种三角形。单击“重新输入”按钮可以清空所有显示框,且按钮本身变为无效状态。当单击“判断并计算”按钮之后重新恢复为可用状态。程序运行情况如图41—5所示。该程序的功能是:根据给定的图形的三边的边长来判断图形的类型。若为三角形则同时计算出为何种三角形及三角形的周长和面积。
注意:本程序不完整,请补充完整,并能正确运行。三角形存在的条件为任一边不为O且任两边之和大于第三边。若一边具有a
2
+b
2
=c
2
,则为直角三角形;若所有边具有a
2
+b
2
>c
2
,则为锐角三角形;若一边具有a
2
+b
2
2,则为钝角三角形。去掉程序中的注释符“’”,把程序中的问号“?”改为正确的内容,使其实现上述功能,但不得修改的其他部分。最后,按原文件名并在原文件夹中保存修改后的文件。
选项
答案
(1)Len()函数用于返回指定字符串的长度。使用Mid函数取出字符串中的字符。Mid函数的格式为:Mid(字符串,P,n)。Mid函数从第P个字符开始,向后截取n个字符,P和n都是算术表达式。Mid函数的第三个变量可以省略,这样将第P个字符开始先后截取到字符串的结尾。根据题意,双击Commandl命令按钮进入代码窗口,补充后的代码如下: Private Sub Commandl Click() Dim sl As String,s2 As String Dim 11 As Integer s1=Textl I1=1 Do Do While Mid(sl,11,1)<>
""
And 11<≥=Len(s1) s2=s2&
Mid
(sl,I1,1) I1=I1+1 Loop Listl.Addltem
s2
s2=
""
I1=I1+1 Loop While I1<=Len(s1) End Sub 单击[*]按钮运行程序,并按要求保存。 (2)该题用到两个函数和一个公式,Val()是将其内容转变为数字类型的函数,Sqr()是求数值的平方根函数,而求解三 角形的面积的时候用到海伦公式即S=Sqr(L*(L-a)*(L-b)*(L-c)),其中a、b、C是三角形的三条边,L=(a+b+c)/2。根据题意,双击Commandl命令按钮进入代码窗口,补充后的代码如下: Option Explicit Dim a AS Single Dim b As Single Dim C As Single Dim S AS Double Dim L As Single Private Sub Commandl Click() a=Val(Text5.Text) b=Val(Text6.Text) c=Val(Text7.Text) If
a◇0 And b◇0 And c◇0 And a+b>c And a+c>b And b+c>a
Then Textl.Text="是三角形" 1f
a^2+b^2=c^2 Or a^2+c^2=b^2 Orb^2+c^2=a^2
Then Text2.Text="是直角三角形" Else If
a^2+b^2>c^2 And a^2+c^2>b^2 And b^2+c^2>a^2
Then Text2.Text="是锐角三角形" Else:Text2.Text="是钝角三角形" End If End If Text3.Text=a+b+C ’计算三角形的周长 L=(a+b+c)/2 Text4.Text=Sqr(L*(L-a)*(L-b)*(L-c)) ’计算三角形的面积 Else:Textl.Text="非三角形" Text2.Text="" Text3.Text="" Text4.Text="" End If Command2.Enabled=True End Sub Private Sub Command2_Click() ’此处需要设置,以实现清空所有文本框和使“重新输入”按钮无效的功能
Textl.Text=""
Text2.Text=""
Text3.Text=""
Text4.Text=""
Text5.Text=""
Text6.Text=""
Text7.Text=""
Command2.Enabled=False
End Sub Private Sub Command3_Click() End End Sub Private Sub Form Load() Textl.Enabled=False Text2.Enabled=False Text3.Enabled=False Text4.Enabled=False Command2.Enabled=False End Sub 单击[*]按钮运行程序,并按要求保存。
解析
转载请注明原文地址:https://kaotiyun.com/show/XV1p777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在Applet中,创建一个具有16行40列的多行文本区域对象ta的语句为【】。
在面向对象方法中,类之间共享属性和操作的机制称为【】。
给出下面的代码段,下面的哪些陈述为真?()publicvoidcreate(){VectormyVect;myVect=newVector();}Ⅰ:第2行的声明不
下列变量名中合法的是()。
在软件开发中,下面任务不属于设计阶段的是()。
在传递给实现了java.awt.event.MouseMotionListener接口的类中,mouseDragged()方法的事件对象是【】类。
将E-R图转换到关系模式时,实体与联系都可以表示成
在设计程序时,应采纳的原则之一是()
在AWT包中,创建一个具有10行、45列的多行文本区域对象ta的语句为【】。
下列哪个选项是short型数据的取值范围?
随机试题
不能破坏或去除热原的方法是
(2011)1mol想气体从平衡态2p1、V1沿直线变化到另一平衡态p1、2V1,则此过程中系统的功和内能的变化是()。
在浇筑箱梁顶板和翼板混凝土时,为防止混凝土开裂,浇筑顺序应为()。
生产准备费是与未来企业生产经营有关的其他费用,包括()。
正常物品价格上升导致需求量减少的原因在于()。
20×9年12月15日,甲公司与乙公司签订具有法律约束力的股权转让协议,将其持有子公司——丙公司70%股权转让给乙公司。甲公司原持有丙公司90%股权,转让完成后,甲公司将失去对丙公司的控制,但能够对丙公司实施重大影响。截至20×9年12月31日止,上述股权
山东省境内有6座海拔超过1000米的山脉,()是第二高峰。
“蛟龙”号载人潜水器最大下潜深度为()米。
函数f(x)的图像,向右平移2个单位,向下平移1个单位后,得到h(x)=x2+7x-5,则原函数的解析式为().
在软件开发中,需求分析阶段产生的主要文档是
最新回复
(
0
)