完整版vb简单应用题.docx
- 文档编号:5438939
- 上传时间:2022-12-16
- 格式:DOCX
- 页数:21
- 大小:188.38KB
完整版vb简单应用题.docx
《完整版vb简单应用题.docx》由会员分享,可在线阅读,更多相关《完整版vb简单应用题.docx(21页珍藏版)》请在冰豆网上搜索。
完整版vb简单应用题
Vb简单应用题练习题
第一题:
打开考生考号文件夹下的T5-1文件夹下的工程文件vbsj3.vbp,在名称为Form1的窗体上已经添加一个名为lblClock的标签控件和一个名称为timeClock的计时器控件;请将标签控件lblClock的Caption属性设为空串,BorderStyle属性设为1,再设置timeClock的适当属性,并编写适当的事件过程,使得在运行时,每隔一秒种在标签中显示的数字从1开始自动加1。
如图所示是程序开始运行时的界面。
请将程序中注释语句修改为正确代码,并删除注释符号;不能修改已有的程序内容,特别是不能改变程序中已有的变量名称。
注意:
1.不能修改除注释语句以外的其他代码行和已经设置好的控件属性,并将修改的结果以原文件名原位置存盘。
2.若涉及给对象属性赋值,必须指定属性名,不可使用对象的默认属性。
OptionExplicit
PrivatenCountAsInteger
PrivateSubForm_Load()
nCount=1
EndSub
PrivateSubtimeClock_Timer()
lblClock=nCount
nCount=nCount+1
EndSub
第二题:
打开考生考号下指定文件夹下的工程文件vbsj3.vbp,在名称为Form1的窗体上已经添加一个名称为txtInput的文本框;两个标题分别为“对齐方式”、“字体”,名称分别为fraAlign、fraFont的框架控件;在fraAlign框架中画三个单选按钮,标题分别为“左对齐”、“居中”、“右对齐”,名称分别为optLeft、optCenter、optRight;在fraFont框架中画两个单选按钮,标题分别为“宋体”、“黑体”,名称分别为optSt、optHt。
要求:
编写五个单选按钮的Click事件过程,使程序运行时,单击这些单选按钮,可以对文本框中的文字实现相应的操作效果,如图所示。
注意:
1.不能修改其他代码行,并将修改的结果以原文件名原位置存盘。
2.若涉及给对象属性赋值,必须指定属性名,不可使用对象的默认属性。
3.程序中不得使用变量,每个事件过程中只能写一条语句。
OptionExplicit
PrivateSuboptCenter_Click()
txtInput.Alignment=2
EndSub
PrivateSuboptRight_Click()
txtInput.Alignment=1
EndSub
PrivateSuboptLeft_Click()
txtInput.Alignment=0
EndSub
PrivateSuboptHt_Click()
txtInput.FontName="黑体"
EndSub
PrivateSuboptSt_Click()
txtInput.FontName="宋体"
EndSub第三题:
打开指定文件夹下的工程文件vbsj3.vbp,本程序的功能是输入用户名和密码。
要求程序运行时,输入用户名的文本框txtUserName首先获得焦点,当输入用户名的文本框txtUserName中输入的英文字符个数不超过10个且按回车键时,焦点自动定位到输入密码的文本框txtPassWord中;否则将文本框txtUserName的内容清空,焦点还是在文本框txtUserName中。
同时,若选中“显示密码”复选框,在文本框txtPassWord中输入密码时,文本框txtShowPwd中显示的是密码字符本身;若没有选中“显示密码”复选框,则文本框txtShowPwd显示的是“#”,如图所示。
在考生文件夹中给出的窗体文件vbsj3.frm中已经添加了全部的控件,但程序不完整。
请去掉程序中的注释,将其中的?
改为正确的内容。
注意:
1.不能修改除注释语句以外的其他代码行和已经设置好的控件属性,并将修改的结果以原文件名原位置存盘。
2.若涉及给对象属性赋值,必须指定属性名,不可使用对象的默认属性。
OptionExplicit
PrivateSubForm_Load()
Form1.Show
txtUserName.SetFocus
EndSub
PrivateSubtxtPassWord_Change()
IfchkShowPwd.Value=1Then
txtShowPwd.PasswordChar=""
txtShowPwd.Text=txtPassWord.Text
Else
txtShowPwd.PasswordChar="#"
txtShowPwd.Text=txtPassWord.Text
EndIf
EndSub
PrivateSubtxtUserName_KeyPress(KeyAsciiAsInteger)
IfKeyAscii=13Then
IfLen(Trim(txtUserName.Text))<10Then
txtPassWord.SetFocus
Else
MsgBox"输入的用户名长度超出,请重新输入!
",vbCritical,"警告"
txtUserName.Text=""
txtUserName.SetFocus
EndIf
EndIf
EndSub
第四题:
在指定文件夹中创建的窗体文件vbsj3.frm和工程文件vbsj3.vbp中,打开指定文件夹下的工程文件vbsj3.vbp,已经添加全部控件,其中“+”、“-”、“×”、“÷”对应的单选按钮为一个控件数组。
程序的功能是根据水平滚动条hsbNum1和hsbNum2的当前值作为运算数,当单击命令按钮cmdCalc时可分别进行加、减、乘、除运算,并将运算的结果显示在标签lblOpResult中,程序运行时的界面如图所示。
请在设计模式下分别设置水平滚动条hsbNum1和hsbNum2的Max、Min属性的值分别100、1;设置“+”对应的单选按钮控件当前为选中状态。
该程序不完整,请去掉程序中的注释符,并把?
改正为正确内容,使其能够正确运行。
注意:
1.不能修改除注释语句以外的其他代码行和已经设置好的控件属性,并将修改的结果以原文件名原位置存盘。
2.若涉及给对象属性赋值,必须指定属性名,不可使用对象的默认属性。
OptionExplicit
PrivateSubcmdCalc_Click()
DimiAsInteger,ResultAsInteger
DimoptAsString
Fori=0To3
IfoptOperator(i).Value=TrueThen
opt=optOperator(i).Caption
EndIf
Next
SelectCaseopt
Case"+"
Result=hsbNum1+hsbNum2
Case"-"
Result=hsbNum1-hsbNum2
Case"×"
Result=hsbNum1*hsbNum2
Case"÷"
Result=hsbNum1/hsbNum2
EndSelect
lblOpResult.Caption=Str(hsbNum1.Value)&opt&Str(hsbNum2.Value)&"="&Str(Result)
EndSub
第五题:
打开指定文件夹下的工程文件为vbsj3.vbp,相应的窗体文件文件为vbsj3.frm,包含了所有的控件和部分程序,程序的功能是:
当选择“考试科目”、“考试形式”后,单击“确定”按钮,在文本框txtContents中显示选中的“考试科目”和“考试形式”的内容;若没有选择相应的项目,将以消息框进行提示。
要求:
(1)利用属性窗口向列表框lstSubjects添加“二级VB”、“二级VFP”、“二级网页设计”、“二级C”四个项目作为考试科目;同时将窗体只保留“关闭”
按钮。
程序运行时的界面如图所示。
(2)将程序代码中注释符号去掉,其中的?
修改为正确的程序代码,保证程序能正常运行。
注意:
1.1.不能修改除注释语句以外的其他代码行和已经设置好的控件属性,并将修改的结果以原文件名原位置存盘。
2.在结束运行之前,必须至少要进行一次选择操作(包括列表框和单选按钮),退出程序时通过单击窗体右上角的关闭按钮。
3.若涉及给对象属性赋值,必须指定属性名,不可使用对象的默认属性。
4.本程序中的表达式不允许使用常量。
OptionExplicit
PrivateSubcmdOK_Click()
IflstSubjects.ListIndex>=0Then
IfoptBs.Value=TrueThen
txtContents.Text=lstSubjects.Text&optBs.Caption
ElseIfoptSj.Value=TrueThen
txtContents.Text=lstSubjects.Text&optSj.Caption
Else
MsgBox"请鼠标单击选择其中的一种考试形式!
",vbOKOnly,"提示"
EndIf
Else
MsgBox"请单击鼠标选择考试科目的其中一项!
",vbOKOnly,"提示"
EndIf
EndSub
第六题:
打开指定文件夹下的工程文件为vbsj3.vbp,在窗体中已添加全部控件。
程序的功能是当单击“添加”按钮时,将窗体上左侧列表框(名称为lstPending)同时选中的多个不连续的列表项移动到右侧列表框(名称为lstSelected)中;当单击“删除”按钮时,将右侧列表框lstSelected选中的一个列表项移动到左侧列表框lstPending中。
程序运行时的界面如图所示。
要求:
(1)通过属性窗口,设置列表框控件lstPending可以同时选择不连续的多个列表项;
(2)窗体文件中的程序代码不完整,请将其中的注释符去掉,并将?
修改为正确的代码,保证程序能够正常运行。
注意:
1.不能修改除注释语句以外的其他代码行和已经设置好的控件属性,并将修改的结果以原文件名原位置存盘。
2.若涉及给对象属性赋值,必须指定属性名,不可使用对象的默认属性。
OptionExplicit
PrivateSubcmdAdd_Click()
DimkAsInteger
k=0
'While(k ) IflstPending.Selected(k)=TrueThen lstSelected.AddItemlstPending.List(k) lstPending.RemoveItemk Else k=k+1 EndIf Wend EndSub PrivateSubcmdRemove_Click() DimiAsInteger lstPending.AddItemlstSelected.Text lstSelected.RemoveItemlstSelected.ListIndex EndSub 第七题: 打开指定文件夹下的工程文件是vbsj3.vbp,窗体上已经添加部分控件和程序代码,程序运行时的界面如图所示。 要求: (1)在设计模式下为窗体添加“通用对话框”控件,名称为CommonDialog1; (2)在“设置字体”按钮的“Click”事件过程中将代码补充完整,程序执行时,单击该按钮将打开“字体”对话框,并能够按照在“字体”对话框中的选择设置文本框控件(名称为txtSample)的字体、字号、下划线、颜色属性。 注意: 1.不能修改除注释语句以外的其他代码行和已经设置好的控件属性,并将修改的结果以原文件名原位置存盘。 2.若涉及给对象属性赋值,必须指定属性名,不可使用对象的默认属性。 OptionExplicit PrivateSubcmdFont_Click() CommonDialog1.Flags=cdlCFBothOrcdlCFEffects CommonDialog1.ShowFont txtSample.FontName=CommonDialog1.FontName txtSample.FontSize=CommonDialog1.FontSize txtSample.FontUnderline=CommonDialog1.FontUnderline txtSample.ForeColor=CommonDialog1.Color EndSub 第八题: 打开指定文件夹下的工程文件vbsj3.vbp,窗体上已添加全部控件。 程序的功能是根据文本框(名称为txtInput)中输入的内容,当单击“统计个数”命令按钮时,分别统计“数字”、“大写字母”、“小写字母”的个数,并将统计的结果分别显示在文本框控件数组(名称为txtNumber)中。 窗体文件中的程序代码并不完整,请将代码中的注释符去掉,并将其中的? 修改为正确的代码,保证程序能够正常运行。 注意: 1.不能修改除注释语句以外的其他代码行和已经设置好的控件属性,并将修改的结果以原文件名原位置存盘。 2.若涉及给对象属性赋值,必须指定属性名,不可使用对象的默认属性。 OptionExplicit PrivateSubcmdCounting_Click() DimnAsInteger,iAsInteger,kAsInteger Dima(3)AsInteger,sAsString s=RTrim(txtInput.Text) n=Len(s) Fori=1Ton k=Asc(Mid(s,i,1)) SelectCasek Case48To57 a(0)=a(0)+1 Case65To90 a (1)=a (1)+1 Case97To122 a (2)=a (2)+1 EndSelect Nexti Fori=0To2 txtNumber(i).Text=a(i) Nexti EndSub 第九题: 在指定文件夹下有大小完全相同的两个图片文件,名称分别为p1.jpg和p2.jpg;已经创建的窗体文件为vbsj3.frm,相应的工程文件为vbsj3.vbp。 打开指定文件夹下的该工程文件vbsj3.vbp,窗体的名称为Form1,并已添加两个图片框控件和一个命令按钮控件,两个图片框控件的名称分别为Pic1、Pic2,命令按钮控件的名称cmdChange,标题为“交换图片”。 要求: (1)使用属性窗口,分别为两个图片框控件Pic1和Pic2加载考生文件夹下的图片文件p1.jpg和p2.jpg,并设置两个图片框控件自动与图片p1.jpg和p2.jpg具有相同的大小,程序运行时的界面如图所示。 (2)在命令按钮cmdChange的Click事件中编写代码,当单击该命令按钮时,将两个图片框控件Pic1、Pic2已经加载的图片交换显示(交换时,不能再重新加载图片文件)。 注意: 1.程序中不得使用任何变量,也不能使用第三个图片框或图像框控件,不能修改程序的其他部分和已经设置好的控件属性,并将修改的结果以原文件名原位置存盘。 2.若涉及给对象属性赋值,必须指定属性名,不可使用对象的默认属性。 OptionExplicit PrivateSubcmdChange_Click() Form1.Picture=Pic1.Picture Pic1.Picture=Pic2.Picture Pic2.Picture=Form1.Picture Form1.Picture=LoadPicture() EndSub 第十题: 打开指定文件夹下的工程文件vbsj3.vbp,在名称为Form1的窗体上已添加一个名称为txtDisplay的文本框,请建立一个名称为mnuList的主菜单,其子菜单项有三个,名称分别为mnuOil、mnuFood、mnuEgg,它们的标题分别为“食用油”、“米面”和“鸡蛋”。 程序运行后,界面如图所示。 如果选择“食品列表”的下拉菜单项“食用油”,则在文本框txtDisplay中显示“保质期18个月”;如果选择“米面”,则在文本框中显示“保质期12个月”;如果选择“鸡蛋”,则在文本框中显示“保质期1个月”。 注意: 1.不能使用任何变量,直接显示要求的字符串;不能修改程序的其他部分和不要求操作的控件属性,并将修改的结果以原文件名原位置存盘。 2.若涉及给对象属性赋值,必须指定属性名,不可使用对象的默认属性。 OptionExplicit PrivateSubmnuOil_Click() txtDisplay.Text="保质期18个月" EndSub PrivateSubmnuEgg_Click() txtDisplay.Text="保质期1个月" EndSub PrivateSubmnuFood_Click() txtDisplay.Text="保质期12个月" EndSub PrivateSubtxtDisplay_Change() EndSub 第十一题: 打开考生考号文件夹下的T5-2文件夹下的工程文件vbsj4.vbp,窗体的功能是在组合框cboDivisor选中一个数作为起始值,单击“计算”按钮cmdCalc时,先使用输入对话框输入一个不大于5000的整数,然后计算该整数所有大于起始值的因数之和,并将求和的结果显示在名称为txtResult的文本框中。 程序运行时的界面如图所示。 要求: (1)使用属性窗口为组合框cboDivisor添加三个列表项,分别为数字3、7、11; (2)修改窗体文件的代码,将其中的注释符号去掉,并把? 修改为相应的正确程序代码,保证程序能正常运行。 注意: 1.不能修改除注释语句以外的其他代码行和已经设置好的控件属性,并将修改的结果以原文件名原位置存盘。 2.若涉及给对象属性赋值,必须指定属性名,不可使用对象的默认属性。 OptionExplicit PrivateSubcmdCalc_Click() DimnDividendAsInteger,nDivisorAsInteger,iAsInteger DimSumAsLong Sum=0 nDividend=Int(Val(InputBox("请输入一个小于5000的整数作为被除数! ","输入",3000))) nDivisor=Int(Val(Trim(cboDivisor.Text))) Fori=nDivisor+1TonDividend IfnDividendModi=0Then Sum=Sum+i EndIf Next txtResult.Text=Sum EndSub 第十二题: 打开指定文件夹下已经创建好工程文件vnsj4.vbp。 程序运行时,在窗体的Activate事件过程中生成圆的12个刻度点,另有长、短2条直线,名称分别为linLong、linShort,起点的坐标分别为圆心的坐标x0、y0,如图所示,用以模拟时钟的指针移动。 当单击“开始”按钮,则每隔0.5秒长指针顺时针转动一个刻度,短指针顺时针转动1/12个刻度(即长指针转动一周,短指针转动一个刻度);当单击“停止”按钮,两个指针都停止转动。 在窗体文件中已经给出了全部控件,但程序不完整,请去掉程序中得注释符,把其中的? 修改为正确的内容。 提示: 程序中的常量x0、y0是圆心到窗体左上角的距离,可看作圆心的坐标;radius是圆的半径;pi是圆周率。 变量nHourLen、nMinuteLen分别为长指针和短指针的长度。 注意: 1.不能修改除注释语句以外的其他代码行和已经设置好的控件属性,并将修改的结果以原文件名原位置存盘。 2.若涉及给对象属性赋值,必须指定属性名,不可使用对象的默认属性。 PrivateSubcmdStart_Click() Timer1.Enabled=False EndSub PrivateSubcmdStop_Click() Timer1.Enabled=False EndSub PrivateSubForm_Activate() DimkAsInteger DimxAsSingle,yAsSingle Timer1.Enabled=False Fork=0To359Step30 x=radius*Cos(k*3.1415926/180)+x0 y=y0-radius*Sin(k*3.1415926/180) Form1.Circle(x,y),20 Nextk a=90 b=90 nHourLen=linLong.Y1-linLong.Y2 nMinuteLen=linShort.Y1-linShort.Y2 linLong.X1=x0 linLong.Y1=y0 linShort.X1=x0 linShort.Y1=y0 EndSub PrivateSubTimer1_Timer() a=a-30 linLong.X2=nHourLen*Cos(a*3.11415926/180)+x0 linLong.Y2=y0-nHourLen*Sin(a*3.1415926/180) b=b-30/12 linShort.X2=nMinuteLen*Cos(b*3.1415926/180)+x0 linShort.Y2=y0-nMinuteLen*Sin(b*3.1415926/180) EndSub 第十三题: 在指定文件夹下已经创建窗体文件vbsj4.frm,相应的工程文件为vbsj4.vbp。 打开工程文件vbsj4.vbp,程序运行时,单击“开始”按钮,则图像从左向右每0.5秒移动一次移动,同时滚动条的滑块也随之移动,当图像完全移出窗体的右边界时,立即再从窗体的左边界开始重新移动;若单击“停止”按钮,则图像停止移动,如图所示。 要求: (1)利用属性窗口,从考生文件夹下为图像框控件添加相应的图片,图片文件的名称为EARTH.ICO。 (2)在窗体文件的程序代码中将注释符去掉,并将其中的? 修改为正确的程序代码,保证程序能够正常运行。 注意: 1.不能修改除注释语句以外的其他代码行和已经设置好的控件属性,并将修改的结
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 完整版 vb 简单 应用题