15、在WindowsXP中，下列不能查找文献或文献夹操作是（）
A）用“开始”菜单中“搜索”命令
B）在“资源管理器”窗口中选取“搜索”菜单
C）用鼠标右击“我电脑”图标，在弹出菜单中选取“搜索”命令
D）用鼠标右击“开始”按钮，在弹出菜单中选取“搜索”命令
16、在WindowsXP中，“任务栏”作用是（）。
A）实现窗口之间切换B）只显示活动窗口名
C）只显示正在后台工作窗口名D）显示系统所有功能
17、在Windowsxp中，用“创立快捷方式”创立图标（）
A）可以是任何文献或文献夹B）只能是可执行程序或程序组
C）只能是单个文献D）只能是程序文献和文档文献
18、在WindowsXP中，对同步打开各种窗口进行层叠式排列，这些窗口明显特点是（）
A）每个窗口内容所有可见B）每个窗口某些标题栏可见
C）某些窗口标题栏不可见D）每个窗口标题栏所有可见
19、在下拉式菜单中，有菜单项右边有组合键名字如Ctrl+S，是该菜单键盘快捷键，它意味着顾客_______？
A）必要激活菜单后，才可以在键盘上按Ctrl+S来执行相应命令。
B）不必激活菜单，就可以在键盘上按Ctrl+S来执行相应命令。
C）必要激活菜单后，，才可以同步按Alt键和Ctrl+S来执行相应命令
D）不必激活菜单，就可以在键盘上按Alt键和Ctrl+S来执行相应命令。
20、要删除一种文献，如下操作错误是________
A）选定要删除文献，直接按Del键
B）直接将该文献拖入“回收站”
C）选定要删除文献，单击右键弹出快捷菜单，选取其中“删除”命令
D）选定要删除文献，选取“编辑”菜单中“删除”命令
21、在Windowsxp“资源管理器”窗口中，如果想一次选定各种分散文献或文献夹，对的操作是（）
A）按住Ctrl键，用鼠标右键逐个选用B）按住Ctrl键，用鼠标左键逐个选用
C）按住Shift键，用鼠标右键逐个选用D）按住Shift键，用鼠标左键逐个选用
22、在WindowsXP中，若计算机中有各种帐户，则不需要密码就可以登陆帐户是：
A）宾客账户B）受限制顾客C）计算机管理员D）都可以
23、下列关于窗体说法中，不对的是（）
A）窗体是VB一种控件B）可以把窗体看作是一种包括各种对象容器
C）窗体是VB一种对象D）各种控件必要建立在窗体上
24、为了使标签中内容居右显示，应把Alignment属性设立为（）
A）0B）1C）2D）True
25、删除列表框中指定项目所用法为（）
A）RemoveB）ClearItemC）ClearD）RemoveItem
26、用菜单编辑器建立一种名为MyMenu菜单，则下列选项可以在该菜单项前打上一种“✓”是（）
A）MyMenu.Enabled=TrueB）MyMenu.Visible=True
C）Mymenu.Checked=TrueD）MyMenu.Checked=False
27、菜单可以响应事件是（）
A）MouseMoveB）MouseDownC）DblClickD）Click
28、执行下列语句：
a=“MicrosoftVisualBasic”
x=Instr（a,”VISUAL”）
则X值为（）
A）9B）10C）11D）0
29、表达式INT（4*RND+5）+5值范畴是______。
A）[10,13]B）[10,14]C）[9,13]D）[5,14]
30、将当前目录下图形文献AA.Bmp作为窗体Form1背景图片设立语句是（）
A）Form1.Picture=”AA.Bmp”B）Form1.LoadPicture（“AA.Bmp”）
C）Form1.Picture=LoadPicture（“AA.Bmp”）D）Form1.Picture=LoadPicture（AA.Bmp）
31、窗体隐藏和删除，分别用在不同场合，隐藏Forml和删除Forml命令是（）。
A）HideFormlUnloadFormlB）Forml.HideForml.Unload
C）Forml.HideUnloadFormlD）HideFormlForml.Unload
32、下列程序执行成果为：
A=“1”
B=“2”
A=val（A）+val（B）
B=val（“12”）
Ifa<>bthenprinta-belseprintb-a
A）-9B）9C）-12D）0
33、下列VB程序运营成果为（）
Privatesubcommand1_click（）
DimaAsInteger，sAsInteger
a=8
s=1
Do
s=s+a
a=a－1
LoopWhilea<=0
Prints；a
Endsub
A）79B）340 C）97D）死循环
34、下列关于数组定义语句，错误是：
A）k%=10B）constk%=10
Dimarr（k）dimarr（k）
C）dimarr1（10）asintegerD）dimarr1（1to10）
Dimarr2（10）dimarr2（1to10,2to11）
35、下列过程语句中，一定按传值方式进行数据传递语句是：
A）subpro2（aasinteger）B）subpro2（byrefaasinteger）
C）subpro2（byvalaasinteger）D）subpro2（arr（））
二、填空题
6、CAD是计算机重要应用领域，它含义是[6]。
7、-10H8位补码是[7]（用二进制数表达）
8、在多媒体计算机中，声音属于媒体。
9、程序必要存储在，计算机才可以执行。
10、计算机发展到各个阶段是以作为标志。
11、在计算机系统中，存储一种中文国标码所需要字节数为
12、资源子网重要作用是提供网络共享，进行必要数据解决。
13、在WindowsXP中，下拉式菜单中菜单项若有符号“…”，则表达该菜单项具有[13]
14、要卸载一种应用程序，可以通过“控制面板”中对话框来完毕应用程序删除操作。
15、鼠标拖动可以移动整个窗口。
16、在WindowsXP中提供了一种程序，系统会依照顾客设立而定期自动地执行任务筹划表中任务。
17、VB语言表达式5\3+14MOD4值是。
18、MsgBox函数返回值类型是。
19、为了防止顾客随意将光标置于控件上，应将控件属性设立为False。
20、计算机系统是由硬件和_______构成。
三、判断题
1．光盘不属于存储媒体。
（）
2．当前广泛使用触摸屏技术属于计算机技术中工程技术。
（）
3．定期备份数据文献不能有效提高计算机系统病毒防治能力。
（）
4．顾客不能修改文献属性。
（）
5．不同文献夹下文献可以同名。
（）
6．计算机中记忆设备简称为ALU。
（）
7．存储在硬盘上信息可以直接读入CPU进行解决。
（）
8．数码相机不支持即插即用。
（）
9．当计算机显示屏幕保护图像时，应及时进行冷启动。
（）
10．在VisualBasic中，声明全局变量所使用核心字是Public。
（）
四、阅读分析题
1、dimx（3,5）
fori=1to3
forj=1to5
x（i,j）=x（i-1,j-1）+i+j
nextj,i
printx（3,4）
上面程序运营时输出成果为。
2、如下程序段输出成果为。
X=1
Y=4
Dountily>4
X=x*4
Y=y+1
Loop
Printx
3、在窗体上画一种名称为Command1命令按钮，然后编写如下事件过程：
privatesubcommand1_click（）
DimintA（4）AsInteger
DimintB（4）AsInteger
DimiAsInteger
Fori=0To2
intA（i+1）=i*2+1
intB（3-i）=intA（i+1）
Nexti
PrintintB（i）
Endsub
程序运营后成果是。
4、在窗体上画一种名称为Command1命令按钮，然后编写如下事件过程：
PrivateSubCommand1_Click（）
StaticxAsInteger
Fori=1To2
y=y+x
x=x+2
Next
Printx,y
EndSub
程序运营后，持续三次单击Command1按钮后，窗体上最后一次成果是。
5、在窗体上画一种名称为Command1命令按钮，然后编写如下事件过程：
PrivateSubCommand1_Click（）
DimxAsInteger
Do
X=x+1
s=s+x
x=（x+2）*x
loopuntilx>15
print“s=”;s,“x=”;x
EndSub
程序运营后成果是。
6、在窗体上画一种命令按钮，然后编写如下程序：
privatesubcommand1_click（）
dimiasinteger
forI=0.5to8.5step2.5
s=s+I*10
nextI
prints,I
endsub
程序运营后，单击命令按钮，在窗体上输出成果为。
7、如下程序运营后，单击窗体，输出成果是
PrivateSubform_click（）
DimmAsInteger
DimnAsInteger
m=3：
n=5
Printm，n，test（m，n）
EndSub
PrivateFunctiontest（xAsInteger，ByValyAsInteger）
x=x+y：
y=x-y
test=x*y
EndFunction
8、在窗体上画一种命令按钮，然后编写如下程序：
Privatesubcommand1_click（）
Dima（1to３,２to4）asinteger
ForI=1to３
Forj=２to4
A（I,j）=I*2+j＊３
Nextj
NextI
Printa（2,3）+a（3,2）
Endsub
程序运营后，单击命令按钮，在窗体上输出成果是。
9、在窗体上画一种命令按钮，然后编写如下程序：
privatesubcommand1_click（）
dimintaasinteger
x=1
inta=inputbox（"请输入a值：
"）
selectcaseinta
case1to4
x=x+1
case5to10
x=x+2
case8
x=x+3
caseelse
x=x+4
endselect
printx
endsub
程序运营后，单击命令按钮，在弹出对话框中输入８，则窗体上输出成果是。
10、在窗体上画一种命令按钮，然后编写如下程序：
privatesubcommand1_click（）
FORa=1TO5
y=1
FORb=1TO5
FORc=1TO5
y=y+c
NEXTc
NEXTb
NEXTa
PRINT“y=”；y
ENDsub
程序运营后，单击命令按钮，在窗体上输出成果为。
五、程序填空题
1、下面函数计算两个非负整数m与n最小公倍数。
请在空白处填入恰当内容将程序补充完整。
PrivateSubcommand1_click（）
DimmAsInteger
DimnAsInteger
m=Val（InputBox（"请输入整数M：
"，m））
n=Val（InputBox（"请输入整数N：
"，n））
ForI=2Tom
IfmModI=0AndThen
k=I
EndIf
s=
print“最小公倍数为：
”,s
EndSub
2、窗体上有一种名称为List1列表框，一种名称为Text1文本框，一种名称为Label1、Caption属性为“Sum”标签，一种名称为Command1、标题为“计算”命令按钮。
程序运营后，将把1～100之间可以被7整除数添加到列表框中。
如果单击“计算”按钮，则对List1中数进行累加求和，并在文本框中显示计算成果，如图所示。
如下是实现上述功能程序，请填空。
PrivateSubForm_Load（）
Fori=1To100
IfiMod7=0Then
EndIf
Next
EndSub
PrivateSubCommand1_Click（）
Sum=0
Fori=0To
Sum=Sum+
Next
Text1.Text=Sum
EndSub
3、求所有满足条件四位数ＡＢＣＤ，它是１１倍数，且第三位数加上第二位数等于第四位数（即Ａ＝Ｂ＋Ｃ）。
Privatesubcommand1_（）
DimIasinteger
Dimbasinteger,casinteger
ForI=
B=i\100mod10
C=
Ifanda=b+cthen
PrintI;
Endif
NextI
Endsub
4.打印输出如下数组前２０项,并输出
１，１，３，７，１７，４１……
privatesubcommand1.click（）
dima（1to20）aslong
a
（1）=1
a
（2）=1
forI=3to20
nextI
forI=1to20
printa（i）;
nextI
Endsub
升级会员 