新建一个列表框，要实现对列表项可以复选，应设置的属性是（）。

单项选择题

单击命令按钮时，下列的执行结果为( )。　　Private Sub Command1_Click() 　　　　Dim x As Integer，y As Integer 　　　　x=86：y=29 　　　　Call Proc(x，y) 　　　　Print x；y 　　End Sub 　　Public Sub Proc(n As Integer，ByVal m As Integer) 　　　　n=n Mod 10 　　　　m=m Mod 10 　　End Sub

A． PictureBox和Data
B． Frame和Image
C． PictureBox和Frame
D． Image和Data

单项选择题

用于将屏幕上的对象分组的控件是（）。

A．列表框
B．组合框
C．标签
D．框架

单项选择题

为了暂时关闭计时器，应把该计时器控件的哪个属性设置为False

A． Visible
B． Timer
C． Enabled
D． Interval

单项选择题

下面4个CT函数中是用来判断用户输入的数是否为奇数的，是奇数的返回1，否则返回0，其中正确的是（）。

A． Caption为只读属性，运行时对象的名称不能改变
B．设置Height或Width的数值单位为twip，是1点的1/20
C． Icon属性用来设置窗体最小化时的图标
D．用来激活属性窗口的快捷键是F4键

单项选择题

下列程序段的执行结果为（）。　　a=5 　　Fork=1 To 0 　　　　a=a + k 　　Next k 　　Print k；a

A． -1 6
B． -1 16
C． 1 5
D． 11 21

单项选择题

有如下的程序段，该程序段执行完后，共执行的循环次数是( )。　　total=0 　　Counter=1 　　Do 　　Print Counter 　　total=total * Counter + 1 　　Print total 　　Counter=Counter +1 　　If total ＞ 10 Then 　　　　　Exit Do 　　　End If 　　Loop While Counter＜=10

A．4
B．10
C．15
D．20

单项选择题

下列程和序段的执行结果为（）。　　x=Int(Rnd()+9) 　　Select Case X 　　　　Case 10 　　　　　　　Print "excellent" 　　　　Case 9 　　　　　　　Print "good" 　　　　Case 8 　　　　　　　Print "pass" 　　　　Case Else 　　　　　　　Print "fail" 　　End Select

A．派生类一般都用公有派生
B．对基类成员的访问必须是无两义性的
C．赋值兼容规则也适用于多重继承的组合
D．基类的公有成员在派生类中仍然是公有的

单项选择题

下列程序段的执行结果为( )。　　A=2 　　B=5 　　If A * B ＜ 1 Then B=B - 1 Else B= - 1 　　Print B -A ＞ 0 A) True B) False C) -1 D) 1

A． True
B． False
C．-1
D．1

单项选择题

用来设置文本框有无滚动条的属性是（）。

A．在File1中的Change事件中，输入File1．Path=Dir1．Path
B．在Dirl中的Change事件中，输入File1．Path=Dir1．Path
C．在File1中的Change事件中，输入Dir1．Path=File1．Path
D．在Dir1中的Change事件中，输入Dir1．Path=File1．Path

单项选择题

在代码编辑器中，续行符是用来换行书写同一个语句的符号，用以表示续行符的是（）。

A．一个空格加一个下划线“_”
B．一个下划线“_”
C．一个造字符“_”
D．一个空格加一个连字符“-”

单项选择题

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

A．(5)
B．(6)
C．(7)
D．(11)

单项选择题

有如下事件过程：　　Private Sub Command1_Click() 　　b=10 　　Do Until b=-1 　　　a=InputBox("请输入a的值") 　　　a=Val(a) 　　　b=InputBox("请输入b的值") 　　　b=Val(b) 　　　a=a * b 　　Loop 　　Print a 　　End Sub 　　程序运行后，依次输入数值30，20，10，-1，输出结果为（）。

A． 34a
B． _AB
C． A_B
D． A25

单项选择题

单击命令按钮时，下列程序的执行结果是( )。　　Private Sub Commandl_Click( ) 　　　　BT 4 　　End Sub 　　PriVate Sub BT(x As Integer) 　　　　X=X * 2 + 1 　　　　If x ＜6 Then 　　　　　Call BT(x) 　　　　End If 　　　　X=x * 2 　　　　Print x；　　End Sub

