VB运用选择结构、循环结构和数组进行程序设计

'加个按钮，两个文本框，文本框MultiLine属性改为true

Private Sub Command1_Click()

Dim Num(60) As Integer

Dim TempNum As Integer

Dim i As Integer, j As Integer

Randomize

For i = 1 To 60

Num(i) = 100 + 100 Rnd

Print Num(i);

If i Mod 10 = 0 Then Print

For j = 1 To i - 1

If Num(i) < Num(j) Then

TempNum = Num(i)

Num(i) = Num(j)

Num(j) = TempNum

End If

Next j

Next i

For i = 1 To 60

If Num(i) Mod 2 = 0 Then

Text1 = Text1 & Num(i) & " "

Else

Text2 = Num(i) & " " & Text2

End If

Next i

End Sub

Choose

函数

从参数列表中选择并返回一个值。

语法

Choose(index,

choice-1[,

choice-2,

[,

choice-n]])

Choose

函数的语法具有以下几个部分：

部分

描述

index

必要参数，数值表达式或字段，它的运算结果是一个数值，且界于

1

和可选择的项目数之间。

choice

必要参数，Variant

表达式，包含可选择项目的其中之一。

说明

Choose

会根据

index

的值来返回选择项列表中的某个值。如果

index

是

1，则

Choose

会返回列表中的第

1

个选择项。如果

index

是

2，则会返回列表中的第

2

个选择项，以此类推。

可以使用

Choose

来查阅一个列表中的项目。例如，如果

index

所指定的值为

3，而

choice-1

=

"one"、choice-2

=

"two"、且

choice-3

=

"three"，那么

Choose

将返回

"three"。当

index

代表一选项组中的值时，则这项功能将会特别有用。

即使它只返回一个选项值，Choose

仍然会计算列表中的每个选择项。所以应该注意到这项副作用。例如，当在每个选择项表达式中使用了

MsgBox

函数作为其中的一部分时，每计算一个选择项，就会显示一次消息框。

当

index小于

1

或大于列出的选择项数目时，Choose

函数返回

Null。

如果

index

不是整数，则会先四舍五入为与其最接近的整数。

当然是 NAME。。。

因为NAME属性 在编程过程

一定要和控件对应。。

没有一定要和其他对应

尽管数组控件NAME是一样

但控件与控件还是会用一个变量

加入顺序丫。。。

Os、At、Nb，对于化学元素周期表，分别对应的是，锇，砹，铌，谐音表达出来就是我爱你。

锇：元素周期表第六周期Ⅷ族元素，铂族金属成员之一。元素符号为Os，原子序数76，相对原子质量1902。属重铂族金属，是已知的密度最大的金属。

砹：原子序数85，是一种非常稀少的天然放射性元素，化学符号源于希腊文＂astator＂，原意是“改变”。

铌：化学符号Nb，原子序数41，原子量9290638，属周期系VB族。1801年英国C哈切特从铌铁矿中分离出一种新元素的氧化物。

相关爱情暗号：

1、英文的爱情暗号：Wall英语为Wall，eye英语为eye，knee英语为knee，连读谐音是我爱你。

2、手语的手势爱情暗号：我用右手拍着胸口。爱是用我的左手握拳，然后伸出我的拇指，把我的右手掌放在我的左手拇指的右边，顺时针旋转一次。你用食指指着。

3、数学公式爱情暗号：R＝a（1－sin）这个方程的解叫做笛卡尔心脏曲线，心脏是什么意思？这意味着爱。这个故事是基于数学家笛卡尔和瑞典公主克莉丝汀的故事，是成绩优异的学生表达爱意的最喜欢的方式。

关键是后面的<指示变量或表达式>

示例：

Select Case <指示变量或表达式>

Case <情形1>

<语句组1>

Case <情形2>

<语句组2>

Case <情形n>

<语句组n>

Case Else

<默认语句组，当指示变量不符合以上任何情形时执行>

End Select

实例（根据值处理结果）：

Dim i as long

i = 1

Select Case i

Case 1

Print "1"

'执行相应的程序

Case 2

Print "2"

'执行相应的程序

Case Else

Print "未找到对应的处理"

End Select

根据 i 值不同，可以进行不同的处理。

因为一个控件上的单选按钮,不管有多少个,同时只能选择一个,你是对这个没有办法吧,给你说个办法,你把性别选择按钮放到一个FRAME即框架控件中,然后把专业选择的放到另一个框架控件中,这样不管有多少组,都能选择了