单项选择题

已知有下面的过程。
Private Sub proc1(a As Integer, b As String, Optional x As Boolean)
…
End Sub
正确调用此过程的语句是。

A．Call procl(5)
B．Call procl 5, "abc", False
C．proc1(12, "abc", True)
D．proc1 5, "abc"

你可能感兴趣的试题

单项选择题

下列叙述中正确的是______。

A．算法的效率只与问题的规模有关，而与数据的存储结构无关
B．算法的时间复杂度是指执行算法所需要的计算工作量
C．数据的逻辑结构与存储结构是一一对应的
D．算法的时间复杂度与空间复杂度一定相关

单项选择题

在结构化程序设计中，模块划分的原则是______。

A．各模块应包括尽量多的功能
B．各模块的规模应尽量大
C．各模块之间的联系应尽量紧密
D．模块内具有高内聚度、模块间具有低耦合度

单项选择题

下面选项中不属于面向对象程序设计特征的是______。

A．继承性
B．多态性
C．类比性
D．卦装性

单项选择题

下列对队列的叙述正确的是______。

A．队列属于非线性表
B．队列按“先进后出”原则组织数据
C．队列在队尾删除数据
D．队列按“先进先出”原则组织数据

单项选择题

对下列二叉树进行前序遍历的结果为______。

A．DYBEAFCZX
B．YDEBFZXCA
C．ABDYFCFXZ
D．ABCDEFXYZ

单项选择题

某二叉树中有n个度为2的结点，则该二叉树中的叶子结点数为______。

A．n+1
B．n-1
C．2n
D．n/2

单项选择题

下列叙述中正确的是______。

A．软件测试的主要目的是发现程序中的错误
B．软件测试的主要目的是确定程序中错误的位置
C．为了提高软件测试的效率，最好由程序编制者自己来完成软件的测试工作
D．软件测试是证明软件没有错误

单项选择题

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

A．.并
B．.交
C．投影
D．笛卡儿乘积

单项选择题

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

A．矩形
B．椭圆形
C．菱形
D．平行四边形

单项选择题

下列叙述中错误的是______。

A．在数据库系统中，数据的物理结构必须与逻辑结构一致
B．数据库技术的根本目标是解决数据共享问题
C．数据库技术是指已有数据管理系统的基础上建立数据库
D．数据库系统需要操作系统的支持

单项选择题

下面可以正确定义2个整型变量和1个字符串变量的语句的是______。

A．Dim n，m AS Interger，s AS Strmg
B．Dim a%，b$，c AS String
C．Dim a AS Integer，b，c AS Strmg
D．Dim x%，y AS Integer，z AS String

单项选择题

下列表述中不能判断x是否为偶数的是______。

A．x/2=Int(x/2)
B．x Mod 2=0
C．Fix(x/2)=x/2
D．x\2=0

单项选择题

设在名称为Myform的窗体上只有1个名称为C1的命令按钮，下面叙述中正确的是______。

A．窗体的Click事件过程的过程名是Myform_Click
B．命令按钮的Click事件过程名是C1_Click
C．命令按钮的Click事件过程的过程名是Command1_Click

单项选择题

设窗体上有1个滚动条，要求单击滚动条右端的
按钮一次，滚动条移动一定的刻度值，决定此刻度的属性是______。

A．Max
B．Min
C．SmallChange
D．LargeChange

单项选择题

1个二维数组可以存放1个矩形，在程序开始有语句Option Base 0，则下面定义的数组中正好可以存放1个4*3矩阵(即只有12个元素)的是______。

A．Dim a(-2 To 0，2)AS Integer
B．Dim a(3，2)AS Ingeger
C．Dim a(4，3)AS Ingeger
D．Dim a(-1 To -4，-1 To-3)AS Ingeger

单项选择题

若设置了文本框的属性PasswordChar="$"，则运行程序时向文本框中输入8个任意字符后，文本框中显示的是______。

A．8个"$"
B．1个"$"
C．8个"*"
D．无任何内容

单项选择题

设在窗体上有1个名称为Combo1的组合框，含有5个项目，要删除最后一项，正确的语句是______。

A．Combo1.RemoveItem Combo1.Text
B．Combo1.RemoveItem 4
C．Combo1.RemoveItem Combo1.ListCount
D．Combo1.RemoveItem 5

单项选择题

