VB上机题:设计程序,在窗体上建5个文本框和一个命令按钮

2025-01-01 04:44:35
推荐回答(2个)
回答1:

按纽中的程序如下:

 

 dim maxNum as Double

 

 maxNum=Val(Text1)

 If maxNum

 If maxNum

 If maxNum

 

 Text5=Str(maxNum)

可以下载附件中的Form12 源程序...

回答2:

Private Sub Command1_Click()
Dim A, B As Double
If Val(Me.Text1.Text) - Val(Me.Text2) > 0 Then
A = Me.Text1
Else
A = Me.Text2.Text
End If
If Val(Me.Text3.Text) - Val(Me.Text4) > 0 Then
B = Me.Text3
Else
B = Me.Text4.Text
End If
If A - B > 0 Then
Me.Text5 = A
Else
Me.Text5.Text = B
End If

End Sub