标签

以下可以构成语句的是（  ）。A:True B:False C:Null D:出错信息 答案: False关于MsgBox函数，以下说法不正确的是（  ）。静态数组的大小是可变的，但所有数组元素的类型必须相同1  1A:对象名.属性 B:对

以下关于VB语言的说法中，正确的是（  ）。 下列符号常量的声明中，（  ）是不合法的。 结构化程序设计的三种基本结构不包括（ ）。 以下关于静态数组的描述正确的是（   ）。 假定有如下的Sub过程：Sub fun(x As Single

在Visual Basic环境下，当写一个新的Visual Basic程序时，所做的第一件事是（  ）。C:Const a As Double=Sin（1）  D:Const a =“OK” 答案: Const a As Integer=“

下列不是Visual Basic 文件的是（  ）。表达式4+56*7/8 Mod 4的值是（  ）。D:x=1为赋值语句, y=1为关系表达式静态数组的大小是可变的，可以有不同类型的数组元素1.5  2A:*.frm文件 B:*.bas 

A Const a As Single=1.1 B Const a As Integer=“12” C Const a As Double=Sin（1） D Const a =“OK” 答案  Const a As Integer=“12”

A True B False C Null D 出错信息 答案  False执行下列语句后，V的值是（ ）。A=“56789” V=Val（Mid（A，3，2））

A 89 B 78 C 67 D 0 答案  78表达式4+567/8 Mod 4的值是（ ）。

A x23 B 8xy C END D X8B 答案  x236在一行内写多条语句时，每个语句之间用（ ）来分隔。

答案:1925有如下函数过程：Function Cys(ByVal x As Integer, ByVal y As Integer) As Integer    Dim quotients    Do While y 0        

D:2081答案:

C:1949D:

A:1725B:

A:3a*b*c(d+e)        B:3abc(d+e)   30有如下函数过程：Function secproc(x As Integer, y As Integer, z As Integer)    secproc = 3 *

A ， B ： C D ； 答案  ：7在VB中，用Single来表示的数据类型是（ ）。

A 长整型 B 字符型 C 逻辑型 D 单精度型 答案  单精度型8 下列程序段的运行结果是（ ）。Dim A As Integer , B As Integer A = 15 B = 4 Print 4 + A B

A 3abc(d+e) B 3abc(d+e) C 3abcd +3abce D 3abc(d+e) 答案  3abc*(d+e)

4语句If x=1 Then y=1,下列说法正确的是( )。 A x=1和y=1均为赋值语句 B x=1和y=1均为关系表达式 C x=1为关系表达式,y=1为赋值语句 D x=1为赋值语句, y=1为关系表达式 答案  x=1 为关系表

ReDim  0 C: C:

Dim  10 B: B:

如果要对已经声明的数组重新定义大小，并保留原有数据，可以使用语句（  ）。  在窗体上画一个命令按钮(名称为Command1)，并编写如下代码：Function Fun1(ByVal a As Integer, b As Integer)

D: D: 控件数组的建立通过Dim语句声明，而一般控件不需要声明 语句“maxval = max ”应改为“maxval  = a(max)”

B: B: 控件数组的索引属性值Index值为0，而一般控件的Index值为空  语句“For i = 2 To 10”应改为“For i = 1 To 10”

A: A: 控件数组一定有1个以上同类型的控件组成，而一般控件只有一个控件 语句“max = 1”应改为“max = a(1)” 

-5  6        Print maxval(x()) 下面关于控件数组与一般控件的叙述中正确的是（   ）。  End Sub程序运行时，发现函数过程的返回值是错的需要修改，下面的修改方案中正确的是（  ）。 

答案: For i = 2 To 10  2,6,1,2,-1,1 If a(i) > a(max) Then max = i   

D: Dim max%    2,1,6,-1,1,2 max = 1 

 0  6     Next i 答案:     Print

-5  6            x(i) = Int(Rnd() * 100) D:         Print x(i);

C: 以下是一个能返回数组a中最大数的函数过程代码：  2,6,1,2,-1,1 Function maxval(a() As Integer) As Integer   

-5  0       Dim x(1 To 10) As Integer C:     For i = 1 To 10

 0  0   End Function  B: Private Sub Command1_Click()

B: 答案: 6,2,1,2,-1,1 5