vb答案19.docx
《vb答案19.docx》由会员分享，可在线阅读，更多相关《vb答案19.docx（31页珍藏版）》请在冰豆网上搜索。
vb答案19
一
一、选择题
1.一个可执行的VisualBasic中应用程序至少要包括一个（ c ）。
A.标准模块 B.类模块 C.窗体模块 D.辅助模块
2.VisualBasic中最基本的对象是（ b ），它是应用程序的基石。
A.标签 B.窗体 C.文本框 D.命令按钮
3.在设计阶段，当双击窗体上的某个控件时，所打开的窗口是（ c ）。
A.工程资源管理器窗口 B.工具箱窗口
C.代码窗口 D.属性窗口
4.以下不属于VisualBasic系统的文件类型的是（ b ）。
A.frm B.bat C.vbg D.vbp
5.下列叙述中错误的是（ c ）。
A.打开一个工程文件时，系统自动载入与该工程有关的窗体、标准模块等文件
B.保存VisualBasic程序时，应分别保存窗体文件和工程文件
C.VisualBasic应用程序只能以解释方式执行
D.事件可以由用户引发，也可以由系统引发
6.从“文件”菜单中选择“保存工程”命令来结束本次创建应用程序的工作，VisualBasic6.0将提示保存（ a ）文件。
A.窗体和工程 B.窗体和代码 C.工程和代码 D.代码和模块
7.用户通过（ c ）模拟屏幕的小图像来布置应用程序界面。
A.快捷菜单 B. 窗体设计器 C.窗体布局窗口 D.立即窗口
8.以下叙述中错误的是（a ）。
A.在工程资源管理器窗口中只能包含一个工程文件及属于该工程的其他文件
B.以.bas为扩展名的文件是标准模块文件
C.窗体与代码窗口存在一一对应关系
D.一个工程中可以含有多个标准模块文件
9.下列叙述中不正确的是（ b ）。
A.注释语句是非执行语句，仅对程序的有关内容起注释作用，它不被解释和编译
B.注释语句可以放在程序代码中的任何位置
C.注释语句可以单独写在一行
D.向程序代码中加入注释语句的目的是提高程序的可读性
二、填空题
1.VisualBasic是一种面向 对象 的程序设计语言。
2.在代码窗口，如果一条语句太长，无法在一行内写下，要换行书写，可以在行末使用 续行符 ，它由 一个空格加一个下划线 组成。
3.VisualBasic6.0的3种工作模式分别是 设计 、 运行 和 中断 。
4.工程文件的扩展名是vbp ，窗体文件的扩展名是frm 。
5.VisualBasic窗体设计器的主要功能是 设计应用程序界面 。
二
一、选择题
1.与传统的程序设计语言相比，VisualBasic6.0最突出的特点是（c ）。
A.结构化程序设计 B.程序开发环境
C.事件驱动编程机制 D.程序调试技术
2.以下可以构成语句的一项是（ b ）。
A.对象名.属性名 B.对象名.方法名
C.对象名.事件名 D.对象名.函数名
3.如果要设置窗体的标题栏，应设置的属性是（ c ）。
A.Name B.Title C.Caption D.Text
4.标签所显示的内容，由（ c ）属性值决定。
A.Text B.名称 C.Caption D.Alignment
5.文本框的（ a ）属性用于设置或返回文本框中的文本内容。
A.Text B.名称 C.Caption D.Name
6.若要使命令按钮不可用，可设置其（ d ）属性为False来实现。
A.Value B.Cancel C.Default D.Enabled
二、填空题
1.VisualBasic程序的基本结构有 顺序选择循环 。
2.VisualBasic是一种面向 对象 的可视化程序设计语言，采取了 事件驱动 的编程机制。
3.要把窗体设置成没有标题条，应将窗体的 borderstyle 属性设置为 0 。
4.设有窗体（名称为MyForm），事件过程如下：
PrivateSubForm_Click（）
MyForm.Caption＝″VB示例″
Me.Caption＝″欢迎使用本系统″
Caption＝″Hello！
″
EndSub
则响应该过程的事件名是 Form_Click（） 。
程序运行时，窗体的标题是 form ，单击窗体后窗体的标题是 Hello！
。
5.程序界面上有一个标签（名为Label1），要使运行时单击标签实现下列功能：
①标签中心与窗体工作区域中心重合。
②标签的内容变为“标签被单击”文字。
③文字的颜色变为红色。
请将下列程序补充完整。
PrivateSubLabel1_Click（）
Label1.left=（form1.scalewidth-label1.width）/2
Label1.top=（form1.height-label1.height）/2
Label1.caption ="标签被单击”
Label1.forecolor= vbred
三
一、选择题
1.VisualBasic的合法直接常量有（ c）。
A.π B.%100 C.True D.&H12ag
2.VisualBasic的合法变量名有（ d ）。
A.123_a B.Integer C.False D.sinx
3.骰子是一个正六面体，用1～6这6个数分别代表这6面，掷一次骰子可能出现的数应表示为（ d）。
A.INT（RND（6）＋1） B.INT（RND*6）
C.INT（RND*7） D.INT（RND*6＋1）
4.VisualBasic表达式3\3*3/3Mod3的值是（ b ）。
A.－1 B.1 C.－3 D.3
5.下列表达式中，正确的VisualBasic逻辑表达式是（ d ）。
A.x>yAndy>z
C.x>yAnd>z D.x>yAndy>z
6.在窗体上画一个文本框，然后编写如下事件过程：
PrivateSubForm_Click（）
x＝InputBox（″请输入一个整数″）
Printx＋Text1.Text
EndSub
程序运行时，在文本框中输入456，然后单击窗体，在输入对话框中输入123，单击“确定”按钮后，在窗体上显示的内容是（ d ）。
A.123 B.456 C.579 D.123456
7.设a%＝20，b$＝″30″，则下列输出结果是″2030″的语句是（ d ）。
A.Printstr（a） B.Print″a″＋b C.Printa＋b D.Printa&b
8.设a＝10，b＝5，c＝1，执行语句Printa＝b＝c后，窗体上显示的是（b ）。
A.True B.False C.10 D.出错信息
9.执行以下程序段后，变量c$的值为（d ）。
a$＝″VisualBasicPrograming″
b$＝″Quick″
c$＝b$&UCase（Mid$（a$,7,6））&Right$（a$,11）
A.VisualBASICPrograming B.QuickBasicPrograming
C.QUICKBasicPrograming D.QuickBASICPrograming
10.下列关于可变数据类型的叙述中正确的是（ c ）。
A.可变数据类型是一种没有类型的数据
B.给可变数据类型变量赋某一种类型数值后，就不能再赋另一种类型的数值
C.一个变量没有定义就赋值，该变量即为可变数据类型
D.可变数据类型的空值表示该可变数据类型变量值为0
二、填空题
1.表达式123＋23mod10\7＋Asc（″a″）的值是 220 。
2.表示s字符变量是字母（不区分大小写）的逻辑表达式是 （s>=’a’ ands<=’z’ ）or（s>=’A’ ands<=’Z’ ） 。
3.String（4，″string″）的功能是 ssss 。
4.UCase（mid（″中国china″，2,3））的结果为 国C 。
5.整型变量x中存放了一个两位数，要将两位数交换位置，例如13变成31，实现的表达式是 （xMod10）*10+x\10 。
6.数学式的VisualBasic表达式是 （Sqr（1+Exp
（2））+3.14）/（2*Log（x）+5*4*3*2*1） 。
7.要以“××××年××月××日”形式显示当前日期的Format函数格式为 Format（Date,"YYYY年MM月DD日"）。
8.计算离2009年6月30日还有多少个星期的函数是DateDiff（"ww",Now,#6/30/2009#） 。
四 一、选择题
1.设分段函数y（x）的表达式为：
y＝，则能正确实现该分段函数计算的语句为（ d）。
A.Ifx>0Theny＝x＋1 B.y＝x＋1
y＝x－1 Ifx<＝0Theny＝x－1
C.Ifx>0 D.Ifx>0Then
y＝x＋1 y＝x＋1
Else Else
y＝x－1 y＝x－1
EndIf EndIf
2.有如下程序段：
xcase＝1
t＝InputBox（“请输入一个数：
”）
SelectCaset
CaseIs>0
Y＝xcase＋1
CaseIs＝0
Y＝xcase＋2
CaseElse
Y＝xcase＋3
EndSelect
Printxcase；Y
若输入－1，输出结果为（ a ）。
A.1 4 B.1 3 C.1 2 D.1 1
3.下列循环语句执行后，X的值等于（ a ）。
X＝5
Fori＝1To20Step2
X＝X＋i\5
Nexti
X＝i
A.21 B.22 C.23 D.24
4.执行以下程序段时，（ c）。
x＝1
DoWhile x<>0
x＝x*x
Printx；
Loop
A.循环体将执行1次 B.循环体将执行0次
C.循环体将执行无限次 D.系统将提示语法错误
5.设窗体中包含一个命令按钮Command1，一个标签Label1，并有以下的事件过程。
程序运行后，单击Command1按钮，标签中显示的内容是（ c ）。
PrivateSubCommand1_Click（）
DimiAsInteger，nAsInteger
i＝1：
n＝0
DoWhilei<10
n＝n＋i
i＝i*（i＋1）
Loop
Label1＝i&″－″&n
EndSub
A.6－3 B.24－9 C.42－9 D.6－9
6.有如下循环结构：
Do
循环体
LoopWhile条件
则以下叙述中错误的是（ a）。
A.若条件是一个为0的常数，则一次也不执行循环体
B.条件可以是关系表达式、逻辑表达式或常数
C.循环体中可以使用ExitDo语句
D.如果条件总是为True，则不停地执行循环体
7.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
PrivateSubCommand1_Click（）
DimnumAsInteger
num＝1
DoUntilnum>6
Printnum；
num＝num＋2.4
Loop
EndSub
程序运行后，单击命令按钮，则窗体上显示的内容是（ b ）。
A.1 3.4 5.8 B.1 3 5 C.1 4 7 D.无数据输出
8.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
PrivateSubCommand1_Click（）
DimaAsInteger，s AsInteger
a＝8
s＝1
Do
s＝s＋a
a＝a－1
LoopWhilea<＝0
Prints；a
EndSub
程序运行后，单击命令按钮，则窗体上显示的内容是（ c ）。
A.7 9 B.34 0 C.9 7 D.死循环
二、填空题
1.下面程序的功能是 偶数、奇数分别累加放入m、n中 。
Dimn%，m%
PrivateSubText1_KeyPress（KeyAsciiAsInteger）
IfKeyAscii＝13Then
IfIsNumeric（Text1.Text）Then
SelectCaseText1.TextMod2
Case0
n＝n＋Text1.Text
Case1
m＝m＋Text1.Text
EndSelect
EndIf
Text1.Text＝″″
Text1.SetFocus
EndIf
EndSub
2.下面的程序是检查输入的算术表达式中圆括号是否配对，并显示相应的结果。
本程序在文本框输入表达式，边输入边统计，以回车作为表达式输入结束。
DimCount1%
PrivateSubText1_KeyPress（KeyAsciiAsInteger）
IfChr（KeyAscii）＝″（″Then
Count1＝Count1+1
ElseIfChr（KeyAscii）＝″）″Then
Count1＝Count1－1
EndIf
IfKeyAscii＝13Then
IfCount1＝0Then
Print″左右括号配对″
ElseIfCount1〉0Then
Print″左括号多于右括号″；Count1；″个″
Else
Print″右括号多于左括号″；－Count1；″个″
EndIf
EndIf
EndSub
3.输入任意长度的字符串，要求将字符顺序倒置，例如“ABCDEFG”变换为“GFEDCBA”。
PrivateSubCommand1_Click（）
Dima$，n%，i%，c$
a＝InputBox（″输入字符串″）
n＝Len（a）
Fori＝1ToInt（n/2）
c＝Mid（a，i，1）
Mid（a，i，1）=mid（a,n+1-I,1）
mid（a,n+1-I,1）=c
Nexti
Printa
EndSub
五一、选择题
1.以下有关数组定义的语句序列中，错误的是（ d）。
A.PrivateSubCommand1_Click（）
Staticarr1（3）
arr1
（1）＝100
arr1
（2）＝″Hello″
arr1（3）＝123.45
EndSub
B.Dimarr2（）AsInteger
DimsizeAsInteger
PrivateSubCommand2_Click（）
size＝InputBox（″输入″）
ReDimarr2（size）
EndSub
C.OptionBase1
PrivateSubCommand3_Click（）
Dimarr3（3）AsInteger
...
EndSub
D.DimnAsInteger
PrivateSubCommand4_Click（）
Dimarr4（n）AsInteger
...
EndSub
2.以下定义数组或给数组元素赋值的语句中，正确的是（ a ）。
A.DimaAsVariant
a＝Array（1，2，3，4，5）
B.Dima（l0）AsInteger
a＝Array（1，2，3，4，5）
C.Dima%（10）
a
（1）＝″ABCDE″
D.Dima（3），b（3）AsInteger
a（0）＝0：
a
（1）＝1：
a
（2）＝2：
b＝a
3.设在窗体上有一个名称为Command1的命令按钮，并有以下事件过程：
PrivateSubCommand1_Click（）
StaticbAsVariant
b＝Array（1,3,5,7,9）
...
EndSub
此过程的功能是把数组b中的5个数逆序存放（即排列为9,7,5，3，1）。
为实现此功能，省略号处的程序段应该是（ c ）。
A.Fori＝0To5－1\2
tmp＝b（i）
b（i）＝b（5－i－1）
b（5－i－1）＝tmp
Nexti
B.Fori＝0To5
tmp＝b（i）
b（i）＝b（5－i－1）
b（5－i－l）＝tmp
Next i
C.Fori＝0To5\2
tmp＝b（i）
b（i）＝b（5－i－1）
b（5－i－1）＝tmp
Nexti
D.Fori＝1To5\2
tmp＝b（i）
b（i）＝b（5－i－1）
b（5－i－1）＝tmp
Nexti
4.假定建立了一个名为Command1的命令按钮数组，则以下说法中错误的是（ b ）。
A.数组中每个命令按钮的名称属性均为Command1。
B.数组中每个命令按钮的标题（Caption属性）都一样。
C.数组中所有命令按钮可以使用同一个事件过程。
D.用名称Command1（下标）可以访问数组中的每个命令按钮。
5.设有命令按钮Command1的单击事件过程，代码如下：
PrivateSubCommand1_Click（）
Dima（30）AsInteger
Fori＝1To30
a（i）＝Int（Rnd*100）
Nexti
ForEacharrItemIna
IfarrItemMod7＝0ThenPrintarrItem；
IfarrItem>90ThenExitFor
Next
EndSub
对于该事件过程，以下叙述中错误的是（ a ）。
A.a数组中的数据是30个100以内的整数。
B.语句ForEacharrItemIna有语法错误。
C.IfarrItemMod7＝0语句的功能是输出数组中能够被7整除的数。
D.IfarrItem>90语句的作用是当数组元素的值大于90时退出For循环。
二、填空题
1.用下面语句定义的数组中，数组元素的个数分别为13、15、9。
①Dimarr（12）
②Dimarr（3To5，－2To2）
③
升级会员 