计算机VB大题训练集Word下载.docx
- 文档编号:21334476
- 上传时间:2023-01-29
- 格式:DOCX
- 页数:28
- 大小:225.60KB
计算机VB大题训练集Word下载.docx
《计算机VB大题训练集Word下载.docx》由会员分享,可在线阅读,更多相关《计算机VB大题训练集Word下载.docx(28页珍藏版)》请在冰豆网上搜索。
-1000ThenLabel1.Left=10000
2.在考生文件夹中,完成以下要求:
(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的值)。
运行后如图所示:
a
(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()
Ifright(filee1.path,1)="
\"
then
Strpath=file1.path&
file1.filename
Else
Endif
Image1.Picture=LoadPicture(strpath)
4.在考生文件夹中,完成以下要求:
一个标签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)
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
IfList1.ListIndex<
-1Then
List1.RemoveItemList1.ListIndex
PrivateSubForm_Activate()
Text1.SetFocus
Command2.Enabled=True
PrivateSubText1_Click()
Command1.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
7.在考生文件夹中,完成以下要求:
(1)启动工程文件Sjt.vbp,将该工程文件的工程名称改为“Spks”,并将该工程中的窗体文件Sjt.frm的窗体名称改为“Vbbc”。
(2)请在窗体适当位置添加控件:
一个标签Label1,标题为“字体”且自动调整大小,一个组合框Combo1;
一个文本框text1,文本内容为“计算机水平考试”,居中显示;
一个框架Frame1标题为“颜色”;
两个单选按钮在框架Frame1中,Option1标题为“红色”,Option2标题为“蓝色”。
(3)窗体装载事件中编写代码,为组合框添加三个选项:
“隶书”,“黑体”,“宋体”,且默认选项为“隶书”;
程序运行时,选中组合框某项,相应改变文本框中的字体;
选中某个单选按钮,相应改变文本框中字体的颜色;
程序运行界面如下图所示:
(4)请调试、运行,然后将工程、窗体保存。
参考代码如下:
PrivateSubCombo1_Click()
Text1.FontName=Combo1.Text
Combo1.AddItem"
隶书"
黑体"
宋体"
Combo1.ListIndex=0
Text1.ForeColor=RGB(255,0,0)
'
或者使用下面的语句
Text1.ForeColor=vbRed
Text1.ForeColor=RGB(0,0,255)
Text1.ForeColor=vbBlue
8.在考生文件夹中,完成以下要求:
一个标签Label1,标题为“请输入一个自然数”,自动调整大小;
一个文本框text1,文本内容为空且Tabindex属性值为0;
一个命令按钮Command1,标题为“添加”;
(3)按要求编写代码:
程序运行时,在文本框中输入一个自然数,单击“添加”按钮时,首先清除列表中的内容,然后在列表框中列出小于等于该自然数的所有偶数。
PrivateSubCommand1_click()
List1.Clear
x=Val(Text1.Text)
Fori=2toxStep2
List1.AddItemi
Nexti
五、简单应用题(每套试卷有1个简单应用题,每题20分)
所建工程得分:
4分
10分
生成.exe文件:
2分
生成答案文件:
4分
编程题满分:
20分
(1)启动工程文件Prog1.Vbp,将该工程文件的工程名称改为“Spks”,并将该工程中的窗体文件Prog1.frm的窗体名称改为“Prog1”,窗体的标题为“数据计算”。
(2)请在窗体适当位置增加以下控件:
一个标签Label1,标题为“计算结果”;
一个文本框Text1;
两个命令按钮(名称分别为C1和C2,标题分别为“计算”和“保存”),如图所示。
(3)编写程序计算S的近似值,直到最后一项的绝对值小于10-5为止(要求将存放结果的变量类型定义成单精度浮点型)。
(4)要求程序运行后,单击“计算”按钮,计算并将结果显示在文本框中;
最后单击“保存”按钮,将结果存入考生文件夹中的文件“kssj.dat”中。
(5)在考生文件夹下有标准模块Prog1.bas,其中的Putdata过程可以把结果存入指定的文件,要求把这个模块文件添加到当前的工程中,直接调用该过程。
(6)请先将工程、窗体与模块保存,然后调试、运行并生成可执行文件:
Prog1.exe。
您的编程题模块设计如下:
(题中已在标准模块给出的代码)
OptionExplicit
Subputdata(t_FileNameAsString,t_StrAsVariant)
DimsFileAsString
sFile="
t_FileName
OpenApp.Path&
sFileForOutputAs#1
Print#1,t_Str
Close#1
(要求考生编写代码部分)
DimNasInteger,IasInteger
DimSasSingle,TasSingle
PrivateSubC1_Click()
S=1
N=1
Do
N=N+2
T=1
ForI=1ToN
T=T*I
NextI
S=S+1/T
LoopUntil1/T<
0.0000001
Text1.Text=S
PrivateSubC2_Click()
Callputdata("
kssj.dat"
S)
(1)启动工程文件Prog1.Vbp,将该工程文件的工程名称改为“Spks”,并将该工程中的窗体文件Prog1.frm的窗体名称改为“Prog1”,窗体的标题为“字符串个数”。
文本框1(名称为Text1,Multiline属性为True,ScrollBars属性为2);
文本框2(名称为Text2)和三个命令按钮(名称分别为C1、C2和C3,标题分别为“读入数据”、“显示结果”和“保存”),如图所示。
(3)要求程序运行后,单击“读入数据”按钮,读入“ini.txt”文件中的内容,同时在文本框text1中显示出来;
然后单击“显示结果”按钮,统计出字符串“and”出现的次数,并把结果在文本框Text2中显示出来;
最后单击“保存”按钮,把该结果(Text2的值)存入考生文件夹中的文件“kssj.dat”中。
(4)在考生文件夹下有标准模块Prog1.bas,其中的getdata过程可以读出文件“ini.txt”中的内容,Putdata过程可以把结果存入指定的文件,要求把这个模块文件添加到当前工程中,直接调用过程。
(5)请先将工程、窗体与模块保存,然后调试、运行并生成可执行程序:
Subgetdata(t_FileNameAsString,t_StrAsVariant)'
读文件函数
DimsFileAsString,StrnameAsString
sFileForInputAs#1
DoWhileNotEOF
(1)
LineInput#1,strname
t_Str=t_Str&
strname&
chr(13)&
chr(10)
Loop
参考程序如下:
DimCount1AsInteger
Callgetdata("
ini.txt"
Str1)
Text1.Text=Str1
DimLen1AsInteger
DimiAsInteger
DimStr1AsString
Str1=Text1.Text
i=1
Len1=Len(Text1.Text)
Fori=1ToLen1-3
IfMid(Str1,i,3)="
and"
Count1=Count1+1
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
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 计算机 VB 训练