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

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年_一模/二模/三模/联考_图文_百度高考
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....
《Visual Basic程序设计》第06章在线测试
《Visual Basic 程序设计》第 06 章在线测试第一题、单项选择题(每题1分,5道题共5分) 1、1.用 dim a(-10 to 10,5)定义的数组,元素个数是___。 A、...
第七章习题解答
习题七(P143) 一.选择题 1.语句 Dim a(3,4,5)定义的数组中所包含的数组元素的个数是 。 (A)12 (B)60 (C)120 (D)345 2.设有数组声明语句: ...
在窗体的通用声明处有语句Dim a() As Single,以下重新...
在窗体的通用声明处有语句Dim a() As Single,以下重新定义数组的语句中,正确的是___ A.ReDim a(3,3):ReDim a(3,4) As DoubleB.ReDim...
程序填空
'--- 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)...
计算机二级考试VB上机题级答案
Dim a() as long Private sub command1-cli ck() Dim i as integer,n as integer,f as boolean Dim strt as string,x as string,st as string Strt =...
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)...
下面的数组声明语句中( )是正确的。 A.Dim A[3,4]As In...
A.Dim A[3,4]As IntegerB.Dim A(3,4)As IntegerC.Dim A[3;4]As IntegerD.Dim A[3;4]As Integer正确答案及相关解析 正确答案 B 解析 暂无解析 ...
天正建筑图层中各英文字母各代表什么图层
_DIM 3 CONTINUOUS 尺寸标注 标高 DIM_ELEV 3 CONTINUOUS 标高标注 坐标 DIM_...一般制图分层 A.墙体层(WALL) B.家具层(FURNITURE) C.填充层 D.窗层(...
更多相关标签: