首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在考生文件夹中有一个工程文件sj3.vbp,相应的窗体文件为sj3.frm。在名为Form1的窗体上有一个命令按钮,其名称为Commandl,标题为“添加”;有一个文本框,名为Textl,初始内容为空白;此外还有一个列表框,其名称为Listl。程序运
(1)在考生文件夹中有一个工程文件sj3.vbp,相应的窗体文件为sj3.frm。在名为Form1的窗体上有一个命令按钮,其名称为Commandl,标题为“添加”;有一个文本框,名为Textl,初始内容为空白;此外还有一个列表框,其名称为Listl。程序运
admin
2009-03-26
44
问题
(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全国计算机二级
相关试题推荐
执行下面的程序段后,变量k的值为()。intk=3,s[2];s[0]=k;k=s[1]*10;
在一个长度为n的线性表中插入一个元素,最坏情况下需要移动的数据元素数目为()。
下面OneFrame类创建了一个名为ThisisaFrame的窗口。importjava.awt.*;publicclassOneFrameextendsFrame{publicstaticvoid
数据库管理系统是位于【】之间的软件系统。
下列关于类、包和源文件的描述中,不正确的一项是()
下列常见的系统定义中的异常中,______是数组越界异常。
下列命令中,以下哪个命令能为远程对象生成stub和skeleton
Char类型的取值范围是()。
线程控制方法中,yield()的作用是()。
int类型的取值范围为
随机试题
感染
A______changeinpolicyisneededifrelationsareevertoimprove.
用于哌替啶中毒的解救药物是
含漱剂按给药途径和方法属于
案情:陈某因没有收入来源,以虚假身份证明骗领了一张信用卡,使用该卡从商场购物10余次,金额达3万余元,从未还款。(事实一)陈某为求职,要求制作假证的李某为其定制一份本科文凭。双方因价格发生争执,陈某恼羞成怒,长时间勒住李某脖子,致其窒息身亡。(事
简述账务处理模块与固定资产模块之间的联系。
甲公司根据合同约定向乙公司销售价值270万元建筑材料,乙公司向甲交付一张经丙公司承兑的商业汇票,该汇票距到期日尚有3个月。甲公司持有票据一个月后,因资金紧张,将其贴现给丁银行。丁银行在汇票到期日向丙公司提示付款时,遭拒付。丙公司拒付的理由是:乙公司来函告知
企业培训体系的子体系包括()。
根据下面材料回答下列问题。699万,这是教育部统计的2013年全国普通高校毕业生的人数,比2012年增加了19万,是2000年的6.5倍多,当时的毕业生总数为107万,由于就业形势严峻,这个夏天被称为“史上最难就业季”。今年就业形势可用“一增两减”概括
Globalizationisaphenomenonthathasbeenaffectingcountriesandsocietiesforseveraldecades,buttheoutlineoftheglobal
最新回复
(
0
)