工程中有2个窗体，名称分别为Form1、Form2，Form1为启动窗体，该窗体上有命令按钮Command1，要求程序运行后单击该命令按钮时显示Form2，则按钮的Click事件过程应该是______。

A．Private Sub Command1_Click()Form2.ShowEnd Sub
B．Private Sub Command1_Click()Form2.VisibleEnd Sub
C．Private Sub Command1_Click()Load Form2End Sub
D．Private Sub Command1_Click()Form2.LoadEnd Sub

单项选择题

若在某窗体模块中有如下事件过程：
Private Sub Command1_Click(Index AS Integer)
……
End Sub
则以下叙述中正确的是______。

A．此事件过程与不带参数的事件过程没有区别
B．有1个名称为Command1的窗体，单击此窗体则执行此事件过程
C．有1个名称为Command1的控件数组，数组中有多个不同类型控件
D．有1个名称为Command1的控件数组，数组中有多个相同类型控件

单项选择题

以下循环语句中在任何情况下都至少执行一次循环体的是______。

A．Do While＜条件＞循环体Loop
B．While＜条件＞循环体Wend
C．Do循环体Loop Until＜条件＞
D．Do Until＜条件＞循环体Loop

单项选择题

在窗体上有1个名为Cd1的通用对话框，为了在运行程序时打开保存文件对话框，则在程序总应使用的语句是______。

A．Cd1.Action=2
B．Cd1.Action=1
C．Cd1.ShowSave=True
D．Cd1.ShowSave=0

单项选择题

下面关于菜单的叙述中错误的是______。

A．各级菜单中的所有菜单项的名称必须唯一
B．同一子菜单中的菜单项名称必须唯一，但不同子菜单中的菜单项名称可以相同
C．弹出式菜单用PopupMenu方法弹出
D．弹出式菜单也用菜单编辑器编辑

单项选择题

已知有下面的过程。
Private Sub proc1(a As Integer, b As String, Optional x As Boolean)
…
End Sub
正确调用此过程的语句是。

A．Call procl(5)
B．Call procl 5, "abc", False
C．proc1(12, "abc", True)
D．proc1 5, "abc"

单项选择题

在窗体上有一个文件名称为Text1的文本框和1个名称为Command1的命令按钮，要求在程序执行时，每单击命令按钮一次，文本框向右移动一定距离。下面能够正确实现上述功能的程序是______。

A．Private Sub Command1_Click()Text1.Left=100End Sub
B．Private Sub Command1_Click()Text1.Left=Text1.Left-100End Sub
C．Private Sub Command1_Click()Text1.Move.Text.Left+100End Sub
D．Private Sub Command1_Click()Text1.Move.Text.LeftEnd Sub

单项选择题

某人创建了1个工程，其中的窗体名称为Form1；之后义添加了1个名为Form2的窗体，并希望程序执行时先显示Form2窗体，那么，他需要做的工作是______。

A．在工程属性对话框中把“启动对象”设置为Form2
B．在Form1的Load事件过程中加入语句Load Form2
C．在Form2的Load事件过程中加入语句Form2.Show
D．在Form2的TabIndex属性设置为1，把Form1的TabIndex属性设置为2

单项选择题

窗体上有1个名称为Text1的文本框和1个名称为Command1的命令按钮。要求程序运行时，单击命令按钮，就可以把文本框中的内容写到文件out.txt中，每次写入的内容附加到文件原有内容之后。下面能够实现上述功能的程序是______。

A．Private Sub Command1_Click()Open "out.txt" For Input As #1Prink #1, Text1.TextClose #1End Sub
B．Private Sub Command1_Click()Open "out.txt" For Output As #1Print #1, Texk1.TextClose #lEnd Sub
C．private Sub Command1_Click()Open "out txt" For Append As #1Print #1, Text1.TextClose #1End Sub
D．Private Sub Command1_Click()Open "out.txt" For Random As #1Print #1, Text1.TextClose #1End Sub

单项选择题

为计算1+3+5+…+99的值，某人编程如下：
k=1
s=0
While k＜=99
k=k+2 : s=s+k
Wend
Print s
在调试时发现运行结果有错误，需要修改。下列错误原因和修改方案中正确的是______。

A．While…Wend循环语句错误，应改为For k=1 To 99…Next k
B．循环条件错误，应改为While k＜99
C．循环前的赋值语句k=1错误，应改为k=0
D．循环中两条赋值语句的顺序错误，应改为s=s+k:k=k+2

