单项选择题

有一个名称为Form1的窗体，上面没有控件，设有以下程序(其中方法Pset(X，Y)的功能是在坐标X，Y处画一个点)：
Dim cmdmave As Boolean
Private Sub Form_MouseDown(Button As Integet, Shift As Integer, X As Single, Y As Single)
cmdmave=True
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If cmdmave Then
Form1.Pset(X, Y)
End If
End Sub
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
cmdmave=False
End Sub
此程序的功能是______。

A．每按下鼠标键一次，在鼠标所指位置画一个点
B．按下鼠标键，则在鼠标所指位置画一个点；放开鼠标键，则此点消失
C．不按鼠标键而拖动鼠标，则沿鼠标拖动的轨迹画一条线
D．按下鼠标键并拖动鼠标，则沿鼠标拖动的轨迹画一条线，放开鼠标键则结束画线

你可能感兴趣的试题

单项选择题

软件是指______。

A．程序
B．程序和文档
C．算法加数据结构
D．程序、数据与相关文档的完整集合

单项选择题

软件调试的目的是______。

A．发现错误
B．改正错误
C．改善软件的性能
D．验证软件的正确性

单项选择题

在面向对象方法中，实现信息隐蔽是依靠______。

A．对象的继承
B．对象的多态
C．对象的封装
D．对象的分类

单项选择题

下列叙述中，不符合良好程序设计风格要求的是______。

A．程序的效率第一，清晰第二
B．程序的可读性好
C．程序中要有必要的注释
D．输入数据前要有提示信息

单项选择题

下列叙述中正确的是______。

A．程序执行的效率与数据的存储结构密切相关
B．程序执行的效率只取决于程序的控制结构
C．程序执行的效率只取决于所处理的数据量
D．以上三种说法都不对

单项选择题

下列叙述中正确的是______。

A．数据的逻辑结构与存储结构必定是一一对应的
B．由于计算机存储空间是向量式的存储结构，因此，数据的存储结构一定是线性结构
C．程序设计语言中的数组一般是顺序存储结构，因此，利用数组只能处理线性结构
D．以上三种说法都不对

单项选择题

冒泡排序在最坏情况下的比较次数是______。

A．n(n+1)/2
B．nlog2n
C．n(n-1)/2
D．n/2

单项选择题

一棵二叉树中共有70个叶子结点与80个度为1的结点，则该二叉树中的总结点数为______。

A．219
B．221
C．229
D．231

单项选择题

下列叙述中正确的是______。

A．数据库系统是一个独立的系统，不需要操作系统的支持
B．数据库技术的根本目标是要解决数据的共享问题
C．数据库管理系统就是数据库系统
D．以上三种说法都不对

单项选择题

下列叙述中正确的是______。

A．为了建立一个关系，首先要构造数据的逻辑关系
B．表示关系的二维表中各元组的每一个分量还可以分成若干数据项
C．一个关系的属性名表称为关系模式
D．一个关系可以包括多个二维表

单项选择题

要使一个文本框可以显示多行文本，应设置为True的属性是______。

A．Enabled
B．MultiLine
C．MasLenfth
D．Width

单项选择题

在窗体上有一个名为Text1的文本框。当光标在文本框中时，如果按下字母键“A”，则被调用的事件过程是______。

A．Form_KeyPress()
B．Text1_LostFocus()
C．Text1_Click()
D．Text1_Change()

单项选择题

设在窗体上有一个名称为Command1的命令按钮和一个名称为Text1的文本框。要求单击Command按钮时可把光标移到文本框中。下面正确的事件过程是______。

A．Private Sub Command1_Click()Text1.GotFocusEnd Sub
B．Private SubCommand1.GotFocusEnd Sub
C．Private Sub Command1_Click()Text1.SetFocusEnd Sub
D．Private SubCommand1.SetFocusEnd Sub

单项选择题

