为了实现鼠标自动拖放，必须把( )属性设置为1；而为了执行手动拖放，必...

单项选择题

下面程序运行时，单击窗体后，窗体上显示的结果是( )。 Private Sub Form_Click() Dim i As Integer，sum As Long DimtAs Long t=1：sum=0 For i=l To 3 t=t*i sum=sum+t Next i Print sum End Sub

A．3
B．9
C．5
D．6

单项选择题

在窗体上画一个命令按钮(Name属性为Command1)，然后编写如下事件过程： Private Sub Command1_Click() Dim a(10)As Interger，p(3)As Interger K=5 For i=1 To 10 a(i)=i Next i For i=l To 3 p(i)=a(ii) Next i For i=1 To 3 k=k+p(i)2 Next i Printk End Sub 程序运行后，单击命令按钮，输出结果是( )。

A．35
B．28
C．33
D．37

单项选择题

在运行阶段，要在文本框Text1获得焦点时选中文本框中所有内容，如图所示，对应的事件过程是( )。

A．Private Sub Text1_LostFocus() Text1．SelStart=0 Text1．SelLength=Len(Text1．Text) End Sub
B．Private Sub Text1_GotFocus() Text1．SelStart=0 Text1．SelLength=Len(Text1．Text) End Sub
C．Private Sub Text1_Change() Text1．SelStart=0 Text1．SelLength=Len(Text1．Text) End Sub
D．Private Sub Text1_SetFocus() Text．SelStart=0 Text1．SelLength=Len(Text1．Text) End Sub

单项选择题

下列程序段不正确的是( )。

A．Dim a As Integer a=array(1，2，3，4)
B．Dim a()，b() a=array(1，2，3，)：b=a
C．Dim a As Variant a=array(1，"asd"，true)
D．Dim a() As Variant a=array(1，2，3，4)

单项选择题

在窗体上画一个命令按钮(其Name属性为Command1)，然后编写如下代码： Option Base 1 Private Sub Command1_Click() Dim a a=Array(1，2，3，4)：j=1 For i=4 To 1 Step -1 S=S+a(i)j：j=j10 Nexti Print s End Sub 运行上面的程序，单击命令按钮，其输出结果是( )。

A．4321
B．12
C．34
D．1234

单项选择题

在窗体上用复制、粘贴的方法建立了一个命令按钮数组，数组名为ComTestl。设窗体Form1标题为“MyForm1”，双击控件数组中的第3个按钮，打开代码编辑器，编写如下代码： Privae Sub ComTestl_Click(IndexAs Integer) Form1．Caption="MyForm2" End Sub 运行时，单击按钮数组中的第1个按钮，则窗体标题显示为( )。

A．Form1
B．ComTestl
C．MyForm1
D．MyForm2

单项选择题

下列操作中不能向工程中添加窗体的是( )。

A．执行“工程”菜单中的“添加窗体”命令
B．单击工具栏上的“添加窗体”按钮
C．右击窗体，在弹出的菜单中选择“添加窗体”命令
D．右击工程资源管理器，在弹出的菜单中选择“添加”命令，然后在下一级菜单中选择“添加窗体”命令

单项选择题

下列有关过程的叙述中错误的是( )。

A．如果过程被定义为Static类型，则该过程中的局部变量都是Static类型
B．Sub过程中不能嵌套定义Sub过程
C．Sub过程中可以嵌套调用Sub过程
D．事件过程可以像通用过程一样由用户定义过程名

单项选择题

运行下面的程序，单击命令按钮，输出结果为( )。 Function F(a As Integer) b=0：Stmic c b=b+1：C=c+1：F=a+b+c EndFunction Private Sub Command1_Slick() DimaAs Integer a=2 For i=1 To 3 Print F(a) Next i End Sub

A．3 3 3
B．3 4 5
C．3 5 7
D．3 6 9

单项选择题

以下程序在文本框Text1中输入任一字符串，并按相反的次序显示在文本框Text2中，在横线处应填写( )。 Dim N As String，C As String，D As String N=Text1．Text M= For i=M To 1 Step -1 C=Mid(N，i，1)：D=D＆C Next i Text2．Text=D End Sub

A．Len(Text1．Text)-1
B．Text1．MaxLength
C．Len(N)-1
D．Len(Text1．Text)

单项选择题

在属性窗121中把窗体的KeyPreview属性设置为True，然后编写如下两个事件过程： Private Sub Form_KeyDown(KeyCode As Integer，Shift As Integer) Print Chr(KeyCode) End Sub Private Sub Form_KeyPress(KeyAscii As Integer) Print Chr(KeyAscii) End Sub 在一般情况下(即不按住Shift键和锁定大写)，运行程序，如果按“A”键，则程序输出的是( )。

A．A a
B．a A
C．A A
D．a a

单项选择题

关于MDI窗体下列说法正确的是( )。

A．一个应用程序可以有多个MDI窗体
B．子窗体可以移到MDI窗体以外
C．不可以在MDI窗体上放置按钮控件
D．MDI窗体的子窗体不可拥有菜单

单项选择题

为了实现鼠标自动拖放，必须把( )属性设置为1；而为了执行手动拖放，必须把该属性设置为0。

A．DrawStyle
B．DrawMode
C．DragMode
D．DrawWidth

单项选择题

窗体上有文本框Text1和一个菜单，菜单标题、名称见表，结构如图所示。要求程序执行时单击“保存”菜单项，则把其标题显示在Text1文本框中，下面可实现此功能的事件过程是( )。

A．Private Sub save_Click() save_Click() Text1．Text=file．save．Caption End Sub
B．Private Sub save_Click() Text1．Text=save．Caption End Sub
C．Pfivme Sub file_Click() Text1．Text=file．save．Caption End Sub
D．Privme Sub file_Click() Text1．Text=save．Caption End Sub

单项选择题

在利用菜单编辑器设计菜单时，为了把组合键设置为“打开(O)”菜单项的访问键，可以将该菜单项的标题设置为( )。

A．打开(O&)
B．打开(O#)
C．打开(&O)
D．打开(#O)

单项选择题

若在窗体模块的声明部分声明了如下自定义类型和数组 Privme Type Tem Score As Integer StrName As String End Type Dim Student(5)As Tem 则下面的输出语句中正确的是( )。

A．Print Student．Score(2)，Student．StrName(2)
B．PrintStudent．Score．Student．StrName
C．Print Student(2)．Score，Student(2)．StrName
D．Print Score(2)，StrName(2)

单项选择题

窗体上有两个名称分别为Text1、Text2的文本框，一个名称为Command1的命令按钮。设有如下的类型声明： Type Person name As String8 majorAs String20 End Type 当单击命令按钮时，将两个文本框中的内容写入一个随机文件Test．dat中。设文本框中的数据已正确地赋值给Person类型的变量P。则能够正确地把数据写入文件的程序段是( )。

A．Open"c：＼Test．dat"For Random As #1
B．Open"c：＼Test．dat"For Random As #1
C．Open"c：＼Test．dat"For Random As #1 Len
D．Open"c：＼Test．dat"For Random As #1 Len

单项选择题

函数过程F1的功能是：如果参数a为奇数，则返回值为1，否则返回值为0。以下能正确实现所述功能的代码的是( )。

A．Function F1(a As Integer) If a Mod 2=0 Then Return 0 EIse Return 1 End If End Function
B．Function F1(a As Integer) If a Mod 2=0 Then F1=0 Else F1=1 End If End Function
C．Function F1(a As Integer) If a Mod 2=0 Then F1=1 Else F1=0 End If End Function
D．Function Fl(a As Integer) If a Mod 2<>0 Then Return 0 Else Return 1 End If End Function

单项选择题

下面程序计算并输出的是( )。 Private Sub Command1_Click() Num=10：Sum=0 Do Sum=Sum+NumNumNum Num=Num-1 Loop Until Num<=0 Print Sum End Sub

A．1 ³ +2 ³ +3 ³ …+10 ³ 的值
B．10!+…+3!1+2!+1!的值
C．f1+2+3+…+10) ³ 的值
D．10个10 ³ 的和

为了实现鼠标自动拖放，必须把( )属性设置为1；而为了执行手动拖放，必须把该属性设置为0。

你可能感兴趣的试题

算法的空间复杂度是指( )。

下列叙述中正确的是( )。

下列关于类、对象、属性和方法的叙述中，错误的是( )。

在软件开发中，需求分析阶段产生的主要文档是( )。

数据库设计的四个阶段是：需求分析、概念设计、逻辑设计和( )。

在下列关系运算中，不改变关系表中的属性个数但能减少元组个数的是( )。

下列叙述中，正确的是( )。

设一棵满二叉树共有15个结点，则在该满二叉树中的叶子结点数为( )。

设R是一个2元关系，有3个元组，S是一个3元关系，有3个元组。如T=R×S，则T的元组的个数为( )。

下列选项中，不属于数据库管理的是( )。

语句Print Sgn(-6^2)+Abs(-6^2)+int(-6^2)的输出结果是( )。

下列各种窗体事件中，不能由用户触发的事件是( )。

关于变量作用域，下列叙述中正确的是( )。

下列可作为Visual Basic变量名的是( )。

设a="Visual Basic"，下面语句中可使b="Basic"的是( )。

InputBox函数返回值的类型为( )。

在文本框中，要设置显示的文本颜色，应该设置( )属性。

为了在窗体上建立2组单选按钮，并且当程序运行时，每组都可以有一个单选按钮被选中，则以下做法中正确的是( )。

为组合框Combol增加一个列表项“电脑”，下列语句正确的是( )。

以下叙述错误的是( )。

设a=5，b=6，c=7，d=8，执行下列语句后，x的值为( )。 x=IIf((a>b)And(c>d)，10，20)

下面程序运行时，单击窗体后，窗体上显示的结果是( )。 Private Sub Form_Click() Dim i As Integer，sum As Long DimtAs Long t=1：sum=0 For i=l To 3 t=t*i sum=sum+t Next i Print sum End Sub

在运行阶段，要在文本框Text1获得焦点时选中文本框中所有内容，如图所示，对应的事件过程是( )。

下列程序段不正确的是( )。

下列操作中不能向工程中添加窗体的是( )。

下列有关过程的叙述中错误的是( )。

运行下面的程序，单击命令按钮，输出结果为( )。 Function F(a As Integer) b=0：Stmic c b=b+1：C=c+1：F=a+b+c EndFunction Private Sub Command1_Slick() DimaAs Integer a=2 For i=1 To 3 Print F(a) Next i End Sub

以下程序在文本框Text1中输入任一字符串，并按相反的次序显示在文本框Text2中，在横线处应填写( )。 Dim N As String，C As String，D As String N=Text1．Text M= For i=M To 1 Step -1 C=Mid(N，i，1)：D=D＆C Next i Text2．Text=D End Sub

关于MDI窗体下列说法正确的是( )。

为了实现鼠标自动拖放，必须把( )属性设置为1；而为了执行手动拖放，必须把该属性设置为0。

窗体上有文本框Text1和一个菜单，菜单标题、名称见表，结构如图所示。要求程序执行时单击“保存”菜单项，则把其标题显示在Text1文本框中，下面可实现此功能的事件过程是( )。

在利用菜单编辑器设计菜单时，为了把组合键设置为“打开(O)”菜单项的访问键，可以将该菜单项的标题设置为( )。

若在窗体模块的声明部分声明了如下自定义类型和数组 Privme Type Tem Score As Integer StrName As String End Type Dim Student(5)As Tem 则下面的输出语句中正确的是( )。

函数过程F1的功能是：如果参数a为奇数，则返回值为1，否则返回值为0。以下能正确实现所述功能的代码的是( )。

下面程序计算并输出的是( )。 Private Sub Command1_Click() Num=10：Sum=0 Do Sum=Sum+Num*Num*Num Num=Num-1 Loop Until Num<=0 Print Sum End Sub

下面程序计算并输出的是( )。 Private Sub Command1_Click() Num=10：Sum=0 Do Sum=Sum+NumNumNum Num=Num-1 Loop Until Num<=0 Print Sum End Sub