下列正确的Visual Basic注释语句是(   )

A．Dim a(10) As Integer定义一个数组

B．Dim a(10) As Integer“定义一个数组

C．Dim a(10) As Integer‘定义一个数组

D．Dim a(10) As Integer“定义一个数组”

在Visual Basic中进行窗体设计时，利用属性面板可以非常方便地对常用的属性进行设置。请观察右图，并选择出正确的描述(   )

A．“Text1”是类名，“TextBox”是对象名，“Text” 是属性名，“点击输入”是属性值

B．“Text1”是对象名，“TextBox”是类名，“Text”是属性名，“点击输入”是属性值

C．“Text1”是对象名，“TextBox”是类名，“Text”是属性值，“点击输入”是属性名

D．Text1”是属性名，“TextBox”是对象名，“Text”是类名，“点击输入”是属性值

下列多媒体作品创作工具中以程序设计语言为基础的软件是（   ）

A．Flash

B．Authorware

C．Visual Basic

D．PowerPoint

李老师为了提高效率，准备设计一个学生成绩分析软件，经过了前期调查分析，他决定使用Microsoft公司的Visual Basic 6.0来制作该软件，这一步应该属于用计算机解决问题的哪一个阶段（   ）

A．分析问题阶段	B．设计算法阶段
C．算法实现阶段	D．结果检测阶段

如下程度段：
X=5
Y=-20
If  Not x>0 Then x=y-3  Else y=x+3
该程序段运行后，y的值为：

编写一个具有下列功能的VB程序：在文本框Text1中输入一串字符，单击“统计”按钮Command1，在标签Label1中输出字符串的长度。运行界面如图所示，在划线处填入合适的语句或表达式，完成程序。

Dim s As Integer
Private Sub Form_Load()
Command1.Caption = " "
End Sub
Private Sub Command1_Click()
s =
Label1.Caption = "共有" + Str(s) + "个字符"
End Sub

VB的字符串函数Len(X)的功能是计算字符串的长度，len("1234abc")的值为（   ）

A．0

B．7

C．11

D．14

VB提供了大量的标准函数，可供用户编写程序时直接使用，如数学函数Exp(X)表示（   ）

A．求以e为底的X的对数

B．求e的X次方

C．求X的绝对值

D．求X的算术平方根

在VB中，定义数组d，用于存储10个学生的年龄，数组定义为dim d(1 to 10) as integer，下列有关数组d的说法正确的是（   ）

A．d是由9个整数变量构成的一个一维数组变量，且第一个元素为d(1)

B．d是由9个整数变量构成的一个一维数组变量，且最后一个元素为d(10)

C．d是由10个整数变量构成的一个一维数组变量，且第一个元素为d(0)

D．d是由10个整数变量构成的一个一维数组变量，且最后一个元素为d(10)

农农摘桃子。农农家的院子里有一棵桃子树，每到秋天树上都会结出很多桃子（假设桃子距地的高度为50—300厘米）。桃子成熟的时候，农农就会跑去摘桃子（假设农农碰到桃子，桃子就会掉下来）。农农有个30厘米高的板凳，当他不能直接用手摘到桃子的时候，就会踩到板凳上再试试。如果今天树上有10个成熟的桃子，请帮农农算一下他能够摘到多少个桃子。
（1）程序运行时界面如图所示，List1中桃子的高度数据由计算机随机产生，Text1中输入农农手伸直的最大高度，Text2中显示农农摘到的桃子数目。

设计如图所示应用程序界面时，应在图中所示的“属性窗口”中，将Form1的__________________属性设置为“农农摘桃子”；为添加列表框List1，应使用图中所示的“控件工具箱”中的______________（填写相应编号）。

（2）“开始摘果”按钮单击事件处理过程的流程图如图所示。请根据流程图将下列程序补充完整。
①___________________    ②___________________

Private Sub Command1_Click()
Dim a(1 To 10) As Integer,
Dim h As Integer, i As Integer, t As Integer
Randomize   '初始化Rnd函数
h = Val(Text1.Text)
t=0
For i =" 1" To 10  
'随机产生桃子的高度(50-300厘米)
a(i) =" Int(Rnd" * 251) +50   
List1.AddItem "桃子"+Str(i)+"高度:"+Str(a(i))
If ①  Then t =" t" + 1
Next i
②
End Sub