在机场托运行李，每人免费25千克，超过25千克不到50千克，则超出部分按每千...

单项选择题在机场托运行李，每人免费25千克，超过25千克不到50千克，则超出部分按每千克10元收费，如果超过50千克，则超过部分按每千克20元收费。这种计费程序最适合用到的程序结构是（）

A.循环
B.赋值
C.分支
D.顺序

1.单项选择题执行后将会清空文本框Text1中文本的语句是（）

A.Text1.Clear
B.Text1.SelText=""
C.Text1.text=""
D.Text1.SelText.Clear

2.单项选择题A=5，B=8，则（B-A）*Rnd+A的结果是介于（）之间的实数。

A.[5，8]
B.（5，8）
C.[5，8）
D.（3，5）

3.单项选择题（）函数的作用是建立一个弹出窗口。

A.MsgBox（）
B.InputBox（）
C.RGB（）
D.Print

4.单项选择题用循环结构解决问题时，如果循环的次数已知，通常采用（）；当循环的次数未知，需要靠判断条件是否成立来决定循环的执行和退出时，通常采用（）。

A.For„Next循环、Do„Loop循环
B.Do„Loop循环、For„Next循环
C.Do„Next循环、For„Loop循环

5.单项选择题Dim a AsInteger，当a=123：b=Str（a），则（）

A.a和b均是字符型变量
B.a是字符型变量，b是数值型变量
C.a是数值型变量，b是字符型变量
D.a和b均是数值型变量

6.单项选择题在VB程序中，当变量H的值等于8时，执行“IFH>8thenR=10elseR=20”语句后，R值为（）。

A.5
B.10
C.20
D.10或20

7.单项选择题在VB应用程序中，修改控制代码，使Command1按钮显示“end”，正确的设置是（）

A.Command1.Text=“end”
B.Command1.Caption=“end”
C.Command1.Name＝end
D.Command1.Caption=end

8.单项选择题在VB环境中，修改对象的BackColor的属性值，则对象的（）将发生改变。

A.文字颜色
B.背景色
C.前景色
D.边框颜色

9.单项选择题在VB环境中，如果设计时将命令按钮的（）属性设置为False，则运行时该按钮从窗体上消失。

A.Default
B.Enabled
C.Visible
D.DisabledPicture

10.单项选择题若改变一文本框中所显示文本的颜色，需改变此文本框的哪个属性？（）

A.Caption
B.Forecolor
C.Backcolor
D.Text