vb高手请进

Question

在名称为Form1的窗体上建立一个名称为p1的图片框和2个命令按钮，分别为Cmd1，Cmd2，标题分别为 ‘输出’，’清除‘，要求每单机一次输出按钮，不用任何变量直接在图片框中显示小写字母‘red’，单机清除则图片框的内容清除

Answer 1

函数
由基本函数导出之公式
Secant(正割)
Sec(X)
=
1
/
Cos(X)
Cosecant(余割)
Cosec(X)
=
1
/
Sin(X)
Cotangent(余切)
Cotan(X)
=
1
/
Tan(X)
Inverse
Sine
(反正弦)
Arcsin(X)
=
Atn(X
/
Sqr(-X
*
X
+
1))
Inverse
Cosine
(反余弦)
Arccos(X)
=
Atn(-X
/
Sqr(-X
*
X
+
1))
+
2
*
Atn(1)
Inverse
Secant
(反正割)
Arcsec(X)
=
Atn(X
/
Sqr(X
*
X
-
1))
+
Sgn((X)
-
1)
*
(2
*
Atn(1))
Inverse
Cosecant
(反余割)
Arccosec(X)
=
Atn(X
/
Sqr(X
*
X
-
1))
+
(Sgn(X)
-
1)
*
(2
*
Atn(1))
Inverse
Cotangent
(反余切)
Arccotan(X)
=
Atn(X)
+
2
*
Atn(1)
Hyperbolic
Sine
(双曲正弦)
HSin(X)
=
(Exp(X)
-
Exp(-X))
/
2
Hyperbolic
Cosine
(双曲余弦)
HCos(X)
=
(Exp(X)
+
Exp(-X))
/
2
Hyperbolic
Tangent
(双曲正切)
HTan(X)
=
(Exp(X)
-
Exp(-X))
/
(Exp(X)
+
Exp(-X))
Hyperbolic
Secant
(双曲正割)
HSec(X)
=
2
/
(Exp(X)
+
Exp(-X))
Hyperbolic
Cosecant(双曲余割)
HCosec(X)
=
2
/
(Exp(X)
-
Exp(-X))
Hyperbolic
Cotangent(双曲余切)
HCotan(X)
=
(Exp(X)
+
Exp(-X))
/
(Exp(X)
-
Exp(-X))
Inverse
Hyperbolic
Sine(反双曲正弦)
HArcsin(X)
=
Log(X
+
Sqr(X
*
X
+
1))
Inverse
Hyperbolic
Cosine(反双曲余弦)
HArccos(X)
=
Log(X
+
Sqr(X
*
X
-
1))
Inverse
Hyperbolic
Tangent(反双曲正切)
HArctan(X)
=
Log((1
+
X)
/
(1
-
X))
/
2
Inverse
Hyperbolic
Secant(反双曲正割)
HArcsec(X)
=
Log((Sqr(-X
*
X
+
1)
+
1)
/
X)
Inverse
Hyperbolic
Cosecant
HArccosec(X)
=
Log((Sgn(X)
*
Sqr(X
*
X
+
1)
+
1)
/
X)
Inverse
Hyperbolic
Cotangent
(反双曲余切)
HArccotan(X)
=
Log((X
+
1)
/
(X
-
1))
/
2
N
底对数
LogN(X)
=
Log(X)
/
Log(N)

Answer 2

Private Sub cmd1_Click() ''Click是单击事件
P1.Print "red" '这是在p1中输出 red
End Sub

Private Sub cmd2_Click() 'Click是单击事件
P1.Cls '这是清除p1中的所有内容
End Sub

Answer 3

Private Sub Cmd1_Click()
P1.Print "red" '每次单击输出后会换行
或
P1.Print "red"; '输出后不换行
End Sub

Private Sub Cmd2_Click()
P1.Cls
End Sub

Answer 4

Private Sub Cmd1_Click()
P1.Print "red"
End Sub

Private Sub Cmd2_Click()
P1.Cls
End Sub本回答被提问者采纳

Answer 5

Private Sub cmd1_Click()
P1.Print "red"
End Sub

Private Sub cmd2_Click()
P1.Cls
End Sub