执行以下程序后输出的是______。
Private Sub Command1_Click()
Ch$="AABCDEFGH"
Print Mid(Righ(ch$,6)，Len(left(ch$,4)),2)
End Sub

A．CDEFGH
B．ABCD
C．FG
D．AB

单项选择题

设在窗体Form1上有一个列表框List1，其中有若干个项目。要求单击列表框中某一项时，把该项显示在窗体上，正确的事件过程是______。

A．Prvate Sub List1_Click()Print List1.TextEnd Sub
B．Private Sub Form1_Click()Print List1.TextEnd Sub
C．Private Sub List1_Click()Print Form1.TextEnd Sub
D．Private Sub Form1_Click()List1.Print List1.TextEnd Sub

单项选择题

若窗体上的图片框中有一个命令按钮，则此按钮的Left属性是指______。

A．按钮左端到窗体左端的距离
B．按钮左端到图片框左端的距离
C．按钮中心点到窗体左端的距离
D．按钮中心点到图片框左端的距离

单项选择题

为使程序运行时通用对话框CD1上显示的标题为“对话框窗口”，若通过程序设置该标题，则应使用的语句是______。

A．CD1.DialogTitle="对话框窗口"
B．CD1.Action="对话框窗口"
C．CD1.FileName="对话框窗口"
D．CD1.Filter="对话框窗口"

单项选择题

在窗体上有如下图所示的控件，各控件的名称与其标题相同，并有如下程序：

Prirate Sub Form_Load()
Command2.Enabled=False
Check1.Value=1
End Sub
刚运行程序时，看到的窗体外观是______。

单项选择题

设在窗体中有一个名称为List1的列表框，其中有若干个项目(见下图)。要求选中某一项后单击Command1按钮，就删除选中的项，则正确的事件过程是______。

A．Private Sub Command1_Click()List1.ClearEnd Sub
B．Private Sub Command1_Click()List1.Clear List1.List IndexEnd Sub
C．Private Sub Command1_Click()List1.Removeltem List1.ListIndexEnd Sub
D．Private Sub Command1_Click()List1.RemoveltemEnd Sub

单项选择题

某人设计了如下程序用来计算并输出7!(7的阶乘)。
Private Sub Command1_Click()
t=0
For k=7 To 2 Step-1
t=t*k
Next
Print t
End Sub
执行程序时，发现结果是错误的，下面的修改方案中能够得到正确结构的是______。

A．把t=0改为t=1
B．把For k=7 To 2 Step-1改为For k=7 To1 Step-1
C．把For k=7 To 2 Stip-1改为Fork=1 To 7
D．把Next改为Nexi k

单项选择题

若窗体中已经有若干个不同的单选按钮，要把它们改为一个单选按钮数组，在属性窗口中需要且只需要进行的操作是______。

A．把所有单选按钮的Index属性改为相同值
B．把所有单选按钮的Index属性改为连续的不同值
C．把所有单选按钮的Caption属性值改为相同
D．把所有单选按钮的名称改为相同，且把它们的Index属性改为连续的不同值。

单项选择题

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

标题名称

文件 file

新建 new

保存 save

A．Private Sub save_Click()Text1.Text=file.save.CaptionEnd Sub
B．Private Sub save_Click()Text1.Text=save.CaptionEnd Sub
C．Private Sub file_Click()Text1.Text=file.save.CaptionEnd Sub
D．Private Sub file_Click()Text1.Text=save.CaptionEnd Sub

单项选择题

某人在窗体上画了一个名称为Timer1的计时器和一个名称为Lab的属性设置为Enabled=True，Interval=0，并编程如下。希望在每2秒在标签上显示一次系统当前时间。
Private Sub Timer1_Timer()
Label1.Caption=Time
End Sub
在程序执行时发现未能实现上述目的，那么，他应做的修改是______。

A．通过属性窗口把计时器的Interval属性设置为2000
B．通过属性窗口把计时器的Enabled属生设置为False
C．把事件过程中的Label1.Caption=Time$语句改为Timer1.Interval=Tims
D．把事件过程中的Label1.Caption=Time$语句改为Label1.Caption=Timer1.Time

单项选择题

形状控件的Shape属性有6种取值，分别代表6种几何图形。下列不属于这6种几何图形的是______。

单项选择题

下面关于文件的叙述中错误的是______。

A．随机文件中各条记录的长度是相同的
B．打开随机文件时采用的文件存取方式应该是Random
C．向随机文件中写数据应使用语句Print#文件号
D．打开随机文件与打开顺序文件一样，都使用Open语句

单项选择题

设窗体上有一个图片框Picture1，要在程序运行期间装入当前文件夹下的图形文件File1.jpg，能实现此功能的语句是______。

A．Picture1.Picture=File1.jpg
B．Picture1.Picture=LoadPicture("File1.jpg")
C．LoadPicture("File1.jpg")
D．Call LoadPicture("File1.jpg")

单项选择题

下面程序执行时，在窗体上显示的是______。
Private Sub Command1_Click()
Dim a(10)
For k=1 To 10
a(k)=11-k
Next k
Print a(a(3)\a(7)Mod a(5))
End Sub

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

单项选择题

为达到把a、b中的值交换后输出的目的，某人编程如下：
Private Sub Command1_Click()
a%=10:b%=20
Call swap(a,b)
Print a,b
End Sub
Private Sub swap(ByVal a As Integer, ByVal b As Integer)
c=a:a=b:b=c
End Sub
在运行时发现输出结果错了，需要修改。下面列出的错误原因和修改方案中正确的是______。

A．调用swap过程的语句错误，应改为Call swap a,b
B．输出语句错误，应改为：Print "a", "b"
C．过程的形式参数有错，应改为：swap(ByRef a As Integer, ByRef b As Integer)
D．swap中3条赋值语句的顺序是错误的，应改为a=b:b=c:c=a

单项选择题

有如下函数：
Function fun(a As Integer, n As Integer)As Integer
Dim m As Integer
While a＞=n
a=a-n
m=m+1
Wend
fun=m
End Function
该函数的返回值是______。

A．a乘以n的乘积
B．a加n的和
C．a减n的差
D．a除以n的商(不含小数部分)

单项选择题

下面程序的输出结果是______。
Private Sub Command1_Click()
ch$="ABCDEF"
proc ch
Print ch
End Sub
Private Sub proc(ch As String)
S=""
For k=Len(ch)To 1 Step-1
s=s&Mid(ch,k,1)
Next k
ch=s
End Sub

A．ABCDEF
B．FEDCBA
C．.A
D．.F

单项选择题

某人编写了一个能够返回数组a中10个数中最大数的函数过程，代码如下：
Function MaxValue(a()As Integer)As Integer
Dim max%
max=1
For k=2 To 10
If a(k)＞a(max)Then
max=k
End If
Next k
MaxValue=max
End Function
程序运行时，发现函数过程的返回值是错的，需要修改，下面的修改方案中正确的是______。

A．语句max=1应改为max=a(1)
B．语句For k=2 To 10应改为For k=1 To 10
C．If语句中的条件a(k)＞a(max)应改为a(k)＞max
D．语句MaxValue=max应改为MaxValue=a(max)

单项选择题

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

单项选择题

有一个名称为Form1的窗体，上面没有控件，设有以下程序(其中方法Pset(X，Y)的功能是在坐标X，Y处画一个点)：
Dim cmdmave As Boolean
Private Sub Form_MouseDown(Button As Integet, Shift As Integer, X As Single, Y As Single)
cmdmave=True
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If cmdmave Then
Form1.Pset(X, Y)
End If
End Sub
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
cmdmave=False
End Sub
此程序的功能是______。

