下列程序段的执行结果为 a=1 b=0 Select Case a ...

单项选择题

执行下列程序段后，输出的结果是
For k1=0 TO 4
y=20
For k2=0 TO 3
y=10
For k3=0 TO 2
y=y+10
Next k3
Next k2
Next k1
Print y

A．90
B．60
C．40
D．10

单项选择题

能够获得一个文本框中被选取文本的内容的属性是

A．Text
B．Length
C．Seltext
D．SelStart

单项选择题

在设计程序时，应采纳的原则之一是

A．不限制goto语句的使用
B．减少或取消注解行
C．程序越短越好
D．程序结构应有助于读者理解

单项选择题

设有数组定义语句：Dim a(5)As Integer，List1为列表框控件。下列给数组元素赋值的语句错误的是

A．a(3) =3
B．a(3) =inputbox("input data" )
C．a(3) =List1.Listlndex
D．a=Array(1，2，3，4，5，6)

单项选择题

如果进栈序列为e1，e2，e3，e4，则可能的出栈序列是

A．e3，e1，e4，e2
B．e2，e4，e3，e1
C．e3，e4，e1，e2
D．任意顺序

单项选择题

将E-R图转换到关系模式时，实体与联系都可以表示成

A．属性
B．关系
C．键
D．域

单项选择题

下列各种形式的循环中，输出“*”的个数最少的循环是

A．a=5:b=8
Do
Print"*"
a=a+1
Loop While a＜b
B．a=5:b=8
Do
Print "*"
a=a+1
Loop Until a＜b
C．a=5:b=8
Do Until a-b
Print"*"
b=b+1
Loop
D．a=5:b=8
Do Until a＞b
Print"*"
a=a+1
Loop

单项选择题

如果要将窗体中的某个命令按钮设置成无效状态，应该设置命令按钮的哪一个属性

A．Value
B．Visible
C．Enabled
D．Default

单项选择题

已知一棵二叉树前序遍历和中序遍历分别为ABDEGCFH和DBGEACHF，则该二叉树的后序遍历为

A．GEDHFBCA
B．DGEBHFCA
C．ABCDEFGH
D．ACBFEDHG

单项选择题

下面程序段执行结果为
x=Int(Rnd() +4)
Select Case x
Case 5
Print"excellent"
Case 4
Print"good"
Case 3
Print"pass"
Case Else
Print"fail"
End Select

A．excellent
B．good
C．pass
D．fail

单项选择题

下列说法错误的是

A．方法是对象的一部分
B．在凋用方法时，对象名是不可缺少的
C．方法是一种特殊的过程和函数
D．方法的调用格式和对象属性的使用格式相同

单项选择题

下列有关子菜单的说法中，错误的是

A．除了Click事件之外，菜单项不可以响应其他事件
B．每个菜单项都是一个控件，与其他控件一样也有其属性和事件
C．菜单项的索引号必须从1开始
D．菜单的索引号可以不连续

单项选择题

建立一个新的标准模块，应该选择哪个菜单下的“添加模块”命令

A．“工程”菜单
B．“文件”菜单
C．“工具”菜单
D．“编辑”菜单

单项选择题

下列程序段的执行结果为
a=95
If a＞60 Then I=1
If a＞70 Then I=2
If a＞80 Then I=3
If a＞90 Then I=4
Print"I=";I

A．I=1
B．I=2
C．I=3
D．I=4

单项选择题

下列过程定义语句中，形参个数为不确定数量的过程是

A．Private Sub Pro3(x As Double，y As Single)
B．Private Sub Pro3(Arr(3)，Option x，Option y)
C．Private Sub Pro3(ByRef X，ByVal y，Art())
D．Private Sub Pro3(ParamArray Arr())

单项选择题

下列程序的执行结果为
Private Sub Command1_Click()
Dim s1 As String，s2 As String
s1="abcdef"
Call Invert(s1，s2)
Print s2
End Sub
Private Sub Invert(ByVal xstr As String，ystr As String)
Dim tempstr As String
i=Len(xstr)
Do While i＞=1
tempstr=tempstr + Mid(xstr，i，1)
i=i - 1
Loop
ystr=tempstr
End Sub

A．fedcba
B．abcdef
C．afbecd
D．defabc

