VB考试复习题校考印象Word格式.docx
- 文档编号:15769120
- 上传时间:2022-11-16
- 格式:DOCX
- 页数:20
- 大小:189.54KB
VB考试复习题校考印象Word格式.docx
《VB考试复习题校考印象Word格式.docx》由会员分享,可在线阅读,更多相关《VB考试复习题校考印象Word格式.docx(20页珍藏版)》请在冰豆网上搜索。
Fori=0ToList1.ListCount-1
IfList1.Selected(i)ThenList2.AddItemList1.List(i)
Nexti
EndSub
PrivateSubCommand2_Click()
List2.Clear
PrivateSubForm_Load()
List1.AddItem"
语文"
高数"
计算机应用"
数据结构"
哲学"
大学英语"
2、如同所示,窗体中有2个列表框、1个命令按钮。
点击“未选择的项目复制”,把List1中未选中项目复制到List2中。
图2
IfNotList1.Selected(i)ThenList2.AddItemList1.List(i)
3、如图所示,窗体中有一个Shape控件、一个滚动条,点击滚动条箭头,使Shape1控件次序变化着各种形状。
图3
首先在属性窗口中设置Hscroll1的Max值为5。
PrivateSubHScroll1_Change()
Shape1.Shape=HScroll1.Value
4、如图所示,窗体中有一个时钟控件、一个滚动条(value值范围:
0~10)、一个命令按钮。
点击“开始”,滚动条滑块每秒以1的步长前进。
图4
首先在属性窗口设置Hscroll1的Max值为10。
Timer1.Interval=1000
PrivateSubTimer1_Timer()
HScroll1.Value=HScroll1.Value+1
5、如图所示界面,设计一个标题为“字体颜色”、名称为BgColor弹出式菜,包括一个控件数组子菜单,子菜单名称为Gcolor,标题等属性如图所示,子菜单功能用于设置窗体颜色。
图5
打开菜单编辑器,建立顶级菜单,去掉“可见”属性;
建立子菜单控件数组――“红色”的“索引”输入0、“绿色”的“索引”输入1…
PrivateSubForm_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
IfButton=2ThenPopupMenuBgColor
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
IfGcolor
(1).Checked=FalseThenGcolor
(1).Checked=True
Form1.BackColor=vbGreen
Case2
IfGcolor
(2).Checked=FalseThenGcolor
(2).Checked=True
Form1.BackColor=vbBlue
Case3
IfGcolor(3).Checked=FalseThenGcolor(3).Checked=True
Form1.BackColor=vbYellow
EndSelect
6、如图所示界面,设计一个标题为“字体颜色”、名称为BgColor弹出式菜,包括一个控件数组子菜单,子菜单名称为Gcolor,标题等属性如图所示,子菜单功能用于设置文本框中文字颜色。
图6
Text1.ForeColor=vbRed
Text1.ForeColor=vbYellow
7、如图7所示界面,包括一个文本框、一个组合框、2个命令按钮。
点击“修改”按钮,组合框中选定项目移到文本框;
点击“确认”,文本框中修改之后内容,添加回组合框。
图7
Text1.Text=Combo1.Text
Combo1.RemoveItemCombo1.ListIndex
Combo1.AddItemText1
Combo1.AddItem"
张三丰"
李铭文"
林历历"
郑小梅"
王浩浩"
8、设计如图8所示形状。
图8图9
在窗体上画一个Shape1控件,设置Shape1的Shape属性值为4,FillStyle属性值为7。
9、设计如图9所示形状。
在窗体上画一个Shape1控件,设置Shape1的Shape属性值为3,FillStyle属性值为4。
10、如图所示窗体,一个图像框、2个命令按钮。
图像框边框凹陷。
点击“显示第一幅图片”按钮……,“显示第二幅图片”按钮,….。
图10
建立如图所示界面,设置Image1的BoderStyle值为1。
Image1.Picture=LoadPicture("
…."
)
..."
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
Text2=s
PrivateSubOption2_Click()
IfiMod7=0Thens=s+1
EndSub
12、如图所示窗体,包括1个带垂直滚动条文本框控件、1个框架、2个复选框。
“下划线”复选框选中状态,给文本框中文字加下划线;
“下划线”复选框选点击、未选中状态,不带下划线;
点击“倾斜”复选按钮选中状态,使文本框中文字倾斜;
再点击“倾斜”复选按钮、未选中状态,不带倾斜。
图12
PrivateSubCheck1_Click()
Text1.FontUnderline=N
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 考试 复习题 印象