第一题问的是书房占卧室的面积的比，就你书房除以面积，看你答案是分数还是小数自己除，第二题更简单问的是书房占整个房子的面积比，你把每个小方块的面积求和，用书房的面积除以总面积就好了

鞋厂胶水利润不是很高，但是量比较大，一般都会月结结款，所以压款数额也就不小了，最重要的是要懂技术，想搞个稍微像样一点的差不多50-100W吧

2*5/6

只看白色，1/6+1/6=1/3

Private Sub Command1_Click()
If IsNumeric(Text1.Text) And IsNumeric(Text2.Text) Then
If Val(Text1.Text) Then
Text3.Text = Val(Text1.Text) / Val(Text2.Text)
Text4.Text = Fix(Val(Text1.Text) / Val(TadFXtDQext2.Text)) 'int（）和fix（）都会删除小数部份而返回剩下的整数 ，对负数处理不日夏养花网同
Text5.Text = Val(Text1.Text) Mod Val(Text2.Text)
Else
MsgBox "除数为零！"
End If
Else
MsgBox "被除数或除数输入错误！"
End If
End Sub

不知道你“执行除法运算”是 命令按钮还是标签？是标签 改为Private Sub label1_Click()

'text1为被除数 text2为除数
Private Sub Command1_Click() '执行除法运算
text3 = Val(Text1.Text) / Val(Text2.Text) '商
text4 = Val(Text1.Text) \ Val(Text2.Text) '整数商
text5 = Val(Text1.Text) Mod Val(Text2.Text) '求余
End Sub

双击“执行除法运算”
Pwww.rixia.ccrivate Sub Command1_Click()
Text3.Text = Text1http://www.rixia.cc.Text / Text2.Text
Text4.Text = Text1.T日夏养花网ext \ Text2.Text
Text5.Text = Text1.Text Mod Text2.Text
End Sub