vb 用*画三角形

vb 用*画三角形,第1张

Dim i%

Private Sub Command1_Click()

MeCls

Call star(10)

End Sub

Sub star(starno%)

' 正三角型

For i = 1 To starno

Print Space(starno - i) & String((i) 2 - 1, "")

Next i

' 倒三角型

For i = starno - 1 To 1 Step -1

Print Space(starno - i) & String((i) 2 - 1, "")

Next i

End Sub

有几个地方要注意:

1、VB中的三角函数的角度全部是用弧度制表示的,如果是度数的话,应先乘以180再除以π转成弧度,再用函数计算结果。

2、VB中直接支持的三角函数有:Sin()、Cos()、Tan(),如果涉及到其它三角函数,可以从下面列出的代码中自己选择相应的函数:

Function

Sec(X)

As

Double

'正割

Sec

=

1

/

Cos(Angle)

End

Function

Function

Csc(X)

As

Double

'余割

Csc

=

1

/

Sin(Angle)

End

Function

Function

Cot(X)

As

Double

'余切

Cot

=

1

/

Tan(Angle)

End

Function

Function

ArcSin(X)

As

Double

'反正弦

ArcSin

=

Atn(X

/

Sqr(-X

X

+

1))

End

Function

Function

ArcCos(X)

As

Double

'反余弦

ArcCos

=

Atn(-X

/

Sqr(-X

X

+

1))

+

2

Atn(1)

End

Function

Function

ArcSec(X)

As

Double

'反正割

ArcSec

=

Atn(X

/

Sqr(X

X

-

1))

+

Sgn((X)

-

1)

(2

Atn(1))

End

Function

Function

ArcCsc(X)

As

Double

'反余割

ArcCsc

=

Atn(X

/

Sqr(X

X

-

1))

+

(Sgn(X)

-

1)

(2

Atn(1))

End

Function

Function

ArcCot(X)

As

Double

'反余切

ArcCot

=

Atn(X)

+

2

Atn(1)

End

Function

Function

HSin(X)

As

Double

'双曲正弦

HSin

=

(Exp(X)

-

Exp(-X))

/

2

End

Function

Function

HCos(X)

As

Double

'双曲余弦

HCos

=

(Exp(X)

+

Exp(-X))

/

2

End

Function

Function

HTan(X)

As

Double

'双曲正切

HTan

=

(Exp(X)

-

Exp(-X))

/

(Exp(X)

+

Exp(-X))

End

Function

Function

HSec(X)

As

Double

'双曲正割

HSec

=

2

/

(Exp(X)

+

Exp(-X))

End

Function

Function

HCsc(X)

As

Double

'双曲余割

HCsc

=

2

/

(Exp(X)

-

Exp(-X))

End

Function

Function

HCot(X)

As

Double

'双曲余切

HCot

=

(Exp(X)

+

Exp(-X))

/

(Exp(X)

-

Exp(-X))

End

Function

Function

HArcsin(X)

As

Double

'反双曲正弦

HArcsin

=

Log(X

+

Sqr(X

X

+

1))

End

Function

Function

HArccos(X)

As

Double

'反双曲余弦

HArccos

=

Log(X

+

Sqr(X

X

-

1))

End

Function

Function

HArctan(X)

As

Double

'反双曲正切

HArctan

=

Log((1

+

X)

/

(1

-

X))

/

2

End

Function

Function

HArcsec(X)

As

Double

'反双曲正割

HArcsec

=

Log((Sqr(-X

X

+

1)

+

1)

/

X)

End

Function

Function

HArccsc(X)

As

Double

'反双曲余割

HArccsc

=

Log((Sgn(X)

Sqr(X

X

+

1)

+

1)

/

X)

End

Function

Function

HArccot(X)

As

Double

'反双曲余切

HArccot

=

Log((X

+

1)

/

(X

-

1))

/

2

End

Function

Private Sub Form_click()

n= inputbox("输入整数n:")

Dim shuzuer() As Long

Dim shuzu() As Integer

Dim i As Integer

Dim j As Integer

reDim shuzuer(1 To n, 1 To n)

reDim shuzu(1 To n)

MeCls

i = 1

j = 1

For i = LBound(shuzuer, 1) To UBound(shuzuer, 1)

For j = LBound(shuzuer, 2) To i

If j = 1 Or j = i Then

shuzuer(i, j) = 1

Else

shuzuer(i, j) = shuzuer(i - 1, j - 1) + shuzuer(i - 1, j) '要打印的数值

End If

Print Tab(5 (UBound(shuzuer, 1) - 1) - 5 (i - 1) + 10 (j - 1)); shuzuer(i, j); '打印成三角形状

Next

Print

Next

End Sub

以上就是关于vb 用*画三角形全部的内容,包括:vb 用*画三角形、在vb中。如何进行三角函数的程序代码编写、编写VB程序,要求输入以下的杨辉三角形(要求输入10行)1 11 121 1331 14641 15101051 急急急急急急!!!!等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!

欢迎分享,转载请注明来源:内存溢出

原文地址: https://outofmemory.cn/zz/9291641.html

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2023-04-26
下一篇 2023-04-26

发表评论

登录后才能评论

评论列表(0条)

保存