vb 在窗体上建立两组单选按钮，一组为性别选择(男或女)，一组为专业类型选择(文科

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

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

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

支持二楼，解释如下：

int(n/10) 得到前两位数，即百位和十位组成一个新的2位数，如n=123,则得到12，

int(n/100)10得到百位数的10倍数,如n=123,则得到10，

然后两数相减刚好得到新2位数的个位数值，即原3位数的十位数值。

private sub form_load()

text1text="好好学习，天天向上。"

command1caption="选择"

command2caption="退出"

command2enabled=false

end sub

private sub command1_click()

dim m as integer,n as integer

m=inputbox("请输入选择文字的起点：")

n=inputbox("请输入要选中的文字数目：")

text1selstart=m

text1sellength=n

text1setfocus

command2enabled=true

end sub

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）这个方程的解叫做笛卡尔心脏曲线，心脏是什么意思？这意味着爱。这个故事是基于数学家笛卡尔和瑞典公主克莉丝汀的故事，是成绩优异的学生表达爱意的最喜欢的方式。

'加个按钮，两个文本框，文本框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