首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
注意:下面出现的“考生文件夹”均为c:\wexam\25160001。 请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。 (1)在考生文件夹下有工程文件sjt3.vbp及窗体文件sjt3.frm,该程序是不完整的,
注意:下面出现的“考生文件夹”均为c:\wexam\25160001。 请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。 (1)在考生文件夹下有工程文件sjt3.vbp及窗体文件sjt3.frm,该程序是不完整的,
admin
2009-02-25
18
问题
注意:下面出现的“考生文件夹”均为c:\wexam\25160001。
请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
(1)在考生文件夹下有工程文件sjt3.vbp及窗体文件sjt3.frm,该程序是不完整的,请在有?号的地方填入正确内容,然后删除?及所有注释符(即’号)但不能修改其他部分。存盘时不得改变文件名和文件夹。
本题描述如下:
在窗体中有3个滚动条,名称分别为HScroll1、HScroll2和HScroll3,4个标签,名称分别为Label1、 Label2、Label3和Label4,Label1~Label3的Caption分别为“红”、“绿”和“蓝”:Label4用来显示颜色变化。要求程序运行后,标签Label4的颜色随着三种颜色滚动条的变化而变化。试在HScroll1、HScroll2和HScroll3中输入相应的代码以实现程序功能。如图9-4所示。
(2)在考生文件夹下有工程文件sjt4.vbp及窗体文件sjt4.frm,该程序是不完整的,请在有?号的地方填入正确内容,然后删除?及所有注释符(即’号)但不能修改其他部分。存盘时不得改变文件名和文件夹。
本题描述如下:
根据给定的图形的三边的边长来判断图形的类型。若为三角形则同时计算出为何种三角形,及三角形的周长和面积,程序运行界面如图9-5所示。要求完成“判断并计算”按钮的如下功能:
判断输入的条件是否为三角形,若是三角形则在Text1中显示“是三角形”;在Text2中显示是何种三角形:单击“清除再来”按钮可以将所有显示框清空,且按钮本身变为不可选取状态。当单击“判断并计算”之后重新恢复为可选状态。
附:三角形存在的条件为任一边不为0,且任两边之和大于第三边;若一边具有a^2+b^2=c^2,则为直角三角形:若所有边具有a^2+b^2>c^2,则为锐角三角形:若一边具有a^2+b^2<c^2,则为钝角三角形。
选项
答案
(1)程序中用到了RGB函数,该函数通过红、绿、蓝三基色产生某种颜色,语法为RGB(红,绿,蓝)函数,其中括号中的红、绿、蓝三基色的范围为0~255之间的整数。解题步骤: 第一步:编写程序代码。 程序提供的代码: Option Explicit Private Sub Command1_Click() End End Sub Private Sub Form_Load() ’Label4.BackColor = RGB( ?, HScroll2.Value, HScroll3.Value) End Sub Private Sub HScroll1_Change() ’Label4.? = RGB(HScrolll.Value, HScroll2.Value, HScroll3.Value) End Sub Private Sub HScroll2_Change() ’Label4.BackColor = ?(HScroll1.Value, HScroll2.Value, HScroll3.Value) End Sub Private Sub HScroll3_Change() ’? = RGB(HScrolll.Value, HScroll2.Value, HScroll3.Value) End Sub 参考代码: Option Explicit Private Sub Command1_Click() End End Sub Private Sub Form_Load() Label4.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value) End Sub Private Sub HScroll1_Change() Label4.BackColor = RGB(HScrolll.Value, HScroll2.Value, HScroll3.Value) End Sub Private Sub HScroll2_Change() Label4.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value) End Sub Private Sub HScroll3_Change() Label4.BackColor = RGB(HScrolll.Value, HScroll2.Value, HScroll3.Value) End Sub 第二步:调试并运行程序。 第三步:按题目要求存盘。 (2)该题用到两个函数和一个公式,Val()是将其内容转变为数字类型,Sqr()是求数值的平方根,而求解三角形的面积的时候用到海伦公式即 S=Sqr(p*(p-a)*(p-b)*(p-c)),其中a、b、c是三角形的三个边,p=(a+b+c)/2。 解题步骤: 第一步:编写程序代码。 程序提供的代码: 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 ? Then Textl.Text = "是三角形" ’If ? Then Text2.Text = "是直角三角形" Else ’If ? Then Text2.Text = "是锐角三角形" Else: Text2.Text = "是钝角三角形" End If End If Text3.Text = a + b + c ’计算三角形的周长 L = (a + b + c) / 2 Text4.Text = Sqr(L * (n - a) * (L - b)(L - c) ) ’计算三角形的面积 Else: Text1.Text = "非三角形" Text2.Text = "" Text3.Text = "" Text4.Text = "" End If Command2.Enabled = True End Sub Private Sub Command2 Click () ’此处需要设置,以实现清空所有文本框及使“清除再来”失效的功能 ’? End Sub Private Sub Command3_Click() End End Sub Private Sub Form_Load () Text1.Enabled = False Text2.Enabled = False Text3.Enabled = False Text4.Enabled = False Command2.Enabled = False End Sub 参考代码: Option Explicit Dim a As Single Dim b As Single Dim c As Single Dim S As Double Dim L As Single Private Sub Command1_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 Text1.Text = "是三角形" If a ^ 2 + b ^ 2 = c ^ 2 Or a ^ 2 + c ^ 2 = b ^ 2 Or b ^ 2 + c ^ 2 = a ^ 2 Then Text2.Text = "是直角三角形" Else If a ^ 2 +b ^ 2 > c ^ 2Anda ^ 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 Text1.Text = "非三角形" Text2.Text = "" Text3.Text = "" Text4.Text = "" End If Command2 .Enabled = True End Sub Private Sub Command2 Click() Text1.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() Text1.Enabled = False Text2.Enabled = False Text3.Enabled = False Text4.Enabled = False Command2.Enabled = False End Sub 第二步:调试并运行程序。 第三步:按题目要求存盘。
解析
转载请注明原文地址:https://kaotiyun.com/show/oQ1p777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
将整个软件划分成若干单独命名和可编址的部分,称之为【】。
在一个有n个元素的顺序表的第i个元素(1≤i≤n)之前插入一个新元素时,需要向后移动【】个元素。
有一个接口定义如下:interfaceA{intmethod1(inti);intmethod2(intj);}那么下面各项中实现了该接口并且不是抽象类的是()。
数据独立性分为逻辑独立性与物理独立性。当数据的存储结构改变时,其逻辑结构可以不变,所以,基于逻辑结构的应用程序不必修改,称为【】
下列程序的执行结果为()。publicclassc3{publicstaticvoidmain(Stringargs[]){inti=13,j=10;i
关于文件名的处理中,测试当前文件是否目录用【】函数。
在数据库管理技术的发展过程中,经历了人工管理阶段、文件系统阶段和数据库系统阶段。其中数据独立性最高的阶段是()。
在下面的代码段中填入一个适当的语句,表示从输入流中能读取对象(注:FileInputStream的形象为theTime)。FileInputStreamin=【】;ObjectInputStreams=ObjectInputStr
数据的存储结构包括顺序、______、索引和散列四种基本类型。
(1)在名称为Forml的窗体上画一个名称为Checkl的复选框数组,它含4个复选框,它们的标题依次为“Iteml”、“Item2”、“Item3”和“Item4”,其索引号分别为0,l,2,3。初始状态下,“Iteml”和“Item4”为选中状态。程序运
随机试题
庶富教
柽柳有十分发达的根系和很小的鳞片状叶,与此有关的主要生态因素是()
A.风湿热证B.热毒犯心证C.气阴两虚证D.心肝失调证E.心胆失调证
腹泻脱水患儿,如输液后出现乏力,腹胀,肠鸣音减弱,腱反射消失,心音低钝,应考虑()
有关规章的决定和公布,下列说法正确的是:(2014年卷二97题,不定项)
混流泵按结构型式分为()。
根据产品形态,金融衍生工具可分为()和嵌入式衍生工具两类。
小林因未戴游泳帽被拒绝进入深水池。小林出示深水合格证说:根据规定我可以进入深水池。游泳池的规定是:未戴泳帽者不得进入游泳池;只有持有深水合格证,才能进入深水池。小林最可能把游泳池的规定理解为:
基类的(42)在派生类中的性质和继承的性质一样,而基类的(43)在私有继承时在派生类中成为私有成员,在公有和保护继承时在派生类中仍为保护成员。
PassageTwoWhatdoes"this"inthelastsentenceofPara.11referto?
最新回复
(
0
)