首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在考生文件夹中有一个工程文件sj3.vbp,相应的窗体文件为sj3.frm。在名为Form1的窗体上有一个命令按钮,其名称为Commandl,标题为“添加”;有一个文本框,名为Textl,初始内容为空白;此外还有一个列表框,其名称为Listl。程序运
(1)在考生文件夹中有一个工程文件sj3.vbp,相应的窗体文件为sj3.frm。在名为Form1的窗体上有一个命令按钮,其名称为Commandl,标题为“添加”;有一个文本框,名为Textl,初始内容为空白;此外还有一个列表框,其名称为Listl。程序运
admin
2009-03-26
52
问题
(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全国计算机二级
相关试题推荐
J2SDK的基本命令中用于Java类文件归档的是【】。
设有如下程序:publicclassSun{publicstaticvoidmain(Stringargs[]){intx,y;x=(int)Math.sqrt
Java语言支持【】协议,从而使得Java程序在分布式环境中能够很方便地访问处于不同地点的对象。
char类型的取值范围是()。
下列叙述中正确的是()。
下列叙述中正确的是()。
Java简单性首先表现在自身系统的精练,它的基本解释程序和【】占内存40KB,附加的基本标准类库和支持线程程序占175KB。
下列关于JDK目录结构的说法,错误的是
如果创建的一个子类覆盖一个public方法,则对该方法可以使用哪些修饰符()
用AWT组件实现单选按钮功能,需要使用______组件?()
随机试题
患者,男性,57岁。胸闷伴下肢水肿2个月,心电图V1~V4导联QS波。最有价值的器械检查是
患者,男,67岁。既往有膀胱炎病史。近半年来出现尿频,夜间需排尿4~5次,同时伴尿痛及会阴部不适感。直肠指诊触及前列腺较饱满、质软,伴轻度压痛。前列腺液镜检示白细胞15个/高倍视野。下列治疗措施中不恰当的是
关于社会折现率的说法正确的是()。
《建设工程质量管理条例》规定,()应当建立质量责任制,确定工程项目的项目经理、技术负责人和施工管理负责人。
爆破有害效应主要包括()。
原始凭证按照格式不同可分为()。
华利公司欲购买一批仪器,委托刘某提供媒介服务。华利公司和有关当事人对刘某提供媒介服务的费用承担问题没有约定,后又不能协商确定。在此情况下,对刘某提供媒介服务的费用应按下列哪个选项确定?()
请认真阅读下列材料,并按要求作答。请根据上述材料完成下列任务:依据拟定的教学目标,设计本节课的主要教学环节并说明理由。
某城市考上大学的学生中,女生的比例比男生高。根据这个事实,王老师认为本市女生学习比男生好。以下哪项最能削弱王老师的结论?
[2000年MBA真题]美国《华盛顿邮报》发表文章,引述美国前中央情报局副局长的话称,在过去多次中美核子科学家交流会期间,美国曾获得过中国有关核技术的资料,而且远远超过早些时候美国指责中国窃取美方核机密的数量。以下各项,除了哪项,都与题干中引用论述的观点相
最新回复
(
0
)