VB考试复习题校考印象.docx
《VB考试复习题校考印象.docx》由会员分享，可在线阅读，更多相关《VB考试复习题校考印象.docx（20页珍藏版）》请在冰豆网上搜索。
VB考试复习题校考印象
2008－6－14日VB考试印象整理
一、设计题
1、如图所示，窗体中有2个列表框、2个命令按钮。
点击“选择”，把List1中选中对象（含多个）复制到List2中；点击“清除”，List2清空。
图1
答：
首先在属性窗口中设置List1的MultiSelect值为2。
代码：
PrivateSubCommand1_Click（）
Dimi%
Fori=0ToList1.ListCount-1
IfList1.Selected（i）ThenList2.AddItemList1.List（i）
Nexti
EndSub
PrivateSubCommand2_Click（）
List2.Clear
EndSub
PrivateSubForm_Load（）
List1.AddItem"语文"
List1.AddItem"高数"
List1.AddItem"计算机应用"
List1.AddItem"数据结构"
List1.AddItem"哲学"
List1.AddItem"大学英语"
EndSub
2、如同所示，窗体中有2个列表框、1个命令按钮。
点击“未选择的项目复制”，把List1中未选中项目复制到List2中。
图2
答：
首先在属性窗口中设置List1的MultiSelect值为2。
代码：
PrivateSubCommand1_Click（）
Dimi%
Fori=0ToList1.ListCount-1
IfNotList1.Selected（i）ThenList2.AddItemList1.List（i）
Nexti
EndSub
PrivateSubForm_Load（）
List1.AddItem"语文"
List1.AddItem"高数"
List1.AddItem"计算机应用"
List1.AddItem"数据结构"
List1.AddItem"哲学"
List1.AddItem"大学英语"
EndSub
3、如图所示，窗体中有一个Shape控件、一个滚动条，点击滚动条箭头，使Shape1控件次序变化着各种形状。
图3
答：
首先在属性窗口中设置Hscroll1的Max值为5。
代码：
PrivateSubHScroll1_Change（）
Shape1.Shape=HScroll1.Value
EndSub
4、如图所示，窗体中有一个时钟控件、一个滚动条（value值范围：
0~10）、一个命令按钮。
点击“开始”，滚动条滑块每秒以1的步长前进。
图4
答：
首先在属性窗口设置Hscroll1的Max值为10。
代码：
PrivateSubCommand1_Click（）
Timer1.Interval=1000
EndSub
PrivateSubTimer1_Timer（）
HScroll1.Value=HScroll1.Value+1
EndSub
5、如图所示界面，设计一个标题为“字体颜色”、名称为BgColor弹出式菜，包括一个控件数组子菜单，子菜单名称为Gcolor，标题等属性如图所示，子菜单功能用于设置窗体颜色。
图5
答：
打开菜单编辑器，建立顶级菜单，去掉“可见”属性；
建立子菜单控件数组――“红色”的“索引”输入0、“绿色”的“索引”输入1…
代码：
PrivateSubForm_MouseUp（ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle）
IfButton=2ThenPopupMenuBgColor
EndSub
PrivateSubGcolor_Click（IndexAsInteger）
SelectCaseIndex
Case0
IfGcolor（0）.Checked=FalseThenGcolor（0）.Checked=True
Gcolor
（1）.Checked=False
Gcolor
（2）.Checked=False
Gcolor（3）.Checked=False
Form1.BackColor=vbRed
Case1
Gcolor（0）.Checked=False
Gcolor
（2）.Checked=False
Gcolor（3）.Checked=False
IfGcolor
（1）.Checked=FalseThenGcolor
（1）.Checked=True
Form1.BackColor=vbGreen
Case2
IfGcolor
（2）.Checked=FalseThenGcolor
（2）.Checked=True
Gcolor（0）.Checked=False
Gcolor
（1）.Checked=False
Gcolor（3）.Checked=False
Form1.BackColor=vbBlue
Case3
IfGcolor（3）.Checked=FalseThenGcolor（3）.Checked=True
Gcolor（0）.Checked=False
Gcolor
（1）.Checked=False
Gcolor
（2）.Checked=False
Form1.BackColor=vbYellow
EndSelect
EndSub
6、如图所示界面，设计一个标题为“字体颜色”、名称为BgColor弹出式菜，包括一个控件数组子菜单，子菜单名称为Gcolor，标题等属性如图所示，子菜单功能用于设置文本框中文字颜色。
图6
答：
打开菜单编辑器，建立顶级菜单，去掉“可见”属性；
建立子菜单控件数组――“红色”的“索引”输入0、“绿色”的“索引”输入1…
代码：
PrivateSubForm_MouseUp（ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle）
IfButton=2ThenPopupMenuBgColor
EndSub
PrivateSubGcolor_Click（IndexAsInteger）
SelectCaseIndex
Case0
IfGcolor（0）.Checked=FalseThenGcolor（0）.Checked=True
Gcolor
（1）.Checked=False
Gcolor
（2）.Checked=False
Gcolor（3）.Checked=False
Text1.ForeColor=vbRed
Case1
Gcolor（0）.Checked=False
Gcolor
（2）.Checked=False
Gcolor（3）.Checked=False
IfGcolor
（1）.Checked=FalseThenGcolor
（1）.Checked=True
Text1.ForeColor=vbRed
Case2
IfGcolor
（2）.Checked=FalseThenGcolor
（2）.Checked=True
Gcolor（0）.Checked=False
Gcolor
（1）.Checked=False
Gcolor（3）.Checked=False
Form1.BackColor=vbRed
Text1.ForeColor=vbRed
Case3
IfGcolor（3）.Checked=FalseThenGcolor（3）.Checked=True
Gcolor（0）.Checked=False
Gcolor
（1）.Checked=False
Gcolor
（2）.Checked=False
Text1.ForeColor=vbYellow
EndSelect
EndSub
7、如图7所示界面，包括一个文本框、一个组合框、2个命令按钮。
点击“修改”按钮，组合框中选定项目移到文本框；点击“确认”，文本框中修改之后内容，添加回组合框。
图7
代码：
PrivateSubCommand1_Click（）
Text1.Text=Combo1.Text
Combo1.RemoveItemCombo1.ListIndex
EndSub
PrivateSubCommand2_Click（）
Combo1.AddItemText1
EndSub
PrivateSubForm_Load（）
Combo1.AddItem"张三丰"
Combo1.AddItem"李铭文"
Combo1.AddItem"林历历"
Combo1.AddItem"郑小梅"
Combo1.AddItem"王浩浩"
EndSub
8、设计如图8所示形状。
图8图9
答：
在窗体上画一个Shape1控件，设置Shape1的Shape属性值为4，FillStyle属性值为7。
9、设计如图9所示形状。
答：
在窗体上画一个Shape1控件，设置Shape1的Shape属性值为3，FillStyle属性值为4。
10、如图所示窗体，一个图像框、2个命令按钮。
图像框边框凹陷。
点击“显示第一幅图片”按钮……,“显示第二幅图片”按钮，….。
图10
答：
建立如图所示界面，设置Image1的BoderStyle值为1。
代码：
PrivateSubCommand1_Click（）
Image1.Picture=LoadPicture（"…."）
EndSub
PrivateSubCommand2_Click（）
Image1.Picture=LoadPicture（"..."）
EndSub
11、如图所示窗体，包括2个Text控件、2个单选按钮。
在Text1中输入一个整数，点击单选按钮“1～N中能够被3整除的数之和”，在Text2中显示结果；点击单选按钮“1～N中能够被7整除的数的个数”，在Text2中显示结果。
图11
代码：
PrivateSubOption1_Click（）
Dimn%,i%,s%
n=Val（Text1）
Fori=1Ton
IfiMod3=0Thens=s+i
Nexti
Text2=s
EndSub
PrivateSubOption2_Click（）
Dimn%,i%,s%
n=Val（Text1）
Fori=1Ton
IfiMod7=0Thens=s+1
Nexti
Text2=s
EndSub
12、如图所示窗体，包括1个带垂直滚动条文本框控件、1个框架、2个复选框。
“下划线”复选框选中状态，给文本框中文字加下划线；“下划线”复选框选点击、未选中状态，不带下划线；点击“倾斜”复选按钮选中状态，使文本框中文字倾斜；再点击“倾斜”复选按钮、未选中状态，不带倾斜。
图12
代码：
PrivateSubCheck1_Click（）
Text1.FontUnderline=N
升级会员 