当前位置:首页 >> 英语 >>

Dim a


Dim a%, b%, c%, t

Private Sub form_Click()

a = InputBox("请输入第一条边", "输入边长 ") b = InputBox("请输入第二条边", "输入边长") c = InputBox("请输入第三条边", "输入边长")

If ((a < b + c) And (b < a + c) And (c < a + b)) Then Text1 = a + b + c t = (1 / 2) * (a + b + c) Text2 = (t * (t - a) * (t - b) * (t - c)) ^ (1 / 2)

Else MsgBox "输入的三条边不能组成三角形!", 48, "警告" End If End


赞助商链接
相关文章:
...Command1_Click() Dim a As Integer,_答案_百度高考
某人编写了下面的程序: Private Sub Command1_Click() Dim a As Integer,b As Integer a=InputBox("请输入整数") b=InputBox("请输入整数") pro a pro ...
以下叙述中错误的是【 】 A.语句"Dim a,b As Integer"...
以下叙述中错误的是【 】 A.语句"Dim a,b As Integer"声明了两个整型变量B.不能在标准模块中定义Static型变量C.窗体层变量必须先声明,后使用D.在事件过程或...
下列程序执行后,变量a的值为( )。 Dim a,b,c,d As Sing...
下列程序执行后,变量a的值为( )。 Dim a,b,c,d As Single...程序段中包括3条选择语句,其作用分别为:如果a小于b那么交换a和b,如果a小于c...
使用语句Dim A(1 To 10)As Integer声明数组A后,以下叙...
使用语句Dim A(1 To 10)As Integer声明数组A后,以下叙述正确的是( )。 A.A数组中的所有元素值为0B.A数组中的所有元素值不确定C.A数组中的所有元素值为...
设有变量声明为“Dim aDate As Date”,则能为变量aDate...
设有变量声明为“Dim aDate As Date”,则能为变量aDate正确赋值的表达方式是( )。 A.aDate=#8/2008#B.aDate=#"8/8/2008"#C.aDate=Date("8/8/2008...
...( ) Dim i As Integer Dim a As Integer a=_答案_百度高考...
执行下列程序后,变量a的值为 ( ) Dim i As Integer Dim a As Integer a=0 For i=l To 100 Step 2 a=a+l Next i A.1B.10C.50D.100_答案解析_...
使用语句Dim A(1 To 10)As Integer声明数组A之后,以下...
使用语句Dim A(1 To 10)As Integer声明数组A之后,以下说法正确的是( )。 A.A数组中的所有元素值为0B.A数组中的所有元素值不确定C.A数组中的所有元素值为...
设有变量声明为“Dim aDate As Date”,则为变量aDate正...
设有变量声明为“Dim aDate As Date”,则为变量aDate正确赋值的表达方式是( )。 A.aDate=#8/2008#B.aDate=#"8/8/2008"#C.aDate=Date("8/8/2008"...
下列程序执行后,变量x的值为( )。 Dim a,b,c,d As Sing...
[解析] 程序操作过程如下: 程序首先执行If b>a Then语句,条件为真执行d=a:a=b:b=d语句,执行后d=10,a=30,b=10; 然后执行If b>c Then语句,条件不成立...
...中,不能定义a为变体变量的是 A.Dim a As D
下列对变量的定义中,不能定义a为变体变量的是 A.Dim a As D_高考_高中教育_教育专区。一、整体解读试卷紧扣教材和考试说明,从考生熟悉的基础知识入手,多角度...
更多相关标签: