我因为最近在研究VB，所以好多都不知道做了，所以只有找编程论坛，清帮帮忙吧！
设计一个应用程序，界面为：左边从上到下三个标签lanel1-3分别为“请输入分子：”“请输入分母：”“化简后分数为：”。中间从上到下分别为Text1,Text2,Label4,三者初始状态为空。右边从上到下是Command1-3分别为“计算”“清除”“结束”。

完全按照你上面的意思写的:


Private Sub Command1_Click() '计算
If Val(Text1.Text) Mod Val(Text2.Text) = 0 Then
Text3.Text = Val(Text1.Text) / Val(Text2.Text)
ElseIf Val(Text2.Text) Mod Val(Text1.Text) = 0 Then
Text4.Text = Val(Text2.Text) / Val(Text2.Text) & "/" & Val(Text2.Text) / Val(Text1.Text)
Else
Text4.Text = Text1.Text & "/" & Text2.Text

End If

End Sub

Private Sub Command2_Click() '清除
Text1.Text = ""
Text2.Text = ""
Text4.Text = ""
End Sub

Private Sub Command3_Click() '结束
Unload Me
End Sub

Private Sub Form_Load()
Text1.Text = ""
Text2.Text = ""
Text4.Text = ""
Lanel1.Caption = "请输入分子:"
Lanel2.Caption = "请输入分母:"
Lanel3.Caption = "化简后分数为:"
End Sub

Private Sub Command1_Click() '计算
Dim z, m, min As Integer
z = Val(Text1.Text)
m = Val(Text2.Text)
If m <> 0 Then
If z <> m Then
If z > m Then
min = m
ElseIf z = m Then
Label4.Caption = "1"
Else
min = z
End If
For i = 2 To min
If z Mod i = 0 And m Mod i = 0 Then
z = z / i
m = m / i
ElseIf z Mod m = 0 Then
Label4.Caption = z / m
Exit For
End If
Next i
Label4.Caption = Str(z) & "/" & Str(m)
Else
Label4.Caption = "1"
End If
Else
MsgBox "分母不能为0"
End If
End Sub

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

Private Sub Command3_Click() '结束
Unload Me
End Sub

Private Sub Form_Load()
Text1.Text = ""
Text2.Text = ""
Label4.Caption = ""
Label1.Caption = "请输入分子:"
Label2.Caption = "请输入分母:"
Label3.Caption = "化简后分数为:"
End Sub
定的有点乱，对于错误判断方面我就不写了（像不能输入非数值数据等其它用户有可能输入的一些错误进行说明），LZ自己加就OK。如果有什么地方不对的话还请高手指点。

我一定要好好学习,将来也能去帮助别人

4楼,先给我个大体框架.才好帮你做.

第九行的 elseif z=m then 根本就可以不要，因为上面已经有 if z<>m then 了