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

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(2,-3 to 2,4),则数组a包含元素...
如有数组声明语句Dim a(2,-3 to 2,4),则数组a包含元素的个数是___。 A.40 B.75 C.12 D.90 _答案解析_2016年_一模/二模/三模/联考_图文_...
VB单选题(第5章)
315 用语句 Dim A (-3 To 5) As Integer 定义的数组的元素个数是(). A) 6 B) 7 C) 8 D) 9 答案 D 316 若有数组说明语句为:Dim a(-3 to...
程序填空
' Private Sub Form_Click() Dim a(5, 5) As Byte, i As Byte, j As Byte For i = 1 To 5 For j = 1 To 6 - i '***FILL*** a(i, j...
《Visual Basic程序设计》第06章在线测试
《Visual Basic 程序设计》第 06 章在线测试第一题、单项选择题(每题1分,5道题共5分) 1、1.用 dim a(-10 to 10,5)定义的数组,元素个数是___。 A、...
...正确的是 A.Dim a As Variant a_答案_百度高考
以下定义数组或给数组元素赋值的语句中,正确的是 A.Dim a As Variant a=Array(1,2,3,4,5)B.Dim a(10) As Integera =Array(1,2,3,4,5)C.Dim a%...
程序填空
'--- Option Base 1 Private Sub Command1_Click() Dim a%(1 To 10), i%, k%, m% Print "原数列是"; For i = 1 To 9 a(i) = (i - 1)...
使用语句Dim A(1 To 10)As Integer声明数组A后,以下叙...
使用语句Dim A(1 To 10)As Integer声明数组A后,以下叙述正确的是( )。 A.A数组中的所有元素值为0B.A数组中的所有元素值不确定C.A数组中的所有元素值为...
Dim a As Integer
Dim a As Integer_数学_自然科学_专业资料。Dim a As Integer Dim b As Integer Dim c As Integer Dim d As Integer Dim e As Integer a = Val(Text1....
设有变量声明为“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...
vb课后练习答案习题解答 (5)
Private Sub Command1_Click() Dim a(1 To 5, 1 To 5) As Integer, i%, j% For i = 1 To 5 For j = 1 To 5 If i <= j Then a(i, j)...
更多相关标签: