答案:
A
第11题(1.0分)
有一个数列,它的前3个数为0,1,1,此后的每个数都是其前面3个数之和,即0,1,1,2,4,7,13,24,……
要求编写程序输出该数列中所有不超过1000的数.
某人编写程序如下:
PrivateSubForm_Click()
DimiAsInteger,aAsInteger,bAsInteger
DimcAsInteger,dAsInteger
a=0:
b=1:
c=1
d=a+b+c
i=5
Whiled<=1000
Printd;
a=b:
b=c:
c=d
d=a+b+c
i=i+1
Wend
EndSub
运行上面的程序,发现输出的数列不完整,应进行修改.以下正确的修改是_________.
A:
把Whiled<=1000改为Whiled>1000
B:
把i=5改为i=4
C:
把i=i+1移到Whiled<=1000的下面
D:
在i=5的上面增加一个语句:
Printa;b;c;
答案:
D
第12题(1.0分)
设有分段函数:
y=5x<0
2*x0≤x≤5
x*x+1x>5
以下表示上述分段函数的语句序列中错误的是_________.
A:
SelectCasex
CaseIs<0
y=5
CaseIs<=5,Is>0
y=2*x
Caseis>5
y=x*x+1
endcase
B:
Ifx<0Then
y=5
elseifx<=5then
y=2*x
else
y=x*x+1
endif
C:
y=IIf(x<0,5,IIf(x<=5,2*x,x*x+1))
D:
Ifx<0Theny=5
Ifx<=5andx>=0theny=2*x
Ifx>5theny=x*x+1
答案:
A
第13题(1.0分)
在窗体上画一个名称为Commandl的命令按钮.单击命令按钮时执行如下事件过程:
PrivateSubCommand1_Click()
a$="softwareandhardware"
b$=Right(a$,8)
c$=Mid(a$,1,8)
MsgBoxa$,,b$,c$,1
EndSub
则在弹出的信息框标题栏中显示的标题是_________.
A:
softwareandhardware
B:
hardware
C:
software
D:
1
答案:
B
第14题(1.0分)
设x=5,执行语句Printx=x+10,窗体上显示的是_________.
A:
15
B:
5
C:
TRUE
D:
FALSE
答案:
D
第15题(1.0分)
以下各表达式中,计算结果为0的是().
A:
FIX(13.6)+FIX(-12.6)
B:
CINT(12.4)+CINT(-12.6)
C:
FIX(12.4)+FIX(-12.6)
D:
INT(12.4)+INT(-12.6)
答案:
C
第16题(1.0分)
下面的语句用Array函数为数组变量a的各元素赋整数值:
a=Array(1,2,3,4,5,6,7,8,9)
针对a的声明语句应该是.
A:
Dima
B:
DimaAsInteger
C:
Dima(9)AsInteger
D:
Dima()AsInteger
答案:
A
第17题(1.0分)
设有如下程序:
PrivateSubForm_Click()
Dimary(1To5)AsInteger
DimiAsInteger
DimsumAsInteger
Fori=1To5
ary(i)=i+1
sum=sum+ary(i)
Nexti
Printsum
EndSub
程序运行后,单击窗体,则在窗体上显示的是.
A:
15
B:
16
C:
20
D:
25
答案:
C
第18题(1.0分)
请阅读程序:
OptionBase1
PrivateSubForm_Click()
DimArr(4,4)AsInteger
Fori=1To4
Forj=1To4
Arr(i,j)=(i-1)*2+j
Nextj
Nexti
Fori=3To4
Forj=3To4
PrintArr(j,i);
Nextj
Print
Nexti
EndSub
程序运行后,单击窗体,则输出结果是_________.
A:
57
68
B:
68
79
C:
79
810
D:
810
811
答案:
C
第19题(1.0分)
下面程序运行时,若输入"VisualBasicProgramming",则在窗体上输是.
PrivateSubComand1_Click()
Dimcount(25)AsInteger,chAsString
ch=Ucase(InputBox("请输入字母字符串"))
Fork=1ToLen(ch)
n=Asc(Mid(ch,k,1))-Asc("A")
Ifn>=0Then
Count(n)=Count(n)+1
EndIf
Nextk
m=count(0)
Fork=1To25
Ifm
m=count(k)
EndIf
Nextk
Printm
EndSub
A:
0
B:
1
C:
2
D:
3
答案:
A
第20题(1.0分)
简单组合框的style值为().
A:
0
B:
2
C:
3
D:
1
答案:
D
第21题(1.0分)
以下叙述中错误的是_________.
A:
语句"Dima,bAsInteger"声明了两个整型变量
B:
不能在标准模块中定义Static型变量
C:
窗体层变量必须先声明,后使用
D:
在事件过程或通用过程内定义的变量是局部变量
答案:
A
第22题(1.0分)
下面过程运行后显示的结果是().
PubicSubF1(n%,ByValm%)PrivateSubCommand1_Click()
N=nMod10Dimx%,y%
M=m\10x=12:
y=34
EndSubCallF1(x,y)
Printx,y
EndSub
A:
234
B:
123
C:
23
D:
1234
答案:
A
第23题(1.0分)
以下说法中正确的是________。
A:
MouseUp事件是鼠标向上移动时触发的事件
B:
MouseUp事件过程中的x,y参数用于修改鼠标位置
C:
在MouseUp事件过程中可以判断用户是否使用了组合键
D:
在MouseUp事件过程中不能判断鼠标的位置
答案:
C
第24题(1.0分)
窗体上有一个名为Command1的命令按钮和一个名为Timer1的计时器,并有下面事件过程:
PrivateSubCommand1_Click()
Timer1.Enabled=True
EndSub
PrivateSubForm_Load()
Timer1.Interval=10
Timer1.Enabled=False
EndSub
PrivateSubTimer1_Timer()
Command1.Left=Command1.Left+10
EndSub
程序运行时,单击命令按钮,则产生的结果是________。
A:
命令按钮每10秒向左移动一次
B:
命令按钮每10秒向右移动一次
C:
命令按钮每10毫秒向左移动一次
D:
命令按钮每10毫秒向右移动一次
答案:
D
第25题(1.0分)
以下关于菜单设计的叙述中错误的是________。
A:
各菜单项可以构成控件数组
B:
每个菜单项可以看成是一个控件
C:
设计菜单时,菜单项的"有效"未选,表示该菜单项不显示
D:
菜单项只响应单击事件
答案:
C
第26题(1.0分)
以下关于多窗体的叙述中,正确的是________。
A:
任何时刻,只有一个当前窗体
B:
向一个工程添加多个窗体,存盘后生成一个窗体文件
C:
打开一个窗体时,其他窗体自动关闭
D:
只有第一个建立的窗体才是启动窗体
答案:
A
第27题(1.0分)
要使时钟控件Timer1的Timer事件不起作用,以下正确的语句是().
A:
Timer1.Enabled=False
B:
Timer1.Visible=False
C:
Timer1.Interval=1000
D:
Timer1.Index=0
答案:
A
第28题(1.0分)
为了从当前文件夹中读入文件File.txt,某人编写了下面的程序:
PrivateSubCommand1_Click()
Open"File1.txt"ForOutputAs#20
DoWhileNotEOF(20)
LineInput#20,ch$
Printch
Loop
Close#20
EndSub
程序调试时,发现有错误,下面的修改方案中正确的是_________.
A:
在Open语句中的文件名前添加路径
B:
把程序中各处的"20"改为"1"
C:
把Printch语句改为Print#20,ch
D:
把Open语句中的Output改为Input
答案:
D
第29题(1.0分)
假定用下面的语句打开文件:
Open"File.txt"ForInputAs#1
则不能正确读文件的语句是_________.
A:
Input#1,Ch$
B:
LineInput#1,ch$
C:
ch$=Input$(5,#1)
D:
Read#1,ch$
答案:
D
第30题(1.0分)
下面关于顺序文件的描述正确的是().
A:
文件中按每条记录的记录号从小到大排序好
B:
记录按进入的先后顺序存放,读出也是按原写入的先后顺序读
C:
文件中按每条记录的长度从小到大排序好
D:
文件中按记录的某关键数据项从大到小的顺序排序
答案:
B
第31题(1.0分)
下列叙述错误的是______.
A:
VB是可视化程序设计语言
B:
VB采用事件驱动编程机制
C:
VB是面向过程的程序设计语言
D:
VB应用程序可以以编译方式执行
答案:
C
第32题(1.0分)
创建应用程序的界面时,在窗体上设置了一个命令按钮,运行程序后,命令按钮没有出现
在窗体上,可能的原因是____________。
A:
该命令按钮的Value属性被设置为False
B:
该命令按钮的Enabled属性被设置为False
C:
该命令按钮的Visible属性被设置为False
D:
该命令按钮的Default属性被设置为True
答案:
C
第33题(1.0分)
设在窗体上有一个名称为Commandl的命令按扭和一个名称为Textl的文本框.要求
单击Commandl按钮时可把光标移到文本框中.下列正确的事件过程是_________.
A:
PrivateSubCommandl_Click()
Textl.GotFocus
EndSub
B:
PrivateSubCommandl_Click()
Commandl.GotFocus
EndSub
C:
PrivateSubCommandl_Click()
Textl.SetFocus
EndSub
D:
PrivateSubCommandl_Click()
Commandl.SetFocus
Endsub
答案:
C
第34题(1.0分)
决定控件上文字的字体、字形、大小及效果的属性是().
A:
CAPTION
B:
NAME
C:
TEXT
D:
FONT
答案:
D
第35题(1.0分)
改变控件在窗体中的左右位置应修改该控件的()属性.
A:
Width
B:
Top
C:
Right
D:
Left
答案:
D
第36题(1.0分)
在窗体上画两个名称分别为Text1、Text2的文本框.Text1的Text属性为"Database",
如图所示.
现有如下事件过程:
PrivateSubText1_Change()
Text2.Text=Mid(Text1,1,5)
EndSub
运行程序,在文本框Text1中原有字符之前输入a,Text2中显示的是:
_________.
A:
DataA
B:
DataB
C:
aData
D:
aBase
答案:
C
第37题(1.0分)
下列能够正确表示条件"X≤YA:
X≤YB:
X<=YAndYC:
X≤YORYD:
X<=Y
答案:
B
第38题(1.0分)
表达式Fix(5.6)+Int(-5.6)的值是_________.
A:
0
B:
-1
C:
1
D:
以上都不对
答案:
B
第39题(1.0分)
表达式15Mod4+13\5*2的值是().
A:
4
B:
7
C:
0
D:
2
答案:
A
第40题(1.0分)
下列变量命名正确的是().
A:
page@2
B:
myfile
C:
cmd.1
D:
vb1
答案:
B
第41题(1.0分)
设x=5,执行语句Printx=x+10,窗体上显示的是_________.
A:
15
B:
5
C:
TRUE
D:
FALSE
答案:
D
第42题(1.0分)
有如下事件过程:
PrivateSubFormClick()
DimnasInteger
x=0
n=InputBox("请输入一个整数")
Fori=1Ton
Forj=1Toi
x=x+1
Nextj
Nexti
Printx
EndSub
程序运行后,单击窗体,如果在输入对话框中输入5,则在窗体上显示的内容是_________.
A:
13
B:
14
C:
15
D:
16
答案:
C
第43题(1.0分)
假定有以下程序段:
Fori=1To3
Forj=5To1Step-1
Printi*j
Next
Next
则语句Printi*j的执行次数是_________.
A:
15
B:
16
C:
17
D:
18
答案:
A
第44题(1.0分)
以下程序段的输出结果是_________.
x=1
y=4
DoUntily>4
x=x*y
y=y+1
Loop
Printx
A:
1
B:
4
C:
8
D:
20
答案:
B
第45题(1.0分)
以下()程序段可以实施X、Y变量值的变换.
A:
Z=X:
Y=Z:
X=Y
B:
Y=X:
X=Y
C:
Z=X:
W=Y:
Y=Z:
X=Y
D:
Z=X:
X=Y:
Y=Z
答案:
D
第46题(1.0分)
下面的语句用Array函数为数组变量a的各元素赋整数值:
a=Array(1,2,3,4,5,6,7,8,9)
针对a的声明语句应该是.
A:
Dima
B:
DimaAsInteger
C:
Dima(9)AsInteger
D:
Dima()AsInteger
答案:
A
第47题(1.0分)
下面正确使用动态数组的是.
A:
Dimarr()AsInteger
…
ReDimarr(3,5)
B:
Dimarr()AsInteger
…
ReDimarr(50)AsString
C:
Dimarr()
…
ReDimarr(50)AsInteger
D:
Dimarr(50)AsInteger
…
ReDimarr(20)
答案:
A
第48题(1.0分)
若在窗体模块的声明部分声明了如下自定义类型和数组
PrivateTyperec
CodeAsInteger
CaptionAsString
EndType
Dimarr(5)Asrec
则下面的输出语句中正确的是.
A:
Printarr.Code
(2),arr.Caption
(2)
B:
Printarr.Code,arr.Caption
C:
Printarr
(2).Code,arr
(2).Caption
D:
PrintCode
(2),Caption
(2)
答案:
C
第49题(1.0分)
设有如下程序段
Dima(10)
...
ForEachxIna
printx;
nextx
在上面的程序段中,变量x必须是.
A:
整型变量
B:
变体型变量
C:
动态数组
D:
静态数组
答案:
B
第50题(1.0分)
在窗体上添加一个命令按钮,编写如下代码:
PrivateSubCommand1_Click
DimArr1(10)asInteger,Arr2(10)AsInteger
N=3
Fori=1to5
Arr1(i)=i
Arr2(n)=2*n+i
Nexti
PrintArr2(n),Arr1(n)
EndSub
程序运行后,单击命令按钮,输出结果是().
A:
113
B:
313
C:
311
D:
133
答案:
A
第51题(1.0分)
下面定义窗体级变量a的语句中错误的是_________.
A:
Dima%
B:
privatea%
C:
PrivateaAsInteger
D:
Statica%
答案:
D
第52题(1.0分)
在窗体上画一个名称为Command1的按钮,并有下面程序,当按下Command1按
钮后,程序输出的结果是().
PrivateSubCommand1_Click()
Dima%,b%
a=50:
b=100
Print"调用前","A=";a,"B=";b
Swapa,b
Print"调用后","A=";a,"B=";b
EndSub
PrivateSubSwap(ByValx%,y%)
Dimt%
t=x:
x=y:
y=t
EndSub
A:
调用前A=50B=100
调用后A=100B=100
B:
调用前A=50B=100
调用后A=50B=100
C:
调用前A=50B=100
调用后A=100B=50
D:
调用前A=50B=100
调用后A=50B=50
答案:
D
第53题(1.0分)
以下描述中错误的是________。
A:
在多窗体应用程序中,可以有多个当前窗体
B:
多窗体应用程序的启动窗体可以在设计时设定
C:
多窗体应用程序中每个窗体作为一个磁盘文件保存
D:
多窗体应用程序可以编译生成一个EXE文件
答案:
A
第54题(1.0分)
滚动条可以响应的事件是________。
A:
Load
B:
Scroll
C:
Click
D:
MouseDown
答案:
B
第55题(1.0