运行下面的程序，单击命令按钮，输出结果为( )。 Functio...

单项选择题

下面程序运行时，单击窗体后，窗体上显示的结果是( )。 Private Sub Form_ClickO Dim i As Integer,sum As Long DimtAs Long t＝1：sum＝0 For i＝1 To 3 t＝t*i sum＝sum＋t Nexti 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＝l TO 10 a(i)＝i Next i For i＝1 To 3 p(i)＝a(ij) 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()AsVariant a＝array(1，2，3，4)

单项选择题

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

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

单项选择题

在窗体上画一个命令按钮(其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

单项选择题

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

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

单项选择题

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

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

单项选择题

运行下面的程序，单击命令按钮，输出结果为( )。 FunctionF(aAs Integer) b＝0：Static c b＝b＋1：c＝c＋1：F＝a＋b＋c End Function Private sub Command1_Click() Dim a As Integer a＝2 For i＝1 To 3 PrintF(a) Next i End Sub

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

单项选择题

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

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

单项选择题

在属性窗口中把窗体的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．Private SUb file_Click() Text1．Text＝file．save．Caption End Sub
D．Private SUb file_Click() Text1．Text＝save．Caption End Sub

单项选择题

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

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

单项选择题

若在窗体模块的声明部分声明了如下自定义类型和数组 Private Type Tem Score As Integer StrNameAs 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 major As String20 End Type 当单击命令按钮时，将两个文本框中的内容写入一个随机文件Test．dat中。设文本框中的数据已正确地赋值给Person类型的变量P。则能够正确地把数据写入文件的程序段是( )。

A．Open”c：＼Test．dat”For Random As#1 Put #1，1，P Close#1
B．Open"c：＼Test．dat"For Random As #1 Get#1，1，P Close #1
C．Open"c：＼Test．dat"For Random As #1 Len ＝Len(p) Put#1,1,p Close#1
D．Open"c：＼Test．dat"For Random As #1 Len ＝Len(p) Get #1，1，P Close # 1

单项选择题

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

A．Function Fl(a As Integer) If a Mod 2＝0 Then Return 0 Else Return 1 End If End Function
B．Function F1(a As Integer) Ifa Mod 2＝0 Then F1＝0 Else F1＝1 End If End Function
C．Function Fl(a As Integer) Ifa Mod 2＝0 Then F1＝1 Else F1＝0 End If EndFunction
D．Function F1(a As Integer) Ifa Mod 2＜＞0 Then Return 0 Else Return 1 EndIf End Function

单项选择题

下面程序计算并输出的是( )。 Private Sub Command1_Click() Num＝10：Sum＝0 Do Sum＝Sum＋NumNumNum Num＝Num－1 Loop Unti1 Num＜＝ 0 Print Sum End Sub

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

运行下面的程序，单击命令按钮，输出结果为( )。 FunctionF(aAs Integer) b＝0：Static c b＝b＋1：c＝c＋1：F＝a＋b＋c End Function Private sub Command1_Click() Dim a As Integer a＝2 For i＝1 To 3 PrintF(a) Next i End Sub

你可能感兴趣的试题

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

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

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

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

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

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

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

设一棵满二叉树共有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_ClickO Dim i As Integer,sum As Long DimtAs Long t＝1：sum＝0 For i＝1 To 3 t＝t*i sum＝sum＋t Nexti Print sum End Sub

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

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

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

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

运行下面的程序，单击命令按钮，输出结果为( )。 FunctionF(aAs Integer) b＝0：Static c b＝b＋1：c＝c＋1：F＝a＋b＋c End Function Private sub Command1_Click() Dim a As Integer a＝2 For i＝1 To 3 PrintF(a) Next i End Sub

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

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

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

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

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

若在窗体模块的声明部分声明了如下自定义类型和数组 Private Type Tem Score As Integer StrNameAs 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 Unti1 Num＜＝ 0 Print Sum End Sub

下面程序计算并输出的是( )。 Private Sub Command1_Click() Num＝10：Sum＝0 Do Sum＝Sum＋NumNumNum Num＝Num－1 Loop Unti1 Num＜＝ 0 Print Sum End Sub