单项选择题

下面程序在调试时出现了死循环。
Private Sub Command1_Click()
n=InputBox("请输入一个整数")
Do
If n Mod 2=0 Then
n=n+1
Else
n=n+2
Else If
Loop Until n=1000
End Sub
下面关于死循环的叙述中正确的是______。

A．只有输入的n是偶数时才会出现死循环，否则不会
B．只有输入的n是奇数时才会出现死循环，否则不会
C．只有输入的n是大于1000的整数时才会出现死循环，否则不会
D．输入任何整数都会出现死循环

单项选择题

在窗体上有1个名称为CommonDialog1的通用对话框和1个名称为Command1的命令按钮，以及其他一些控件。要求在程序运行时，单击Command1按钮，则显示打开文件对话框，并在选择或输入了1个文件名后，就可以打开该文件。以下是Command1_Click事件过程的两种算法
算法1：
Private Sub Command1_Click()
CommonDialog1.Showopen
Open CommonDialog1.FileName For Input
As #1
End Sub
算法2：
Private Sub Command1_Click()
CommonDialog1.ShowOpen
IfCommonDialog1.FileName＜＞""Then
Open CommonDialog1.FileName For Input
As #1
End If
End Sub
下面关于这两种算法的叙述中正确的是______。

A．显示打开文件对话框后若未选择或输入任何文件名，则算法2会出错，算法1不会
B．显示打开文件对话框后若未选择或输入任何文件名，则算法1会出错，算法2不会
C．两种算法的执行结果完全一样
D．算法1允许输入的文件名中含有空格，而算法2不允许

单项选择题

窗体上有1个名称为List的列表框，其中已经输入了若干个项目(如下图所示)，还有2个文本框，名称分别为Text1、Text2，1个名称为Command1的命令按钮，并有以下程序：

Private Sub Command1_Click()
Dim str As String, s As String, k As Integer
s=Text1
Str=""
For k=List1.ListCount-1 to 0 Step-1
If InStr(List.List(k), s)＞0 then
str=str&List1.List(k)&""
End If
Next k
If str=""Then
Text2="没有匹配的项目"
Else
Text2=str
End If
End Sub
程序运行时，在Text1中输入“京”，单击命令按钮，则在Text2中显示的内容是______。

A．.京
B．北京南京
C．南京
D．没有匹配的项目

单项选择题

在窗体上画1个名称为Command1的命令按钮，并编写以下程序：
Private Sub Command1_Click()
Print fun("ABCDEFG")
End Sub
Function fun(st As String)As String
Stlen=Len(st)
temp=""
For k=1 To stlen/2
temp=temp+Mid(st,k,1)+Mid(st,stlen-k+1,1)
Next k
fun=temp
End Function
程序运行时，单击命令按钮，则窗体上显示的是______。

A．ABCDEFG
B．AGBFCE
C．GFEDCBA
D．AGBFCED

单项选择题

在窗体上先后画2个图片框，名称分别为Picture1和banana，banana中添加了香蕉图片(见图1)，且将banana.DragMode属性设置为1。要求程序运行时，可以用鼠标把banana拖拽到Picture1中(见图2)。能实现此功能的事件过程是______。

图1

图2

A．Private Sub Form_DragDrop(Source As Control, X As Single, Y As Single)banana.Move Picture1.Left+X, Picture1.Top+YEnd Sub
B．Private Sub banana_DragDrop(Source As Contro1, X As Single, Y As Single)Source.Move Picture1.Left+X. Picture1.Top+YEnd Sub
C．Private Sub Picture1_DragDrop(Source As Control, X As Single, Y As Single)Source.Move Picture1.Left+X. Picture1.Top+YEnd Sub
D．Private Sub Picture1_DragDrop(Source As Control, X As Single, Y As Single)banana.Move banana.Left+X, banana.Top+YEnd Sub

单项选择题

在窗体上画1个名称为Command1的命令按钮，然后编写如下事件过程：
Option Base 1
Private Sub Command1_Click()
Dim a(5, 5)As Integer
For i=1 To 5
For j=1 To 5
a(i,j)=(i+j)*5\10
Next j
Next i
s=0
For i=1 To 5
S=s+a(i,i)
Next i
Print s
End Sub
程序运行后，单击命令按钮，输出结果是______。

A．15
B．13
C．11
D．9

单项选择题

在窗体上从左到右有Text1、Text2两个文本框(见下图)，要求程序运行时，在Text1中输入1个分数后按Enter键，则判断分数的合法性，若分数为0～100中的1个数，则光标移到Text2中；否则光标不动，并弹出对话框显示“分数错”，下面程序中正确的是______。

A．Private Sub Text1_ _KeyPress(KeyAscii AS Integer)If KeyAscii=13 Then "回车符的ACSII码是13a=Val(Text1)If a＞=0 or a＜=100 ThenText2.SetFocusElseText1.SetFocus; MsgBox("分数错")End IfEnd IfEnd Sub
B．Private Sub Text1_ _KeyPEess(KeyAscii AS Integer)If KeyAscii=13 Then "回车符的ACSII码是13a=Val(Text1)If a＞=0 And a＜=100 ThenText1.SetFocusElseText2.SetFocus; NsgBox("分数错")End IfEnd IfEnd Sub
C．Private Sub Text1_ _KeyPEess(KeyAscii AS Integer)If KeyAscii=13 Then "回车符的ACSII码是13a=Val(Text1)If a＜0 And a＞100 ThenText2.SetFocusElseText1.SetFocus; NsgBox("分数错")End IfEnd IfEnd Sub
D．Private Sub Text1_ _KeyPtess(KeyAscii AS Integer)If KeyAscii=13 Then "回车符的ACSII码是13a=Val(Text1)If a＞=0 And a＜=100 ThenText2.SetFocusElseText1.SetFocus; MsgBox("分数错")End IfEnd IfEnd Sub

单项选择题

在窗体上画2个命令按钮，名称分别为Command1、Command2，并编写如下程序：
Const n=5, m=4
Dim a(m, n)
Private Sub Command1_Click()
K=1
For i=1 To m
For j=1 To n
a(i, j)=k
k=k+1
Next j
Next i
End Sub
Private Sub Command2_Click()
sum=0
For i=1 To m
For j=1 To n
If i=1 Or i=m Then
summ=summ+a(i, j)
Else
If j=1 Or j=n Then
Summ=summ+a(i, j)
End If
End If
Next j
Next i
Print summ
End Sub
过程Command1_Click()的作用是二维数组a中存放1个m行n列的矩阵；过程Command2_Click()的作用是______。

A．计算矩阵外围一圈元素的累加和
B．计算矩阵除外一圈以外的所有元素的累加和
C．计算矩阵第1列和最后一列元素的累加和
D．计算矩阵第1行和最后一行元素的累加和

单项选择题

在窗体上添加一个命令按钮，其名为Command1，然后编写代码如下：
Option Base 1
Private Sub Command1_Click()
Dim art(4)As Integer
Dim arr1(4)As Integer
n=3
for i=1 To 4
Art(i)=i
arr1(n)=2*n+i
Next i
Print arr1(n); arr(n)
End Sub
程序的运行结果为______。

A．3 11
B．11 3
C．10 3
D．3 13

单项选择题

下列程序运行后的输出结果是______。
Private Sub f(k, s)
s=1
for j=1 To k
s=s*j
Next j
End Sub
Private Sub Command1_Click()
Sum=0
for i=1 To 3
Call f(i, s)
Sum=Sum+s
Next i
Print Sum
End Sub

A．0
B．3
C．6
D．9

单项选择题

在窗体上添加一个命令按钮，名为Command1，一个文本框，名为Text1，则执行如下事件过程后，文本框中的输出为______。
Private Sub Command1_Click()
for i=1 To 4
for j=1 To 3
x=3
for K=1 To 2
x=x+3
Next K
Next j
Next i
Text1.Text=Str(x)
End Sub

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

单项选择题

下面程序运行后的输出结果是______。
Private Sub Command1_Click()
for j=1 To 10
if j Nod 3＜＞0 then a=a+j\3
Next j
Print a
End Sub

A．20
B．10
C．3
D．9

单项选择题

下面程序运行后，窗体中显示______。
Private Sub Command1_Click()
a$="*": b$="$"
for k=1 To 3
x$=string$(Len(a$)+k, b$)
Print x$;
Next k
Print
End Sub

A．*** ** ****
B．*$*$*$
C．1*$2*$3*$
D．$$$$$$$$