单项选择题

为了把一个记录类型变量的内容写入文件中指定的位置，所使用的语句的格式为

A．Get文件号，记录号，变量名
B．Get文件号，变量名，记录号
C．Put文件号，记录号，变量名
D．Put文件号，变量名，记录号

你可能感兴趣的试题

单项选择题

文本框Text1的KeyDown事件过程如下：

其中参数KeyCode的值表示的是发生此事件时

单项选择题

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

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

单项选择题

从工程管理角度，软件设计一般分为两步完成，它们是

A．概要设计与详细设计
B．数据设计与接口设计
C．软件结构设计与数据设计
D．过程设计与数据设计

单项选择题

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

A．Private Sub List1_Click()
Print List1.Text
End Sub
B．Private Sub Form1_Click()
Print List1.Text
End Sub
C．Private Sub List1_CIick
Print Form1_Text
End Sub
D．Private Sub Form1_Click()
List1.Print List1.Text
End Sub

单项选择题

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

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

单项选择题

若在某窗体模块中有如下事件过程

则下列叙述中正确的是

单项选择题

下列选项中不符合良好程序设计风格的是

A．源程序要文档化
B．数据说明的次序要规范化
C．避免滥用goto语句
D．模块设计要保证高耦合、高内聚

单项选择题

下列叙述中正确的是

A．窗体的Name属性是指窗体的名称，用来标识一个窗体
B．窗体的Name属性是显示在窗体标题栏中的文本
C．可以在运行期间改变窗体的Name属性值
D．窗体的Name属性值可以为空

单项选择题

下列叙述中错误的是

A．用Shell函数可以执行扩展名为.exe的应用程序
B．若用Static定义通用过程，则该过程中的局部变量都被默认为Static类型
C．Static类型的变量可以在标准模块的声明部分定义
D．全局变量必须在标准模块中用Public或Global声明

单项选择题

Sub过程和Function过程最基本的区别是

A．Sub过程可以以Call语句直接使用过程名调用，而Function过程不可以
B．Function过程可以有形参，Sub过程不可以
C．Sub过程不能返回值，而Function过程能返回值
D．两种过程参数的传递方式不同

单项选择题

下列叙述中正确的是

A．一个算法的空间复杂度大，则其时间复杂度也必定大
B．一个算法的空间复杂度大，则其时间复杂度必定小
C．一个算法的时间复杂度大，则其空间复杂度必定小
D．上述说法都不对

单项选择题

下列选项中不属于软件生命周期开发阶段任务的是

A．软件测试
B．概要设计
C．软件维护
D．详细设计

单项选择题

数据库技术的根本目标是要解决数据的

A．存储问题
B．共享问题
C．安全问题
D．保护问题

单项选择题

设有3个关系表，如下：

下列操作中正确的是

单项选择题

以下能从字符串"VisualBasic"中直接取出子字符串"Basic"的函数是

A．Left
B．Mid
C．String
D．Instr

单项选择题

设a=2，b=3，c=4，下列表达式的值是
Not a＜=c Or 4*c=b^2 And b＜＞a+c

A．-1
B．1
C．True
D．False

单项选择题

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

单项选择题

数据库设计的4个阶段是：需求分析、概念设计、逻辑设计和

A．编码设计
B．测试阶段
C．运行阶段
D．物理设计

单项选择题

在长度为64的有序线性表中进行顺序查找，最坏情况下需要比较的次数为

A．63
B．64
C．6
D．7

单项选择题

ActiveX控件文件的扩展名为

A．.ocx
B．.act
C．.atx
D．.oct

单项选择题

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

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

单项选择题

为了把一个记录类型变量的内容写入文件中指定的位置，所使用的语句的格式为

A．Get文件号，记录号，变量名
B．Get文件号，变量名，记录号
C．Put文件号，记录号，变量名
D．Put文件号，变量名，记录号

单项选择题

计时器控件触发的事件过程只能是

A．Click
B．Timer
C．Change
D．start

单项选择题

一个二维数组可以存放一个矩形，在程序开始有语句Option Base 0，则下面定义的数组中正好可以存放一个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

