有如下程序： Private Sub Form_Click() 　Dim...

单项选择题

阅读下面的程序段：
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

单项选择题

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

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

单项选择题

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

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

单项选择题

编写如下事件过程：
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键和鼠标右键

单项选择题

窗体上有一个命令按钮，命令按钮的单击事件过程如下。运行程序后，单击命令按钮，输出结果是( )。
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

单项选择题

假定有如下事件过程：
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表示按下的是鼠标左键

单项选择题

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

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

单项选择题

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

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

单项选择题

以下描述正确的是( )。

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

单项选择题

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

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

单项选择题

下列关于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语句可能不执行循环体

单项选择题

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

A．Print"40*90"
B．Print 40*90
C．Print Chr$(40)+"*"+CHr$(90)
D．Print Val("40")*Val("90")

单项选择题

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

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

单项选择题

在运行阶段，要在文本框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

单项选择题

下列程序段( )能够正确实现条件：如果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

单项选择题

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

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

单项选择题

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

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

单项选择题

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

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

单项选择题

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

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

单项选择题

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

A．Dim
B．Public
C．Private
D．Static

单项选择题

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

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

单项选择题

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

标题

名称

层次

显示

appear

1(主菜单)

大图标

bigicon

2(菜单)

小图标

smallicon

3(菜单)
要求程序运行后，如果单击菜单项“大图标”，则在该菜单项前添加一个“√”。以下正确的事件过程是( )。

A．Private Sub bigicon_Click()
　bigicon.Checked=False
End Sub
B．Private Sub bigicon_Click()
　Me.appear.bigicon.Checked=True
End Sub
C．Private Sub bigicon_Click()
　bigicon.Checked=True
End Sub
D．Private Sub bigicon_Click()
　appear.bigicon.Checked=True
End Sub

单项选择题

有如下程序：
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

单项选择题

在窗体上画一个名称为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

单项选择题

在窗体上画两个滚动条，名称分别为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

单项选择题

设有如下程序：
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，则窗体上不显示任何信息

单项选择题

有如下一个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

标题	名称	层次
显示	appear	1(主菜单)
大图标	bigicon	2(菜单)
小图标	smallicon	3(菜单)

有如下程序： 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 程序运行后，单击窗体，输出结果为( )。

你可能感兴趣的试题

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

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

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

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

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

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

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

阅读下面的程序段： 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的值为( )。

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

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

编写如下事件过程： 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”，应在窗体上执行以下( )操作。

窗体上有一个命令按钮，命令按钮的单击事件过程如下。运行程序后，单击命令按钮，输出结果是( )。 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

假定有如下事件过程： 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 则以下描述中错误的是( )。

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

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

以下描述正确的是( )。

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

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

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

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

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

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

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

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

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

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

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

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

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

假定有下表所列的菜单结构： 标题 名称 层次 显示 appear 1(主菜单) 大图标 bigicon 2(菜单) 小图标 smallicon 3(菜单) 要求程序运行后，如果单击菜单项“大图标”，则在该菜单项前添加一个“√”。以下正确的事件过程是( )。

有如下程序： 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 程序运行后，单击窗体，输出结果为( )。

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

阅读下面的程序段：
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的值为( )。

编写如下事件过程：
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”，应在窗体上执行以下( )操作。

窗体上有一个命令按钮，命令按钮的单击事件过程如下。运行程序后，单击命令按钮，输出结果是( )。
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

假定有如下事件过程：
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=1
b=1
For I=1 To 3
　　f=a+b
　　a=b
　　b=f
　　Print f：
Next I