计算机VB设计题汇编含答案

1、vb设计题汇编设计题汇编vb设计题分类设计题分类 时钟控件应用时钟控件应用 列表框列表框&组合框控件应用组合框控件应用 图形框图形框&图像框图像框&绘图绘图&图片加载图片加载 滚动条的应用滚动条的应用 文本框文本框&按钮按钮&标签控件标签控件 单选框单选框&复选框复选框&框架控件应用框架控件应用 菜单设计菜单设计时钟控件应用时钟控件应用private sub form_load()timer1.enabled = falseend subprivate sub command1_click()timer1.enabled = trueend subprivate sub command2_cl

2、ick()label1.caption = 00:00:00timer1.enabled = falseend subprivate sub timer1_timer()label1.caption = format(time, hh:mm:ss)end sub列表框列表框&组合框控件应用组合框控件应用添加两个添加两个list控件和一个控件和一个caption属性为剪切的按钮属性为剪切的按钮.private sub command1_click()list2.additem list1.textlist1.removeitem list1.listindexend subprivate sub

3、 form_load()list1.additem aaalist1.additem bbblist1.additem ccclist1.additem dddlist1.additem eeeend sub图形框图形框&图像框图像框&绘图绘图&图片加载图片加载在工具栏的在工具栏的“添加窗体添加窗体”添加添加form2窗体窗体.在工程资源管理器窗口中的在工程资源管理器窗口中的“工程属性工程属性”对话框指定对话框指定form1为启动窗体为启动窗体.在在form1中添加一个命令按钮中添加一个命令按钮.private sub command1_click()unload meform2.showfo

4、rm2.picture=loadpicture(“k:fjexam95ravmon.jpg”)end sub控件属性设置如题控件属性设置如题private sub form_load()image1.picture =loadpicture(k:fjexam95tree.jpg)image2.picture = loadpicture(k:fjexam95dog.jpg)image3.visible = falseend subprivate sub command1_click()image3.picture = image1.pictureimage1.picture = image2.p

5、ictureimage2.picture = image3.pictureimage3.visible = falseend sub相关代码如下：相关代码如下：private sub c1_click()form1.picture = loadpicture(k:fjexam95jztx.bmp)end subprivate sub c2_click()form1.picture = loadpicture()end sub滚动条的应用滚动条的应用添加添加label2，label3，label4，label5.其其caption分为分为”调出颜色调出颜色”,”红红(r)”,”绿绿(g)”,”蓝

6、蓝(b)”的标签控件，的标签控件，label1的的 caption 为空，和为空，和添加三个水平滚动条添加三个水平滚动条(名称为名称为hs1,hs2,hs3)，且，且min,max属性值均为属性值均为0，255。private sub hs1_change()label1.backcolor=rgb(hs1.value,hs2.value, hs3.value)end subprivate sub hs2_change()label1.backcolor=rgb(hs1.value,hs2.value, hs3.value)end subprivate sub hs3_change()labe

7、l1.backcolor=rgb(hs1.value,hs2.value, hs3.value)end sub文本框文本框&按钮按钮&标签控件标签控件相关代码如下：相关代码如下：private sub command1_click()text1.visible = falseend subprivate sub command2_click()text1.visible = truetext1.text = vb程序设计程序设计end subprivate sub command1_click()if text1.text = student thenlabel2.caption = 欢迎使用

8、本系统欢迎使用本系统elselabel2.caption = 口令错，请重新输入口令错，请重新输入“text1.selstart = 0text1.sellength = len(text1.text)text1.setfocusend ifend subtext1属性：属性：passwordchar-*添加标签添加标签caption属性为属性为“请您输入您的昵称请您输入您的昵称”的的label控件；添加一个文本框控件；添加一个文本框和一个和一个caption属性为属性为“下一步下一步”的命令按钮，其的命令按钮，其enabled属性为属性为false.private sub text1_cha

9、nge()command1.enabled = trueform1.caption = text1.textend sub单选框单选框&复选框复选框&框架控件应用框架控件应用private sub c1_click()if ch1 and ch2 thentext1.text = 报名参加篮球和排球比赛报名参加篮球和排球比赛elseif ch1 thentext1.text = 报名参加篮球比赛报名参加篮球比赛elseif ch2 thentext1.text = 报名参加排球比赛报名参加排球比赛elsetext1.text = end ifend sub菜单设计菜单设计添加一个文本框添加一个文本框,其其text属性为属性为“欢迎使用欢迎使用vb”添加菜单：选择工具菜单下的菜单编辑器，添加如图菜单添加菜单：选择工具菜单下的菜单编辑器，添加如图菜单, 编辑器中的可见属性不选编辑器中的可见属性不选(即菜单即菜单不可见不可见).private sub form_mousedown(button as integer, shift as integer, x as single, y as single)if button = 2 then popupmenu kj （即鼠标右键时弹出快