A．'A'%6
B．'n'-3
C．a＞=4= = b＜l
D．'a'=8

单项选择题

单击命令按钮时，下列程序的执行结果为（）。　　Private Sub Command1_Click() 　　　　Dim x As Integer，y As Integer 　　　　x=50：y=78 　　　　Call PPP(x，y) 　　　　Print x；y 　　End Sub 　　Public Sub PPP(ByVal n As Integer，ByValm As Integer) 　　　　n=n\10 　　　　m=m\10 　　End Sub

A．多态
B．继承
C．封装
D．垃圾回收

单项选择题

表达式(3/2+1)*(5/2+2)的值是（）。

A．long number = 123L；
B．long number = 0123；
C．long number = 0123L；
D．long number = 0xl23L；

单项选择题

下面哪个程序段能够正确裙带如果A＜B，则A=1，否则A=-1 ？

A．If A＜B Then A=1　A=-1　Print A
B．If A＜B Then A=l：Print A　A=-1：PrintA
C． If A＜B Then　　 A=1：Print A　　 Else　　 A=-1：　　 End If
D． If A＜B Then A=1　　A=-1　　 Print A　　 Print A

单项选择题

以下叙述中错误的是______。

A．打开一个工程文件时，系统自动装入与该工程有关的窗体、标准模块等文件
B．当程序运行时，双击一个窗体，则触发该窗体的DblClick事件
C．Visual Basic应用程序只能以解释方式执行
D．事件可以由用户引发，也可以由系统引发

单项选择题

单击命令按钮时，下列程序代码的运行结果为( )。　　Private Sub Command1_Click() 　　　　print MyFunc(20，18) 　　End Sub 　　Public Function MyFunc (m As Integer，n As Integer)As Integer 　　　　Do While m <>n 　　　　　　Do While m ＞ n：m=m - n：Loop 　　　　　　Do While m ＜ n：n=n - m：Loop 　　　　Loop 　　　　MyFunc=m 　　End FunCtion

A．Dim gg[1，5]As String
B．Dim gg[1 To 5，1 To 5]As String
C．Dim gg(1 To 5)As String
D．Dim gg[1：5，1：5]As String

单项选择题

在窗体上画一个命令按钮，然后编写如下事件过程：　　Private Sub Command1_Click( ) 　　　Dim m As Integer，n As Integer，p As Integer 　　　m=3：n=5：p=O 　　　Call Y(m，n，p) 　　　Print Str(p) 　　End Sub 　　Sub Y(ByVal i As Integer，ByVal j As Integer，k As Integer) 　　　k=i + j 　　End Sub 　　程序运行后，如果单击命令按钮，则在窗体上显示的内容是（）。

A．资源文件的扩展名为．res
B．一个窗体对应一个窗体文件
C．Visual Basic中的一个工程只包含一个窗体
D．Visual Basic中一个工程最多可以包含255个窗体

单项选择题

有如下程序：　　Private Sub Commandl_Click( ) 　　　　Dim i As Integer 　　　　For i=1 To 2 　　　　　　DS 　　　　Next i 　　　End Sub 　　　Sub DS( ) 　　　　Dim x As Integer，m As String 　　　　Static y，n 　　　　X=X + 1 　　　　y=y + 1 　　　　m=m &"*”：n=n&"#" 　　　　Print x，y，m，n 　　End Sub 　　程序运行后，输出的结果是( )。

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

新建一个列表框，要实现对列表项可以复选，应设置的属性是（ ）。

你可能感兴趣的试题

新建一个列表框，要实现对列表项可以复选，应设置的属性是（ ）。

计算z的值，当x大于y时，z=x；否则z=y。下列语句错误的是（ ）。

要将名为MyForm的窗体显示出来，正确的使用方法是（ ）。

下列数组定义语句错误的是( )。

Sub过程与Function过程最根本的区别是（ ）。

单击命令按钮时，下列的执行结果为( )。 Private Sub Command1_Click() Dim x As Integer，y As Integer x=86：y=29 Call Proc(x，y) Print x；y End Sub Public Sub Proc(n As Integer，ByVal m As Integer) n=n Mod 10 m=m Mod 10 End Sub

