VB考试含答案.docx
- 文档编号:5363377
- 上传时间:2022-12-15
- 格式:DOCX
- 页数:44
- 大小:277.34KB
VB考试含答案.docx
《VB考试含答案.docx》由会员分享,可在线阅读,更多相关《VB考试含答案.docx(44页珍藏版)》请在冰豆网上搜索。
VB考试含答案
2011VB上机练习题
一、新建一个工程,完成“添加与删除”程序的设计,具体要求如下:
1.窗体的标题为“添加与删除”,固定边框;
2.程序界面如图7所示。
在窗体中引入一个文本框(Text1),在文本框的下面引入一个列表框(List1),列表框中内容有四项,分别为“Word、Excel、PowerPoint、Outlook”;
3.单击“添加”按钮(Command1),将文本框中的内容加入列表框中的第一项,如果文本框中没有内容,则给出提示“没有内容,不予添加!
”;
4.单击“删除”按钮(Command2),将选中表项删除,如果没有选择要删除的表项,则给出提示“请选择要删除的项目!
”。
图7
PrivateSubCommand1_Click()
IfText1.Text=""Then
MsgBox"没有内容,不予添加"
Else
List1.AddItemText1.Text,0
Text1.Text=""
Text1.SetFocus
EndIf
EndSub
PrivateSubCommand2_Click()
IfList1.ListIndex=-1Then
MsgBox"请选择要删除的项目!
"
Else
List1.RemoveItemList1.ListIndex
EndIf
EndSub
PrivateSubForm_Load()
List1.AddItem"Word"
List1.AddItem"Excel"
List1.AddItem"PowerPoint"
List1.AddItem"Outlook"
EndSub
二、新建一个工程,完成“加法器”程序的设计,具体要求如下:
1.窗体的标题为“加法器“,固定边框;
2.程序界面如图8所示。
在窗体上从上到下依次引入Text1、Text2、Text3三个文本框,三个文本框的对齐方式均为右对齐;
3.上面两个文本框用于输入加数,要求不接受非数字键;
4.下面一个文本框用于显示和,要求不能对其进行编辑操作;
5.单击“=“按钮(Command1),将两个加数的和显示在下面一个文本框中;
6.单击“清空“按钮(Command2),三个文本框内容都被清空,同时第一个文本框获得焦点。
图8
PrivateSubCommand1_Click()
Text3.Text=Val(Text2.Text)+Val(txte1.Text)
EndSub
PrivateSubCommand2_Click()
Text1.Text=""
Text2.Text=""
Text3.Text=""
Text1.SetFocus
EndSub
PrivateSubText1_KeyPress(KeyAsciiAsInteger)
IfKeyAscii<48OrKeyAscii>57Then
KeyAscii=0
EndIf
EndSub
三、新建一个工程,完成“字体设置”程序的设计,程序界面如图9所示,具体要求如下:
1.窗体的标题为“字体设置”,固定边框;
2.窗体的上边有一个文本框(Text1),文字内容为“心想事成”;
3.文本框下面的左边有一个标签(Label1),标题为“字体:
”,标签下面是一个简单组合框(Combo1),有三项内容,分别是“宋体、黑体、楷体”,单击时对文本框的字体进行设置;
4.文本框下面的右边有一个标签(Label2),标题为“大小:
”,标签下面是一个简单组合框(Combo2),有八项内容,分别是“10、12、16、20、24、36、48、72”,单击时对文本框的文字大小进行设置。
图9
PrivateSubCombo1_Click()
text1.FontName=Combo1.Text
EndSub
PrivateSubCombo2_Change()
IfVal(Combo2.Text)>=10AndVal(Combo2.Text)Then
text1.FontSize=Val(Combo2.Text)
EndIf
EndSub
PrivateSubCombo2_Click()
text1.FontSize=Val(Combo2.Text)
EndSub
PrivateSubForm_Load()
Combo1.AddItem"宋体"
Combo1.AddItem"黑体"
Combo1.AddItem"楷体_gb2312"
Combo2.AddItem"10"
Combo2.AddItem"12"
Combo2.AddItem"16"
Combo2.AddItem"20"
Combo2.AddItem"24"
Combo2.AddItem"36"
Combo2.AddItem"48"
Combo2.AddItem"72"
EndSub
四、新建一个工程,完成“格式设置”程序的设计,程序界面如图10所示,具体要求如下:
1.窗体的标题为“格式设置”,固定边框;
2.窗体的上边有一个文本框(Text1),文字内容为“心想事成”,Font:
宋体、常规、三号;
3.文本框下面的左边有一个标签(Label1),标题为“对齐:
”,标签下面是一个简单组合框(Combo1),有三项内容,分别是“左对齐、居中、右对齐”,单击时对文本框的对齐方式进行设置;
4.文本框下面的右边有一个标签(Label2),标题为“字型:
”,标签下面是一个简单组合框(Combo2),有四项内容,分别是“常规、斜体、粗体、粗斜体”,单击时对文本框的字型进行设置。
图10
PrivateSubCombo1_Click()
SelectCaseCombo1.Text
Case"左对齐"
Text1.Alignment=0
Case"右对齐"
Text1.Alignment=1
Case"居中"
Text1.Alignment=2
EndSelect
EndSub
PrivateSubCombo2_Click()
SelectCaseCombo2.Text
Case"常规"
Text1.FontBold=False
Text1.FontItalic=False
Case"斜体"
Text1.FontBold=False
Text1.FontItalic=True
Case"粗体"
Text1.FontBold=True
Text1.FontItalic=False
Case"粗斜体"
Text1.FontBold=True
Text1.FontItalic=True
EndSelect
EndSub
PrivateSubForm_Load()
Combo1.AddItem"左对齐"
Combo1.AddItem"居中"
Combo1.AddItem"右对齐"
Combo2.AddItem"常规"
Combo2.AddItem"斜体"
Combo2.AddItem"粗体"
Combo2.AddItem"粗斜体"
EndSub
五、新建一个工程,完成“调色板”程序的设计,程序界面如图11所示,具体要求如下:
1.窗体的标题为“调色板”,固定边框;
2.窗体上有一个“三原色配比与预览”的框架(Frame1),框架内从上到下有三个水平滚动条,滚动条的取值范围均为0-255,并相应地用标签控件标注“红、绿、蓝”,在框架内的右边还有一个长方形形状控件(Shape1),填充色为黑色、填充样式为实心;
3.在窗体的底部引入标签,并在属性窗口中将它的标题设为“坚持就是胜利”,字体设为“楷体GB-2312”,大小为“二号”,标签格式设置为在窗体中水平居中对齐,标签的大小随显示内容自动调整;
4.拖动三个滚动条的滚动框来选择红、绿、蓝三原色的配色取值,并通过形状控件的填充色动态显示调色效果;
5.单击“应用“按钮(Command1),将调配好的颜色应用为标签(坚持就是胜利)的文字颜色。
图11
PrivateSubCommand1_Click()
Label4.ForeColor=Shape1.FillColor
EndSub
PrivateSubForm_Load()
HScroll1.Min=0
HScroll1.Max=255
HScroll2.Min=0
HScroll2.Max=255
HScroll3.Min=0
HScroll3.Max=255
Label4.AutoSize=True
Label4.Left=(Form1.ScaleWidth-Label4.Width)/2
EndSub
PrivateSubHScroll1_Change()
Shape1.FillColor=RGB(HScroll1.Value,HScroll2.Value,HScroll3.Value)
EndSub
PrivateSubHScroll1_Scroll()
HScroll1_Change
EndSub
PrivateSubHScroll2_Change()
Shape1.FillColor=RGB(HScroll1.Value,HScroll2.Value,HScroll3.Value)
EndSub
PrivateSubHScroll2_Scroll()
HScroll2_Change
EndSub
PrivateSubHScroll3_Change()
Shape1.FillColor=RGB(HScroll1.Value,HScroll2.Value,HScroll3.Value)
EndSub
PrivateSubHScroll3_Scroll()
HScroll3_Change
EndSub
六、新建一个工程,完成“改变字号”程序的设计,程序界面如图12所示,具体要求如下:
1.窗体的标题为“改变字号”;
2.窗体中有以下控件:
一个标签框、一个文本框、一个水平滚动条;
3.根据滚动框的位置改变标签内显示文字的字号,字号取值范围:
8-72。
图12
PrivateSubForm_Load()
Form1.Caption="改变字号"
Label1.AutoSize=True
Label1.FontSize=8
HScroll1.Min=8
HScroll1.Max=72
EndSub
PrivateSubHScroll1_Change()
Label1.FontSize=HScroll1.Value
Text1.Text=HScroll1.Value
EndSub
PrivateSubHScroll1_Scroll()
HScroll1_Change
EndSub
PrivateSubText1_Change()
IfVal(Text1.Text)>=8AndVal(Text1.Text)<=72Then
Label1.FontSize=Val(Text1.Text)
HScroll1.Value=Val(Text1.Text)
EndIf
EndSub
七、新建一个工程,完成“点餐”程序的设计,程序界面如图13所示,具体要求如下:
1.窗体的标题为“点餐”;
2.窗体中有以下控件:
一个框架控件作为容器,内有三个复选框,对应三个文本框、三个标签框、一个命令按钮;
3.选择所需套餐种类及份数,单击确定按钮后计算所需的钱,并用消息框显示。
PrivateSubCheck1_Click()
IfCheck1.Value=1Then
Text1.Enabled=True
Text1.SetFocus
Else
Text1.Text=""
Text1.Enabled=False
EndIf
EndSub
PrivateSubCheck2_Click()
IfCheck2.Value=1Then
Text2.Enabled=True
Text2.SetFocus
Else
Text2.Text=""
Text2.Enabled=False
EndIf
EndSub
PrivateSubCheck3_Click()
IfCheck3.Value=1Then
Text3.Enabled=True
Text3.SetFocus
Else
Text3.Text=""
Text3.Enabled=False
EndIf
EndSub
PrivateSubCommand1_Click()
Dima%,b%,c%,s%
a=Val(Text1.Text)
b=Val(Text2.Text)
c=Val(Text3.Text)
s=18*a+23*b+28*c
MsgBox"一共是"&s&"元"
EndSub
PrivateSubForm_Load()
Text1.Enabled=False
Text2.Enabled=False
Text3.Enabled=False
EndSub
PrivateSubText1_KeyPress(KeyAsciiAsInteger)
IfKeyAscii<48OrKeyAscii>57Then
KeyAscii=0
EndIf
EndSub
PrivateSubText2_Change()
IfKeyAscii<48OrKeyAscii>57Then
KeyAscii=0
EndIf
EndSub
PrivateSubText3_Change()
IfKeyAscii<48OrKeyAscii>57Then
KeyAscii=0
EndIf
EndSub
八、新建一个工程,完成应用程序的设计,具体要求如下:
1.按照图11所示在窗体上放置按钮和控件;
2.在两个列表框控件的list中输入一些内容;
3.单击“<”按钮时,把list2中选中的一项放到list1中,并且在list2中删除该项;
4.单击“<<”按钮时,把list2中所有的项放到list1中,并且清空list2;
5.单击“>”按钮时,把list1中选中的一项放到list2中,并且在list1中删除该项;
6.单击“>>”按钮时,把list1中所有的项放到list2中,并且清空list1;
7.单击“结束”按钮时,退出应用程序。
图15
PrivateSubCommand1_Click()
IfList1.ListIndex=-1Then
MsgBox"先选择后移动"
Else
List2.AddItemList1.Text
List1.RemoveItemList1.ListIndex
EndIf
EndSub
PrivateSubCommand2_Click()
DoWhileList1.ListCount<>0
List2.AddItemList1.List(0)
List1.RemoveItem0
Loop
EndSub
PrivateSubCommand3_Click()
DoWhileList2.ListCount<>0
List1.AddItemList2.List(0)
List2.RemoveItem0
Loop
EndSub
PrivateSubCommand4_Click()
IfList2.ListIndex=-1Then
MsgBox"先选择后移动"
Else
List1.AddItemList2.Text
List2.RemoveItemList2.ListIndex
EndIf
EndSub
PrivateSubCommand5_Click()
End
EndSub
PrivateSubForm_Load()
List1.AddItem"111"
List1.AddItem"222"
List1.AddItem"333"
List2.AddItem"444"
List2.AddItem"555"
List2.AddItem"666"
EndSub
九、新建一个工程,完成“收款计算”程序的设计,具体要求如下:
1.按照图16所示在窗体上放置控件;
2.窗体上有三个文本框,上面两个分别用于输入商品单价和商品数量,单击“计算”,将应付款显示在最下面一个文本框中;
3.最下面一个文本框(应付款)不能直接输入;
4.单击“清除”按钮,三个文本框内容被清空,同时第一个文本框获得焦点。
图16
PrivateSubCommand1_Click()
IfText2.Text=""Then
Text2.Text=1
EndIf
Text3.Text=Val(Text2.Text)*Val(txte1.Text)
EndSub
PrivateSubCommand1_Click()
Text1.Text=""
Text2.Text=""
Text3.Text=""
Text1.SetFocus
EndSub
十、新建一个工程,完成应用程序的设计,具体要求如下:
1.如图17所示,在窗体上放置一个水平滚动条、一个标签框和一个命令按钮;
2.滚动条状态发生改变时,标签上的文字可以左右移动,文字移动范围等于滚动条的范围。
图17
PrivateSubCommand1_Click()
End
EndSub
PrivateSubForm_Load()
Form1.Caption="滚动条的应用"
Label1.AutoSize=True
Label1.Left=HScroll1.Left
HScroll1.Min=Label1.Left
HScroll1.Max=Label1.Left+HScroll1.Width-Label1.Width
EndSub
PrivateSubHScroll1_Change()
Label1.Left=HScroll1.Value
EndSub
PrivateSubHScroll1_Scroll()
HScroll1_Change
EndSub
十一、新建一个工程,完成应用程序的设计,具体要求如下:
1.按照图18所示在窗体上放置控件;
2.4个单选按钮分别用于显示星期、年份、月份和日期;
3.选中某个单选按钮时,在文本框中显示当天对应的日期信息;
4.单击“结束”命令该按钮时,退出应用程序。
PrivateSubCommand1_Click()
End
EndSub
PrivateSubForm_Load()
EndSub
PrivateSubOption1_Click()
Text1.Text="今天是"&WeekdayName(Weekday(Date))
EndSub
PrivateSubOption2_Click()
Text1.Text="今年是"&Year(Date)&"年"
EndSub
PrivateSubOption3_Click()
Text1.Text="现在是"&Month(Date)&"月"
EndSub
PrivateSubOption4_Click()
Text1.Text="今天是"&Year(Date)&"年"&Month(Date)&"月"&Day(Date)&"日"
EndSub
十二、新建一个工程,完成“计算平均成绩”应用程序的设计,具体要求如下:
1.按照图19所示在窗体上放置控件;
2.在输入或修改单科成绩的同时计算平均分,即在"高数"、"英语"和"计算机"文本框内容发生改变时,就要立即重新计算平均分,并将计算结果在“平均成绩”文本框中显示;
3.“平均成绩”文本框不允许编辑,即不能手工修改;
4.各单科成绩文本框中只能输入数字,不能输入字母或汉字,否则给出错误提示。
图19
PrivateSubText1_Change()
Text4.Text=(Val(Text1.Text)+Val(Text2.Text)+Val(Text3.Text))/3
EndSub
PrivateSubText1_KeyPress(KeyAsciiAsInteger)
IfKeyAscii<48AndKeyAscii<>8OrKeyAscii>57Then
KeyAscii=0
MsgBox"请重新输入!
"
EndIf
EndSub
PrivateSubText2_Change()
Text4.Text=(Val(Text1.Text)+Val(Text2.Text)+Val(Text3.Text))/3
EndSub
PrivateSubText2_KeyPress(KeyAsciiAsInteger)
IfKeyAscii<48AndKeyAscii<>8OrKeyAscii>57Then
KeyAscii=0
MsgBox"请重新输入!
"
EndIf
EndSub
PrivateSubText3_Change()
Text4.Text=(Val(Text1.Text)+Val(Text2.Text)+Val(Text3.Text))/3
EndSub
PrivateSubText3_KeyPress(KeyAsciiAsInteger)
IfKeyAscii<48AndKeyAscii<>8OrKeyAscii>57Then
KeyAscii=0
MsgBox"请重新输入!
"
EndIf
EndSub
十三、设计一个秒表模拟程序,按下“开始”按钮,屏幕显示当前时间;按下“结束”按钮,屏幕显示结束时间和持续时间;按下“退出”按钮,结束程序。
图20
PrivateSubCommand1_Click()
Text1.Text=Time
EndSub
PrivateSubCommand2_Click()
Text2.Text=Time
Text3.Tex
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 考试 答案