VB上机考试最全设计题及答案.docx
- 文档编号:5321149
- 上传时间:2022-12-15
- 格式:DOCX
- 页数:52
- 大小:32.96KB
VB上机考试最全设计题及答案.docx
《VB上机考试最全设计题及答案.docx》由会员分享,可在线阅读,更多相关《VB上机考试最全设计题及答案.docx(52页珍藏版)》请在冰豆网上搜索。
VB上机考试最全设计题及答案
B.程序设计题
程序设计01
1、在窗体上放置一个命令按钮,命名为CmdMaxSize.
2、取消窗体(Form)的最大化和最小化按钮
3、当单击CmdMaxSize按钮时,实现窗口放大功能,放大后再单击该按钮则还原窗口。
4、同时可能使用热键Alt+L和Alt+B实现窗口放大或还原。
5、当窗体大小改变后,总是让CmdMaxSize按钮位于窗口的中央。
6、界面及功能设计请参考cx01.exe文件。
程序设计01题解:
一、根据题目要求,在Form1窗体上画出各控件,并根据题意按下表对窗体和各控件设置属性值。
控件名称
属性
属性值
备注
Form1
Caption
Form1
Command1
Caption
最大化(&L)
二、根据题意,对命令按钮Command1的Click事件编写如下事件过程代码:
PrivateSubCommand1_Click()
IfCommand1.Caption="最大化(&L)"Then
Form1.WindowState=2
Command1.Caption="还原(&B)"
Else
Form1.WindowState=0
Command1.Caption="最大化(&L)"
EndIf
Command1.Left=(Form1.Width-Command1.Width)/2
Command1.Top=(Form1.Height-Command1.Height)/2
EndSub
程序设计02
1、窗体上有三个文体框,上面两个分别用于输入商品单价和商品数量,单击“计算”,将应付款显示在下面一个文本框中。
2、最下面一个文本框不能直接输入。
3、单击“清空”按钮,三个文本框内容被清空,同时第一个文本框获得焦点。
4、界面及功能设计请参考cx02.exe文件。
程序设计02题解:
一、根据题目要求,在Form1窗体上画出各控件,并根据题意按下表对窗体和各控件设置属性值。
控件名称
属性
属性值
备注
Text1
text
空
Text2
text
空
Text3
text
空
Enabled
False
Label1
Caption
商品单价:
Label2
Caption
商品数量:
Label3
Caption
应付款:
Command1
Caption
清除
Command2
Caption
计算
二、根据题意,对命令按钮Command1的Click事件和Command2的Click事件编写如下事件过程代码:
PrivateSubCommand1_Click()
Text1.Text=""
Text1.SetFocus
Text2.Text=""
Text3.Text=""
EndSub
PrivateSubCommand2_Click()
Dima,b,sumAsInteger
Text3.Enabled=True
a=Val(Text1.Text)
b=Val(Text2.Text)
sum=a*b
Text3.Text=sum
EndSub
程序设计03
1、按照Cx.exe所示在窗体上放置按钮和控件。
2、当单击“确定”按钮后,首先比较“用户名”和“原始密码”是否一致,若一致且都为“admin”,则继续执行步骤4;否则弹出消息框,提示用户出错,并让用户重新输入。
3、比较“新密码(N)”和“新密码(S)”,若两者一致,弹出密码修改成功消息框,程序终止执行。
否则弹出错误消息,并让用户重新输入。
4、所有消息框按Cx.exe所示设计。
5、当单击“取消”按钮时,程序终止执行。
6、当按“Tab”键时,保证按照“用户名”、“原密码”、“新密码(N)”、“新密码(S)”、“确定”按钮和“取消”按钮顺序访问各控件。
7、界面及功能设计请参考cx03.exe文件。
程序设计03题解:
一、根据题目要求,在Form1窗体上画出各控件,并根据题意按下表对窗体和各控件设置属性值。
控件名称
属性
属性值
备注
Text1
text
TabIndex
0
Text2
text
PassWordChar
*
TabIndex
1
Text3
text
PassWordChar
*
TabIndex
2
Text4
text
PassWordChar
*
TabIndex
3
Label1
Caption
用户名
Label2
Caption
原密码
Label3
Caption
新密码
Label4
Caption
新密码
Command1
Caption
确定
TabIndex
4
Command2
Caption
取消
TabIndex
5
二、根据题意,对命令按钮Command1的Click事件和Command2的Click事件编写如下事件过程代码:
PrivateSubCommand1_Click()
IfText1.Text="admin"AndText2.Text="admin"Then
IfText3.Text=Text4.TextThen
B=MsgBox("密码修改成功!
",,”修改密码”)
Else
B=MsgBox("新密码有误,请重试",,“修改密码”)
Text3.Text=""
Text4.Text=""
EndIf
Else
B=MsgBox("用户名或密码无效,请重试!
",,“修改密码”)
Text1.Text=""
Text2.Text=""
EndIf
EndSub
PrivateSubCommand2_Click()
end
EndSub
程序设计04
1、在窗体上放置4个单选按钮,分别用于显示星期、年份、月份和日期。
2、在窗台上放置一个文本框,选中单选按钮时,显示相应的信息。
3、在窗体上放置一个命令按钮,单击按钮时退出应用程序。
4、界面及功能设计请参考cx04.exe文件。
程序设计04题解:
一、根据题目要求及样例,在Form1窗体上画出各控件,并根据题意按下表对窗体和各控件设置属性值。
控件名称
属性
属性值
备注
Option1
Caption
显示星期几
Option2
Caption
显示年份
Option3
Caption
显示月份
Option4
Caption
显示日期
Text1
text
Command1
Caption
结束
二、根据题意,对命令按钮Command1的Click事件编写如下事件过程代码:
PrivateSubCommand1_Click()
End
EndSub
PrivateSubOption1_Click()
Text1.Text="今天是星期"&Str(Weekday(Date))
EndSub
PrivateSubOption2_Click()
Text1.Text="今天是"&Str(Year(Date))&"年"
EndSub
PrivateSubOption3_Click()
Text1.Text="今天是"&Str(Month(Date))&"月"
EndSub
PrivateSubOption4_Click()
Text1.Text="今天是"&Str(Day(Date))&"号"
EndSub
程序设计05
1、单击“坐标系”按钮,将图片框的坐标系统设置为原点在中央,x轴[-10,10],y轴[-10,10],并画出该坐标系统;
2、单击“扇形”按钮,在图片框中画一个圆心在原点,半径为5,圆周为红色,线宽为2,内部为绿色,起始角为π/6,终止角为5π/6的扇形;
3、界面及功能设计请参考cx05.exe文件。
程序设计05题解:
一、根据题目要求及样例,在Form1窗体上画出各控件,并根据题意按下表对窗体和各控件设置属性值。
控件名称
属性
属性值
备注
Form1
Caption
作图
Command1
Caption
坐标系
Command2
Caption
扇形
Command3
Caption
结束
二、根据题意,对命令按钮的Click事件编写如下事件过程代码:
注:
因本题单位不明确,故对x轴、y轴和圆半径乘以100后按默认单位处理
ConstPI=3.1415926
PrivateSubCommand1_Click()
Picture1.Scale(-10,10)-(10,-10)
Picture1.Line(-10,0)-(10,0)
Picture1.Line(0,-10)-(0,10)
Picture1.CurrentX=0
Picture1.CurrentY=0
Picture1.Print"(0,0)"
EndSub
PrivateSubCommand2_Click()
Picture1.FillStyle=0
Picture1.FillColor=vbGreen
Picture1.DrawWidth=2
Picture1.Circle(0,0),5,vbRed,-PI/6,-5*PI/6
EndSub
PrivateSubCommand3_Click()
End
EndSub
程序设计06
1、按照cx06.exe所示在窗体上放置按钮和控件。
2、在输入或修改单科成绩的同时计算平均分,即在“高数”、“英语”和“计算机”文本框内容发生改变时,就要立即重新计算平均分,并将计算结果在平均成绩文本框中显示。
3、“平均成绩”文本框不允许编辑,即不能手工修改。
4、各单科成绩框中只能输入数字,不能输入字母或汉字,否则不显示字母并发出错误提示音。
5、界面及功能设计请参考cx06.exe文件。
程序设计06题解:
一、根据题目要求及样例,在Form1窗体上画出各控件,并根据题意按下表对窗体和各控件设置属性值。
控件名称
属性
属性值
备注
Label1
Caption
高数
Label2
Caption
英语
Label3
Caption
计算机
Label4
Caption
平均成绩
Text1
Text
Text2
Text
Text3
Text
Text4
Locked
True
二、根据题意,对文本text1,text2,text3的Change事件编写如下事件过程代码:
PrivateSubForm_Load()
Text1.Text=""
Text2.Text=""
Text3.Text=""
Text4.Text=""
EndSub
PrivateSubText2_Change()
IfVal(Text2.Text)>0Then
Text4.Text=Trim(Str((Val(Text1.Text)+Val(Text2.Text)+Val(Text3.Text))/3))
EndIf
EndSub
PrivateSubText3_Change()
IfVal(Text3.Text)>0Then
Text4.Text=Trim(Str((Val(Text1.Text)+Val(Text2.Text)+Val(Text3.Text))/3))
EndIf
EndSub
PrivateSubText1_Change()
IfVal(Text1.Text)>0Then
Text4.Text=Trim(Str((Val(Text1.Text)+Val(Text2.Text)+Val(Text3.Text))/3))
EndIf
EndSub
PrivateSubText1_KeyPress(KeyAsciiAsInteger)
IfKeyAscii>Asc("9")OrKeyAscii MsgBox"不能输入非数字字符" KeyAscii=0 EndIf EndSub PrivateSubText2_KeyPress(KeyAsciiAsInteger) IfKeyAscii>Asc("9")OrKeyAscii MsgBox"不能输入非数字字符" KeyAscii=0 EndIf EndSub PrivateSubText3_KeyPress(KeyAsciiAsInteger) IfKeyAscii>Asc("9")OrKeyAscii MsgBox"不能输入非数字字符" KeyAscii=0 EndIf EndSub 程序设计07 1、窗体上三个文本框,上面两个用输入加数,单击“=”按钮,将两个数的和显示在下面一个文本框中。 2、三个文本框的对齐方式均为右对齐,设置相关属性使得下面一个文本框不能进行编辑操作。 3、设置相关属性使得上面两个文本框均不接受非数字键。 4、单击“清空”按钮,三个文本框内容被清空,同时第一个文本框得焦点。 5、界面及功能设计请参考cx07.exe文件。 程序设计07题解: 一、根据题目要求及样例,在Form1窗体上画出各控件,并根据题意按下表对窗体和各控件设置属性值。 控件名称 属性 属性值 备注 Form1 Caption 加法器 Label1 Caption + Command1 Caption = Command2 Caption 清空 Text1、Text2、Text3 Caption 清空 Alignment 1---RightJustify Text3 Locked True 二、根据题意,对各命令按钮的Click事件和各文本框的Change事件编写如下事件过程代码: PrivateSubCommand1_Click() Text3.Text=Trim(Str(Val(Text1.Text)+Val(Text2.Text))) EndSub PrivateSubCommand2_Click() Text3.Text="" Text2.Text="" Text1.Text="" Text1.SetFocus EndSub PrivateSubForm_Load() Text3.Locked=True EndSub PrivateSubText1_KeyPress(KeyAsciiAsInteger) IfKeyAscii KeyAscii=0 EndIf EndSub PrivateSubText2_KeyPress(KeyAsciiAsInteger) IfKeyAscii KeyAscii=0 EndIf EndSub 程序设计08 1、左边一个简单组合框,对文本框的字体进行设置; 2、右边一个简单组合框,对文本框的文字大小进行设置; 3、文本框中文字为“心想事成” 4、界面及功能设计请参考cx08.exe文件。 程序设计08题解: 一、根据题目要求及样例,在Form1窗体上画出各控件,并根据题意按下表对窗体和各控件设置属性值。 控件名称 属性 属性值 备注 Form1 caption 字体设置 窗体中各控件的位置按样例画好 MinButton False MaxButton False Text1 Text 心想事称 Combo1 Style 1-simplecombo Text Combo2 Style 1-simplecombo Text 二、根题意,编写如下事件过程代码: PrivateSubForm_Load() combo1.AddItem"宋体" combo1.AddItem"黑体" combo1.AddItem"楷体" combo2.AddItem8 combo2.AddItem9 combo2.AddItem10 combo2.AddItem11 combo2.AddItem12 combo2.AddItem14 combo2.AddItem16 EndSub PrivateSubcombo1_Click() Text1.FontName=Combo1.Text EndSub PrivateSubcombo1_Click() Text1.FontSize=Val(Combo2.Text) EndSub 程序设计09 1、单击“添加”按钮,将本文框中的内容加到列表框中的第一项,如果文本框有内容,则给出提示“没有内容,不予贴加” 2、单击“删除”按钮,将选红表项删除,如果没有选择要删除的表项,则给出提示“请选择输出的项目”。 3、界面及功能设计请参考cx09.exe文件 程序设计09题解: 一、根据题目要求及样例,在Form1窗体上画出各控件,并根据题意按下表对窗体和各控件设置属性值。 控件名称 属性 属性值 备注 Form1 caption 添加和删除 窗体中各控件的位置按样例画好 MinButton False MaxButton False Text1 Text List1 Command1 Caption 添加 Command2 caption 删除 二、根题意,编写如下事件过程代码: PrivateSubCommand1_Click() IfText1.Text=""Then MsgBox("没有内容,不予添加") Else List1.AddItemText1.Text,0 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 程序设计10 1、在窗体上放置两个列表框控件,在它的Iist中输入一些内容。 2、当单击“<”按钮时,把Iist2中的一项放到list1中,并且在list2中删除该项。 3、当单击“<<”按钮时,把list1中,并且清空list2。 4、当单击“>”按钮时,把list2中选中的一项放到list2中,并且在list1中,并且在list1中删除该项。 5、当单击“>>”按钮时,把list1中所有的项放到list2中,并且清空list1。 6、当单击“结素“按钮时,退出应用程序。 7、界面及功能设计请参考cx10.exe文件。 程序设计10题解: 一、根据题目要求及样例,在Form1窗体上画出各控件,并根据题意按下表对窗体和各控件设置属性值。 控件名称 属性 属性值 备注 List1 list 111,222 增加列表项 List2 list 333,444 增加列表项 Command1 caption > Command2 caption >> Command3 caption << Command4 caption < Command5 caption 结束 二、根据题意,编写如下事件过程代码: PrivateSubCommand1_Click() IfList1.ListIndex=-1Then MsgBox"请选择一列表项" Else List2.AddItemList1.List(List1.ListIndex) List1.RemoveItemList1.ListIndex EndIf EndSub PrivateSubCommand2_Click() WhileList1.ListCount>0 List2.AddItemList1.List(0) List1.RemoveItem0 Wend EndSub PrivateSubCommand3_Click() WhileList2.ListCount>0 List1.AddItemList2.List(0) List2.RemoveItem0 Wend EndSub PrivateSubCommand4_Click() IfList2.ListIndex=-1Then MsgBox"请选择一列表项" Else List1.AddItemList2.List(List2.ListIndex) List2.RemoveItemList2.ListIndex EndIf EndSub PrivateSubCommand5_Click() End EndSub PrivateSubForm_Load() List1.AddItem"111" List1.AddItem"222" List2.AddItem"333" List2.AddItem"444" EndSub 程序设计11 1、窗体上有二个CheckBox,当这两个选项未被选定时,它们所在框架的其它控件不能使用。 2、如果单击“确定”按钮,则在按钮下面的标签中显示用户所选择的信息。 3、界面及功能设计请参考cx11.exe文件。 程序设计11题解: 一、根据题目要求及样例,在Form1窗
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 上机 考试 设计 答案