癸水与辛金:简单的表单设计题，关于求和，求积

来源：百度文库编辑：高校问答时间：2024/05/08 05:06:04

1.设计表单要求实现：分别在TEXT1和TEXT2中输入数值，单击“求和”，两数值之和显示在TEXT3中；单击“求积”，两数值之积显示在TEXT3中（如果输入的任意一个操作数大于1000，则表单标题变为“输入数值太大”）。

'求和
Private Sub Command1_Click()
If Trim(Text1.Text) = "" Then Exit Sub
If Not IsNumeric(Trim(Text1.Text)) Then Exit Sub
If Val(Trim(Text1.Text)) > 1000 Then
Me.Caption = "输入数值太大"
Exit Sub
End If

If Trim(Text2.Text) = "" Then Exit Sub
If Not IsNumeric(Trim(Text2.Text)) Then Exit Sub
If Val(Trim(Text2.Text)) > 1000 Then
Me.Caption = "输入数值太大"
Exit Sub
End If

Text3.Text = CStr(Val(Trim(Text1.Text)) + Val(Trim(Text2.Text)))
End Sub

'求积
Private Sub Command2_Click()
If Trim(Text1.Text) = "" Then Exit Sub
If Not IsNumeric(Trim(Text1.Text)) Then Exit Sub
If Val(Trim(Text1.Text)) > 1000 Then
Me.Caption = "输入数值太大"
Exit Sub
End If

If Trim(Text2.Text) = "" Then Exit Sub
If Not IsNumeric(Trim(Text2.Text)) Then Exit Sub
If Val(Trim(Text2.Text)) > 1000 Then
Me.Caption = "输入数值太大"
Exit Sub
End If

Text3.Text = CStr(Val(Trim(Text1.Text)) * Val(Trim(Text2.Text)))
End Sub

简单的表单设计题，关于求和，求积简单的求和题各位编程高手请教啦！！！一道简单的表单设计题！简单的求和题（拜托了）（网页设计）关于检测表单的问题求CAD的简单设计一份关于excel的求和问题求infopath视频课程：沟通信息的桥梁——InfoPath电子表单设计与发布一个简单的提交表单的问题怎么制作简单的提交表单