7*24 工作者 2021-10-19 11:45 采纳率: 50%
浏览 55
已结题

编写一程序,用于计算长方体表面积的程序。通过文本框输入长宽高,通过标签框显示表面积。

使用VB语言,编写一程序,用于计算长方体表面积的程序。通过文本框输入长宽高,通过标签框显示表面积。界面如下图所示。

img

  • 写回答

1条回答 默认 最新

  • XingyuZhao-MSFT 2021-10-20 10:56
    关注

    参考以下代码:

        Private Sub CalculateBtn_Click(sender As Object, e As EventArgs) Handles CalculateBtn.Click
            Dim length As Double
            Dim width As Double
            Dim height As Double
            Try
                length = Convert.ToDouble(txtLength.Text.Trim)
                width = Convert.ToDouble(txtWidth.Text.Trim)
                height = Convert.ToDouble(txtHeight.Text.Trim)
            Catch ex As Exception
                MessageBox.Show("请输入正确的长宽高")
            End Try
    
            lblSurfaceArea.Text = "长方体的表面积是:" & (length * width + length * height + width * height) * 2
        End Sub
    
        Private Sub ClearBtn_Click(sender As Object, e As EventArgs) Handles ClearBtn.Click
            txtLength.Text = ""
            txtWidth.Text = ""
            txtHeight.Text = ""
            lblSurfaceArea.Text = "长方体的表面积是:"
        End Sub
    
        Private Sub QuitBtn_Click(sender As Object, e As EventArgs) Handles QuitBtn.Click
            Application.Exit()
        End Sub
    

    效果:

    img

    本回答被题主选为最佳回答 , 对您是否有帮助呢?
    评论

报告相同问题?

问题事件

  • 系统已结题 10月28日
  • 已采纳回答 10月20日
  • 创建了问题 10月19日

悬赏问题

  • ¥15 求差集那个函数有问题,有无佬可以解决
  • ¥15 【提问】基于Invest的水源涵养
  • ¥20 微信网友居然可以通过vx号找到我绑的手机号
  • ¥15 寻一个支付宝扫码远程授权登录的软件助手app
  • ¥15 解riccati方程组
  • ¥15 display:none;样式在嵌套结构中的已设置了display样式的元素上不起作用?
  • ¥15 使用rabbitMQ 消息队列作为url源进行多线程爬取时,总有几个url没有处理的问题。
  • ¥15 Ubuntu在安装序列比对软件STAR时出现报错如何解决
  • ¥50 树莓派安卓APK系统签名
  • ¥65 汇编语言除法溢出问题