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

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



相关文章:
下列程序执行后,变量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(-3 To ...
用下面语句定义的数组的元素个数是___ 。 Dim A(-3 To 5) As Integer A.6B.7C.8D.9_答案解析_2016年_一模/二模/三模/联考_图文_百度高考
设有如下变量声明语句: Dim a, b As Boolean 则下面叙...
设有如下变量声明语句: Dim a, b As Boolean 则下面叙述中正确的是( )。 A.a和b都是布尔型变量B.a是变体型变量,b是布尔型变量C.a是整型变量,b是布尔...
使用语句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 Single,以下重新...
在窗体的通用声明处有语句Dim a() As Single,以下重新定义数组的语句中,正确的是___ A.ReDim a(3,3):ReDim a(3,4) As DoubleB.ReDim...
设有如下语句: Dim a,b As Integer c="VisualBasic" d=...
设有如下语句: Dim a,b As Integer c="VisualBasic" d=#7/20/2005# 下列关于这段代码的叙述中,错误的是 A.a被定义为Integer类型变量B.b被定义为Integer...
...Private Sub Command1_Click( ) Dim a_答案_百度高考...
命令按钮Command1的单击事件过程如下: Private Sub Command1_Click( ) Dim a( 10, 10)As Integer x=0 For i = 1 To 3 For j = 1 To 3 a(i, j)...
下列数组声明语句中,正确的是___。 A.Dim a[3,4]As Int...
C.Dim a(n,n)As Integer D.Dim a[3,n]As Integer 正确答案及相关解析 正确答案 B 解析 [解析] 在VBA中数组声明的格式为:Dim数组名(维数定义)as类型...
以下叙述中错误的是【 】 A.语句"Dim a,b As Integer"...
以下叙述中错误的是【 】 A.语句"Dim a,b As Integer"声明了两个整型变量B.不能在标准模块中定义Static型变量C.窗体层变量必须先声明,后使用D.在事件过程或...
默认情况下,下面声明的数组的元素个数是( ) Dim a(5,-2...
默认情况下,下面声明的数组的元素个数是( ) Dim a(5,-2 to 2) A.20B.24C.25D.30_答案解析_2016年_一模/二模/三模/联考_图文_百度高考
更多相关标签: