单项选择题

设窗体上有3个图像框：Image1、Image2、Image3，并有下面的程序代码：
Private Sub Form_Load()
Image1.Picture=LoadPicture("LEAF.bmp")
Image2.Picture=LoadPicture("OPEN.bmp")
Image3.Visible=False
End Sub
Private Sub Image1_Click()
Image2.Picture=Image1.Picture
End Sub
Private Sub Image2_Click()
Image3.Picture=Image2.Picture
Image2.Picture=Image1.Picture
Image1.Picture=Image3.Picture
End Sub
在程序运行期间单击Image2，则在窗体上看到的结果是

A．在Image3中显示Image2中的图片
B．Image1、Image2中原有图片被交换了
C．Image1、Image2中都是原来Imege1中的图片
D．Image1、Image2中都是原来Imege2中的图片

你可能感兴趣的试题

单项选择题

执行如下语句：
a=InputBox("Today","Tomorrow","Yesterday”,,,"Day before yesterday",5)
将显示一个对话框，在对话框的输入区中显示的信息是______。

A．Todav
B．Tomorrow
C．Yesterday
D．Day before yesterday

单项选择题

编写如下程序：
Private Sub Command1_Click()
Dim a(3, 3) As Integer, s As Integer
For i=1 To 3
For j=1 To 3
a(i, j)=i*j+i
Next j
Next i
s=0
For i=1 To 3
s=s+a(i, 4-i)
Next i
Print s
End Sub
程序运行后，单击命令按钮Command1，输出结果为

A．7
B．13
C．16
D．20

单项选择题

下列程序执行后，其输出结果为 ____ 。
Dim a(5)
For i=0 To 4
a(i)=i+1
m=i+1
If m=3 Then a(m-1)=a(i-2)Else a(m)=a(i)
If i=2 Then a(i-1)=a(m-3)
a(4)=i
Print a(i);
Next i

A．1 1 1 4 4
B．1 2 3 4 1
C．1 2 1 4 4
D．1 1 1 4 1

单项选择题

有如下程序：
Option Base 1
Private Sub Form Click()
Dim arr，Sum
Sum =0
arr=Array(1，3，5，7，9，11，13，15，17，19)
For i=1 To 10
If arr(i)/3=arr(i)\3 Then
Sum=Sum+arr(i)
End If
Next i
Print Sum
End Sub
程序运行后，单击窗体，输出结果为

A．25
B．26
C．27
D．28

单项选择题

下列程序的执行结果为______。

A．150
B．200
C．50
D．5

单项选择题

下列说法正确的是______。

A．窗体的属性包括Name、Caption、Height、Visible、Paint等
B．窗体是Visual Basic的一个控件
C．窗体的所有属性都可以在运行阶段设置
D．窗体相当于一个容器，可以把其他控件放在其上

单项选择题

对于如下图所示的二叉树，其后序遍历序列是________。

A．ABDECFG
B．DEBAFCG
C．DEBFGCA
D．GFCEBDA

单项选择题

在一个工程的窗体中有如下代码：
Public x As Integer
Private Sub Form_Load()
Dim y As Integer
End Sub
在该工程的标准模块的声明部分有如下代码：
Public a As Integer
Private b As Integer
关于上述代码，以下叙述中错误的是______。

A．变量x的作用域是整个工程
B．变量y的作用域是Form_Load过程
C．变量a的作用域是整个工程
D．变量b的作用域是整个标准模块

单项选择题

关于水平滚动条，如下叙述中错误的是______。

A．当滚动框的位置改变时，触发Change事件
B．当拖动滚动条中的滚动框时，触发Scroll事件
C．LargeChange属性是滚动条的最大值
D．Value是滚动条中滚动框的当前值

单项选择题

在E-R图中，用来表示实体联系的图形是______。

A．椭圆形
B．矩形
C．菱形
D．三角形

单项选择题

在窗体上画一个名称为Command1的命令按钮，然后编写如下代码：
Option Base 1
Function Fun(a()As Integer)
Sum=0
For i=1 To 3
For J=1 To 3
Sum=Sum+a(i,j)
Next j
Next j
Fun=Sum
End Function
Private Sub Command1_Click()
Dim arr(3,3)As Integer
For i=1 To 3
For j=1 To 3
If i=j Then
arr(i,j)=1
End If
If i＜＞j Then
arr(i,j)=j
End If
Next j
Next i
x=Fun(arr())
Print x
End Sub
程序运行后，单击命令按钮，输出结果为

A．10
B．15
C．20
D．30

单项选择题

在软件设计中，不属于过程设计工具的是______。

A．PDL(过程设计语言)
B．PAD图
C．N-S图
D．DFD图

单项选择题

以下程序的功能是随机产生10个两位的整数：
Option Base 1
Private Sub Command1_Click()
Dim a(10) As Integer, i As Integer
Randomize
For i=1 To 10
a(i)=Int(Rnd*100)+1
Print a(i)
Next i
End Sub
运行以上程序，发现有错误，需要对产生随机数的语句进行修改。以下正确的修改是

A．a(i)=Int(Rnd*100)
B．a(i)=Int(Rnd*90)+10
C．a(i)=Int(Rnd*100)+10
D．a(i)=Int(Rnd*101)

单项选择题

下列与拖放操作无关的是

A．KeyPress事件
B．Drag方法
C．DragOver事件
D．DragDrop事件

单项选择题

为了在按下回车键时执行某个命令按钮的事件过程，需要把该命令按钮的一个属性设置为True，这个属性是

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

单项选择题

如果在C盘当前文件夹下已存在名为StuData.dar的顺序文件，那么执行语句Open“C: StuData.dar” For Append As #1之后将______ 。

A．删除文件中原有内容。
B．保留文件中原有内容，可在文件尾添加新内容。
C．保留文件中原有内容，在文件头开始添加新内容。
D．以上均不对。

单项选择题

设窗体上有3个图像框：Image1、Image2、Image3，并有下面的程序代码：
Private Sub Form_Load()
Image1.Picture=LoadPicture("LEAF.bmp")
Image2.Picture=LoadPicture("OPEN.bmp")
Image3.Visible=False
End Sub
Private Sub Image1_Click()
Image2.Picture=Image1.Picture
End Sub
Private Sub Image2_Click()
Image3.Picture=Image2.Picture
Image2.Picture=Image1.Picture
Image1.Picture=Image3.Picture
End Sub
在程序运行期间单击Image2，则在窗体上看到的结果是

A．在Image3中显示Image2中的图片
B．Image1、Image2中原有图片被交换了
C．Image1、Image2中都是原来Imege1中的图片
D．Image1、Image2中都是原来Imege2中的图片

单项选择题

窗体上有一个Text1文本框、一个Command1命令按钮，并有以下程序：
Private Sub Command1_Click()
Dim n
If Text1.Text＜＞"123456" Then
n=n+1
Print "口令输入错误"&n&"次"
End If
End Sub
希望程序运行时得到图1所示的效果，即：输入口令，单击“确认口令”命令按钮，若输入的口令不是“123456”，则在窗体上显示输入错误口令的次数。但上面的程序实际显示的是图2所示的效果，程序需要修改。下面修改方案中正确的是______。

图1

图2

A．在Dim n语句的下面添加一句：n=0
B．把Print"口令输入错误"&n&"次"改为Print"口令输入错误"+n+"次"
C．把Print"口令输入错误"&n&"次"改为Print"口令输入错误"&Str(n)&"次"
D．把Dim n改为Static n

单项选择题

在窗体上画一个名称为TxtA的文本框，然后编写如下的事件过程：
Private Sub TxtA_KeyPress(keyaseii as integer)
……
End Sub
若焦点位于文本框中，则能够触发KeyPress事件的操作是

A．单击鼠标
B．双击文本框
C．鼠标滑过文稿本框
D．按下键盘上的某个键

单项选择题

某人编写了向随机文件中写一条记录的程序，代码如下：
Type RType
Name As String10
Tel As String20
End Type
Private Sub Command1_Click()
Dim p As RType
p.Name=InputBox("姓名")
p.Tel=InputBox("电话号")
Open"Books.dat"For R andom As#1
Put #1,,p
Close #1
End Sub
该程序运行时有错误，修改的方法是______。

A．在类型定义“Type RType”之前加上“Private”
B．Dim P As RType必须置于窗体模块的声明部分
C．应把Open语句中的For Random改为For Output
D．Put语句应该写为Put #1,p.Name,p.Te1

单项选择题

在窗体上画一个名称为Command1的命令按钮，并编写以下程序：
Private Sub Command1_Click()
Dim n%,b,t
t=1:b=1:n=2
Do
b=b*n
t=t+b
n=n+1
Loop Until n＞9
Print t
End Sub
此程序计算并输出一个表达式的值，该表达式是______。

A．9!
B．10!
C．1!+2!+…+9!
D．1!+2!+…+10!

单项选择题

编写如下程序：
Private Sub Command1_Click()
Dim m As Integer, n As Integer
n=2
For m=1 To 3
Print proc(n);
Next m
End Sub
Function proc(i As Integer)
Dim a As Integer
Static b As Integer
a=a+1
b=b+1
proc=a*b+i
End Function
程序运行后，单击命令按钮Command1，输出结果为______。

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

单项选择题

求1!+2!+……+10!的程序如下：
Private Function s(x As Integer)
f=1
For i=1 To x
f=f*i
Next
s=f
End Function
Private Sub Command1_Click()
Dim i As Integer, y As Long
For i=1 To 10
______
Next
Print y
End Sub
为实现功能要求，程序的括号中应该填入的内容是

A．Call s(i)
B．Call s
C．y=y+s(i)
D．y=y+s

单项选择题

窗体上有两个水平滚动条HV、HT，还有一个文本框Text1和一个标题为“计算”的命令按钮Commandl，并编写了以下程序：

Private Sub Commandl_Click()
Call calc(HV.Value,HT.Value)
End Sub
Public Sub calc(x As Integer,y As Integer)
Text1.Text=x*y
End Sub
运行程序，单击“计算”按钮，可根据速度与时间计算出距离，并显示计算结果。对以上程序，下列叙述中正确的是______。

A．过程调用语句不对，应为calc(HV,HT)
B．过程定义语句的形式参数不对，应为Sub calc(x As Control,yAs Control)
C．计算结果在文本框中显示出来
D．程序不能正确运行

单项选择题

如果一个正整数从高位到低位上的数字依次递减，则称其为降序数(如9632是降序数，而8516则不是降序数)。现编写如下程序，判断输入的正整数是否为降序数。
Private Sub Command1_Click()
Dim n As Long
Dim flag As Boolean
n=InputBox("输入一个正整数")
s=Trim(Str(n))
For i=2 To Len(s)
If Mid(s,i -1,1)＜Mid(s,i,1)Then Exit For
Next i
IF i=Len(s)Then flag=True Else flag= False
If flag Then
Print n;"是降序数"
Else
Print n;"不是降序数"
End If
End Sub
运行以上程序，发现有错误，需要对给flag变量赋值的If语句进行修改。以下正确的修改是______。

A．Ifi=Len(s)+1 Then flag=False Else flag=True
B．If i=Len(s)+1 Then flag=True Else flag=False
C．If i=Len(s)-1 Then flag=False Else flag=True
D．If i=Len(s)-1 Then flag=True Else flag=False

单项选择题

如果x为整数且|x|＞=100，则打印“OK”，否则打印“Error”，表示这个条件的单行格式If语句是______。

A．If Int(x)=x And Sqr(x)＞=100 Then Print "OK" Else Print "Error"
B．If Fix(x)=x And Abs(x)＞=100 Then Print "OK" Else Print "Error"
C．If Int(x)=x And(x＞=100，x＜=-i00)Then Print "OK" Else Print "Errort"
D．If Fix(x)=x And x＞=100 And x＜=-100 Then Print "OK" Else Print "Error"

单项选择题

阅读程序：
Private Sub Form_Click()
a=0
For j=1 To 15
a=a+j Mod 3
Next j
Print a
End Sub
程序运行后，单击窗体，输出结果是______。

A．105
B．1
C．120
D．15

单项选择题

下列程序段的执行结果为 ______。
X=5
Y=-20
If Not X＞0 Then X=Y-3 Else Y＝X+3
Print X-Y；Y-X

A．-3 3
B．5 -8
C．3 -3
D．25 -25

单项选择题

在数据管理技术发展过程中，文件系统与数据库系统的主要区别是数据库系统具有 ______。

A．数据无冗余
B．数据可共享
C．专门的数据管理软件
D．特定的数据模型

单项选择题

算法的有穷性是指 ____ 。

A．算法程序的运行时间是有限的
B．算法程序所处理的数据量是有限的
C．算法程序的长度是有限的
D．算法只能被有限的用户使用

单项选择题

下面不属于软件需求分析阶段主要工作的是______。

A．需求变更申请
B．需求分析
C．需求评审
D．需求获取

单项选择题

设Label1、Command1、Text1、Check1分别为标签、命令按钮、文本框、复选框的名称，则以下属性设置语句中，运行时不会出错的是

A．Label1.BackStyle=2
B．Command1.Style=1
C．Text1.ScrollBars=4
D．Check1.Value=2

单项选择题

以下叙述中错误的是______。

A．Visual Basic是事件驱动型可视化编程工具
B．Visual Basic应用程序不具有明显的开始和结束语句
C．Visual Basic工具箱中的所有控件都具有宽度(Width)和高度(Height)属性
D．Visual Basic中控件的某些属性只能在运行时设置

单项选择题

以下关于图片框控件的说法中，错误的是______。

A．可以通过Print方法在图片框中输出文本
B．图片框控件中的图形可以在程序运行过程中被清除
C．图片框控件中可以放置其他控件
D．用Stretch属性可以自动调整图片框中图形的大小

单项选择题

在窗体上画—个名称为Text1的文本框，并编写如下程序：
Private Sub Form_Load()
Show
Text1.Text=" "
Text1.SetFocus
End Sub
Private Sub Form_MouseUp(Button As Integer,Shift As Integer,X As Single,Y As Single)
Print "程序设计"
End Sub
Private Sub Text1_KeyDown(KeyCode As Integer,Shift As Integer)
Print "Visual Basic"；
End Sub
程序运行后，如果按A键，然后单击窗体，则窗体上显示的内容是 ______。

A．Visual Basic
B．程序设计
C．A程序设计
D．Visual Basic程序设计