单项选择题

如下图所示的两个窗体：

要使其中第一个窗体中的第一个命令按钮来控制显示第二个窗体，第二个命令按钮用来结束程序的运行(两个按钮名
称为Command1和Command2)。则以下选项中，对这两个命令按钮编写的事件过程正确的是

单项选择题

下列程序段的执行结果为
a=1
b=0
Select Case a
Case 1
Select Case b
Cltse 0
Print"0"
Case 1
Print"1"
End Select
Case 2
Print"2"
End Select

A．**0**
B．**1**
C．**2**
D．0

单项选择题

单击一次命令按钮后，下列程序的执行结果是
Private Sub Command1_Click()
s=P(1) + P(2) + P(3) + P(4)
Print s
End Sub
Public Function P(N As Integer)
Static Sum
For i=1 To N
Sum=Sum + i
Next i
P=Sum
End Function

A．15
B．25
C．35
D．45

单项选择题

阅读下列程序：
Private Sub Command1_Crick()
Dim i As Integer，k As Integer
k=2
For i=1 TO 3
Print H(k)；
Next i
End Sub
Function H(j As Integer)
a=0
Static b
a=a + 1
b=b + 1
H=a * b + j
End Function
程序运行后，单击命令按钮输出结果是

A．234
B．345
C．567
D．356

单项选择题

单击命令按钮时，下列程序的执行结果为
Private Sub Command1_Click()
Dim x As Integer，y As Integer
x=12:Y=32
Call PCS(x，y)
Print x；y
End Sub
Public Sub PCS(ByVal n As Integer，ByVal m As Integer)
n=n Mod 10
m=m Mod 10
End Sub

A．1232
B．232
C．23
D．123

下列程序段的执行结果为 a=1 b=0 Select Case a Case 1 Select Case b Cltse 0 Print"**0**" Case 1 Print"**1**" End Select Case 2 Print"**2**" End Select

你可能感兴趣的试题

程序设计语言的基本成分是数据成分、运算成分、控制成分和

单个用户使用的数据视图的描述称为

设有如下过程： Sub ff(x，y，Z，) x=y+z End Sub 以下所有参数的虚实结合都是传址方式的调用语句是

树是结点的集合，它的根结点数目是

下列语句的输出结果为 Print Format$(5689.36，"000，000.000")

下列叙述中，不属于软件需求规格说明书的作用的是

SQL语言又称为

下列程序段的执行结果为 a=6 For k=1 To 0 a=a + k Next k Print k；a

Visual Basic集成的主窗口中不包括

下列不属于软件工程的3个要素的是

下列程序段的执行结果为 a=1 b=1 For I=1 To 3 f=a + b a=b b=f Print f； Next I

设置命令按钮的属性时，只有将何属性设置为1，Picture属性才有效，否则无效

激活菜单栏的快捷键是

通常情况下，垂直滚动条的值是

执行下列程序段后，输出的结果是 For k1=0 TO 4 y=20 For k2=0 TO 3 y=10 For k3=0 TO 2 y=y+10 Next k3 Next k2 Next k1 Print y

能够获得一个文本框中被选取文本的内容的属性是

在设计程序时，应采纳的原则之一是

设有数组定义语句：Dim a(5)As Integer，List1为列表框控件。下列给数组元素赋值的语句错误的是

如果进栈序列为e1，e2，e3，e4，则可能的出栈序列是

将E-R图转换到关系模式时，实体与联系都可以表示成

下列各种形式的循环中，输出“*”的个数最少的循环是

如果要将窗体中的某个命令按钮设置成无效状态，应该设置命令按钮的哪一个属性

已知一棵二叉树前序遍历和中序遍历分别为ABDEGCFH和DBGEACHF，则该二叉树的后序遍历为

下面程序段执行结果为 x=Int(Rnd() +4) Select Case x Case 5 Print"excellent" Case 4 Print"good" Case 3 Print"pass" Case Else Print"fail" End Select

下列说法错误的是

下列有关子菜单的说法中，错误的是

建立一个新的标准模块，应该选择哪个菜单下的“添加模块”命令

下列程序段的执行结果为 a=95 If a＞60 Then I=1 If a＞70 Then I=2 If a＞80 Then I=3 If a＞90 Then I=4 Print"I=";I

