已知变量X、Y为整型，且x=4，y=12，S为字符串型，且s=a，1blok...

单项选择题

假定有如下事件过程： Private Sub Form_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single) 　If Button=2 Then 　　PopupMenu popForm 　End If End Sub 则以下描述中错误的是( )。

A．该过程的功能是弹出一个菜单
B．PopForm是在菜单编辑器中定义的弹出式菜单的名称
C．参数X、Y指明鼠标的当前位置
D．Button=2表示按下的是鼠标左键

单项选择题

阅读下面的程序段： For i=1 To 3 For j=1 To i For k=j To 4 a=a+1 Next k Next j Next i 执行上面的三重循环后，a的值为( )。

A．9
B．14
C．20
D．21

单项选择题

下列各选项说法错误的一项是( )。

A．文件对话框可分为两种，即打开(Open)文件对话框和保存(Save As)文件对话框
B．通用对话框的Name属性的默认值为CommonDialogX，此外，每种对话框都有自己的默认标题
C．打开文件对话框可以让用户指定一个文件，由程序使用；而用保存文件对话框可以指定一个文件，并以这个文件名保存当前文件
D．DefaultEXT属性和DialogTitle属性都是打开对话框的属性，但非保存对话框的属性

单项选择题

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

A．Private Sub Text1_GotFocus() Text1.SelStart=0 Text1.SelStart=Len(Text1.text) End Sub
B．Private Sub Text1_LostFocus() Text1.SelStart=0 Text1.SelStart=Len(Text1.text) End sub
C．Private Sub Text1_Change() Text1.SelStart=0 Text1.SelStart=Len(Text1.text) End sub
D．Private Sub Text1_SetFocus() Text1.SelStart=0 Text1.SelStart=Len(Text1.text) End sub

单项选择题

以下叙述中错误的是( )。

A．一个工程可以包括多种类型的文件
B．Visual Basic应用程序既能以编译方式执行，也能以解释方式执行
C．程序运行后，在内存中只能驻留一个窗体
D．对于事件驱动型应用程序，每次运行时的执行顺序可以不一样

单项选择题

设有以下循环结构 Do 循环体 Loop While〈条件〉则以下叙述中错误的是( )。

A．若“条件”是一个为0的常数，则一次也不执行循环体
B．“条件”可以是关系表达式、逻辑表达式或常数
C．循环体中可以使用Exit Do语句
D．如果“条件”总是为True，则不停地执行循环体

单项选择题

下列程序段( )能够正确实现条件：如果X＜Y则A=15，否则A=-15。

A．If X＜Y Then A=15 A=-15 Prin A
B．If X＜Y Then A=15:Print A A=-15:Print A
C．If X＜Y Then A=1.5:Print A Else A=-15:Print A End If
D．If X＜Y Then A=15 Else A=-15 Print A End If

单项选择题

已知变量X、Y为整型，且x=4，y=12，S为字符串型，且s=a，1blok为标签控件，下列赋值语句合法的是( )。

A．x=1blok.Caption
B．Lblok.caption=Str(x)
C．x*3=y
D．Y=x*s

单项选择题

Visual Basic根据计算机访问文件的方式将文件分成三类，其中不包括( )。

A．顺序文件
B．Unix文件 C. 二进制文件
D．随机文件

单项选择题

以下能够触发文本框Change事件的操作是( )。

A．文本框失去焦点
B．文本框获得焦点
C．设置文本框的焦点
D．改变文本框的内容

单项选择题

若要将某命令按钮设置为默认命令按钮。则应设置为True的属性是( )。

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

单项选择题

如果要在程序代码中为图片框动态加载和清除图像，可以利用( )函数。

A．InputBox
B．Input
C．LoadPicture
D．PaintPicture

单项选择题

要使控件与框架捆绑在一起，以下操作正确的是( )。

A．要在窗体不同位置上分别画一框架和控件，再将控件拖到框架上
B．在窗体上画好控件，再画框架将控件框起来
C．在窗体上画好框架，再在框架中画控件
D．在窗体上画好框架，再双击工具箱中的控件

单项选择题

窗体上有一个命令按钮，命令按钮的单击事件过程如下。运行程序后，单击命令按钮，输出结果是( )。 Private Sub Command1_Clcik() 　　Dim a a=Array(1,2,3,4,5) For k=1 To 4 　　s=s+a(k) 　Next k 　Print s End Sub

A．10
B．14
C．15
D．120

单项选择题

应用程序设计完成后，应将程序保存，保存的过程是( )。

A．只保存窗体文件即可
B．只保存工程文件即可
C．先保存工程文件，之后还要保存窗体文件
D．先保存窗体文件(或标准模块文件)，之后还要保存工程文件

单项选择题

在设计阶段，双击窗体Form1的空白处，打开代码窗口，显示( )事件过程模板。

A．Form_Click
B．Form_Load
C．Form1_Click
D．Foma1_Load

单项选择题

下面关于多重窗体的叙述中，正确的是( )。

A．作为启动对象的Main子过程只能放在窗体模块中
B．如果启动对象的Main子过程，则程序启动时不加载任何窗体，以后由该过程根据不同情况决定是否加载及加载哪一个窗体
C．没有启动窗体，程序不能运行
D．以上都不对

单项选择题

下列关于DO…Loop语句的叙述不正确的是( )。

A．Do…loop语句采用逻辑表达式来控制循环体执行的次数
B．当Do while…Loop或Do until…Loop语句中while或until后的表达式的值为true或非零时，循环继续
C．Do…Loop while语句与Do…Loop until语句都至少执行一次循环体
D．Do while…Loop语句与Do until…Loop语句可能不执行循环体

单项选择题

为启动定时器控件，需要设置定时器的属性是( )。

A．Name
B．Interval
C．Left
D．Top

单项选择题

编写如下事件过程： Private Sub Form-MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single) If Shift=6 And Button=2 Then Print"Hello" End If End Sub 程序运行后，为了在窗体上输出“Hello”，应在窗体上执行以下( )操作。

A．同时按下Shift键和鼠标左键
B．同时按下Shift键和鼠标右键
C．同时按下Ctrl、Alt键和鼠标左键
D．同时按下Ctrl、Alt键和鼠标右键

单项选择题

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

A．对象成分
B．变量成分
C．语句成分
D．传输成分

单项选择题

在文本框中，当用户键入一个字符时，能同时引发的事件的是( )。

A．KeyPress和Click
B．KeyPress和LostFocus
C．KeyPress和Change
D．Change和LostFocus

单项选择题

假定有下表所列的菜单结构：

A．标题
B．名称
C．层次
D．显示
E．appear
F．1(主菜单)
G．大图标
H．bigicon
I．2(菜单)
J．小图标
K．smallicon
L．3(菜单)

单项选择题

下列选项中不属于结构化程序设计方法的是( )。

A．自顶向下
B．逐步求精
C．模块化
D．可复用

单项选择题

以下描述正确的是( )。

A．过程的定义可以嵌套，但过程的调用不能嵌套
B．过程的定义不可以嵌套，但过程的调用可以嵌套
C．过程的定义和过程的调用均可以嵌套
D．过程的定义和过程的调用均不能嵌套

单项选择题

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

A．2 3 6
B．2 3 5
C．2 3 4
D．2 2 8

单项选择题

以下关于多重窗体程序的叙述中，错误的是( )

A．用Hide方法不但可以隐藏窗体，而且能清除内存中的窗体
B．在多重窗体程序中，各窗体的菜单是彼此独立的
C．在多重窗体程序中，可以根据需要指定启动窗体
D．对于多重窗体程序，需要单独保存每个窗体

单项选择题

设有如下程序： Option Base 1 Private Sub Command1_Click() 　　Dim a(10) As Integer 　　Dim n As Integer 　　n=InputBox("输入数据") 　　If n＜10 Then 　　Call GetArray(a,n) 　　End If End Sub Private Sub GetArray(b()As Integer,n As Integer) 　　Dim c(10)As Integer 　　j=0 　　For i=1 To n 　　b(i)=Clnt(Rnd()*100) 　　Ifb(i)/2=b(i)\2 Then 　　j=j+1 　　c(j)=b(i) 　　End If 　　Next 　　Print j End Sub 以下叙述中错误的是( )。

A．数组b中的偶数被保存在数组C中
B．程序运行结束时，在窗体上显示的是c数组中元素的个数
C．GetArray过程的参数n是按值传送的
D．如果输入的数据大于10，则窗体上不显示任何信息

单项选择题

在窗体上画一个名称为Text1的文本框，一个名称为Command1的命令按钮，然后编写如下事件过程和通用过程： Private Sub Command1_Click() 　　n=Val(Text1.Text) 　　if n\2=n/2 Then 　　　f=f1(n) 　　Else 　　　f=f2(n) 　　 End If 　　Print f;n End Sub Public Function f1(ByRef x) x=xx f1=x+x End Function Public Function f2(ByVal x) 　　x=xx 　　f2=x+x+x End Function 程序运行后，在文本框中输入6，然后单击命令按钮，窗体上显示的是( )。

A．72 36
B．108 36
C．72 6
D．108 6

单项选择题

有如下程序： Private Sub Form_Click() 　Dim Check,Counter 　Check=True 　Counter=0 　Do 　　Do While Counter＜20 　　　Counter=Counter+1 　　　If Counter=10 Then 　　　　Check=False 　　　Exit Do 　　End　If Loop Loop Until Check=False Print Counter,Check End　Sub 程序运行后，单击窗体，输出结果为( )。

A．15 0
B．20　-1
C．10 True
D．10 False

单项选择题

