全国计算机VB无纸化题库真题选择题Word文件下载.docx
《全国计算机VB无纸化题库真题选择题Word文件下载.docx》由会员分享，可在线阅读，更多相关《全国计算机VB无纸化题库真题选择题Word文件下载.docx（15页珍藏版）》请在冰豆网上搜索。
下列叙述中正确的是（ B ）。
A）提高耦合性降低内聚性有利于提高模块的独立性
B）降低耦合性提高内聚性有利于提高模块的独立性
C）耦合性是指一个模块内部各个元素间彼此结合的紧密程度
D）内聚性是指模块间互相连接的紧密程度
8.数据库应用系统中的核心问题是（ A ）。
A）数据库设计
B）数据库系统设计
C）数据库维护
D）数据库管理员培训
9.在E－R图中，用来表示实体联系的图形是（ C ）。
A）椭圆形
B）矩形
C）菱形
D）三角形
10.有三个关系R、S和T如下：
则关系T是由关系R和S通过某种操作得到，该操作为（ D ）。
A）选择
B）投影
C）交
D）并
11.以下叙述中错误的是（ D ）。
A）标准模块文件的扩展名是.bas
B）标准模块文件是纯代码文件
C）在标准模块中声明的全局变量可以在整个工程中使用
D）在标准模块中不能定义过程
12.在VisualBasic中，表达式3*2\5Mod3的值是（A）。
A）1
B）0
C）3
D）出现错误提示
13.设a＝4，b＝5，c＝6，执行语句Printa<
bAndb<
c后，窗体上显示的是（ A ）。
A）True
B）False
C）出错信息
D）0
14.执行下列语句：
strInput＝InputBox（"
请输入字符串"
，"
字符串对话框"
字符串"
）
将显示输入对话框。
此时如果直接单击"
确定"
按钮，则变量strInput的内容是（ C ）。
A）"
B）"
C）"
D）空字符串
15.以下变量名中合法的是（ C ）。
A）x2－1
B）print
C）str_n
D）2x
16.把数学表
达式表示为正确的VB表达式应该是（ D ）。
A）（5x＋3）/（2y－6）
B）
C）
D）（x*5＋3）/（y*2－6）
17.下面是求最大公约数的函数的首部：
Functiongcd（ByValxAsInteger，ByValyAsInteger）AsInteger
若要输出8、12、16这3个数的最大公约数，下面正确的语句是（ D ）。
A）Printgcd（8,12），gcd（12,16），gcd（16,8）
B）Printgcd（8,12,16）
C）Printgcd（8），gcd（12），gcd（16）
D）Printgcd（8，gcd（12,16））
18.若在窗体模块的声明部分声明了如下自定义类型和数组：
PrivateTyperec
CodeAsInteger
CaptionAsString
EndType
Dimarr（5）Asrec
则下面的输出语句中正确的是（ C ）。
A）Printarr.Code
（2），arr.Caption
（2）
B）Printarr.Code，arr.Caption
C）Printarr
（2）.Code，arr
（2）.Caption
D）PrintCode
（2），Caption
（2）
19.为把圆周率的近似值3.14159存放在变量pi中，应该把变量pi定义为（ C ）。
A）DimpiAsInteger
B）Dimpi（7）AsInteger
C）DimpiAsSingle
D）DimpiAsLong
20.表达式2*3^2+4*2/2+3^2的值是（B）。
A）30
B）31
C）49
D）48
21.设窗体上有一个列表框控件List1，含有若干列表项。
以下能表示当前被选中的列表项内容的是（ C ）。
A）List1.List
B）List1.ListIndex
C）List1.Text
D）List1.Index
22.在窗体上画一个文本框（名称为Text1）和一个标签（名称为Label1），程序运行后，在文本框中每输入一个字符，都会立即在标签中显示文本框中字符的个数。
以下可以实现上述操作的事件过程是（ A ）。
A）PrivateSubText1_Change（）
Label1.Caption＝Str（Len（Text1.Text））
EndSub
B）PrivateSubText1_Click（）
C）PrivateSubText1_Change（）
Label1.Caption＝Text1.Text
D）PrivateSubLabel1_Change（）
23.设窗体上有名称为Option1的单选按钮，且程序中有语句：
IfOption1.Value＝TrueThen
下面语句中与该语句不等价的是（ C ）。
A）IfOption1.ValueThen
B）IfOption1＝TrueThen
C）IfValue＝TrueThen
D）IfOption1Then
24.设窗体上有1个水平滚动条，已经通过属性窗口把它的Max属性设置为1，Min属性设置为100。
下面叙述中正确的是（ A ）。
A）程序运行时，若使滚动块向左移动，滚动条的Value属性值就增加
B）程序运行时，若使滚动块向左移动，滚动条的Value属性值就减少
C）由于滚动条的Max属性值小于Min属性值，程序会出错
D）由于滚动条的Max属性值小于Min属性值，程序运行时滚动条的长度会缩为一点，滚动块无法移动
25.为了对多个控件执行操作，必须选中这些控件。
下列不能选中多个控件的操作是（ A ）。
A）按住Alt键，不要松开，然后单击每个要选中的控件
B）按住Shift键，不要松开，然后单击每个要选中的控件
C）按住Ctrl键，不要松开，然后单击每个要选中的控件
D）拖动鼠标画出一个虚线矩形，使所选中的控件位于这个矩形内
26.在窗体上画一个文本框，其名称为Text1，为了在程序运行后隐藏该文本框，应使用的语句为（ B ）。
A）Text1.Clear
B）Text1.Visible＝False
C）Text1.Hide
D）Text1.Enabled＝False
27.设窗体上有一个标签Label1和一个计时器Timer1，Timer1的Interval属性被设置为1000，Enabled属性被设置为True。
要求程序运行时每秒在标签中显示一次系统当前时间。
以下可以实现上述要求的事件过程是（ B ）。
A）PrivateSubTimer1_Timer（）
Label1.Caption＝True
B）PrivateSubTimer1_Timer（）
Label1.Caption＝Time$
C）PrivateSubTimer1_Timer（）
Label1.Interval＝1
D）PrivateSubTimer1_Timer（）
Fork＝1ToTimer1.Interval
Label1.Caption＝Timer
Nextk
EndSu
28.窗体上有一个名称为CD1的通用对话框控件和由四个命令按钮组成的控件数组Command1，其下标从左到右分别为0、1、2、3，窗体外观如图所示。
命令按钮的事件过程如下：
PrivateSubCommand1_Click（IndexAsInteger）
SelectCaseIndex
Case0
CD1.Action＝1
Case1
CD1.ShowSave
Case2
CD1.Action＝5
Case3
End
EndSelect
对上述程序，下列叙述中错误的是（ C ）。
A）单击"
打开"
按钮，显示打开文件的对话框
B）单击"
保存"
按钮，显示保存文件的对话框
C）单击"
打印"
按钮，能够设置打印选项，并执行打印操作
D）单击"
退出"
按钮，结束程序的运行
29.用来设置文字字体是否斜体的属性是（ D ）。
A）FontUnderline
B）FontBold
C）FontSlope
D）FontItalic
30.窗体上有一个名称为Timer1的计时器控件，一个名称为Shape1的形状控件，其Shape属性值为3（Circle）。
编写程序如下：
PrivateSubForm_Load（）
Shape1.Top＝0
Timer1.Interval＝100
PrivateSubTimer1_Timer（）
StaticxAsInteger
Shape1.Top＝Shape1.Top＋100
x＝x＋1
IfxMod10＝0Then
Shape1.Top＝0
EndIf
以下关于上述程序的叙述中，错误的是（ C ）。
A）每执行一次Timer1_Timer事件过程，x的值都在原有基础上增加1
B）Shape1每移动10次回到起点，重新开始
C）窗体上的Shape1由下而上移动
D）Shape1每次移动100
31.现有如下程序：
PrivateSubCommand1_Click（）
s＝0
Fori＝1To5
s＝s＋f（5＋i）
Next
Prints
PublicFunctionf（xAsInteger）
Ifx>
＝10Then
t＝x＋1
Else
t＝x＋2
f＝t
EndFunction
运行程序，则窗体上显示的是（ B ）。
A）38
B）49
C）61
D）70
32.窗体上有一个名称为Picture1的图片框控件，一个名称为Label1的标签控件，如图所示。
现有如下程序：
PublicSubdisplay（xAsControl）
IfTypeOfxIsLabelThen
xCaption＝"
计算机等级考试"
xPicture＝LoadPicture（"
pic.jpg"
PrivateSubLabel1_Click（）
Calldisplay（Label1）
PrivateSubPicture1_Click（）
Calldisplay（Picture1）
对以上程序，下列叙述中错误的是（ A ）。
A）程序运行时会出错
B）单击图片框，在图片框中显示一幅图片
C）过程中的x是控件变量
D）单击标签，在标签中显示一串文字
33.设有如下通用过程：
PublicFunctionFun（xStrAsString）AsString
DimtStrAsString，strLAsInteger
tStr＝"
"
strL＝Len（xStr）
i＝1
DoWhilei<
＝strL/2
tStr＝tStr&
Mid（xStr，i，1）&
Mid（xStr，strL－i＋1，1）
i＝i＋1
Loop
Fun＝tStr
EndFunction
在窗体上画一个名称为Command1的命令按钮。
然后编写如下的事件过程：
PrivateSubCommand1_Click（）
DimS1AsString
S1＝"
abcdef"
PrintUCase（Fun（S1））
EndSub
程序运行后，单击命令按钮，输出结果是（ C ）。
A）ABCDEF
B）abcdef
C）AFBECD
D）DEFABC
34.某人为计算n！
（0<
n<
＝12）编写了下面的函数过程：
PrivateFunctionfun（nAsInteger）AsLong
DimpAsLong
p＝1
Fork＝n－1To2Step－1
p＝p*k
Nextk
fun＝p
在调试时发现该函数过程产生的结果是错误的，程序需要修改。
下面的修改方案中有3种是正确的，错误的方案是（ B ）。
A）把p＝1改为p＝n
B）把Fork＝n－1To2Step－1改为Fork＝1Ton－1
C）把Fork＝n－1To2Step－1改为Fork＝1Ton
D）把Fork＝n－1To2Step－1改为Fork＝2Ton
35.窗体上的三个命令按钮构成名称为Command1的控件数组。
如图所示。
程序如下：
IfIndex＝1Then
Print"
IfIndex＝2Then
PrintCommand1
（2）.Caption
运行程序，单击"
命令按钮2"
，则如下叙述中正确的是（ D ）。
A）PrintCommand1
（2）.Caption语句有错
B）在窗体上显示"
C）在窗体上显示"
命令按钮3"
D）在窗体上显示"
36.下面程序的执行结果是（ B ）。
a＝0
k＝1
DoWhilek<
4
x＝k^k^a
k＝k＋1
Printx；
Loop
A）1427
B）111
C）149
D）000
37.设有如图所示窗体和以下程序：
Text1.Text＝"
VisualBasic"
PrivateSubText1_LostFocus（）
IfText1.Text<
>
BASIC"
Then
Text1.Text＝"
Text1.SetFocus
程序运行时，在Text1文本框中输入"
Basic"
（如图所示），然后单击Command1按钮，则产生的结果是（ A ）。
A）文本框中无内容，焦点在文本框中
B）文本框中为"
，焦点在文本框中
C）文本框中为"
，焦点在按钮上
D）文本框中为"
38.窗体上有一个名称为Command1的命令按钮，其事件过程如下：
x＝"
VisualBasicProgramming"
a＝Right（x，11）
b＝Mid（x，7，5）
c＝MsgBox（a，，b）
运行程序后单击命令按钮。
以下叙述中错误的是（ D ）。
A）信息框的标题是Basic
B）信息框中的提示信息是Programming
C）c的值是函数的返回值
D）MsgBox的使用格式有错
39.在窗体上画一个名称为Command1的命令按钮，再画两个名称分别为Label1、Label2的标签，然后编写如下程序代码：
PrivateXAsInteger
X＝5：
Y＝3
Callproc（X，Y）
Label1.Caption＝X
Label2.Caption＝Y
PrivateSubproc（aAsInteger，ByValbAsInteger）
X＝a*a
Y＝b＋b
程序运行后，单击命令按钮，则两个标签中显示的内容分别是（ A ）。
A）25和3
B）5和3
C）25和6
D）5和6
40.在窗体上画一个名为Command1的命令按钮，然后编写以下程序：
DimM（10）AsInteger
Fork＝1To10
M（k）＝12－k
x＝8
PrintM（2＋M（x））
运行程序，单击命令按钮，在窗体上显示的是（ A ）。
A）6
B）5
C）7
D）8
升级会员 