vb上机考试操作题.docx
《vb上机考试操作题.docx》由会员分享，可在线阅读，更多相关《vb上机考试操作题.docx（34页珍藏版）》请在冰点文库上搜索。
vb上机考试操作题
Vb上机操作题
四、基本操作题
1．在考生文件夹中，完成以下要求：
解题步骤：
（重点提示）
（1）通过浏览器进入考生文件夹，双击“Sjt.Vbp”（如果看不到扩展名，则需要在浏览器的“工具”“文件夹选项”“查看”中，把“隐藏已知文件类型的扩展名”前面的√去掉）；在“工程”菜单中选择“工程属性”，把工程名称改为Spks；把窗体的“名称”改为vbbc；把窗体的caption属性值改为二级VB考试
（2）以下各个控件的位置，参照下土。
在窗体上添加时钟控件（其名称默认为Timer1），把它的interval属性设置为10；添加图片框（picturebox），在picture1添加标签，将这个标签的autosize属性设置为true；在窗体上添加标签，将其caption属性设置为快；在窗体上添加文本框、水平滚动条，将这个水平滚动条的min属性设置为0，max属性设置为100；
（3）按如下方式在各个对象的相应事件里写入代码：
（4）运行这个程序；点击保存
（1）启动工程文件Sjt.Vbp，将该工程文件的工程名称改为“Spks”，并将该工程中的窗体文件Sjt.frm的窗体名称改为“vbbc”，窗体的标题为“二级VB考试”。
（2）在窗体上增加以下控件：
定时器Timer1，时间间隔值为10；图片框Picture1；标签Label1放置在图片框中，标签的大小自动调整；标签Label2的标题为“快”；文本框Text1放置在图片框下方；水平滚动条HScroll1，最小值为0,最大值为100。
（3）按如下要求编写代码：
文本框中输入的字符自动显示为标签的标题；标签自动向左移动，移出图片框后又从右边进入（提示：
编程使得当标签的Left<-1000时，重置Left＝10000）；拖动水平滚动条时，将调整移动的速度。
（4）请先调试、运行，然后将工程、窗体保存。
参考程序代码如下：
PrivateSubHScroll1_Change（）
Timer1.Interval=HScroll1.Value‘水平滚动条的值越小，timer事件执行间隔越小，标签运动越快
EndSub
PrivateSubText1_Change（）
Label1.Caption=Text1.Text
EndSub
PrivateSubTimer1_Timer（）
Label1.Left=Label1.Left–100‘标签距离picture1左边界的距离减少100单位
IfLabel1.Left<-1000ThenLabel1.Left=10000
EndSub
2．在考生文件夹中，完成以下要求：
解题步骤：
（1）通过浏览器进入考生文件夹，双击“Sjt.Vbp”（如果看不到扩展名，则需要在浏览器的“工具”“文件夹选项”“查看”中，把“隐藏已知文件类型的扩展名”前面的去掉）；在“工程”菜单中选择“工程属性”，把工程名称改为Spks；把窗体的“名称”改为vbbc
（2）参照下图，在相应位置添加各个控件，并更改相应属性；左边红色内容，应当更改option1的value属性为true；
（3）打开窗体的代码窗口，在“通用”声明段里，写上publicxb,jg；在窗体的load事件里，写上图下所示代码，
（4）运行这个程序；点击保存
（1）启动工程文件Sjt.Vbp，将该工程文件的工程名称改为“Spks”，并将该工程中的窗体文件Sjt.frm的窗体名称改为“vbbc”。
（2）请在适当位置添加控件：
三个标签，Label1标题为“姓名：
”，Label2标题为“籍贯：
”，Label3标题为空；一个框架Frame1标题为“性别”；两个单选按钮在框架Frame1中，Option1标题为“男”,Style属性为1且为选中状态，Option2标题为“女”，Style属性为1；一个文本框Text1内容为空，且Tabindex属性值为0；一个列表框List1；一个命令按钮Command1，标题为“确定”。
（以上操作在属性窗口中完成）
（3）在窗体模块中声明全局变量xb，jg；在窗体的装载事件中完成：
列表框添加三项内容：
“北京”，“上海”，“合肥”，且“北京”选项默认被选中，xb变量的初始值为“男”。
（4）按如下要求编写代码：
选中Option1时，为变量xb赋值为“男”；选中Option2时，为变量xb赋值为“女”；选中列表框的某一项时，把选中的内容赋值给jg（要求在列表框的Click事件中实现）；单击按钮Command1时，在Label3中顺次显示姓名（Text1中的内容），籍贯（变量jg的值）,性别（变量xb的值）。
运行后如图所示：
（5）请先调试、运行，然后将工程、窗体保存。
参考程序如下：
Publicjg,xb
PrivateSubCommand1_Click（）
Label3.Caption=Text1.Text&"：
"&jg&","&xb
EndSub
PrivateSubForm_Load（）
List1.AddItem"北京"
List1.AddItem"上海"
List1.AddItem"合肥"
xb="男"
List1.ListIndex=0'使得运行时列表框中被选中的初始值为“北京”
EndSub
PrivateSubList1_Click（）
jg=List1.Text
EndSub
PrivateSubOption1_Click（）
xb="男"
EndSub
PrivateSubOption2_Click（）
xb="女"
EndSub
3．在考生文件夹中，完成以下要求：
（1）启动工程文件Sjt.Vbp，将该工程文件的工程名称改为“Spks”，并将该工程中的窗体文件Sjt.frm的窗体名称改为“vbbc”。
（2）请在适当位置添加控件：
一个驱动器列表框Drive1；一个目录列表框Dir1；一个文件列表框File1，自动过滤出扩展名为bmp和jpg的图形文件；一个图像框Image1，其中的图片自动匹配图像框的大小。
（以上操作在属性窗口中完成）
（3）按要求编写代码使得驱动器列表框、目录列表框和文件列表框同步工作；文件列表框中显示扩展名为bmp和jpg的图形文件；当单击文件列表框中的某个图形文件时，图像框中显示出该图片（可为机器上任意扩展名为bmp和jpg的图形文件）。
运行后，如下图所示：
本题较容易，是课本第八章前两面的原题（仅仅过滤的文件类型不同）
（4）请先调试、运行，然后将工程、窗体保存。
参考程序如下：
PrivateSubDir1_Change（）
File1.Path=Dir1.Path
EndSub
PrivateSubDrive1_Change（）
Dir1.Path=Drive1.Drive
EndSub
PrivateSubFile1_Click（）
Image1.Picture=LoadPicture（File1.Path&"\"&File1.FileName）
EndSub
4．在考生文件夹中，完成以下要求：
（1）启动工程文件Sjt.Vbp，将该工程文件的工程名称改为“Spks”，并将该工程中的窗体文件Sjt.frm的窗体名称改为“vbbc”。
（2）请在适当位置添加控件：
一个标签Label1,标题改为“请输入手机号：
”；一个文本框Text1,其值设为空，允许输入的字符数最多为11个；两个命令按钮Command1、Command2，标题分别改为“确定”、“取消”（以上操作在属性窗口中完成）。
（3）要求窗体装载时，文本框的值取“13”，输入手机号码时，一旦键入非数字字符，用Msgbox给出“请输入数字符号”的提示信息；输入手机号码后，单击“确定”按钮，如果数字符号不足11位，用Msgbox给出“手机号码为11位数字”的提示信息，反之，用Msgbox给出是“联通用户”还是“移动用户”或者是“空号”的判定结果（第三位数字为0、1、3是联通用户，5、6、7、8、9为移动用户，其它为“空号”，要求用SelectCase结构实现）；单击“取消”按钮可结束程序运行。
运行界面如下图。
（4）请先调试、运行，然后将工程、窗体保存。
参考程序如下：
PrivateSubCommand1_Click（）
IfLen（Trim（Text1.Text））<>11Then
MsgBox（"手机号为11数字"）
Text1.Text="13"
Text1.SelStart=3
text1.setfocus
Else
SelectCaseMid（Text1.Text,3,1）'从Text1的第3位取1个字符
Case0,1,3
MsgBox（"联通用户"）
Case5,6,7,8,9
MsgBox（"移动用户"）
CaseElse
MsgBox（"空号"）
EndSelect
EndIf
EndSub
PrivateSubCommand2_Click（）
End
EndSub
PrivateSubForm_Load（）
Text1.Text="13"
text1.tabindex=0
Text1.SelStart=3
EndSub
PrivateSubText1_KeyPress（KeyAsciiAsInteger）
IfChr（KeyAscii）<"0"OrChr（KeyAscii）>"9"Then
MsgBox（"请输入数字符号"）
KeyAscii=0
EndIf
EndSub
5．在考生文件夹中，完成以下要求：
（1）启动工程文件Sjt.Vbp，将该工程文件的工程名称改为“Spks”，并将该工程中的窗体文件Sjt.frm的窗体名称改为“vbbc”。
（2）请在适当位置添加控件：
一个文本框Text1，其值置为空，两个命令按钮Command1、Command2，标题分别为“添加”、“删除”，Command2的Enabled属性值设为假；一个列表框List1。
（以上操作在属性窗口中完成）
（3）要求程序运行时，单击“添加”按钮，若文本框中有内容，则将文本框中的内容添加到列表框中。
选中列表框中的某一项，命令按钮“删除”有效，单击“删除”按钮可将该项删除。
运行效果如下图。
（4）请先调试、运行，然后将工程、窗体保存。
参考程序如下：
PrivateSubCommand1_Click（）
IfText1.Text<>""Then
List1.AddItemText1.Text
EndIf
EndSub
PrivateSubCommand2_Click（）
IfList1.ListIndex<>-1Then
List1.RemoveItemList1.ListIndex
EndIf
EndSub
PrivateSubForm_Activate（）
Text1.SetFocus
EndSub
PrivateSubList1_Click（）
Command2.Enabled=True
EndSub
6．在考生文件夹中，完成以下要求：
（1）启动工程文件Sjt.Vbp，将该工程文件的工程名称改为“Spks”，并将该工程中的窗体文件Sjt.frm的窗体名称改为“vbbc”。
（2）请在适当位置添加控件：
一个标签Label1，标题为“等级考试”；两个命令按钮Command1、command2标题分别为“移动”、“暂停”，Command2的Enabled属性值设为False，一个时钟控件Timer1，其Enabled属性值设为False,Interval属性值设置为500。
（以上操作在属性窗口中完成）
（3）要求程序运行时，单击“移动”按钮可使Timer1、Command2有效；时钟控件每隔半秒触发一次Timer事件，该事件触发时可将标签向左移动60缇，一旦整个标签出了窗体左端，要求标签再从窗体的右端开始移动，单击“暂停”按钮可使时钟控件失效。
运行效果如下图。
（4）请先调试、运行，然后将工程、窗体保存。
参考程序如下：
PrivateSubCommand1_Click（）
Command2.Enabled=True
Timer1.Enabled=True
EndSub
PrivateSubCommand2_Click（）
Timer1.Enabled=False
EndSub
PrivateSubTimer1_Timer（）
IfLabel1.Left+Label1.Width>=0Then
Label1.Left=Label1.Left-60
Else
Label1.Left=Form1.Width
EndIf
EndSub
五、简单应用题
1．在考生文件夹中，完成以下要求：
（1）启动工程文件Prog1.Vbp，将该工程文件的工程名称改为“Spks”，并将该工程中的窗体文件Prog1.frm的窗体名称改为“Prog1”，窗体的标题为“数据计算”。
（2）请在窗体适当位置增加以下控件：
一个标签Label1，标题为“计算结果”；一个文本框Text1；两个命令按钮（名称分别为C1和C2，标题分别为“计算”和“保存”），如图所示。
本题先执行第5条要求，再执行才能达到效果
（3）编写程序计算S的近似值，直到最后一项的绝对值小于10-5为止（要求将存放结果的变量类型定义成单精度浮点型）。
（4）要求程序运行后，单击“计算”按钮，计算并将结果显示在文本框中；最后单击“保存”按钮，将结果存入考生文件夹中的文件“kssj.dat”中。
（5）在考生文件夹下有标准模块Prog1.bas，其中的Putdata过程可以把结果存入指定的文件，要求把这个模块文件添加到当前的工程中，直接调用该过程。
（6）请先将工程、窗体与模块保存，然后调试、运行并生成可执行文件：
Prog1.exe。
第（5）步添加的prog1.bas文件中的代码如下：
OptionExplicit
Subputdata（t_FileNameAsString,t_StrAsVariant）
DimsFileAsString
sFile="\"&t_FileName
OpenApp.Path&sFileForOutputAs#1
Print#1,t_Str
Close#1
EndSub
参考程序如下：
PrivateSubCommand1_Click（）
Forn=101To200Step2
f=1
Fori=2Ton-1
IfnModi=0Thenf=0:
ExitFor
Nexti
Iff=1Thens=s+n
Nextn
Text1.Text=s
EndSub
PrivateSubCommand2_Click（）
Callputdata（"kssj.dat",Text1.Text）
EndSub
2．在考生文件夹中，完成以下要求：
（1）启动工程文件Prog1.Vbp，将该工程文件的工程名称改为“Spks”，并将该工程中的窗体文件Prog1.frm的窗体名称改为“Prog1”，窗体的标题为“字符串个数”。
（2）请在窗体适当位置增加以下控件：
文本框1（名称为Text1，Multiline属性为True，ScrollBars属性为2）；文本框2（名称为Text2）和三个命令按钮（名称分别为C1、C2和C3，标题分别为“读入数据”、“显示结果”和“保存”），如图所示。
本题必须先执行第4条要求，并研究所添加模块中的代码。
在所添加模块中定义了对文件进行操作的过程，必须弄清楚这个过程的参数含义，明确调用参数的个数、顺序和类型。
（3）要求程序运行后，单击“读入数据”按钮，读入“ini.txt”文件中的内容，同时在文本框text1中显示出来；然后单击“显示结果”按钮，统计出字符串“and”出现的次数，并把结果在文本框Text2中显示出来；最后单击“保存”按钮，把该结果（Text2的值）存入考生文件夹中的文件“kssj.dat”中。
（4）在考生文件夹下有标准模块Prog1.bas，其中的getdata过程可以读出文件“ini.txt”中的内容，Putdata过程可以把结果存入指定的文件，要求把这个模块文件添加到当前工程中，直接调用过程。
（5）请先将工程、窗体与模块保存，然后调试、运行并生成可执行程序：
Prog1.exe。
第（4）步添加的prog1.bas文件中的代码如下：
OptionExplicit
Subputdata（t_FileNameAsString,t_StrAsVariant）
DimsFileAsString
sFile="\"&t_FileName
OpenApp.Path&sFileForOutputAs#1
Print#1,t_Str
Close#1
EndSub
Subgetdata（t_FileNameAsString,t_StrAsVariant）'读文件函数
DimsFileAsString,StrnameAsString
sFile="\"&t_FileName
OpenApp.Path&sFileForInputAs#1
DoWhileNotEOF
（1）
LineInput#1,strname
t_Str=t_Str&strname&chr（13）&chr（10）
Loop
Close#1
EndSub
参考程序如下：
DimCount1AsInteger
PrivateSubC1_Click（）
Callgetdata（"ini.txt",Str1）
Text1.Text=Str1
EndSub
PrivateSubC2_Click（）
DimLen1AsInteger
DimiAsInteger
DimStr1AsString
Str1=Text1.Text
i=1
Len1=Len（Text1.Text）
Fori=1ToLen1-3
IfMid（Str1,i,3）="and"Then
Count1=Count1+1
EndIf
Nexti
Text2.Text=Count1
EndSub
PrivateSubC3_Click（）
putdata"kssj.dat",Count1
EndSub
3．在考生文件夹中，完成以下要求：
（1）启动工程文件Prog1.Vbp，将该工程文件的工程名称改为“Spks”，并将该工程中的窗体文件Prog1.frm的窗体名称改为“Prog1”。
（2）请在窗体适当位置增加以下控件：
两个标签label1，label2，标题分别为“平均数为：
”，“大于平均数的个数为：
”；三个文本框Text1，Text2，Text3；Text1的Multiline的属性为True，ScrollBars属性为2，文本均为空白；两个命令按钮Command1,Command2，标题分别为：
“读数并计算”，“保存”；将窗体标题改为“求平均数”（如图所示）。
（3）要求程序运行后，单击“读数并计算”按钮，则读入“ini.txt”文件中的50个整数显示在Text1中，同时在Text2中显示这些整数的平均数，在Text3中显示大于平均数的个数。
单击“保存”按钮将大于平均数的个数（Text3的值）存入考生文件夹中的文件“kssj.dat”中。
（4）在考生文件夹下有标准模块Prog1.bas，其中Getdata过程可以读出文件“ini.txt”中的数据，Putdata过程可以把结果存入指定的文件，要求把该模块文件添加到当前工程中，直接调用该过程。
（5）请先将工程、窗体与模块保存，然后调试、运行并生成可执行文件：
Prog1.exe。
第（4）步添加的prog1.bas文件中的代码如下：
OptionExplicit
Subputdata（t_FileNameAsString,t_StrAsVariant）
DimsFileAsString
sFile="\"&t_FileName
OpenApp.Path&sFileForOutputAs#1
Print#1,t_Str
Close#1
EndSub
参考程序如下:
PrivateSubCommand1_Click（）
DimsAsInteger
DimSumAsInteger
DimAveAsSingle
DimA（50）AsInteger
DimstrNameAsString
Sum=0
Ave=0
Text1=""
sFile="\"&t_FileName
OpenApp.Path&"\ini.txt"ForInputAs#1
'读数到数组中
DoWhileNotEOF
（1）
LineInput#1,strName
i=i+1
A（i）=Val（strName）
Sum=Sum+A（i）
Text1.Text=Text1&A（i）&Chr（13）&Chr（10）
Loop
Close#1
Ave=Sum/50
'计算大于平均数的个数
Fori=1To50
IfA（i）>AveThen
s=s+1
EndIf
Nexti
Text2.Text=Ave
Text3.Text=s
EndSub
PrivateSubCommand2_Click（）
Prints
putdata"kssj.dat",Text3.Text
EndSub
4．在考生文件夹中，完成以下要求：
（1）启动工程文件Prog1.Vbp，将该工程文件的工程名称改为“Spks”，并将该工程中的窗体文件Prog1.frm的窗体名称改为“Prog1”，窗体的标题为“排序”。
（2）请在窗体适当位置增加以下控件：
两个标签Label1和Label2（标题分别为“排序之前”和“排序之后”）；两个列表框List1和List2；三个命令按钮（均为默认名称，标题分别为“读取数据”、“排序”和“写入文件”），如图所示。
（3）要求：
程序运行后
（1）单击“读取数据”按钮，读入“in
升级会员 