VB高手，来一下。

答案:6 悬赏:50 手机版

解决时间 2021-04-29 03:28

提问者网友：斑駁影
2021-04-28 16:13

帮我做个长方形求面积的工程：

要求，利用子过程完成。

界面要：

最佳答案

五星知识达人网友：妄饮晩冬酒
2021-04-28 16:56

子工程：

Option Explicit
Dim s!
Sub a(ByVal m!, ByVal n!)
s = m * n
End Sub
Private Sub Command1_Click()
Call a(Text1, Text2)
Text3 = s
End Sub

Private Sub Command2_Click()
Text1 = ""
Text2 = ""
Text3 = ""
End Sub

全部回答

1楼网友：行雁书
2021-04-28 21:37

Sub a(x, y) End Sub Private Sub Command1_Click() x = Val(Text1) y = Val(Text2) Call a(x, y) s = x * y Label4.Caption = s End Sub

2楼网友：撞了怀
2021-04-28 20:59

这个很简单啊

private sub form1_load()

text1.text=""

text2.text=""

text3.text=""

end sub

private sub command1_click()

dim a as singer,b as singer,n as singer 'a 为长,b为款，n为面积，N也可以定义为双精度

a=val(text1.text) '将text1中的数据转换为数值赋值给a

b=val(text1.text) '将text2中的数据转换为数值赋值给B

n=a*b '将a和b的乘积赋值给n，也就是n=长*宽

text3.text=n '将计算结果赋值给text3

end sub

private sub command2_click()

end

end sub

3楼网友：风格不统一
2021-04-28 19:46

Private Sub Command1_Click() '确定 Label4.Caption = Val(Text1.Text) * Val(Text2.Text) End Sub

Private Sub Command2_Click() '清空 Text1.Text = "" Text2.Text = "" Label4.Caption = "" End Sub

欢迎加我的QQ：9986666@qq.tm 一起交流以，答案是110

4楼网友：神也偏爱
2021-04-28 19:19

Private Sub Command1_Click() Label4.Caption = Val(Text1.Text) * Val(Text2.Text) End Sub Private Sub Command2_Click() Text1.Text = "" Text2.Text = "" Label4.Caption = "" End Sub 就这样，要是不行再说。

5楼网友：空山清雨
2021-04-28 18:11

Private Sub Command1_Click() Dim a As Integer Dim b As Integer a = Text1.Text b = Text2.Text Text1.Text = "" Text2.Text = "" Text3.Text = a * b

End Sub

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

//这是代码界面就和你那个一样

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息