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

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


赞助商链接
相关文章:
默认情况下,下面声明的数组的元素个数是( ) Dim a(5,-2...
默认情况下,下面声明的数组的元素个数是( ) Dim a(5,-2 to 2) A.20B.24C.25D.30_答案解析_2016年_一模/二模/三模/联考_图文_百度高考
...现编写以下程序: Option Base 0 Dim a()_答案_百度高考...
窗体上有Command1、Command2两个命令按钮。现编写以下程序: Option Base 0 Dim a()As Integer,m As Integer Private Sub Command1 Click() m=InputBox("请...
...Command1_Click() Dim a As Integer,_答案_百度高考
某人编写了下面的程序: Private Sub Command1_Click() Dim a As Integer,b As Integer a=InputBox("请输入整数") b=InputBox("请输入整数") pro a pro ...
下列程序执行后,其输出结果为( )。 Dim a(5) For i=0 T...
Dim a(5) For i=0 To 4 a(i)=i+1 m=i+1 If m=3 Then a(m-1)=a(i-2)Else a(m)=a(i) If i=2 Then a(i-1)=a(m-3) ...
下列程序执行后,变量a的值为( )。 Dim a,b,c,d As Sing...
下列程序执行后,变量a的值为( )。 Dim a,b,c,d As Single...程序段中包括3条选择语句,其作用分别为:如果a小于b那么交换a和b,如果a小于c...
程序填空例子
以下程序段用于实现矩阵转置,即将一个 n×m 的矩阵的行和列互换 Private Sub Form_Click() Const n = 3 Const m = 4 Dim a(n, m) As Integer, b(m...
设有变量声明为“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 a(~1 To 5)As Boole...
Dim a(~1 To 5)As Boolean Dim flag As Boolean flag=False Dim i As Integer Dim j As Integer Do Until flag=True For i=-1 To 5 j=j+1 ...
下列程序执行后,变量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语句,条件不成立...
...( ) 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_答案解析_...
更多相关标签: