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

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


相关文章:
vb 程序填空
() Dim a As Double, i As Integer, year As Integer a = 1300000000# While a <= 2000000000# a = a * (1 + 0.01) Wend year = Log(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....
《Visual Basic程序设计》第06章在线测试
《Visual Basic 程序设计》第 06 章在线测试第一题、单项选择题(每题1分,5道题共5分) 1、1.用 dim a(-10 to 10,5)定义的数组,元素个数是___。 A、...
天正建筑图层中各英文字母各代表什么图层
一般制图分层 A.墙体层(WALL) B.家具层(FURNITURE) C.填充层 D.窗层(WINDOW) E.布置层 F.尺寸层(DIM) G.文字层(TEXT) H.轴线层(DOTE) I.轴线标注层...
VB课后部分习题答案
Private Sub cmdend_Click() End End Sub Private Sub cmdstart_Click() Dim n As Integer, i As Integer, j As Integer, p As Integer Dim a(200) As...
程序填空
'--- 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() As Single,以下重新...
在窗体的通用声明处有语句Dim a() As Single,以下重新定义数组的语句中,正确的是___ A.ReDim a(3,3):ReDim a(3,4) As DoubleB.ReDim...
...体变量的是 A.Dim a As DoubleB.Dim_答案_百度高考
下列对变量的定义中,不能定义a为变体变量的是 A.Dim a As DoubleB.Dim a As VariantC.Dim aD.a=24_答案解析_2016年_一模/二模/三模/联考_图文_百度高考
下面的数组声明语句中( )是正确的。 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 解析 暂无解析 ...
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)...
更多相关标签:
dim | dim a as integer | array | dim a as | dim a as single | dim a as string | dim a as long | dim a b as integer |