3个回答
2013-09-16
展开全部
在窗体上添加3个Label(标签)控件, 3个TextBox(文本框)控件和3个CommandButton(按钮)控件
然后设置Label1的Caption属性为R1, Label2的Caption属性为R2, Label3的为R
设置Command1的Caption属性为 计算, Command2的为 清除, Command3的为 退出
设置Text1, Text2和Text3的Text属性为空(直接把原先内容删了即可)
设置Text3的Locked属性为True, 设置BackColor属性为窗口背景颜色(自己在列表里找)
剩下就是控件位置调整,这个自己看着调整就行.
然后设置Label1的Caption属性为R1, Label2的Caption属性为R2, Label3的为R
设置Command1的Caption属性为 计算, Command2的为 清除, Command3的为 退出
设置Text1, Text2和Text3的Text属性为空(直接把原先内容删了即可)
设置Text3的Locked属性为True, 设置BackColor属性为窗口背景颜色(自己在列表里找)
剩下就是控件位置调整,这个自己看着调整就行.
2013-09-16
展开全部
上来建四个label(标签),两个textbox(文本框) ,三个命令按钮(command)
代码如下:
Dim R1 As Integer, R2 As Integer
Private Sub Command1_Click()
R1 = Val(Text1.Text)
R2 = Val(Text2.Text)
r = (R1 * R2) / (R1 + R2)
Label4.Caption = r
End Sub
Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Label4.Caption = ""
End Sub
Private Sub Command3_Click()
End
End Sub
代码如下:
Dim R1 As Integer, R2 As Integer
Private Sub Command1_Click()
R1 = Val(Text1.Text)
R2 = Val(Text2.Text)
r = (R1 * R2) / (R1 + R2)
Label4.Caption = r
End Sub
Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Label4.Caption = ""
End Sub
Private Sub Command3_Click()
End
End Sub
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
2013-09-16
展开全部
直接拖撒。。。很快滴
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询