单项选择题

设有如下语句：
Dim a,b As Integer
c="VisualBasic"
d=#7/20/2005#
下列关于这段代码的叙述中，错误的是

A．a被定义为Integer类型变量
B．b被定义为Integer类型变量
C．c中的数据是字符串
D．d中的数据是日期类型

单项选择题

对如图1所示的二叉树进行中序遍历的结果是

单项选择题

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

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

单项选择题

使用Array函数给某X赋值时，X必须是

A．已经声明的静态数组
B．已经声明的动态数组
C．Variant类型的变量
D．整型变量

单项选择题

在数据库系统中，用户所见的数据模式为

A．概念模式
B．外模式
C．内模式
D．物理模式

单项选择题

有如下程序，用来求10个整数(整数从键盘输入)中的最大值：
Private Sub Command1_Click()
Dim a(10) As Integer, max As Integer
For k=1 To 10
a(k)=InputBox("输入一个整数")
Next k
max=0
For k=1 To 10
If a(k)＞max Then
max=a(k)
End If
Next k
Print max
End Sub
运行程序时发现，当输入10个整数时，可以得到正确结果；但输入10个负数时结果是错误的。程序需要修改，下列修改中可以得到正确运行结果的是

A．把If a(k)＞max Then改为If a(k)＜max Then
B．把max=a(k)改为a(k)=max
C．把第二个循环语句For k=1 To 10改为For k=2 To 10
D．把max=0改为max=a(10)

单项选择题

在窗体上画一个命令按钮和一个文本框，其名称分别为Command1和Text1，把文本框的Text属性设置为空白，然后编写如下事件过程：
Private Sub Command1_Click()
a=InputBox("Enter an integer")
b=InputBox("Enter an integer")
Text1.Text=b+a
End Sub
程序运行后，单击命令按钮，如果在输入对话框中分别输入8和10，则文本框中显示的内容是

A．108
B．18
C．810
D．出错

单项选择题

在窗体上画一个文本框，其名称为Text1，然后编写如下过程：
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
Print Chr(KeyCode)
End Sub
Private Sub Text1_KeyUp(KeyCode As Integer, Shift As integer)
Print Chr(KeyCode+2)
End Sub
程序运行后，把焦点移到文本框中，此时如果敲击“A”键，则输出结果为

A．A
A
B．A
B
C．A
C
D．A
D

单项选择题

有如下程序：
Option Base 1
Dim arr() As Integer
Private Sub Form_Click()
Dim i As Integer, j As Integer
ReDim arr(3,2)
For i=1 To 3
for j=1 To 2
arr(i,j)=i*2+j
Next j
Next i
ReDim Preserve arr(3,4)
For j=3 To 4
arr(3,j)=j+9
Next j
Print arr(3,2); arr(3,4)
End Sub
程序运行后，单击窗体，输出结果为

A．8 13
B．0 13
C．7 12
D．0 0

单项选择题

设有命令按钮Command1的单击事件过程，代码如下：
Private Sub Command1_Click()
Dim a(3,3) As Integer
For i=1 To 3
For i=1 To 3
a(i,j)=i*j+i
Next j
Next i
Sum=0
For i=1 To 3
Sum=Sum+a(i,4-i)
Next i
Print Sum
End Sub
运行程序，单击命令按钮，输出结果是

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

单项选择题

设有如下通用过程：
Public Function Fun(xStr As String) As String
Dim tStr As String, strL As Integer
tStr=""
strL=Len(xStr)
i=1
Do While i＜=strL/2
tStr=tStr & Mid(xStr,i,1) & Mid(xStr,strL-i+1,1)
i=j+1
Loop
Fun=tStr
End Function
在窗体上画一个名称为Command1的命令按钮。然后编写如下的事件过程：
Private Sub Command1_Click()
Dim S1 As String
S1="abcdef"
Print Ucase(Fun(s1))
End Sub
程序运行后，单击命令按钮，输出结果是

A．ABCDEF
B．abcdef
C．AFBECD
D．DEFABC