设为首页收藏本站
开启辅助访问 切换到窄版
搜索
第一问答网»论坛 › 中问网 › 问答 › vb输入矩形长和宽输出矩形面积

vb输入矩形长和宽输出矩形面积

[复制链接]
查看11 | 回复5 | 2016-12-2 00:43:26 | 显示全部楼层 |阅读模式
Private Sub Command1_Click()chang = Val(InputBox("矩形长="))kuan = Val(InputBox("矩形宽="))MsgBox "矩形面积是" & chang * kuanchang = Val(Text1)kuan = Val(Text2)Print "面积是" & chang * kuanEnd Sub...
回复

使用道具 举报

千问 | 2016-12-2 00:43:26 | 显示全部楼层
Private Sub Command1_Click()a = Text1.Textb = Text2.TextPrint "矩形面积为：" & a * bEnd SubPrivate Sub Command2_Click()a = InputBox("请输入长：")b = InputBox("请输入宽：")MsgBox ...
回复

使用道具 举报

千问 | 2016-12-2 00:43:26 | 显示全部楼层
法一：L = Val(Text1.text)W = Val(Text2.text)S=L*WPrint "面积是" & SEnd Sub 二：Private Sub Command1_Click()L = Val(InputBox("长:"))W = Val(InputBox("宽:"))S=L * WMsgB...
回复

使用道具 举报

千问 | 2016-12-2 00:43:26 | 显示全部楼层
Private Sub Command1_Click()a = Val(InputBox("长"))b = Val(InputBox("宽"))MsgBox "面积是" & a*bEnd Sub Private Sub Command1_Click()a= Val(Text1.text)b= Val(Text2.text)...
回复

使用道具 举报

千问 | 2016-12-2 00:43:26 | 显示全部楼层
Private Sub Command1_Click()Dim A As Single, B As Single, S As SingleA = Val(Text1.Text): B = Val(Text2.Text)S = A * BText3.Text = SEnd Sub...
回复

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

千问

主题

0

回帖

4882万

积分

论坛元老

Rank: 8Rank: 8

积分
48824836
回复楼主 返回列表
热门排行