计算机技术基础A.docx
- 文档编号:30024122
- 上传时间:2023-08-04
- 格式:DOCX
- 页数:26
- 大小:152.14KB
计算机技术基础A.docx
《计算机技术基础A.docx》由会员分享,可在线阅读,更多相关《计算机技术基础A.docx(26页珍藏版)》请在冰豆网上搜索。
计算机技术基础A
一、单项选择题(每题2分,共70分)
下列控件在程序运行时不可见的是()。
A.标签
B.框架
C.文本框
D.计时器
1、语句Dima(-3To4,3To6)AsInteger定义的数组的元素个数是()。
A.18
B.28
C.21
D.32
2、以下变量名中合法的是()。
A.x2-1
B.Dim
C.Str_n
D.2x
3、下列代码中与Combo1.Text等同的是()。
A.Combo1.List(Combo1.ListIndex)
C.Combo1.ListIndex
B.Combo1.ListCount
D.Combo1.ListCount-1
4、下列关于通用对话框CommanDialog1的叙述中,错误的是()。
A.只要在“打开”对话框中选择了文件,并单击“打开”按钮,就可以将选中的文件打开。
B.使用CommonDialog1.showcolor方法,可以显示“颜色”对话框。
C.Cancelerror属性用于控制用户单击“取消”按钮关闭对话框时,是否显示出错警告。
D.在显示“字体”对话框前,必须先设置CommonDialog1的Flags属性,否则会出错。
5、在利用菜单编辑器设计菜单时,为了把组合键”Alt+X”设置为"退出(X)"菜单项的访问键,可以将该菜单项的标题设置为()。
A.退出(X&)
B.退出(&X)
C.退出(X#)
D.退出(#X)
6、以下说法中正确的是()
A.当焦点在某个控件上时,按下一个字母键,就会执行该控件的KeyPress事件过程
B.因为窗体不接受焦点,所以窗体不存在自己的KeyPress事件过程
C.若按下的键相同,KeyPress事件过程中的KeyAscii参数与KeyDown事件过程中的KeyCode参数的值也相同
D.在KeyPress事件过程中,KeyAscii参数可以省略
7、在VB集成环境中要结束一个正在运行的工程,可单击工具栏上的一个按钮,这个按钮是()。
A.
B.
C.
D.
8、在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程:
PrivateSubCommand1_Click()
DimiAsInteger,nAsInteger
Fori=0To50
i=i+4
n=n+1
Ifi>20ThenExitFor
Nexti
Text1.Text=Str(n)
EndSub
程序运行后,单击命令按钮,在文本框中显示的值是()。
A.2
B.3
C.4
D.5
9、在窗体上有一个名称为Text1的文本框和一个名称为Command1的命令按钮,事件过程如下:
PrivateSubCommand1_Click()
Dimarray1(10,10)AsInteger
Dimi%,jAsInteger
Fori=1to3
Forj=2to4
array1(i,j)=iModj
Nextj
Nexti
Text1.text=array1(2,3)+array1(2,4)
EndSub
程序运行后,单击命令按钮,在文本框中显示的值是()。
A.0
B.4
C.7
D.24
在窗体上画两个单选按钮(名称分别为Option1,Option2,标题分别为"宋体"和"黑体"),1个复选框(名称为Check1,标题为粗体)和1个文本框(名称为Text1,Text属性为"改变文字字体"),窗体外观如图所示。
程序运行后,要求“宋体”单选按钮和“粗体”复选框被选中,则以下能够实现上述操作的语句序列是()。
A.Option1.Value=False
Check1.Value=True
C.Option1.Value=True
Check1.Value=0
B.Option2.Value=False
Check1.Value=2
D.Option1.Value=True
Check1.Value=1
10、有名称为Command1的命令按钮和名称为Text1的文本框,编写如下事件过程:
PrivateSubText1_GotFocus()
Text1.Text="等级考试"
EndSub
PrivateSubCommand1_Click()
Text1.Text="等级考试"
Text1.Text="程序设计"
Text1.SetFocus
EndSub
运行以上程序,单击命令按钮后()。
A.文本框中显示的是“程序设计”,且焦点在文本框中。
B.文本框中显示的是“等级考试”,且焦点在文本框中。
C.文本框中显示的是“程序设计”,且焦点在命令按钮上。
D.文本框中显示的是“等级考试”,且焦点在命令按钮上。
11、在窗体上面1个命令按钮,并编写如下事件过程:
PrivateSubCommand1_Click()
Dima(3,3)
Form=1To3
Forn=1To3
Ifn=mOrn=4-mThen
a(m,n)=m\n
Else
a(m,n)=0
EndIf
Printa(m,n);
Nextn
Nextm
EndSub
运行程序单击命令按钮,窗体上显示的内容为()。
A.100B.204C.230D.100
040040340010
006406006301
12、为计算1+2+2^2+2^3+2^4+…+2^10的值,并把结果显示在文本框Text1中,若编写如下事件过程:
PrivateSubCommand1_Click()
Dima%,s%,k%
s=1
a=2
Fork=2To10
a=a*2
s=s+a
Nextk
Text1.Text=s
EndSub
执行此事件过程中发现结果是错误的,为能够得到正确结果,应做的修改是()。
A.把s=1改为s=0
B.把Fork=2to10改为Fork=1to10
C.交换语句s=s+a和a=a*2的顺序
D.同时进行B、C两种修改
13、下面不能在信息框中输出“VB”的是()。
A.MsgBox"VB"
B.x=MsgBox("VB")
C.MsgBox("VB")
D.CallMsgBox"VB"
14、设窗体中有一个文本框Text1,若在程序中执行了Text1.SetFocus,则触发()。
A.Text1的SetFocus事件
C.Text1的GotFocus事件
B.Text1的LostFocus事件
D.窗体的GotFocus事件
15、在窗体上画1个命令按钮和1个文本框,其名称分别为Command1和Text1,再编写如下程序:
DimssAsString
PrivateSubText1_keypress(keyasciiAsInteger)
IfChr(keyascii)<>""Thenss=Chr(keyascii)+ss
EndSub
PrivateSubCommand1_Click()
DimmAsString,iAsInteger
Fori=Len(ss)To1Step-1
m=m+Mid(ss,i,1)
Next
Text1.Text=UCase(m)
EndSub
程序运行后,在文本框中输入“Number100”,并单击命令按钮,则文本框中显示的是()。
A.NUMBER100
B.REBMUN
C.REBMUN100
D.001REBMUN
16、窗体如图1所示,要求程序运行时,在文本框Text1中输入一个姓氏,单击“删除“按钮(名称为command1),则可删除列表框中list1中所有该姓氏的项目,若编写以下程序来实现此功能:
PrivateSubCommand1_Click()
Dimn%,k%
n=Len(Text1.Text)
Fork=0ToList1.ListCount-1
IfLeft(List1.List(k),n)=Text1.TextThen
List1.RemoveItemk
EndIf
Nextk
EndSub
在调试时发现,如输入“陈”,可以正确删除所有姓“陈”的项目,但输入“刘”则只删除了“刘邦”、“刘备”2项,结果如图2所示。
这说明程序不能适应所有情况,需要修改。
正确的改方案是把Fork=0tolist1.listcount-1改为
A.Fork=list1.listcount-1to0step-1
B.Fork=0tolist1.listcount
C.Fork=1tolist1.listcount-1
D.Fork=1tolist1.listcount
17、设x是整型变量,与函数IIf(x>0,-x,x)有相同结果的代数式是()。
A.|x|
B.-|x|
C.x
D.-x
18、设窗体文件中有下面的事件过程:
PrivateSubCommand1_Click()
Dims
a%=100
Printa
EndSub
其中变量a和s的数据类型分别是()。
A.整型,整型
B.变体型,变体型
C.整型,变体型
D.变体型,整型
19、下面哪个属性肯定不是框架控件的属性()。
A.Text
B.Caption
C.Left
D.Enabled
20、有下面的程序段,其功能是按图1所示的规律输出数据
Dima(3,5)AsInteger
Fori=1To3
Forj=1To5
a(i,j)=i+j
Printa(i,j);
Next
Next
若要按图2所示的规律继续输出数据,则接在上述程序段后面的程序段应该是()。
A.Fori=1To5
Forj=1To3
Printa(j,i);
Next
Next
B.Fori=1To3
Forj=1To5
Printa(j,i);
Next
Next
C.Forj=1To5
Fori=1To3
Printa(j,i);
Next
Next
D.Fori=1To5
Forj=1To3
Printa(i,j);
Next
Next
21、窗体上有一个Text1文本框,一个Command1命令按钮,并有以下程序
PrivateSubCommand1_Click()
Dimn
IfText1.Text<>"123456"Then
n=n+1
Print"口令输入错误"&n&"次"
EndIf
EndSub
希望程序运行时得到左图所示的效果,即:
输入口令,单击“确认口令”命令按钮,若输入的口令不是“123456”,则在窗体上显示输入错误口令的次数。
但上面的程序实际显示的是左图所示的效果,程序需要修改。
下面修改方案中正确的是()。
A.在Dimn语句的下面添加一句:
n=O
B.把Print"口令输入错误"&n&"次"改为Print"口令输入错误"+n+"次"
C.把Print"口令输入错误"&n&"次"改为Print"口令输入错误"&Str(n)&"次"
D.把Dimn改为Staticn
22、要求当鼠标在图片框P1中移动时,立即在图片框中显示鼠标的位置坐标。
下面能正确实现上述功能的事件过程是()。
A.PrivateSubP1_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
PrintX,Y
EndSub
B.PrivateSubP1_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
Picture1.PrintX,Y
EndSub
C.PrivateSubP1_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
P1.PrintX,Y
EndSub
D.PrivateSubForm_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
P1.PrintX,Y
EndSub
23、计算π的近似值的一个公式是:
,某人编写下面的程序用此公式计算并输出π的近似值:
PrivateSubCommand1_Click()
PI=1
Sign=1
n=20000
Fork=3Ton
Sign=-Sign
PI=PI+Sign/k
Nextk
PrintPI*4
EndSub
运行后发现结果为3.22751,显然,程序需要修改。
下面修改方案中正确的是()。
A.把Fork=3Ton改为Fork=1Ton
C.把n=20000改为n=20000000
B.把Fork=3Ton改为Fork=3TonStep2
D.把PI=1改为PI=0
24、下面程序计算并输出的是()。
PrivateSubCommand1_Click()
a=10
s=0
Do
s=s+a*a*a
a=a-1
LoopUntila<=0
Prints
EndSub
A.13+23+33+…+103的值
C.10!
+…+3!
+2!
+1!
的值
B.1+2+3+…+10)3的值
D.10个103的和
25、若在窗体模块的声明部分声明了如下自定义类型和数组:
PrivateTyperec
CodeAsInteger
CaptionAsString
EndType
Dimarr(5)Asrec
则下面的输出语句中正确的是()。
A.Printarr.Code
(2),arr.Caption
(2)
C.Printarr.Code,arr.Caption
B.Printarr
(2).Code,arr
(2).Caption
D.PrintCode
(2),Caption
(2)
26、设窗体上有一个通用对话框控件CD1,希望在执行下面程序时,打开如图所示的文件对话框
PrivateSubCommand1_Click()
CD1.DialogTitle="打开文件"
CD1.Filter="所有文件|*.*|Word文档|*.doc|文本文件|*.Txt"
CD1.InitDir="C:
\"
CD1.FileName=""
CD1.Action=1
IfCD1.FileName=""Then
Print"未打开文件"
Else
Print"要打开文件"&CD1.FileName
EndIf
EndSub
但实际显示的对话框中列出了C:
\下的所有文件和文件夹,“文件类型”一栏中显示的是“所有文件”。
下面的修改方案中正确的是()。
A.把CD1.Action=1改为CD1.Action=2
B.把“CD1.Filter=”后面字符串中的“所有文件”改为“文本文件”
C.在语句CD1.Action=1的前面添加:
CD1.FilterIndex=3
D.把CD1.FileName=""改为CD1.FileName="文本文件"
27、下面程序运行时,若输入395,则输出结果是()。
PrivateSubCommand1_Click()
Dimx%
x=InputBox("请输入一个3位整数")
PrintxMod10,x\100,(xMod100)\10
EndSub
A.395
B.539
C.593
D.359
28、VB中有3个键盘事件:
KeyPress、KeyDown、KeyUp,若光标在Text1文本框中,则每输入一个字母()。
A.这3个事件都会触发
B.只触发KeyPress事件
C.只触发KeyDown、KeyUp事件
D.不触发其中任何一个事件
29、窗体上有List1、List2两个列表框,List1中有若干列表项(见图),并有下面的程序:
PrivateSubCommand1_Click()
Fork=List1.ListCount-1To0Step-1
IfList1.Selected(k)Then
List2.AddItemList1.List(k)
List1.RemoveItemk
EndIf
Nextk
EndSub
程序运行时,按照图示在List1中选中2个列表项,然后单击Commandl命令按钮,则产生的结果是()。
A.在List2中插入了“物理”、“数学”两项
B.在List1中删除了“物理”、“数学”两项
C.同时产生A和B的结果
D.把List1中最后1个列表项删除并插入到List2中
30、如果执行一个语句后弹出如图所示的窗口,则这个语句是()。
A.InputBox("输入框”,”请输入VB数据”)
B.x=InputBox("输入框”,”请输入VB数据”)
C.InputBox("请输入VB数据”,”输入框”)
D.x=InputBox("请输入VB数据”,”输入框”)
31、窗体上有一个名为Command1的命令按钮,并有下面的程序:
PrivateSubComand1_Click()
Dimarr(5)AsInteger
Fork=1To5
arr(k)=k
Nextk
progarr()
Fork=1To5
Printarr(k)
Nextk
EndSub
Subprog(a()AsInteger)
n=Ubound(a)
Fori=nTo2step-1
Forj=1Ton-1
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 计算机技术 基础