免费网络电话

※ 网站首页 ∣ 考试新闻 ∣ 考试向导 ∣ 试题中心 ∣ 下载中心 ∣ 考试书店 ∣ 网上查分 ∣ 在线测试 ∣ 考试论坛 ※
  论坛首页 → 计算机等级考试(二级) → 二级VB → 求解一道VB程序题
发表新的主题 发起新的投票 发起新的交易 回复话题
New Page 1
标题:求解一道VB程序题
我爱考试
等级:社区游民
权限:普通用户
积分:6
发帖数:3
注册时间:2006-7-29
收藏 编辑 删除 楼主

　

给定三角形的3条边长，计算三角形的面积。

编写程序，首先判断给出的3条边能否构成三角形，如可以构成，则计算并输出该三角形的面积，否则要求重新输入。

当输入-1时结束程序。

　

2006-8-1 9:50:58IP: 保密
  netvan
  等级:骑士
  权限:管理员
  积分:294
  发帖数:176
  注册时间:2006-7-28
 编辑 删除 引用   第2楼 
Dim a, b, c, s, l As Double
a = CLng(Trim(Text1.Text))
b = CLng(Trim(Text2.Text))
c = CLng(Trim(Text3.Text))
If a + b <= c Or a + c <= b Or b + c <= a Then
 Text4.Text = "对不起，您输入的数据不能组成三角形"
Else
 l = (a + b + c) / 2
 s = Sqr(l * (l - a) * (l - b) * (l - c))
 Text4.Text = "该三角形的面积为：" & s
End If
2006-8-1 9:52:26IP:保密 
  孤沙
  等级:社区游民
  权限:版主
  积分:9
  发帖数:9
  注册时间:2006-10-29
 编辑 删除 引用   第3楼 

Private Sub Command1_Click()
 Dim a As Single, b As Single, c As Single, p As Single, k As Single
  a = Text1.Text
  b = Text2.Text
  c = Text3.Text
   If a + b <= c Or a + c <= b Or b + c <= a Or a - c >= b Or a - b >= c Or c - b >= a Then
     MsgBox "不能构成三角形"
     Text1.Text = ""
     Text2.Text = ""
     Text3.Text = ""
    
   End If
 
   p = 1 / 2 * (a + b + c)
   k = p * (p - a) * (p - b) * (p - c)
   k = Sqr(k)
   Text4.Text = k
End Sub

Private Sub Form_Load()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
End Sub

按此在新窗口浏览图片

2006-10-29 22:41:22IP:保密 
  jll619
  等级:社区游民
  权限:普通用户
  积分:1
  发帖数:1
  注册时间:2006-11-1
 编辑 删除 引用   第4楼 
 怎样学习VB啊！一点都不点学不懂了
2006-11-1 9:01:12IP:保密 
  孤沙
  等级:社区游民
  权限:版主
  积分:9
  发帖数:9
  注册时间:2006-10-29
 编辑 删除 引用   第5楼 

多多上机操作啊！

什么事都是多干自然就熟悉了！

呵呵 ！~~~！！

按此在新窗口浏览图片

2006-11-1 12:27:37IP:保密 
  yake139134
  等级:社区游民
  权限:普通用户
  积分:1
  发帖数:1
  注册时间:2006-11-7
 编辑 删除 引用   第6楼 

Private Sub Command1_Click()
 Dim a As Single, b As Single, c As Single, p As Single, k As Single
  a = Text1.Text
  b = Text2.Text
  c = Text3.Text
   If a+b>=c or b+c>=a or b+c>=aThen

  p = 1 / 2 * (a + b + c)
   k = p * (p - a) * (p - b) * (p - c)
   k = Sqr(k)
   Text4.Text = k

else
     MsgBox "不能构成三角形"
     Text1.Text = ""
     Text2.Text = ""
     Text3.Text = ""
    
   End If
   if a=-1 or b=- 1 or c= -1 then

          end sub

    end if 
  End Sub

 


T

2006-11-7 19:25:00IP:保密 
  xiaoping
  等级:社区游民
  权限:普通用户
  积分:1
  发帖数:1
  注册时间:2007-3-30
 编辑 删除 引用   第7楼 

一、    通过单击“数列一的值为：”按钮（Click），计算S=1x2x3+2x3x4+……nx(n+1)x(n+2)的值

二、    通过单击“数列二的值为：”按钮（Click），计算：

2007-3-30 9:14:57IP:保密 
  yanshenp
  等级:社区游民
  权限:普通用户
  积分:7
  发帖数:6
  注册时间:2007-5-29
 编辑 删除 引用   第8楼 
我也学会这道题了，谢谢哦！
2007-5-29 15:49:50IP:保密 
  likeming
  等级:社区游民
  权限:普通用户
  积分:1
  发帖数:1
  注册时间:2007-6-4
 编辑 删除 引用   第9楼 

大家好,我是新来的,,我是学计算机的,,VB这课对我来说是小KIS,,想问什么,,,问啊,,,,

2007-6-4 16:49:04IP:保密 
 快速回复
  • 支持UBB,HTML标签

  • 高级回复
    		•
    内容

    操作选项: 加精 解精 奖惩 设专题 设公告 解公告 固顶 总固顶 解固顶 结帖 解结帖 锁帖 解锁 移帖 删帖

     
    Copyright © 2006 计算机考试网