使用VB语言,编写一程序,用于计算长方体表面积的程序。通过文本框输入长宽高,通过标签框显示表面积。界面如下图所示。
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
效果:
本回答被题主选为最佳回答 , 对您是否有帮助呢?解决 无用评论 打赏 举报
悬赏问题
- ¥15 求差集那个函数有问题,有无佬可以解决
- ¥15 【提问】基于Invest的水源涵养
- ¥20 微信网友居然可以通过vx号找到我绑的手机号
- ¥15 寻一个支付宝扫码远程授权登录的软件助手app
- ¥15 解riccati方程组
- ¥15 display:none;样式在嵌套结构中的已设置了display样式的元素上不起作用?
- ¥15 使用rabbitMQ 消息队列作为url源进行多线程爬取时,总有几个url没有处理的问题。
- ¥15 Ubuntu在安装序列比对软件STAR时出现报错如何解决
- ¥50 树莓派安卓APK系统签名
- ¥65 汇编语言除法溢出问题