在vb中，当出现这种情况时，程序的执行顺序是什么

先判断a+b>c是否成立，如果成立，执行 if a^2=b^2+c^2 then 判断条件是否成立，如果成立执行

label1caption＝ “ 可以构成直角一个三角形” ，如果不成立执行label1caption＝“可以构成一个非直角三角形” ； 如果a+b>c不成立，则执行label1caption＝“不可以构成一个三角形”，而不会执行第二个判断语句。

Dim AA(1 To 10) As Integer, ZGCJ(1 To 10) As Integer, ZDCJ(1 To 10) As Integer

在通用部分声明三个数组

Private Sub Command1_Click()

Text1Text = "": Text2Text = "": Text3Text = ""

Text1Text = "系统自动生成的十个数：" & vbCrLf

For I = 1 To 10

AA(I) = 0: ZGCJ(I) = 0: ZDCJ(I) = 0

Randomize

AA(I) = Int(Rnd  90 + 10)

Text1Text = Text1Text & AA(I) & Space(4)

If I Mod 5 = 0 Then Text1Text = Text1Text & vbCrLf

ZGCJ(I) = AA(I)

ZDCJ(I) = AA(I)

Next I

End Sub

生成十个数的代码

Private Sub Command2_Click()

Text2Text = "": Text3Text = ""

Dim AAA As Integer, BBB As Integer

For I = 1 To 9

    For J = I + 1 To 10

    If ZGCJ(I) < ZGCJ(J) Then

    AAA = ZGCJ(I)

    ZGCJ(I) = ZGCJ(J)

    ZGCJ(J) = AAA

    End If

    If ZDCJ(J) < ZDCJ(I) Then

    BBB = ZDCJ(J)

    ZDCJ(J) = ZDCJ(I)

    ZDCJ(I) = BBB

    End If

    Next J

Next I

Text2Text = Text2Text & "从大到小排列：" & vbCrLf

For I = 1 To 10

Text2Text = Text2Text & ZGCJ(I) & Space(4)

If I Mod 5 = 0 Then Text2Text = Text2Text & vbCrLf

Next I

Text3Text = Text3Text & "从小到大排列：" & vbCrLf

For I = 1 To 10

Text3Text = Text3Text & ZDCJ(I) & Space(4)

If I Mod 5 = 0 Then Text3Text = Text3Text & vbCrLf

Next I

End Sub

排序的代码。

如果需要自己输入数字，可以这样：

'如果要自己输入数字，可以修改下面的代码

Text1Text = "": Text2Text = "": Text3Text = ""

Text1Text = "系统自动生成的十个数：" & vbCrLf

For I = 1 To 10

AA(I) = 0: ZGCJ(I) = 0: ZDCJ(I) = 0

Randomize

AA(I) = Int(Rnd  90 + 10)

Text1Text = Text1Text & AA(I) & Space(4)

If I Mod 5 = 0 Then Text1Text = Text1Text & vbCrLf

ZGCJ(I) = AA(I)

ZDCJ(I) = AA(I)

Next I

'----------------------------修改为：

Text1Text = "": Text2Text = "": Text3Text = ""

Text1Text = "用户输入的十个数：" & vbCrLf

For I = 1 To 10

AA(I) = 0: ZGCJ(I) = 0: ZDCJ(I) = 0

AA(I) = Val(InputBox("请输入第" & I & "个数！"))

Text1Text = Text1Text & AA(I) & Space(4)

If I Mod 5 = 0 Then Text1Text = Text1Text & vbCrLf

ZGCJ(I) = AA(I)

ZDCJ(I) = AA(I)

Next I

Visual Basic（简称VB）是Microsoft公司开发的一种通用的基于对象的程序设计语言，为结构化的、模块化的、面向对象的、包含协助开发环境的事件驱动为机制的可视化程序设计语言。是一种可用于微软自家产品开发的语言。

它源自于BASIC编程语言。VB拥有图形用户界面（GUI）和快速应用程序开发（RAD）系统，可以轻易的使用DAO、RDO、ADO连接数据库，或者轻松的创建ActiveX控件。程序员可以轻松的使用VB提供的组件快速建立一个应用程序。

扩展资料：

vb语言的特点：

1、VB是一种可视化的、面向对象和采用事件驱动方式的结构化高级程序设计语言；

2、可用于开发Windows环境下的各类应用程序；

3、在Visual Basic环境下，利用事件驱动的编程机制、新颖易用的可视化设计工具。

参考资料来源：百度百科-Visual Basic

可视化程序设计一般有一下步骤

设计程序界面

编写程序代码

调试、运行程序；面向对象的程序设计以对象为中心，以事件为过程执行的起点

例题：

设计一个简易的打字测试程序，单击“开始”按钮，计时开始，输入字符；单击“结束”按钮，程序输出打字速度。

（1）启动VB，新建一个VB标准EXE工程。单击工具箱中的文本框控件（TextBox），将鼠标指针移到窗体上，拖动十字线在窗体上画出大小适当的控件。

（2）用同样的方法在窗体中添加两个命令按钮控件（CommandButton）、两个标签控件（Label）和一个文本框控件。

（3）通过属性窗口可以更改对象的原有属性。

（4）双击“frmTest”窗体中的“开始”按钮，打开对应的代码窗口。在对象中=列表框中选择“通用”，输入代码。

（5）在对象列表框中选择“cmdStart"，在过程列表框中选择”Click"事件。输入代码。

（6）保存工程，运行程序。

vb程序中，加注释的符号是//或者/ /，其中//为单行注释，而/ /为多行注释。续行符是“_”，而语句的分隔符号是”：“。vb中还有其他的符号，+为连接符号、运算“和”、-为运算减号、为运算乘号、&为连接符号。

扩展资料

vb语言中的注释符号:

1、以Rem关键字开头，并且Rem关键字与注释内容之间要加一个空格。注释可以是单独的一行，也可以写在其他语句行的后面。如果在其他语句行后使用Rem关键字，则必须使用冒号（:）与语句隔开。

2、使用一个撇号（'）来代替Rem关键字。若使用撇号，则在其他语句行使用时不必加冒号。

除了上述符号之外，vb中还有：

1、算术运算符

用于各类数值运算。包括加(+)、减(-)、乘()、除(/)、求余(或称模运算，%)、自增(++)、自减(--)共七种。

2、关系运算符

用于比较运算。包括大于(>)、小于(<)、等于(==)、 大于等于(>=)、小于等于(<=)和不等于(!=)六种。

3、逻辑运算符

用于逻辑运算。包括与(&&)、或(||)、非(!)三种。

4、位 *** 作运算符

参与运算的量，按二进制位进行运算。包括位与(&)、位或(|)、位非(~)、位异或(^)、左移(<<)、右移(>>)六种。

5、赋值运算符

用于赋值运算，分为简单赋值(=)、复合算术赋值(+=、-=、=、/=、%=)和复合位运算赋值(&=、=、^=、>>=、<<=)三类共十一种。

6、条件运算符

这是一个三目运算符，用于条件求值(:)。

7、逗号运算符

用于把若干表达式组合成一个表达式(，)。

8、指针运算符

用于取内容()和取地址(&)二种运算。

9、求字节数运算符

用于计算数据类型所占的字节数(sizeof)。

10、特殊运算符

有括号()，下标[]等几种。

参考资料来自：百度百科-vb语言

以上就是关于在vb中，当出现这种情况时，程序的执行顺序是什么全部的内容，包括:在vb中，当出现这种情况时，程序的执行顺序是什么、VB中输入10个数并按要求进行升序排序和降序的程序、VB语言是什么等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！