有如下一个Sub过程： Sub mlt(ParamArray numbers()) 　　n=1 　　For Each x In numbers 　　　n=n*x 　　Next x 　　Print n End Sub 在一个事件过程中如下调用该Sub过程： Private Sub Command1_Click() Dim a As Integer Dim b As Integer Dim c As Integer Dim d As Integer a=1 b=2 c=3 d=4 mlt a,b,c,d End Sub 该程序的运行结果为( )。

A．12
B．24
C．36
D．48

单项选择题

在窗体上画两个滚动条，名称分别为Hscroll1、Hscroll2；6个标签，名称分别为Label1、Label2、Label3、Label4、Label5、Label6，其中标签Label4～Label6分别显示“A”、“B”、“AB”等文字信息，标签Label1、Label2分别显示其右侧的滚动条的数值，Label3显示AB的计算结果。如下图所示。当移动滚动框时，在相应的标签中显示滚动条的值。当单击命令按钮“计算”时，对标签Label1、Label2中显示的两个值求积，并将结果显示在Label3中。以下不能实现上述功能的事件过程是( )。

A．Private Sub Command1_Click() Label3.Caption=Str(Val(Label1.Caption)*Val(Label2.Caption)) End Sub
B．Private Sub Command1_Click() Label3.Caption=HScroll1.Value*HScroll2.Value End Sub
C．Private Sub Command1_Click() Label3.Caption=HScroll1*HScroll2 End Sub
D．Private Sub Command1_Click() Label3.Caption=HScroll1.Text*HScroll2.Text End Sub

已知变量X、Y为整型，且x=4，y=12，S为字符串型，且s=a，1blok为标签控件，下列赋值语句合法的是( )。

你可能感兴趣的试题

假定有如下事件过程： Private Sub Form_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single) If Button=2 Then PopupMenu popForm End If End Sub 则以下描述中错误的是( )。

在窗体模块的通用声明段中声明变量时，不能使用( )关键字。

下面4个语句中，能打印显示40*90字样的是( )。

在用通用对话框控件建立”打开”或”保存”文件对话框时，如果需要指定文件列表框所列出的文件类型是文本文件(即.txt文件)，则正确的描述格式是( )。

阅读下面的程序段： For i=1 To 3 For j=1 To i For k=j To 4 a=a+1 Next k Next j Next i 执行上面的三重循环后，a的值为( )。

下列各选项说法错误的一项是( )。

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

以下叙述中错误的是( )。

设有以下循环结构 Do 循环体 Loop While〈条件〉 则以下叙述中错误的是( )。

下列程序段( )能够正确实现条件：如果X＜Y则A=15，否则A=-15。

已知变量X、Y为整型，且x=4，y=12，S为字符串型，且s=a，1blok为标签控件，下列赋值语句合法的是( )。

Visual Basic根据计算机访问文件的方式将文件分成三类，其中不包括( )。

以下能够触发文本框Change事件的操作是( )。

若要将某命令按钮设置为默认命令按钮。则应设置为True的属性是( )。

如果要在程序代码中为图片框动态加载和清除图像，可以利用( )函数。

要使控件与框架捆绑在一起，以下操作正确的是( )。

窗体上有一个命令按钮，命令按钮的单击事件过程如下。运行程序后，单击命令按钮，输出结果是( )。 Private Sub Command1_Clcik() Dim a a=Array(1,2,3,4,5) For k=1 To 4 s=s+a(k) Next k Print s End Sub

应用程序设计完成后，应将程序保存，保存的过程是( )。

在设计阶段，双击窗体Form1的空白处，打开代码窗口，显示( )事件过程模板。

下面关于多重窗体的叙述中，正确的是( )。

下列关于DO…Loop语句的叙述不正确的是( )。

为启动定时器控件，需要设置定时器的属性是( )。

编写如下事件过程： Private Sub Form-MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single) If Shift=6 And Button=2 Then Print"Hello" End If End Sub 程序运行后，为了在窗体上输出“Hello”，应在窗体上执行以下( )操作。

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

在文本框中，当用户键入一个字符时，能同时引发的事件的是( )。

假定有下表所列的菜单结构：

下列选项中不属于结构化程序设计方法的是( )。

以下描述正确的是( )。

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

以下关于多重窗体程序的叙述中，错误的是( )

有如下程序： Private Sub Form_Click() Dim Check,Counter Check=True Counter=0 Do Do While Counter＜20 Counter=Counter+1 If Counter=10 Then Check=False Exit Do End If Loop Loop Until Check=False Print Counter,Check End Sub 程序运行后，单击窗体，输出结果为( )。

假定有如下事件过程： Private Sub Form_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single) 　If Button=2 Then 　　PopupMenu popForm 　End If End Sub 则以下描述中错误的是( )。

设有以下循环结构 Do 循环体 Loop While〈条件〉则以下叙述中错误的是( )。

窗体上有一个命令按钮，命令按钮的单击事件过程如下。运行程序后，单击命令按钮，输出结果是( )。 Private Sub Command1_Clcik() 　　Dim a a=Array(1,2,3,4,5) For k=1 To 4 　　s=s+a(k) 　Next k 　Print s End Sub

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