1、【
单选题
】
在C盘当前文件夹下有一个已建立好的顺序文件Alph .txt ,文件内容为只含有字母的一个字符串(有双引号界定符)。单击窗体,打开A1ph .txt 文件,读取字符串并显示在文本框Textl 中,然后调用StrSort 过程将此字符串按ASCII 码的顺序重新排列并显示在文本框Text2中,最后将重新排列的字符串存入AlpO .txt 文件中(无双引号界定符)。请选择横线处合适的语句( )。
Private Sub Form_Load( )
Di mStrIn As Stri ng ,StrOut As Stri ng
Open "C:\Alph .txt"For Input As #1
________________
Close
Textl .Text =StrIn
___________
Text2.Text =StrOut
Open "C:\AlpO .txt"For Output As #2
_______
Close
End Sub
Private Function StrSort(s As Stri ng)As Stri ng
Di ms Arr( )As Stri ng*1,j As Integer ,J As Integer ,nAs Integer
Di mt As Stri ng*1
n =Len(s)
ReDi ms Arr(n)
For i =1To n
s Arr(i)=Mid(s ,i ,1)
Next i For i =1To n .1
For j=i +1To n
If s Arr(i)>s Arrj Then
t =s Arr(i):s Arr(i)=s Arr(i):s Arr(j)=t
End If
Next i ,i
For i =1To n
StrSort =StrSort &s Arr(i)
Next i
End Function
[1分]
、
Input #1,Strln Strln Print #2,StrOut
、
Input #1,Strln StrSort(Stri n)Print #2,StrOut
、
Input #2,Strln StrSort(Strln)Print #1,Stt Out
、
Print #1,Strln StrSort(Stri n)Input #2,StrOut
答案:
2、【
单选题
】
窗体上有一个名称为Picture1的图片框控件,一个名称为Ti merl 的计时器控件,其Interval 属性值为1000。要求每隔5秒钟图片框右移100。现编写程序如下:
Private Sub Ti mer1_Ti mer()
Static n As Integer
n =n +1
If(n/5)=Int (n/5)And Picturel .Left <Forml .Width Then
Picture1.Left =Picture1.Left +100
End If
End Sub
分析以上程序,以下叙述中正确的是( )。
[1分]
、
程序中没有设置5秒钟的时间,所以不能每隔5秒移动图片框一次
、
此程序运行时图片框位置保持不动
、
此程序运行时图片框移动方向与题目要求相反
、
If 语句条件中的"Picture1.Left <Form1.Width"用于限制图片框移动的范围
答案:
3、【
单选题
】
下列关于函数过程的叙述中,正确的是( )。
[1分]
、
函数过程形参的类型与函数返回值的类型没有关系
、
在函数过程中,过程的返回值可以有多个
、
当数组作为函数过程的参数时,既能以传值方式传递,也能以传址方式传递
、
如果不指明函数过程参数的类型,则该参数没有数据类型
答案:
4、【
单选题
】
对于循环队列,下列叙述中正确的是( )。
[1分]
、
队头指针是固定不变的
、
队头指针一定大于队尾指针
、
队头指针一定小于队尾指针
、
队头指针可以大于队尾指针,也可以小于队尾指针
答案:
5、【
单选题
】
窗体上有一个名称为Co mmand1的命令按钮,其单击事件过程如下:
Private Sub Co mmand1_Click()
Di ma,b(2,3)As Integer
a=Array(3,7,5,11,31,43,17,62,9,23,37,41)
i =0
Do While i <=UBound(a)
For j=0To 2
For k =0To 3
b(j,k)=a(i)
i =i +1
Next k
Next j
Loop
Print b(2,2)
End Sub
运行程序,窗体上显示的是( )。
[1分]
答案:
6、【
单选题
】
有关程序代码窗口的说法错误的是( )。
[1分]
、
在窗口的垂直滚动条的上面有一个"拆分栏",利用它可以把窗口分为两个部分,每个窗口显示代码的一部分
、
双击控件设计窗体即可打开程序代码窗口
、
在程序代码的左下角有两个按钮,可以选择全模块查看或者是过程查看
、
默认情况下,窗体的事件是Load
答案:
7、【
单选题
】
设窗体上有一个文体框Text1和一个命令按钮Co mmand1,并有以下事件过程:
Private Sub Co mmand1_Click( )
Di mS As Stri ng ,ch As Stri ng
S=""
For k =1TO Len(Text1)
ch =Mid(Text1,k ,l)
S=ch +S
Next k
Text1.Text =S
End Sub
程序执行时,在文本框中输入"Basic",然后单击命令按钮,则Text1中显示的是( )。
[1分]
、
Basic
、
cisaB
、
BASIC
、
CISAB
答案:
8、【
单选题
】
为了使模块尽可能独立,要求( )。
[1分]
、
模块的内聚程度要尽量高,且各模块间的耦合程度要尽量强
、
模块的内聚程度要尽量高,且各模块间的耦合程度要尽量弱
、
模块的内聚程度要尽量低,且各模块间的耦合程度要尽量弱
、
模块的内聚程度要尽量低,且各模块间的耦合程度要尽量强
答案:
9、【
单选题
】
将E-R 图转换为关系模式时,实体和联系都可以表示为( )。
[1分]
答案:
10、【
单选题
】
下列叙述中,( )不属于测试的特征。
[1分]
、
测试的挑剔性
、
完全测试的不可能性
、
测试的可靠性
、
测试的经济性
答案:
11、【
单选题
】
如果一个变量未经定义就直接使用,则该变量的类型为( )。
[1分]
、
Integer
、
Byte
、
Boolean
、
Variant
答案:
12、【
单选题
】
在新建一个Visual Basic 工程时,将新建窗体的Name 属性设置为TheFirst ,则默认的窗体文件名为( )。
[1分]
、
Forml .frm
、
工程1.frm
、
TheFirst .frm
、
Form1.vbp
答案:
13、【
单选题
】
为了计算1+3+5+…+99的值,某人编程如下:
k =1
s =0
While k <=99
k =k +2:s =s +k
Wend
Print s
在调试时发现运行结果有错误,需要修改。下列错误原因和修改方案中正确的是( )。
[1分]
、
While…Wend 循环语句错误,应改为For k =1To99…Next k
、
循环条件错误,应改为While k <99
、
循环前的赋值语句k =l 错误,应改为k =0
、
循环中两条赋值语句的顺序错误,应改为s =s +k :k=k +2
答案:
14、【
单选题
】
在面向对象方法中,实现信息隐蔽是依靠( )。
[1分]
、
对象的继承
、
对象的多态
、
对象的封装
、
对象的分类
答案:
15、【
单选题
】
在长度为n 的有序线性表中进行二分查找,最坏情况下需要比较的次数是( )。
[1分]
、
O(n)
、
O(n2)
、
O(log2n)
、
O(nlog2n)
答案:
16、【
单选题
】
下列各选项说法错误的是( )。
[1分]
、
文件对话框可分为两种,即打开(Open)文件对话框和保存(Save As)文件对话框
、
通用对话框的Name 属性的默认值为Co mmonDialogX,此外,每种对话框都有自己的默认标题
、
打开文件对话框可以让用户指定一个文件,由程序使用;而用保存文件对话框可以指定一个文件,并以这个文件名保存当前文件
、
DefaultEXT属性和DialogTitle 属性都是打开对话框的属性,但非保存对话框的属性
答案:
17、【
单选题
】
窗体上有Co mmand1、Co mmand2两个命令按钮。现编写以下程序:
Option Base 0
Di ma()As Integer ,m As Integer
Private Sub Co mmand1Click()
m=InputBox("请输入一个正整数")
ReDi ma(m)
End Sub
Private Sub Co mmand2Click()
m=InputBox("请输入一个正整数")
ReDi ma(m)
End Sub
运行程序时,单击Co mmand1后输入整数10,再单击Co mmand2后输入整数5,则数组a 中元素的个数是( )。
[1分]
答案:
18、【
单选题
】
设有如下程序:
Option Base 0
Private Sub Form_Click()
Dim a
Dim i As Integer
a=Array(1,2,3,4,5,6,7,8,9)
For i=0 To 3
Print a(5-i);
Next
End Sub
程序运行后,单击窗体,则在窗体上显示的是( )。
[1分]
、
4 3 2 1
、
5 4 3 2
、
6 5 4 3
、
7 6 5 4
答案:
19、【
单选题
】
Visual Basic集成的主窗口中不包括( )。
[1分]
答案:
20、【
单选题
】
有如下过程代码:
Sub var_dim()
static numa As Integer
Dim numb As Integer
numa=numa+2
numb=numb+1
print numa; numb
End Sub
连续3次调用var_dim过程,第3次调用时的输出是( )。
[1分]
答案:
21、【
单选题
】
下列程序段的执行结果为( )。
I =9
x=5
Do
I =I +1
x=x+2
Loop Until I >=7
Print "I =";I ;
Print "x=";x
[1分]
、
I =4x=5
、
I =7x=15
、
I =6x=8
、
I =10x=7
答案:
22、【
单选题
】
以下关于文件的叙述中,错误的是( )。
[1分]
、
顺序文件中的记录一个接一个地顺序存放
、
随机文件中记录长度是随机的
、
执行打开文件的命令后,自动生成一个文件指针
、
LOF 函数返回给文件分配的字节数
答案:
23、【
单选题
】
三种基本结构中,能简化大量程序代码行的是( )。
[1分]
、
顺序结构
、
分支结构
、
选择结构
、
重复结构
答案:
24、【
单选题
】
对长度为n的线性表进行顺序查找,在最坏情况下需要比较的次数为( )。
[1分]
答案:
25、【
单选题
】
在窗体上画一个名为Co mmand1的命令按钮,然后编写以下程序:
Private Sub Co mmand1_Click()
Di m M(10)As Integer
For k =l To 10
M(k)=12-k
Nextk
x=8
Print M(2+M(x))
End Sub
运行程序,单击命令按钮,在窗体上显示的是( )。
[1分]
答案:
26、【
单选题
】
某人设计了下面的函数fun ,功能是返回参数a 中数值的位数
Function fun(a As Integer)As Integer
Di mn %
n =1
While a\10>=0
n =n +1
a=a\10
Wend
fun =n
End Function
在调用该函数时发现返回的结果不正确,函数需要修改,下面的修改方案中正确的是( )。
[1分]
、
把语句n =1改为n =0
、
把循环条件a\10>=0改为a\10>0
、
把语句a=a\10改为a=a Mod 10
、
把语句fun =n 改为fun =a
答案:
27、【
单选题
】
在窗体上画一个名称为Co mmand1的命令按钮,然后编写如下程序:
Public Enums
a=4
b =3
End Enum
Private Sub Co mmand1_Click()
Di mx As Integer
x=a
If x>=3Then
MsgBox "Pass !"
End Sub
运行程序,其结果是( )。
[1分]
、
运行错误,因为Enum 定义有错
、
运行错误,因为x=a 类型不匹配
、
运行正常结束,不显示任何信息
、
运行正常,显示内容为"Pass !"的信息框
答案:
28、【
单选题
】
在窗体上画两个单选按钮(名称分别为Optionl、Option2,标题分别为"宋体"和"黑体")、1个复选框(名称为Checkl ,标题为"粗体")和1个文本框(名称为Text1,Text
属性为"改变文字字体"),窗体外观如下图所示。程序运行后,要求"宋体"单选钮和"粗体"复选框被选中,则下列能够实现上述操作的语句序列是( )。
[1分]
、
Option1.Value =False
Check1.Value =True
、
Optionl .Value =True
Checkl .Value =0
、
Option2.Value =False
Check1.Value =2
、
Optionl .Value =True
Checkl .Value =1
答案:
29、【
单选题
】
对于长度为n 的线性表,在最坏情况下,下列各排序法所对应的比较次数中正确的是( )。
[1分]
、
冒泡排序为n/2
、
冒泡排序为n
、
快速排序为n
、
快速排序为n(n -1)/2
答案:
30、【
单选题
】
在程序运行期间,当滚动条的滑块被拖动时,则立即触发滚动条的( )事件。
[1分]
、
Click
、
Change
、
Dblclick
、
Scroll
答案:
31、【
单选题
】
下列程序在调试时出现了死循环:
Private Sub Co mmand1_Click()
n =InputBox("请输入一个整数")
Do
If n Mod 2=0Then
n =n +1
Else
n =n +2
End If
Loop Until n =1000
End Sub
下列关于死循环的叙述中正确的是( )。
[1分]
、
只有输入的n 是偶数时才会出现死循环,否则不会
、
只有输入的n 是奇数时才会出现死循环,否则不会
、
只有输入的n 是大于1000的整数时才会出现死循环,否则不会
、
输入任何整数都会出现死循环
答案:
32、【
单选题
】
以下叙述中错误的是( )。
[1分]
、
在KeyUp 和KeyDown 事件过程中,从键盘上输入A 或a 被视作相同的字母(即具有相同的KeyCode)
、
在KeyUp 和KeyDown 事件过程中,将键盘上的"1"和右侧小键盘上的"1"视作不同的数字(具有不同的KeyCode)
、
KeyPress 事件中不能识别键盘上某个键的按下与释放
、
KeyPress 事件中可以识别键盘上某个键的按下与释放
答案:
33、【
单选题
】
下面排序算法中,平均排序速度最快的是( )。
[1分]
、
冒泡排序法
、
选择排序法
、
交换排序法
、
堆排序法
答案:
34、【
单选题
】
设有声明语句:
Di mb(-1To 10,2To 9,20)As Integer
则数组b 中全部元素的个数( )。
[1分]
、
2310
、
2016
、
1500
、
1658
答案:
35、【
单选题
】
以下叙述中正确的是( )。
[1分]
、
窗体的Name 属性指定窗体的名称,用来标识一个窗体
、
窗体的Name 属性的值是显示在窗体标题栏中的文本
、
可以在运行期间改变对象的Name 属性的值
、
对象的Name 属性值可以为空
答案:
36、【
单选题
】
下列叙述中,不符合良好程序设计风格要求的是( )。
[1分]
、
程序的效率第一,清晰第二
、
程序的可读性好
、
程序中要有必要的注释
、
输入数据前要有提示信息
答案:
37、【
单选题
】
标签控件能够显示文本信息,可设置显示文本内容的属性是( )。
[1分]
、
Alignment
、
Caption
、
Visi ble
、
BorderStyle
答案:
38、【
单选题
】
使用白盒测试法时,确定测试数据应该根据( )和指定的覆盖标准。
[1分]
、
程序的内部逻辑
、
程序的复杂结构
、
使用说明书
、
程序的功能
答案:
39、【
单选题
】
在窗体上有一个文本框,其名称为Text1,编写下列事件过程:
Private Sub Text1_KeyPress(KeyAscii As Integer)
Di mstr As Stri ng
str =Chr(KeyAscii)
KeyAscii =Asc(UCase(str))
Text1.Text =Stri ng(2,KeyAscii)
End Sub
程序运行后,如果在键盘上输入字母"a",则在文本框Text3中显示的内容为( )。
[1分]
答案:
40、【
单选题
】
某人编写了一个能够返回数组a 中10个数中最大数的函数过程,代码如下:
Function MaxValue(a()As Integer)As Integer
Di m max%
max=1
For k =2To 10
If a(k)>a(max)Then
max=k
End If
Next k
MaxValue =max
End Function
程序运行时,发现函数过程的返回值是错的,需要修改,下面的修改方案中正确的是( )。
[1分]
、
语句max=1应改为max=a(1)
、
语句For k =2To 10应改为For k =1To 10
、
If 语句中的条件a(k)>a(max)应改为a(k)>max
、
语句MaxValue =max 应改为MaxValue =a(max)
答案: