简单应用与基本操作题.docx
《简单应用与基本操作题.docx》由会员分享，可在线阅读，更多相关《简单应用与基本操作题.docx（30页珍藏版）》请在冰点文库上搜索。
简单应用与基本操作题
简单应用题：
在考生文件夹中，完成以下要求
1、动工程文件prog1.vbp,将该工程文件中的工程名称改为“spks”，并将该工程中的窗体文件prog1.FRM的窗体名称改为“prog1”，窗体的标题为“数据计算”。
2、请在窗体适当位置添加以下控件：
一个标签LABEL1，标题为“计算结果”；一个文本框TEXT1，两个命令按钮（名称分别为“C1”、“C2，标题分别为“计算”和“保存”）。
窗体界面如下图所示：
3、编写程序计算S的近似值，直到最后一项的绝对值小于10-5为止（要求将存放结果的变量类型定义成单精度浮点型）。
S=1-1/3!
+1/5!
+……+（-1）n-11/（2n-1）!
4、要求程序运行后，单击“计算”按钮，计算并将结果显示在文本框中；最后单击“保存”按钮，将结果存入考生文件夹中的文件“kssj.dat”中。
5、考生文件夹下有标准模块prog1.bas，其中putdata过程可以把结果存入存入指定的文件，要求把该模块文件添加到当前工程中，直接调用该过程。
6、请先将程、窗体与模块保存，然后调试、运行并生成可执行文件：
prog1.exe。
参考程序如下：
DimKAsInteger,IAsInteger,FAsInteger，SAsSingle,TAsSingle
PrivateSubC1_Click（）
S=1:
K=1:
F=1
Do
K=K+2
T=1
ForI=1ToK
T=T*I
NextI
F=-F
S=S+F/T
LoopUntil1/T<0.00001
Text1.Text=S
EndSub
PrivateSubC2_Click（）
Callputdata（"kssj.dat",S）
EndSub
在考生文件夹中，完成以下要求
1、启动工程文件prog1.vbp,将该工程文件中的工程名称改为“spks”，并将该工程中的窗体文件prog1.FRM的窗体名称改为“prog1”。
2、请在窗体适当位置添加以下控件：
一个列表框LIST1；两个标签LABEL1、LABEL2标题分别为“平均数为“、”大于平均数的个数“；两个文本框TEXT1、TEXT2；两个命令按钮COMMAND1、COMMAND2，标题分别为：
“读数并计算”、“保存”；将窗体标题改为“求平均数”。
界面如下图所示：
3、要求程序运行后，单击“读数并计算”按钮，则读入“ini.txt”文件中的50个整数显示这些整数的平均数，在TEXT2中显示大于平均数的个数。
单击“保存”按钮将大于平均数的个数（TEXT2的值）存入考生文件夹中的文件“kssj.dat”.
4、在考生文件夹下有标准模块prog1.bas，其中getdata过程可以读出文件：
“ini.txt”中的数据，putdata过程可以把结果存入指定的文件，要求把该模块文件添加到当前工程中，直接调用该过程。
5、请先将程、窗体与模块保存，然后调试、运行并生成可执行文件：
prog1.exe。
OptionExplicit
PrivateSubCommand1_Click（）
DimsumAsSingle,iAsInteger,avgAsSingle
DimcntAsInteger'统计大于平均数的个数
Getdata
List1.Clear'清空列表框
Fori=1To50
List1.AddItemA（i）
sum=sum+A（i）
Nexti
avg=sum/50
Fori=1To50
IfA（i）>avgThen
cnt=cnt+1
EndIf
Nexti
Text1.Text=avg
Text2.Text=cnt
EndSub
PrivateSubCommand2_Click（）
CallPutdata（"kssj.dat",Text2.Text）
EndSub
1、启动工程文件“prog1.vbp”，将该文件的工程名称该为“spks”,并将该工程中的窗体文件prog1.frm的窗体名称该为“prog1”,窗体的标题为“打印矩阵.”。
2、请在窗体适当位置添加以下控件：
一个文本框（名称为text1）；两个命令按钮（名称分别为c1和c2，标题分别为“输出”和“保存”）；一个标签（名称为label1，标题为“对角线之和”）。
运行效果如下图所示：
3、编写程序，利用二维数组在窗体上输出一个6*6矩阵，该矩阵主对角线上和上三角上的元素为1，其余元素均为0（要求：
数组下界从1开始）。
要求程序运行后，单击“输出”按钮在窗体上输出如上图所示的矩阵，并求出两条对角线
元素之和，然后将其显示在文本框text1中，最后单击“保存”按钮，将数组存入考生文件
夹中的文件“kssj.Dat”中。
4、考生文件夹中有标准模块“prog1.bas”，其中的putda过程可以把指定数组存入指定的文件，考生可以把该模块文件添加到自己的工程中，直接调用该过程。
5、先将成、窗体与模块保存，然后调试、运行并生成可执行程序：
prog1.exe。
参考程序如下：
DimA（6,6）AsInteger,IAsInteger,JAsInteger,SAsIntegerInteger,
PrivateSubC1_Click（）
Print
Print
S=0
ForI=1To6
ForJ=1To6
A（I,J）=0
IfI<=JThenA（I,J）=1
IfI=JOrI+J=7ThenS=S+A（I,J）
PrintA（I,J）;"";
NextJ
Print
NextI
Text1.Text=S
EndSub
PrivateSubC2_Click（）
Callputdata（"kssj.dat",A）
EndSub
1.启动工程文件Prog1.Vbp，将该工程文件的名称改为“Spks”，并将该工程中的窗体文件Prog1.frm的窗体名称改为”Prog1”，窗体的标题改为“数据计算”。
2.请在窗体适当位置添加以下控件：
两个标签（名称分别为Label1和Label2，标题分别为“能被7整除的数”和“计算结果”）；一个列表框（名称为List1）；一个文本框（名称为Text1）；两个命令按钮（名称分别为C1和C2，标题分别为“计算”的“保存”）。
界面如下图所示：
3.编写程序，求出100~200之间所有能被7事除的数。
要求程序运行后，单击“计算”按钮，将所有能被7事整除的数显示在列表框List1中，并求出它们的和，然后将和显示在文本框中；最后单击“保存”按钮，将和存入考生文件夹中的文件Kssj.dat中。
4．在考生文件夹下有标准模块Prog1.bas，其中的Putdata过程可以把结果存入指定的文件，考生可以把该模块文件添加到自己的工程文件中，直接调用该过程。
5．请先将工程、窗体与模块保存，然后调试、运行并生成可执行文件程序：
Prog1.exe。
参考程序如下：
DimNAsInteger,SAsInteger
PrivateSubC1_Click（）
S=0
ForN=100To200
IfNMod7=0Then
S=S+N
List1.AddItemN
EndIf
NextN
Text1.Text=S
EndSub
PrivateSubC2_Click（）
Callputdata（"kssj.dat",S）
EndSub
1.启动工程文件Prog1.Vbp，将该工程文件的名称改为“Spks”，并将该工程中的窗体文件Prog1.frm的窗体名称改为”Prog1”，窗体的标题改为“分段函数”。
2.请在窗体适当位置添加以下控件：
一个文本框（名称为Text1）；两个标签（名称分别为Label1和Label2，Label1的标题为“请输入X的值：
”）；三个命令按钮（名称分别为C1、C2、C3，标题分别为“计算Y的值”、“保存结果”、“退出”）。
界面如下图所示：
3.编写程序，根据下面公式计算Y的值（要求必须使用IF语句）。
（1）计算公式为：
（2）程序运行后，用户首先在Text1中输入4.28，然后单击“计算Y的值”按钮，程序计算出Y的值，并显示在Label2中。
（3）单击“保存结果”按钮，把Y的值写入考生文件夹中的文件Kssj.dat中。
（4）单击“退出”按钮，结束程序运行。
4．在考生文件夹下有标准模块Prog1.bas，其中的Putdata过程可以把结果存入指定的文件，考生可以把该模块文件添加到自己的工程文件中，直接调用该过程。
5．请先将工程、窗体与模块保存，然后调试、运行并生成可执行文件程序：
Prog1.exe。
参考程序如下：
DimxAsSingle,yAsSingle
PrivateSubC1_Click（）
x=Val（Text1.Text）
Ifx<=0Then
y=Abs（x*（x+2））
ElseIfx<=10Then
y=Log（2*x）
Else
y=Exp（（x-1）/2）
EndIf
Label2.Caption=y
EndSub
PrivateSubc2_Click（）
Callputdata（"kssj.dat",y）
EndSub
PrivateSubC3_Click（）
End
EndSub
参考程序如下：
解法一：
DimNAsInteger,AAsInteger,BAsInteger,CAsInteger
PrivateSubC1_Click（）
ForN=100To999
A=N\100
B=（NMod100）\10
C=NMod10
IfA^3+B^3+C^3=NThen
List1.AddItemN
EndIf
NextN
EndSub
PrivateSubC2_Click（）
Callputdata（"kssj.dat",List1）
EndSub
解法二：
DimNAsInteger,AAsInteger,BAsInteger,CAsInteger
PrivateSubC1_Click（）
ForA=1To9
ForB=0To9
ForC=0To9
N=A*100+B*10+C
IfA^3+B^3+C^3=NThenList1.AddItemN
NextC
NextB
NextA
EndSub
PrivateSubC2_Click（）
Callputdata（"kssj.dat",List1）
EndSub
参考程序如下：
DimNAsInteger,SAsInteger,IAsInteger,TAsInteger
PrivateSubCommand1_Click（）
S=0
N=1
Do
T=0
ForI=1ToN
T=T+I
NextI
S=S+T
N=N+1
LoopUntilS>30000
Text1.Text=S
EndSub
PrivateSubCommand2_Click（）
Callputdata（"kssj.dat",Text1.Text）
'或者：
Callputdata（"kssj.dat",S）
EndSub
参考程序如下：
PrivateSubCommand1_Click（）
Forn=101To200Step2
f=1
Fori=2Ton-1
IfnModi=0Then
f=0:
ExitFor
EndIf
Nexti
Iff=1Thens=s+n
Nextn
Text1.Text=s
EndSub
PrivateSubCommand2_Click（）
Callputdata（"kssj.dat",Text1.Text）
EndSub
参考程序如下：
解法一：
PrivateSubCommand1_Click（）
DimF（20）AsInteger
DimiAsInteger
Cls
F
（1）=0:
F
（2）=0:
F（3）=1
Fori=4To20
F（i）=F（i-3）+F（i-2）+F（i-1）
Nexti
Fori=1To20
PrintF（i）;
IfiMod5=0Then
Print
EndIf
Nexti
Text1.Text=F（20）
EndSub
PrivateSubCommand2_Click（）
putdata"kssj.dat",Text1.Text
EndSub
解法二：
PrivateSubCommand1_Click（）
DimFAsInteger,F1AsInteger,F2AsInteger,F3AsInteger
DimiAsInteger
Cls
F1=0:
F2=0:
F3=1
PrintF1;F2;F3;
Fori=4To20
F=F1+F2+F3
F1=F2
F2=F3
F3=F
PrintF;
IfiMod5=0Then
Print
EndIf
Nexti
Text1.Text=F
EndSub
PrivateSubCommand2_Click（）
putdata"kssj.dat",Text1.Text
EndSub
参考程序如下：
PrivateSubC1_Click（）
DimaAsVariant
a=Array（13,23,65,12,56,43,90,56,73,10）
Fori=0To8Step2
s=a（i）+a（i+1）
List1.AddItems
Nexti
EndSub
PrivateSubC2_Click（）
putdata"kssj.dat"
EndSub
在考生文件夹中，完成以下要求
1、启动工程文件prog1.vbp,将该工程文件中的工程名称改为“spks”，并将该工程中的窗体文件prog1.FRM的窗体名称改为“prog1”，窗体的标题为“表达式求值”。
请在窗体适当位置添加以下控件：
3个标签（均为默认名称，标题分别为“M=”，“N=”，“M!
/（N!
（M-N）!
）=”）,3个文本框（均为默认名称,其中TEXT1和TEXT2输入相应的两个数,计算结果在TEXT3中显示）,两个命令按钮（均为默认名称，标题分别为“计算”和“保存”）。
界面如下图所示：
2、要求程序运行后
（1）分别在TEXT1和TEXT2文本框中输入10和4，然后单击“计算”按钮，计算公式“M!
/（N!
（M-N）!
）=”的结果，并将结果显示在TEXT3中。
（2）单击“保存”按钮，把计算结果存入考生文件夹中的文件“kssj.dat”中。
4、在考生文件夹下有标准模块prog1.bas，其中的putdata.bas过程可以把结果存入指定的文件，考生可以根据需要把这个模块文件添加到自己的工程中，直接调用该过程。
1、先将工程、窗体与模块保存，然后调试、运行并生成可执行文件：
prog1.exe。
参考代码如下：
PrivateSubCommand1_Click（）
DimmAsInteger,nAsInteger,sAsLong
m=Val（Text1.Text）
n=Val（Text2.Text）
s=fac（m）/（fac（n）*fac（m-n））
Text3.Text=s
EndSub
Functionfac（nAsInteger）AsLong
DimiAsInteger,tAsLong
t=1
Fori=1Ton
t=t*i
Nexti
fac=t
EndFunction
PrivateSubCommand2_Click（）
Callputdata（"kssj.dat",Text3.Text）
EndSub
说明：
本题使用了自定义函数fac，用于求解参数
基本操作题
在考生文件夹中，完成以下要求：
1.启动工程文件Sjt.Vbp，将该工程文件的工程名称改为“Spks”，并将该工程中窗体文件Sjt.frm的窗体名称改为“Vbbc”，窗体的标题为“二级VB考试”。
2.请在窗体适当位置添加以下控件：
定时器Timer1，时间间隔值为10；图片框Picture1；标签Label1放置在图片框中，标签的大小自动调整；标签Label2的标题为“快”；文本框Text1放置在图片下方；水平滚动条Hscroll1，最小值为10，最大值为1000。
3.按如下要求编写代码：
文本框中输入的字符自动显示为标签的标题；标签自动向左移动，每次移动幅度为100Twip，称出图片框后又从右边进入（提示：
编程使得当标签的left<-1000时，重置left=10000）；拖动水平滚动条时，将调整定时器的时间间隔。
运行效果如下图所示：
4.请先调度、运行，然后将工程、窗体保存。
参考程序如下：
PrivateSubHScroll1_Scroll（）
Timer1.Interval=HScroll1.Value
EndSub
PrivateSubText1_Change（）
Label1.Caption=Text1.Text
EndSub
PrivateSubTimer1_Timer（）
Label1.Left=Label1.Left-100
IfLabel1.Left<-1000ThenLabel1.Left=10000
EndSub
在考生文件夹中，完成以下要求：
5.启动工程文件Sjt.Vbp，将该工程文件的工程名称改为“Spks”，并将该工程中窗体文件Sjt.frm的窗体名称改为“Vbbc”。
6.请在窗体适当位置添加以下控件：
一个标签Label1，标题为“字体”且自动调整大小；一个组合框Combo1；一个文本框Text1，Text属性为“计算机水平考试”，居中显示；一个框架Frame1，棤为“颜色”；在框架Frame1中添加两个单选按钮（均为默认名称），标题分别为“红色”、“蓝色”。
（以上操作在属性窗口中完成）
在窗体Load事件中编写代码，为组合框添加三个选项“隶书”、“黑体”、“宋体”，全默认选项为“隶书”；程序运行时，选中组合框某项，相应改变文本框中的字体；选中某个单选按钮，相应改变文本框中的颜色。
程序运行效果如下图所示：
7.请先调度、运行，然后将工程、窗体保存。
参考程序如下：
PrivateSubCombo1_Click（）
SelectCaseCombo1.ListIndex
Case0
Text1.FontName="隶书"
Case1
Text1.FontName="黑体"
Case2
Text1.FontName="宋体"
EndSelect
EndSub
PrivateSubForm_Load（）
Combo1.AddItem"隶书"
Combo1.AddItem"黑体"
Combo1.AddItem"宋体"
Combo1.ListIndex=0
EndSub
PrivateSubOption1_Click（）
Text1.ForeColor=RGB（255,0,0）
EndSub
PrivateSubOption2_Click（）
Text1.ForeColor=RGB（0,0,255）
EndSub
在考生文件夹中，完成以下要求
1、
启动工程文件sjt.Vbp，将该工程文件的工程名称改为“spks”，并将该工程中的窗体文件sjt.frm的窗体名称该为“vbbc”。
2、请在窗体适当位置添加以下控件：
一个文本框TEXT1，其TEXT属性为空，两个命令按钮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
PrivateSubList1_Click（）
Command2.Enabled=True
EndSub
在考生文件夹中，完成以下要求
1、启动工程文件sjt.vbp,将该工程文件中的工程名称改为“spks”，并将该工程中的窗体文件SJT.FRM的窗体名称改为“VBBC”。
2、请在窗体适当位置添加以下控件：
一个驱动器列表框DRIVEL；一个目录列表框DIRL；一个文件列表框FILE，其中只显示扩展名为BMP和JPG的图片文件；一个图像框IMAGE1，其中的图片自动匹配图象框的大小。
（以上操作在属性窗口中完成）
3、编写代码使得驱动器列表框、目录列表框、文件列表框同步工作；当单击文件列表框中的某个图片文件时，图像框中显示出该图片。
运行效果如下图所示（注：
显示的图片可为机器上任意名为BMP和JPG的图片文件）。
升级会员 