vb上机考试操作题Word文档格式.docx
- 文档编号:3313425
- 上传时间:2023-05-01
- 格式:DOCX
- 页数:34
- 大小:323.76KB
vb上机考试操作题Word文档格式.docx
《vb上机考试操作题Word文档格式.docx》由会员分享,可在线阅读,更多相关《vb上机考试操作题Word文档格式.docx(34页珍藏版)》请在冰点文库上搜索。
拖动水平滚动条时,将调整移动的速度。
(4)请先调试、运行,然后将工程、窗体保存。
参考程序代码如下:
PrivateSubHScroll1_Change()
Timer1.Interval=HScroll1.Value‘水平滚动条的值越小,timer事件执行间隔越小,标签运动越快
EndSub
PrivateSubText1_Change()
Label1.Caption=Text1.Text
PrivateSubTimer1_Timer()
Label1.Left=Label1.Left–100‘标签距离picture1左边界的距离减少100单位
IfLabel1.Left<
-1000ThenLabel1.Left=10000
2.在考生文件夹中,完成以下要求:
(1)通过浏览器进入考生文件夹,双击“Sjt.Vbp”(如果看不到扩展名,则需要在浏览器的“工具”“文件夹选项”“查看”中,把“隐藏已知文件类型的扩展名”前面的去掉);
把窗体的“名称”改为vbbc
(2)参照下图,在相应位置添加各个控件,并更改相应属性;
左边红色内容,应当更改option1的value属性为true;
(3)打开窗体的代码窗口,在“通用”声明段里,写上publicxb,jg;
在窗体的load事件里,写上图下所示代码,
(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
PrivateSubForm_Load()
List1.AddItem"
北京"
上海"
合肥"
xb="
男"
List1.ListIndex=0'
使得运行时列表框中被选中的初始值为“北京”
PrivateSubList1_Click()
jg=List1.Text
PrivateSubOption1_Click()
xb="
PrivateSubOption2_Click()
女"
3.在考生文件夹中,完成以下要求:
一个驱动器列表框Drive1;
一个目录列表框Dir1;
一个文件列表框File1,自动过滤出扩展名为bmp和jpg的图形文件;
一个图像框Image1,其中的图片自动匹配图像框的大小。
(3)按要求编写代码使得驱动器列表框、目录列表框和文件列表框同步工作;
文件列表框中显示扩展名为bmp和jpg的图形文件;
当单击文件列表框中的某个图形文件时,图像框中显示出该图片(可为机器上任意扩展名为bmp和jpg的图形文件)。
运行后,如下图所示:
本题较容易,是课本第八章前两面的原题(仅仅过滤的文件类型不同)
(4)请先调试、运行,然后将工程、窗体保存。
PrivateSubDir1_Change()
File1.Path=Dir1.Path
PrivateSubDrive1_Change()
Dir1.Path=Drive1.Drive
PrivateSubFile1_Click()
Image1.Picture=LoadPicture(File1.Path&
\"
File1.FileName)
4.在考生文件夹中,完成以下要求:
(2)请在适当位置添加控件:
一个标签Label1,标题改为“请输入手机号:
”;
一个文本框Text1,其值设为空,允许输入的字符数最多为11个;
两个命令按钮Command1、Command2,标题分别改为“确定”、“取消”(以上操作在属性窗口中完成)。
(3)要求窗体装载时,文本框的值取“13”,输入手机号码时,一旦键入非数字字符,用Msgbox给出“请输入数字符号”的提示信息;
输入手机号码后,单击“确定”按钮,如果数字符号不足11位,用Msgbox给出“手机号码为11位数字”的提示信息,反之,用Msgbox给出是“联通用户”还是“移动用户”或者是“空号”的判定结果(第三位数字为0、1、3是联通用户,5、6、7、8、9为移动用户,其它为“空号”,要求用SelectCase结构实现);
单击“取消”按钮可结束程序运行。
运行界面如下图。
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
联通用户"
Case5,6,7,8,9
移动用户"
CaseElse
空号"
EndSelect
EndIf
PrivateSubCommand2_Click()
End
Text1.Text="
text1.tabindex=0
Text1.SelStart=3
PrivateSubText1_KeyPress(KeyAsciiAsInteger)
IfChr(KeyAscii)<
0"
OrChr(KeyAscii)>
9"
Then
请输入数字符号"
KeyAscii=0
EndIf
5.在考生文件夹中,完成以下要求:
一个文本框Text1,其值置为空,两个命令按钮Command1、Command2,标题分别为“添加”、“删除”,Command2的Enabled属性值设为假;
一个列表框List1。
(3)要求程序运行时,单击“添加”按钮,若文本框中有内容,则将文本框中的内容添加到列表框中。
选中列表框中的某一项,命令按钮“删除”有效,单击“删除”按钮可将该项删除。
运行效果如下图。
IfText1.Text<
List1.AddItemText1.Text
EndIf
IfList1.ListIndex<
-1Then
List1.RemoveItemList1.ListIndex
PrivateSubForm_Activate()
Text1.SetFocus
Command2.Enabled=True
6.在考生文件夹中,完成以下要求:
一个标签Label1,标题为“等级考试”;
两个命令按钮Command1、command2标题分别为“移动”、“暂停”,Command2的Enabled属性值设为False,一个时钟控件Timer1,其Enabled属性值设为False,Interval属性值设置为500。
(3)要求程序运行时,单击“移动”按钮可使Timer1、Command2有效;
时钟控件每隔半秒触发一次Timer事件,该事件触发时可将标签向左移动60缇,一旦整个标签出了窗体左端,要求标签再从窗体的右端开始移动,单击“暂停”按钮可使时钟控件失效。
Command2.Enabled=True
Timer1.Enabled=True
Timer1.Enabled=False
IfLabel1.Left+Label1.Width>
=0Then
Label1.Left=Label1.Left-60
Else
Label1.Left=Form1.Width
五、简单应用题
(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
Forn=101To200Step2
f=1
Fori=2Ton-1
IfnModi=0Thenf=0:
ExitFor
Nexti
Iff=1Thens=s+n
Nextn
Text1.Text=s
Callputdata("
kssj.dat"
Text1.Text)
(1)启动工程文件Prog1.Vbp,将该工程文件的工程名称改为“Spks”,并将该工程中的窗体文件Prog1.frm的窗体名称改为“Prog1”,窗体的标题为“字符串个数”。
文本框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)请先将工程、窗体与模块保存,然后调试、运行并生成可执行程序:
第(4)步添加的prog1.bas文件中的代码如下:
Subgetdata(t_FileNameAsString,t_StrAsVariant)'
读文件函数
DimsFileAsString,StrnameAsString
sFileForInputAs#1
DoWhileNotEOF
(1)
LineInput#1,strname
t_Str=t_Str&
strname&
chr(13)&
chr(10)
Loop
EndSub
DimCount1AsInteger
PrivateSubC1_Click()
Callgetdata("
ini.txt"
Str1)
Text1.Text=Str1
PrivateSubC2_Click()
DimLen1AsInteger
DimiAsInteger
DimStr1AsString
Str1=Text1.Text
i=1
Len1=Len(Text1.Text)
Fori=1ToLen1-3
IfMid(Str1,i,3)="
and"
Count1=Count1+1
EndIf
Text2.Text=Count1
PrivateSubC3_Click()
putdata"
Count1
(1)启动工程文件Prog1.Vbp,将该工程文件的工程名称改为“Spks”,并将该工程中的窗体文件Prog1.frm的窗体名称改为“Prog1”。
两个标签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)请先将工程、窗体与模块保存,然后调试、运行并生成可执行文件:
参考程序如下:
DimsAsInteger
DimSumAsInteger
DimAveAsSingle
DimA(50)AsInteger
DimstrNameAsString
Sum=0
Ave=0
Text1="
\ini.txt"
ForInputAs#1
'
读数到数组中
LineInput#1,strName
i=i+1
A(i)=Val(strName)
Sum=Sum+A(i)
Text1.Text=Text1&
A(i)&
Chr(13)&
Chr(10)
Ave=Sum/50
计算大于平均数的个数
Fori=1To50
IfA(i)>
AveThen
s=s+1
Text2.Text=Ave
Text3.Text=s
Prints
putdata"
Text3.Text
(1)启动工程文件Prog1.Vbp,将该工程文件的工程名称改为“Spks”,并将该工程中的窗体文件Prog1.frm的窗体名称改为“Prog1”,窗体的标题为“排序”。
两个标签Label1和Label2(标题分别为“排序之前”和“排序之后”);
两个列表框List1和List2;
三个命令按钮(均为默认名称,标题分别为“读取数据”、“排序”和“写入文件”),如图所示。
(3)要求:
程序运行后
(1)单击“读取数据”按钮,读入“in
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- vb 上机 考试 操作