VB问题啊!!!求助,2个VB题啊!!!

来源：百度知道 编辑：UC知道 时间：2024/06/04 19:41:19
1. 编制事件过程Command1_Click，执行该过程时输入n，并计算下列表达式的值，然后将计算结果在文本框控件Text1中显示。

2. x1、y1已声明为模块级变量，鼠标按下的事件过程如下：
Private Sub Pic1_MouseDown(Button As Integer, Shift As Integer, _
X As Single, Y As Single)
x1 = x : y1 = y
End Sub
编制事件过程Pic1_MouseUp，使得在图片框控件Pic1上拖动鼠标后，绘制出一个矩形。鼠标按下、抬起的位置分别为矩形斜对角线的顶点，矩形轮廓线为红色，矩形内部填充色为绿色。

'要在form1中加上4个text，然后隐藏

Private Sub Form_Load()

Text1.Visible = False
Text2.Visible = False
Text3.Visible = False
Text4.Visible = False
End Sub

Private Sub picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Text1.Text = X
Text2.Text = Y

End Sub

Private Sub picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)

Text3.Text = X
Text4.Text = Y
If (Val(Text4.Text) - Val(Text2.Text)) < 0 Or (Val(Text3.Text) - Val(Text1.Text)) < 0 Then
MsgBox "请用正确方向选择", vbOKOnly, "错误"
End
End If

Picture1.Line (Val(Text1.Text), Val(Text2.Text))-(Val(Text3.Text), Val(Text4.Text)), vbRed, B
Picture1.Line (Val(Text1.Text) + 10, Val(Text2.Text) + 10)-(Val(Text3.Text) - 10, Val(Text4.Text) - 10), vbGreen, BF
End Sub
'有些地方要加以改正

Private Sub Command1_Click()
Dim a, b, c,