首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在考生文件夹中有一个工程文件sj3.vbp,相应的窗体文件为sj3.frm。在名为Form1的窗体上有一个命令按钮,其名称为Commandl,标题为“添加”;有一个文本框,名为Textl,初始内容为空白;此外还有一个列表框,其名称为Listl。程序运
(1)在考生文件夹中有一个工程文件sj3.vbp,相应的窗体文件为sj3.frm。在名为Form1的窗体上有一个命令按钮,其名称为Commandl,标题为“添加”;有一个文本框,名为Textl,初始内容为空白;此外还有一个列表框,其名称为Listl。程序运
admin
2009-03-26
46
问题
(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全国计算机二级
相关试题推荐
通过实现Runnable接口创建线程,请在画线处加入正确的代码完成此程序【】。publicclassThreadTest{publicstaticvoidmain(Stringargs[]){
在传递给实现了java.awt.event.MouseMotionListener接口的类中,mouseDragged()方法的事件对象是【】类。
在面向对象的程序设计中,下列叙述中错误的是
在数据管理技术的发展过程中,经历了人工管理阶段、文件系统阶段和数据库系统阶段。其中数据独立性最高的阶段是()
在AWT组件中,【】类可以实现带标题和边界的窗口,通常用于接收用户附加信息或发布通知,它是Window类的子类。
设有如下关系表:则下列操作中正确的是()。
赋值表达式是由位于赋值运算符左边的变量和右边的【】组成。
关于文件名的处理中,测试当前文件是否目录用【】函数。
Char类型的取值范围是()。
int类型的取值范围为
随机试题
一个计算单元内配置的灭火器数量应少于2具。()
赵某系某啤酒厂的职工,2010年劳动节,该啤酒厂给每位职工发放了5箱本厂生产的某品牌的啤酒。放假期间,赵某邀请自己的几个老友到家里小聚。席间朋友们开怀畅饮,可是在赵某打开一瓶啤酒的盖子时,酒瓶突然发生了爆炸,导致赵某和几位朋友受伤,住院花去了大笔的医疗费用
无支护基坑的坑壁形式分为()。
【背景资料】某施工单位承担一机电工程项目安装任务。由于大型吊装的设备多,开工之前施工单位编制了施工方案并经批准,提交了施工进度网络计划,如图所示。在上述计划中,工序E与工序G共用一台200t履带吊车作业(其他工作不使用),E、G两工序不能同时或交
下列四项中,合法的IP地址是()。
如今被冠之为“文学作品”的文字急剧增加,文学分辨任务更加_______,文学批评界_______的不是理论建构,不是从理论角度对创作进行评价,而是需要对作品进行过滤、分拣和认证,为_______文坛风气、为催生更多的优秀作品、为民族文化积淀尽到应有的责任。
Muchoftheboy’sfreetime______theInternet.
可以作为窗体记录源的是
Isabelhasturneddowntwojoboffersinthepastyear.In2006,shestartedherownconsultingpractice,butby2008,mostofh
Isthat6a.m.workoutgettinginthewayofgoodsleep?Don’tthinkyourfatcellswon’tnotice.AnewstudypublishedinThe
最新回复
(
0
)