岗位知识竞赛
单选题VB程序语句“Command1.Caption="三角形的面积"”中的Command1、Caption和"三角形的面积"分别代表（）。A 窗体、值、属性B 对象、方法、属性C 对象、属性、值D 属性、值、对象
题目
窗体、值、属性
对象、方法、属性
对象、属性、值
属性、值、对象
相似问题和答案
第1题：
以下是求三角形面积的程序：
PublicFunctionarea(x!,y!,z!)AsSingle
Dimc!
If(x+y>zAndx+z>yAndy+z>x) And (Abs(x-y))Then
c=1/2*(x+y+z)
area=Sqr(c*(c-x)*(c-y)*(c-z))
Else
MsgBox"你输入的三角形三边不符和三角形组成的条件，请重新输入三边"
EndIf
EndFunction
PrivateSubForm_Click()
Dima!,b!,c!
a=InputBox("输入a"):b=InputBox("输入b"):c=InputBox("输入c")
s1=area(a,b,c)
Print"三角形的面积=";s1
EndSub
以下说法正确的是( )
A.当程序运行时单击窗体后分别输入3，4和5，显示对话框"你输入的三角形三边不符和三角形
组成的条件，请重新输入三边"
B.当程序运行时单击窗体后分别输入3，4和5，输出显示三角形的面积=6
C.当程序运行时单击窗体后分别输入3，4和5，输出显示三角形的面积=6.5
D.以上说法都不正确
第2题：
编写程序，输入三角形的边长，求三角形的面积。
程序代码如下： SET TALK OFF CLEAR INPUT “请输入三角形第一边长值：” TO A INPUT“请输入三角形第二边长值：” TO B INPUT“请输入三角形第三边长值：” TO C S=(A+B+C)/2 AREA＝SQRT(S*(S—A)*(S—B)*(S—C)) ?“三角形面积= ”，AREA SET TALK ON RETURN
第3题：
中学生能够运用三角形面积公式计算三角形田地的面积．这是知识属于()．
A．陈述性知识
B．程序性知识
C．条件性知识
D．策略性知识
第4题：
/**/&a[i]/**/
/**/if（a[0]+a[1]>a[2]&&a[1]+a[2]>a[0]&&a[0]+a[2]>a[1]）/**/
第5题：
在窗体中有一个标签Labele，标题为“测试进行中”，有一个命令按钮Command1，事件代码如下：
Private Sub Command1_Click()
Labele.Caption=“标签”
End Sub
Private Sub Form_Load( )
Form.Caption=“举例”
Command1.Caption=“移动”
End Sub
打开窗体后单击命令按钮，屏幕显示( )。
A．
B．
C．
D．
解析：本题考查控件基本属性和事件的知识。在本题中，窗体开始运行时会首先执行Load事件，将窗体的标题设置为“举例”，命令按钮的标题设置为“移动”；单击命令按钮时会将标签的标题设置为“标签”。最后结果如选项D)所示。
第6题：
在销售量不变的情况下，如果保本点降低，则()。
A.亏损区的三角形面积有所扩大
B.亏损区的三角形面积有所缩小
C.盈利区的三角形面积有所缩小
D.盈利区的三角形面积有所扩大
第7题：
A：Form1.caption=“6欢迎使用VB”
B：Form1.caption=’ 6欢迎使用VB’
C: Form1.caption= 6欢迎使用VB
D: Form1.caption=” 6欢迎使用VB”
第8题：
执行( )语句，可使窗口的按钮Command1上显示“确定”。
A、 Command1.Show = "确定"
B、 Command1.Caption = "确定"
C、 Command1.Name = "确定"
D、 Command1.Visible = "确定"
第9题：
采用 C#语言及面向对象的方法，设计一个几何图形面积计算的程序，要求能够实现对
正三角形、圆形、正方形面积的计算。用户输入形状、边长（半径），程序出处形状的面
积。
第10题：
在窗体中添加了一个文本框和一个命令按钮(名称分别为Text1和Command1)，并编写了相应的事件过程。运行此窗体后，在文本框中输入一个字符，则命令按钮上的标题变为“Access模拟”。以下能实现上述操作的事件过程是( )。
A．Private Sub Command1_Click() Caption="Access模拟" End Sub
B．Private Sub Text1_Click() Command1.Caption="Access模拟" End Sub
C．Private Sub Command1_Change() Caption="Access模拟" End Sub
D．Private Sub Text1_Change() Command1.Caption="Access模拟" End Sub