VB程序设计年月在线考试标准答案.docx
《VB程序设计年月在线考试标准答案.docx》由会员分享，可在线阅读，更多相关《VB程序设计年月在线考试标准答案.docx（8页珍藏版）》请在冰豆网上搜索。
VB程序设计年月在线考试标准答案
VB程序设计-年月在线考试答案
————————————————————————————————作者：
————————————————————————————————日期：
《VB程序设计》课程综合复习资料
一、单项选择
1．若要使标签控件显示时，不覆盖其背景内容，应设置标签控件的（D）属性。
A．BACKCOLORB．BORDERSTYLEC．FORECOLORD．BACKSTYLE
2．如果要在文本框中输入字符时，只显示某个字符，如星号（*），运行时，在文本框中输入的字符仍然显示出来，而不显示星号，原因可能是（B）
A．文本框的MULTILINE属性值为TRUE
B．文本框的LOCKED属性值为TRUE
C．文本框的MULTILINE属性值为FALSE
D．文本框的LOCKED属性为FALSE
3．下列关于属性设置的叙述错误的是：
（A）
A．一个控件具有什么属性是VB预先设计好的，用户不能改变
B．一个控件具有什么属性是VB预先设计好的，用户可以改变
C．一个控件的属性即可以在属性窗口中设置，也可以用程序代码设置
D．一个控件的属性在属性窗口中设置，还可以利用程序代码为其设置新值
4．下列说法正确的是（C）
A．对象属性只能在“属性窗口”中设置
B．一个新的工程可以在“工程窗口”中建立
C．必须先建立一个工程，才能开始设计应用程序
D．只能在“代码窗口”中编写程序代码
5．下列关于窗体上控件的基本操作错误的是：
（A）
A．下一次DEL键只能删除一个控件
B．按下一次DEL键可以同时删除多个控件
C．按住SHIFT键，然后单击每个要选择的控件，可以同时选中多个控件
D．按住ALT键，然后单击每个要选择的控件，可以同时选中多个控件
6．下列关于设置控件属性的叙述正确的是（C）
A．用户必须设置属性值
B．所有的属性值都可以由用户随意设定
C．属性值不必一一重新设置
D．不同控件的属性项都完全一样
7．如果将布尔常量值TRUE赋值给一个整型变量，则整型变量的值为（B）
A．0B．-1C．TRUED．FALSE
8．下列关于控件画法的叙述错误的是（D）
A．单击一次工具箱中的控件图标，只能在窗体上画出一个相应的控件
B．按住CTRL键后单击一次工具箱中的控件图标，可以在窗体上画出多个相同类型的控件
C．双击工具箱中的控件图标，所画控件的大小和位置是固定的
D．不合用工具箱中的控件工具，不可以在窗估上画出图形对象，但可以写入文字字符
9．应用程序设计完成后，应将程序保存，保存的过程是（D）
A．只保存窗体文件即可
B．只保存工程文件即可
C．先保存工程文件，之后保存窗体文件
D．先保存窗体文件（或标准模块文件），之后还要保存工程文件
10．VB应用程序的运行模式是（C）
A．解释运行模式B．编译运行模式C．两者都有D．汇编模式
11．可视化编程的最大优点是（C）
A．具有标准工具箱
B．一个工程文件由若干个窗体文件组成
C．不需要编写大量代码来描述图形对象
D．所见即所得
12、当一个对象（如窗体或图片框）被移动或改变大小之后，或当一个覆盖该窗体被移开之后，如果要保持该所画图形的完整性，可以选择触发（A）事件来完成图形的重画工作。
A．PaintB．LoadC．ClickD．Active
13、滚动条控件的属性中，表示取值范围最大值的属性是（A）
A．MaxB．LargeChangeC．MinD．Value
14、程序中如果需要检测和控制鼠标的位置和状态的改变，就需要使用鼠标事件，其中下面哪个选项用于表示拖动事件（A）
A．DragDropB．MouseDownC．MouseUpD．MouseMove
15、命令按钮的标题文字由（B）属性来设置。
A．TextB．CaptionC．NameD．（名称）
16、下面程序运行后输出的结果是（B）。
Chr1="CCCCHIINAAAA"
Chr2=Left（Chr1,3）
PRINTChr2
END
A．CHIB．CCCC．INAD．AAA
17、以下语句的输出结果是（C）。
PrintFormat$（32548.5,"###,###.##"）
A．032,548,50B．325,485.00C．32548.5D．32,548,50
18、若要设置文本的显示颜色，则可用（B）属性来实现。
A．BackColorB．ForecolorC．FillColorD．Backstyle
19、在运行时，若要调用某命令钮的Click事件过程，则可设置该命令钮对象的（B）属性为Ture来实现。
A．EnabledB．ValueC．DefaultD．Cancel
20、表达式4+5\6*7/8Mod9的值是（B）。
A．4B．5C．6D．7
二、简答题
1．在程序设计中为什么尽量不用GoTo语句？
2．框架的作用是什么？
3．如何为一个菜单项设置热键和快捷键？
4．程序出错的类型有哪几种？
5．在设计状态，若用户想打开代码窗口，应怎样操作？
代码窗口主要包括哪几部分？
6．表间的关系类型有哪几种？
二、简答题
1．答案要点：
主要是为了结构化。
2．答案要点：
框架主要是用作容器，可以实现多组单选按钮，并且可以美化界面。
3．答案要点：
为一个菜单项设置热键时需要在相应字符前面加&，设置快捷键需要在菜单编辑器中选择。
4．答案要点：
四种：
语法错误、编译错误、运行错误和逻辑错误。
5．答案要点：
在设计状态，打开代码窗口至少有三种方法，只要写一种即为正确；代码窗口主要三部分：
对象列表、事件列表、代码窗口。
6．答案要点：
表间的关系类型有三种：
一对一、一对多和多对多。
三、编程题
1．编程求任意两个正整数（利用两个文本框输入）的最大公约数，并利用标签输出结果。
PrivateSubCommand1_Click（）
Dimm,n,rAsInteger
m=Val（Text1.Text）
n=Val（Text2.Text）
Ifm<0Orn<0Then
Label2.Caption="输入数据有错！
"
Else
r=mModn
DoWhiler<>0
m=n
n=r
r=mModn
Loop
Label2.Caption="最大公约数为：
"&n
EndIf
EndSub
2．编程实现对n个整数按由小到大的顺序排序。
PrivateSubsort（arraya（）AsInteger,nAsInteger）
DimpAsInteger,iAsInteger,jAsInteger,tempAsInteger
Fori=1Ton-1
p=i
Forj=i+1Ton
Ifarraya（p）>arraya（j）Thenp=j
Nextj
Ifp<>iThentemp=arraya（i）:
arraya（i）=arraya（p）:
arraya（p）=temp
Nexti
EndSub
3．请编程实现每30秒在窗体上显示一次当前的时间。
PrivateSubForm_Load（）
Timer1.Interval=30000
EndSub
PrivateSubTimer1_Timer（）
PrintTime
EndSub
《VB程序设计》课程综合复习资料参考答案
一、单项选择
题目
1
2
3
4
5
6
7
8
9
10
答案
D
B
A
C
A
C
B
D
D
C
题目
11
12
13
14
15
16
17
18
19
20
答案
C
A
A
A
B
B
C
B
B
B
二、简答题
1．答案要点：
主要是为了结构化。
2．答案要点：
框架主要是用作容器，可以实现多组单选按钮，并且可以美化界面。
3．答案要点：
为一个菜单项设置热键时需要在相应字符前面加&，设置快捷键需要在菜单编辑器中选择。
4．答案要点：
四种：
语法错误、编译错误、运行错误和逻辑错误。
5．答案要点：
在设计状态，打开代码窗口至少有三种方法，只要写一种即为正确；代码窗口主要三部分：
对象列表、事件列表、代码窗口。
6．答案要点：
表间的关系类型有三种：
一对一、一对多和多对多。
三、编程题
1．参考程序如下：
PrivateSubCommand1_Click（）
Dimm,n,rAsInteger
m=Val（Text1.Text）
n=Val（Text2.Text）
Ifm<0Orn<0Then
Label2.Caption="输入数据有错！
"
Else
r=mModn
DoWhiler<>0
m=n
n=r
r=mModn
Loop
Label2.Caption="最大公约数为：
"&n
EndIf
EndSub
2．参考程序如下：
PrivateSubsort（arraya（）AsInteger,nAsInteger）
DimpAsInteger,iAsInteger,jAsInteger,tempAsInteger
Fori=1Ton-1
p=i
Forj=i+1Ton
Ifarraya（p）>arraya（j）Thenp=j
Nextj
Ifp<>iThentemp=arraya（i）:
arraya（i）=arraya（p）:
arraya（p）=temp
Nexti
EndSub
3．参考程序如下：
PrivateSubForm_Load（）
Timer1.Interval=30000
EndSub
PrivateSubTimer1_Timer（）
PrintTime
EndSub
新建一个form1添加command1添加label1label1高度设的稍高一点，以显示数据。
form代码视图中加入以下语句.PrivateSubCommand1_Click（）'定义变量
Dima（9）AsInteger
DimiAsInteger
DimrAsInteger
DimtAsInteger'产生随机数
Randomize
Fori=0To9
a（i）=CInt（Rnd（）*100）
Nexti'排序
Fori=0To8
Forr=i+1To9
Ifa（i）>a（r）Then
t=a（i）
a（i）=a（r）
a（r）=t
EndIf
Nextr
Nexti'显示数据
Label1.Caption=""
Fori=0To9
Label1.Caption=L
升级会员 