VB怎么编写第一行输出A第二行输出 ABC第三行输出 ABCDE这样的字母三角形

Private Sub Command1_Click()

Dim i As Integer, j As Integer

For i = 1 To 10

Print String(10 - i, " ");

For j = 1 To 2 i - 1

Print Chr(64 + j);

Next

Print

Next

End Sub

Private Sub Picture1_Click()

Dim r%, c%, S$

For r = 1 To 10

For c = 1 To 2 r - 1

S = S & IIf(c Mod 2, "A", "B")

Next c

Picture1CurrentX = (Picture1ScaleWidth - TextWidth(S)) / 2

Picture1Print S

S = ""

Next r

End Sub

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

扩展资料：

Visual Basic 开发的程序只能运行在Microsoft Windows中；且运行时还需要 VB 运行库。

Visual Basic 不能很好的综合Windows的基础 API，很多时候要使用低级运算的“小伎俩”来进行编程。而C 语言的低级内存运算比 VB 的要简单得多。

VB语言作为计算机语言的入门，是很多学生学习编程的入门级语言，大学生利用VB语言开始了他们学习计算机的世界。

Visual Basic的强大在于能够快速开发企业级软件，使程序员有更多的时间和精力考虑用户的需求，生产出满足用户需要的软件，特别适合大型企业级软件的开发，比如MIS、MRP、MRP II、ERP等重量级的软件，而不是花很长时间去制作一个只有几K的DLL。

参考资料来源：百度百科-vb

参考资料来源：百度百科-三角函数

Dim i As Integer, j As Integer

For i = 1 To 4

Print Space(4 - i); '前导空白

'主体部分

For j = 1 To i

Print " ";

Next

Print '换行

Next

这段本质是每行都会多一个空格，可以改成如下版本：

Dim i As Integer, j As Integer

For i = 1 To 4

Print Space(4 - i); '前导空白

'主体部分

For j = 1 To i

Print IIf(j = i, "", " ");

Next

Print '换行

Next

Option Explicit ’这句不用解释了，语句声明~即以下的所有变量都需要进行声明后使用

Private Sub Command1_Click() ‘按钮单击事件

Dim LineNum As Integer, i As Integer, k As Integer, str As String ‘定义一个行数，及其它变量

LineNum = Val(InputBox("输入所需行数")) ’将用户输入的行数放到LineNum这个变量

For i = 1 To LineNum ‘从1循环到用户输入的行数，如5

str = String(2 (LineNum - i), " ") ’String函数在这一句的意思是产生多少个空格，此句用来将第一行的空格随着LineNum的变大而减小。金字塔三角型产生于这一句。

For k = 1 To 2 i - 1 ‘以下是主循环

str = str & "" & " " ’这一行根据用户输入的数字大小，产生多少行。主循环。

Next k ‘循环结尾

Print str ’打印出来

Next i ‘循环结尾

End Sub ’结束

分类: 电脑/网络 >> 程序设计 >> 其他编程语言

问题描述:

求帮忙啦

解析:

程序如下,在窗体的单击事件下实现:

Private Sub Form_Click()

\'杨辉三角图形

\'

\' 1

\' 1 1

\' 1 2 1

\' 1 3 3 1

\' 1 4 6 4 1

\'

\'下面的行值为上面行中相邻数之和

Dim i As Integer \'外循环变量

Dim j As Integer \'内循环变量

Dim a(1 To 5, 1 To 5) As Integer \'数组声明

For i = 1 To 5 \'左边和右边两侧赋值1

a(i, 1) = 1

a(i, i) = 1

Next

For i = 3 To 5

For j = 2 To i \'中间部分的元素赋值,从图中可看出规律

a(i, j) = a(i - 1, j - 1) + a(i - 1, j)

Next

Next

For i = 1 To 5

Print Tab(19 - 2 i); \'缩进

For j = 1 To i

Print a(i, j); \" \"; \'打印

Next

Print \'换行

Next

End Sub

程序在WinXP+VB60环境下运行成功! "\"表示是空格

有问题来群:讨论!

以上就是关于VB怎么编写第一行输出A第二行输出 ABC第三行输出 ABCDE这样的字母三角形全部的内容，包括:VB怎么编写第一行输出A第二行输出 ABC第三行输出 ABCDE这样的字母三角形、VB多重循环打印三角形、VB中的三角函数程序怎么写等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！