用于将屏幕上的对象分组的控件是（ ）。

为了暂时关闭计时器，应把该计时器控件的哪个属性设置为False

下面4个CT函数中是用来判断用户输入的数是否为奇数的，是奇数的返回1，否则返回0，其中正确的是（ ）。

下列程序段的执行结果为（ ）。 a=5 Fork=1 To 0 a=a + k Next k Print k；a

有如下的程序段，该程序段执行完后，共执行的循环次数是( )。 total=0 Counter=1 Do Print Counter total=total * Counter + 1 Print total Counter=Counter +1 If total ＞ 10 Then Exit Do End If Loop While Counter＜=10

下列程和序段的执行结果为（ ）。 x=Int(Rnd()+9) Select Case X Case 10 Print "excellent" Case 9 Print "good" Case 8 Print "pass" Case Else Print "fail" End Select

下列程序段的执行结果为( )。 A=2 B=5 If A * B ＜ 1 Then B=B - 1 Else B= - 1 Print B -A ＞ 0 A) True B) False C) -1 D) 1

用来设置文本框有无滚动条的属性是（ ）。

在代码编辑器中，续行符是用来换行书写同一个语句的符号，用以表示续行符的是（ ）。

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

有如下事件过程： Private Sub Command1_Click() b=10 Do Until b=-1 a=InputBox("请输入a的值") a=Val(a) b=InputBox("请输入b的值") b=Val(b) a=a * b Loop Print a End Sub 程序运行后，依次输入数值30，20，10，-1，输出结果为（ ）。

单击命令按钮时，下列程序的执行结果是( )。 Private Sub Commandl_Click( ) BT 4 End Sub PriVate Sub BT(x As Integer) X=X * 2 + 1 If x ＜6 Then Call BT(x) End If X=x * 2 Print x； End Sub

单击命令按钮时，下列程序的执行结果为（ ）。 Private Sub Command1_Click() Dim x As Integer，y As Integer x=50：y=78 Call PPP(x，y) Print x；y End Sub Public Sub PPP(ByVal n As Integer，ByValm As Integer) n=n\10 m=m\10 End Sub

表达式(3/2+1)*(5/2+2)的值是（ ）。

下面哪个程序段能够正确裙带如果A＜B，则A=1，否则A=-1 ？

以下叙述中错误的是______。

单击命令按钮时，下列程序代码的运行结果为( )。 Private Sub Command1_Click() print MyFunc(20，18) End Sub Public Function MyFunc (m As Integer，n As Integer)As Integer Do While m <>n Do While m ＞ n：m=m - n：Loop Do While m ＜ n：n=n - m：Loop Loop MyFunc=m End FunCtion

有如下程序： Private Sub Commandl_Click( ) Dim i As Integer For i=1 To 2 DS Next i End Sub Sub DS( ) Dim x As Integer，m As String Static y，n X=X + 1 y=y + 1 m=m &"*”：n=n&"#" Print x，y，m，n End Sub 程序运行后，输出的结果是( )。

新建一个列表框，要实现对列表项可以复选，应设置的属性是（）。

新建一个列表框，要实现对列表项可以复选，应设置的属性是（）。

计算z的值，当x大于y时，z=x；否则z=y。下列语句错误的是（）。

要将名为MyForm的窗体显示出来，正确的使用方法是（）。

Sub过程与Function过程最根本的区别是（）。

用于将屏幕上的对象分组的控件是（）。

下面4个CT函数中是用来判断用户输入的数是否为奇数的，是奇数的返回1，否则返回0，其中正确的是（）。

下列程序段的执行结果为（）。　　a=5 　　Fork=1 To 0 　　　　a=a + k 　　Next k 　　Print k；a

下列程序段的执行结果为( )。　　A=2 　　B=5 　　If A * B ＜ 1 Then B=B - 1 Else B= - 1 　　Print B -A ＞ 0 A) True B) False C) -1 D) 1

用来设置文本框有无滚动条的属性是（）。

在代码编辑器中，续行符是用来换行书写同一个语句的符号，用以表示续行符的是（）。

表达式(3/2+1)*(5/2+2)的值是（）。