若在窗体模块的声明部分声明了如下自定义类型和数组 Privme Type ...

单项选择题

下面程序运行时，单击窗体后，窗体上显示的结果是( )。 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 ³ 的和

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

你可能感兴趣的试题

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

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

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

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

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

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

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

设一棵满二叉树共有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