下列过程定义语句中，形参个数为不确定数量的过程是

如下图所示的两个窗体： 要使其中第一个窗体中的第一个命令按钮来控制显示第二个窗体，第二个命令按钮用来结束程序的运行(两个按钮名 称为Command1和Command2)。则以下选项中，对这两个命令按钮编写的事件过程正确的是

下列程序段的执行结果为 a=1 b=0 Select Case a Case 1 Select Case b Cltse 0 Print"**0**" Case 1 Print"**1**" End Select Case 2 Print"**2**" End Select

单击一次命令按钮后，下列程序的执行结果是 Private Sub Command1_Click() s=P(1) + P(2) + P(3) + P(4) Print s End Sub Public Function P(N As Integer) Static Sum For i=1 To N Sum=Sum + i Next i P=Sum End Function

阅读下列程序： Private Sub Command1_Crick() Dim i As Integer，k As Integer k=2 For i=1 TO 3 Print H(k)； Next i End Sub Function H(j As Integer) a=0 Static b a=a + 1 b=b + 1 H=a * b + j End Function 程序运行后，单击命令按钮输出结果是

单击命令按钮时，下列程序的执行结果为 Private Sub Command1_Click() Dim x As Integer，y As Integer x=12:Y=32 Call PCS(x，y) Print x；y End Sub Public Sub PCS(ByVal n As Integer，ByVal m As Integer) n=n Mod 10 m=m Mod 10 End Sub

下列程序段的执行结果为
a=1
b=0
Select Case a
Case 1
Select Case b
Cltse 0
Print"0"
Case 1
Print"1"
End Select
Case 2
Print"2"
End Select

设有如下过程：
Sub ff(x，y，Z，)
x=y+z
End Sub
以下所有参数的虚实结合都是传址方式的调用语句是

下列语句的输出结果为
Print Format$(5689.36，"000，000.000")

下列程序段的执行结果为
a=6
For k=1 To 0
a=a + k
Next k
Print k；a

下列程序段的执行结果为
a=1
b=1
For I=1 To 3
f=a + b
a=b
b=f
Print f；
Next I

执行下列程序段后，输出的结果是
For k1=0 TO 4
y=20
For k2=0 TO 3
y=10
For k3=0 TO 2
y=y+10
Next k3
Next k2
Next k1
Print y

下面程序段执行结果为
x=Int(Rnd() +4)
Select Case x
Case 5
Print"excellent"
Case 4
Print"good"
Case 3
Print"pass"
Case Else
Print"fail"
End Select

下列程序段的执行结果为
a=95
If a＞60 Then I=1
If a＞70 Then I=2
If a＞80 Then I=3
If a＞90 Then I=4
Print"I=";I

如下图所示的两个窗体：

要使其中第一个窗体中的第一个命令按钮来控制显示第二个窗体，第二个命令按钮用来结束程序的运行(两个按钮名
称为Command1和Command2)。则以下选项中，对这两个命令按钮编写的事件过程正确的是

下列程序段的执行结果为
a=1
b=0
Select Case a
Case 1
Select Case b
Cltse 0
Print"0"
Case 1
Print"1"
End Select
Case 2
Print"2"
End Select

单击一次命令按钮后，下列程序的执行结果是
Private Sub Command1_Click()
s=P(1) + P(2) + P(3) + P(4)
Print s
End Sub
Public Function P(N As Integer)
Static Sum
For i=1 To N
Sum=Sum + i
Next i
P=Sum
End Function

阅读下列程序：
Private Sub Command1_Crick()
Dim i As Integer，k As Integer
k=2
For i=1 TO 3
Print H(k)；
Next i
End Sub
Function H(j As Integer)
a=0
Static b
a=a + 1
b=b + 1
H=a * b + j
End Function
程序运行后，单击命令按钮输出结果是

单击命令按钮时，下列程序的执行结果为
Private Sub Command1_Click()
Dim x As Integer，y As Integer
x=12:Y=32
Call PCS(x，y)
Print x；y
End Sub
Public Sub PCS(ByVal n As Integer，ByVal m As Integer)
n=n Mod 10
m=m Mod 10
End Sub