计算机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分）
所建工程得分：
４分
１0分
生成.exe文件：
２分
生成答案文件：
４分
编程题满分：
２０分
（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
升级会员 