A．每按下鼠标键一次，在鼠标所指位置画一个点
B．按下鼠标键，则在鼠标所指位置画一个点；放开鼠标键，则此点消失
C．不按鼠标键而拖动鼠标，则沿鼠标拖动的轨迹画一条线
D．按下鼠标键并拖动鼠标，则沿鼠标拖动的轨迹画一条线，放开鼠标键则结束画线

单项选择题

某人设计了下面的函数fun，功能是返回参数a中数值的位数。
Function fun(a As Integer)As Integer
Dim n%
n=1
While a\10＞=0
n=n+1
a=a\10
Wend
fun=n
End Function
在调用该函数时发现返回的结果不正确，函数需要修改，下面的修改方案中正确的是______。

A．把语句n=1改为n=0
B．把循环条件a\10＞=0改为a\10＞0
C．把语句a=a\10改为a=a Mod 10
D．把语句fun=n改为fun=a

单项选择题

在窗体上有一个名称为Check1的复选框数组(含4个复选框)，还有一个名称为Text1的文本框，初始内容为空。程序运行时，单击任何复选框，则把所有选中的复选框后面的方字罗列在文本框中(见下图)。下而能实现此功能的事件过程是______。

A．Private Sub Check1_Click(Indes As Integer)Text1.Text=""For k=0 To 3If Check1(k).value=1 ThenText1.Text=Text1.Text&Check1(k).Capkion&"""双引号中是空格End IfNext kEnd Sub
B．Private Sub Check1_Click(Index As Integer)For k=0 To 3If Check1(k).Value=1 ThenText1.Text=Text1.Text&Check1(k).Caption&"" "双引号中是空格End IfNext kEnd Sub
C．Private Sub Check1_Click(tndex AS Integer)Text1.Text=""For k=0 To 3If Check1(k).Value=1 ThenText1.Text=Text1.Text&Check1(Index).Caption&"" "双引号中是空格End IfNext kEnd Sub
D．Private Sub Check1_Click(Index As Integer)Text1Text=""For k=0 To 3If Check1(k).Value=1 ThenText1.Text=Text1.Text&Checkl(k). Caption&"" "双引号中是空格Exit ForEnd IfNext kEnd Sub

单项选择题

设“A$="北京",B$="Shanghai"”，则表达式“LEFTS(A$,2)+STRINGS(3,"-")+LEFTS(BS,8)”构成的字符串是______。

A．”北京— — —”
B．"北京— — —Shanghai"
C．"Shanghai"
D．"北京Shanghai"

单项选择题

有如下一个函数过程：
Function fn(ByVal num As Long)
Dim k As Long
k=1
num=Abs(hum)
do while num
k=k*(num Mod 10)
num=num\10
Loop
fn=k
End Function
以下是一个调用该函数的事件过程，在运行该程序后，在输入对话框输入数字“123”，该过程的运行结果是______。
Private Sub Command1_Click()
Dim n As Long
Dim r As Long
n=InputBox("请输入一个数值")
n=CLng(n)
r=fn(n)
Print r
End Sub

A．12
B．6
C．3
D．1

单项选择题

在窗体上画一个文本框，然后编写如下事件过程：
Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim char As String
char=Chr(KeyAscii)
KeyAscii=Asc(Ucase(char))
Print String(6, KeyAscii)
End Sub
程序运行后，如果在键盘上输入字母“a”，则窗体上显示的内容为______。

A．.a
B．.A
C．aaaaaa
D．AAAAAA

单项选择题

在窗体(Name属性为form1)上画两个文本框(Name属性分别为Text1和Text2)和一个命令按钮(Name属性为Command1)，然后编写如下两个事件过程，该过程的运行结果为______。
Private Sub Command1_Click()
a=Text1.Text+Text2.Text
Print a
End Sub
Private Sub form_Load()
Text1.Text="123"
Text2.Text="321"
End Sub

A．444
B．321123
C．123321
D．132231

单项选择题

在Visual Basic中，要将一个窗体装载到内存进行预处理，但不显示，应该使用______语句。

A．Show
B．Hide
C．Load
D．Unload