上半年VB8套题.docx
《上半年VB8套题.docx》由会员分享，可在线阅读，更多相关《上半年VB8套题.docx（27页珍藏版）》请在冰豆网上搜索。
上半年VB8套题
2015上半年第一套
参考代码如下：
PrivateSubCommand1_Click（）
IfText1.Text="ABC"Then
MsgBox"登录成功"
Else
MsgBox"密码错误"
EndIf
EndSub
PrivateSubForm_Load（）
Combo1.AddItem"张小三"
Combo1.AddItem"李四"
Combo1.AddItem"欧阳玉荣"
EndSub
参考代码如下：
OptionBase1
DimA（6,6）AsInteger,IAsInteger,JAsInteger,SAsInteger
PrivateSubC1_Click（）
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.打开考生文件夹中的工程Menu1.Vbp。
2.单击“工具”菜单的“菜单编辑器”命令，打开“菜单编辑器”窗口。
3.在“标题”栏中输入菜单项的标题“视图（&V）”，在“名称”栏中输入菜单项的名称“视图”。
4.单击“下一个”按钮，再单击“→”按钮，使用与步骤3相似的方法输入下级菜单项“普通”；使用类似的操作，输入如下所示的菜单：
视图（V）数据处理
普通计算
──────
退出Ctrl+X
5.说明：
在“退出”菜单项的“快捷键”下拉列表框中选择“Ctrl+X”。
6.单击“工程”菜单的“添加文件”命令，将考生文件夹下的“CDMK.bas”文件添加到本工程。
该模块的功能是：
编写程序，求出所有小于或等于100的自然数对。
填空的参考答案如下：
'*****question*****
a=i+j
'*****question*****
IfSqr（a）=Int（Sqr（a））AndSqr（b）=Int（Sqr（b））Then
7.添加如下所示的菜单事件过程代码：
PrivateSub退出_Click（）
End
EndSub
PrivateSub计算_Click（）
calculate
EndSub
8.调试运行并保存工程，然后单击“文件”菜单的“生成Menu1.exe”命令，生成可执行程序：
Menu1.exe。
2015上半年第二套
参考代码如下：
PrivateSubForm_Load（）'窗体装载过程
Combo1.AddItem"+"'在组合框中添加"+"、"-"号
Combo1.AddItem"-"
EndSub
PrivateSubCommand1_Click（）
DimSAsSingle,AAsSingle,BAsSingle
'变量s用于保存计算结果
A=Val（Text1.Text）
B=Val（Text2.Text）
SelectCaseCombo1.Text
Case"+"
S=A+B
Case"-"
S=A-B
EndSelect
Text3.Text=S'将计算结果显示在文本框text3中
EndSub
参考代码如下:
DimKAsInteger,IAsInteger,SAsSingle,TAsSingle
PrivateSubC1_Click（）
S=1:
K=1
Do
K=K+2
T=1
ForI=1ToK
T=T*I
NextI
S=S+1/T
LoopUntil1/T<0.000001
Text1.Text=S
EndSub
PrivateSubC2_Click（）
Callputdata（"kssj.dat",S）
EndSub
操作步骤如下：
1.打开考生文件夹中的工程Menu1.Vbp。
2.单击“工具”菜单的“菜单编辑器”命令，打开“菜单编辑器”窗口。
3.在“标题”栏中输入菜单项的标题“页面设置（&S）”，在“名称”栏中输入菜单项的名称“页面设置”。
4.单击“下一个”按钮，再单击“→”按钮，使用与步骤3相似的方法输入下级菜单项“纸张大小”，并在“复选”前打勾；使用类似的操作，输入如下所示的菜单：
页面设置（S）数据处理
√纸张大小计算
√页边距
退出
5.说明：
在“纸张大小”、“页边距”单项的“复选”前打勾。
6.单击“工程”菜单的“添加模块”命令，将考生文件夹下的“CDMK.bas”文件添加到本工程。
该模块中的calculate过程的功能是：
根据泰勒级数计算e=1+1/1!
+1/2!
+1/3!
+…，当第i项的值小于10^-5时结束。
填空的参考答案如下：
'*****question*****
f=f+y
'*****question*****
LoopUntily<10^-5
7.添加如下所示的菜单事件过程代码：
PrivateSub退出_Click（）
End
EndSub
PrivateSub计算_Click（）
calculate
EndSub
8.调试运行并保存工程，然后单击“文件”菜单的“生成Menu1.exe”命令，生成可执行程序：
Menu1.exe。
2015上半年第三套
参考代码如下:
PrivateSubHScroll1_Scroll（）
Label1.FontSize=HScroll1.Value
Label2.Caption="字体大小="&HScroll1.Value
EndSub
PrivateSubText1_Change（）
Label1.Caption=Text1.Text
EndSub
参考代码如下：
DimsumAsInteger,str1AsString
PrivateSubC1_Click（）
Callgetdata（"INI.TXT",str1）
Text1.Text=str1
EndSub
PrivateSubC2_Click（）
DimcAsString,iAsInteger
sum=0
Fori=1ToLen（str1）
c=Mid（str1,i,1）
Ifc>="A"Andc<="Z"Then
sum=sum+1
EndIf
Nexti
Text2.Text=Str（sum）
EndSub
PrivateSubC3_Click（）
Callputdata（"kssj.dat",sum）
EndSub
操作步骤如下：
1.打开考生文件夹中的工程Menu1.Vbp。
2.单击“工具”菜单的“菜单编辑器”命令，打开“菜单编辑器”窗口。
3.在“标题”栏中输入菜单项的标题“播放（&P）”，在“名称”栏中输入菜单项的名称“播放”。
4.单击“下一个”按钮，再单击“→”按钮，使用与步骤3相似的方法输入下级菜单项“打开”；使用类似的操作，输入如下所示的菜单：
播放（P）数据处理
打开计算
──────
退出Ctrl+X
5.说明：
在“退出”菜单项的“快捷键”下拉列表框中选择“Ctrl+X”。
6.单击“工程”菜单的“添加文件”命令，将考生文件夹下的“CDMK.Bas”文件添加到本工程。
该模块的功能是：
在窗体上打印金字塔图形。
填空的参考答案如下：
'*****question*****
menu1.PrintChr（64+j）;
'*****question*****
Forj=i-1To1Step-1
7.添加如下所示的菜单事件过程代码：
PrivateSub退出_Click（）
End
EndSub
PrivateSub计算_Click（）
calculate
EndSub
8.调试运行并保存工程，然后单击“文件”菜单的“生成Menu1.exe”命令，生成可执行程序：
Menu1.exe。
2015上半年第四套
参考代码如下:
PrivateSubCombo1_Click（）
Text1.FontName=Combo1.Text
EndSub
PrivateSubForm_Load（）
Combo1.AddItem"宋体"
Combo1.AddItem"黑体"
Combo1.ListIndex=0
EndSub
PrivateSubOption1_Click（）
Text1.ForeColor=vbRed
EndSub
PrivateSubOption2_Click（）
Text1.ForeColor=vbBlue
EndSub
排序的方法有多种，下面给出冒泡排序的算法，其它排序算法请参考有关书籍。
参考代码如下:
PrivateSubCommand1_Click（）
DimiAsInteger
getdata'调用Getdata过程，读取数据
Fori=1To50
'将数组中的数据添加到List1中
List1.AddItemA（i）
Nexti
EndSub
PrivateSubCommand2_Click（）
'以下为冒泡排序算法
DimiAsInteger,jAsInteger
Fori=1To50
Forj=1To50-i
IfA（j）t=A（j）
A（j）=A（j+1）
A（j+1）=t
EndIf
Nextj
Nexti
Fori=1To50
List2.AddItemA（i）
Nexti
EndSub
PrivateSubCommand3_Click（）
putdata"kssj.dat"
EndSub
操作步骤如下：
1.打开考生文件夹中的工程Menu1.Vbp。
2.单击“工具”菜单的“菜单编辑器”命令，打开“菜单编辑器”窗口。
3.在“标题”栏中输入菜单项的标题“文件（&F）”，在“名称”栏中输入菜单项的名称“文件”。
4.单击“下一个”按钮，再单击“→”按钮，使用与步骤3相似的方法输入下级菜单项“打开”；使用类似的操作，输入如下所示的菜单：
文件（F）数据处理
打开计算
──────
退出Ctrl+X
5.说明：
在“退出”菜单项的“快捷键”下拉列表框中选择“Ctrl+X”。
6.单击“工程”菜单的“添加模块”命令，将考生文件夹下的“CDMK.bas”文件添加到本工程。
该模块中的calculate过程的功能是：
调用Trial函数计算一个三角形的面积，并显示在窗体上。
填空的参考答案如下：
'*****question*****
Ifx+y>zAndy+z>xAndx+z>yThen
'*****question*****
area=Tria（x,y,z）
7.添加如下所示的菜单事件过程代码：
PrivateSub退出_Click（）
End
EndSub
PrivateSub计算_Click（）
calculate
EndSub
8.调试运行并保存工程，然后单击“文件”菜单的“生成Menu1.exe”命令，生成可执行程序：
Menu1.exe。
2015上半年第五套
参考代码如下:
PrivateSubCommand1_Click（）
IfCommand1.Caption="开始"Then
Timer1.Enabled=True
Command1.Caption="暂停"
Else
Timer1.Enabled=False
Command1.Caption="开始"
EndIf
EndSub
PrivateSubTimer1_Timer（）
Text1.Text=Time（）
EndSub
参考代码如下:
PrivateSubCommand1_Click（）
DimF（30）AsLong
DimiAsInteger
Cls
F
（1）=1:
F
（2）=1
Fori=3To30'计算数列的3至30项
F（i）=F（i-2）+F（i-1）
Nexti
Fori=1To30
PrintF（i）;
IfiMod5=0ThenPrint
'每打印5个数后换行
Nexti
Text1.Text=F（30）
EndSub
PrivateSubCommand2_Click（）
putdata"kssj.dat",Text1.Text
'调用putdata把第30项写入文件
EndSub
操作步骤如下：
1.打开考生文件夹中的工程Menu1.Vbp。
2.单击“工具”菜单的“菜单编辑器”命令，打开“菜单编辑器”窗口。
3.在“标题”栏中输入菜单项的标题“插入（&C）”，在“名称”栏中输入菜单项的名称“插入”。
4.单击“下一个”按钮，再单击“→”按钮，使用与步骤3相似的方法输入下级菜单项“对象”；使用类似的操作，输入如下所示的菜单：
插入（C）数据处理
对象计算
──────
退出Ctrl+X
5.说明：
在“退出”菜单项的“快捷键”下拉列表框中选择“Ctrl+X”。
6.单击“工程”菜单的“添加文件”命令，将考生文件夹下的“CDMK.bas”文件添加到本工程。
该模块的功能是：
调用判别素数的函数将100～120之间的偶数拆分成两个素数之和。
填空的参考答案如下：
'*****question*****
Forn=100To120Step2
'*****question*****
IfxModi=0Then
7.添加如下所示的菜单事件过程代码：
PrivateSub退出_Click（）
End
EndSub
PrivateSub计算_Click（）
calculate
EndSub
8.调试运行并保存工程，然后单击“文件”菜单的“生成Menu1.exe”命令，生成可执行程序：
Menu1.exe。
2015上半年第六套
参考代码如下:
PrivateSubDir1_Change（）
File1.Path=Dir1.Path
EndSub
PrivateSubDrive1_Change（）
Dir1.Path=Drive1.Drive
EndSub
PrivateSubFile1_Click（）
Image1.Picture=LoadPicture（File1.Path&"\"&File1.FileName）
EndSub
算法要点：
1、数制转换：
相应的系数乘权值相加。
2、判断是否为八进制数：
看输入的字符是否为“0～7”
参考程序如下：
PrivateSubCommand1_Click（）
DimsAsInteger,nAsInteger,iAsInteger
n=Len（Text1.Text）
s=0
Fori=nTo1Step-1
s=s+Val（Mid（Text1.Text,i,1））*8^（n-i）
Nexti
Text2.Text=s
EndSub
PrivateSubCommand2_Click（）
Putdata"kssj.dat",Text2.Text
EndSub
PrivateSubText1_KeyPress（KeyAsciiAsInteger）
If（Chr（KeyAscii）<"0"OrChr（KeyAscii）>"7"）Then
MsgBox"错误！
输入内容非八进制数"
KeyAscii=0
EndIf
EndSub
操作步骤如下：
1.打开考生文件夹中的工程Menu1.Vbp。
2.单击“工具”菜单的“菜单编辑器”命令，打开“菜单编辑器”窗口。
3.在“标题”栏中输入菜单项的标题“插入（&C）”，在“名称”栏中输入菜单项的名称“插入”。
4.单击“下一个”按钮，再单击“→”按钮，使用与步骤3相似的方法输入下级菜单项“引用”；使用类似的操作，输入如下所示的菜单：
插入（C）数据处理
引用计算
──────
退出Ctrl+X
5.说明：
在“退出”菜单项的“快捷键”下拉列表框中选择“Ctrl+X”。
6.单击“工程”菜单的“添加文件”命令，将考生文件夹下的“CDMK.bas”文件添加到本工程。
该模块的功能是：
找出1000～9999中满足倒序后得到的数字是原数字倍数的数。
填空的参考答案如下：
'*****question*****
m=m*10+nMod10
'*****question*****
IfmModi=0Andm\i>1Then
7.添加如下所示的菜单事件过程代码：
PrivateSub退出_Click（）
End
EndSub
PrivateSub计算_Click（）
calculate
EndSub
8.调试运行并保存工程，然后单击“文件”菜单的“生成Menu1.exe”命令，生成可执行程序：
Menu1.exe。
2015上半年第七套
参考代码如下:
PrivateSubCommand1_Click（）
DimxAsInteger,iAsInteger
List1.Clear
x=Val（Text1.Text）
Fori=1Tox
IfiMod2=0Then
List1.AddItemi
EndIf
Nexti
EndSub
参考代码如下：
PrivateSubCommand1_Click（）
Fori=100To150
IfiMod4=2AndiMod5=3AndiMod6=0Then
'根据题意求小球数除4余2、除5余3，并且能被6整除
Text1.Text=i
EndIf
Nexti
EndSub
PrivateSubCommand2_Click（）
Callputdata（"kssj.dat",Text1.Text）
EndSub
操作步骤如下：
1.打开考生文件夹中的工程Menu1.Vbp。
2.单击“工具”菜单的“菜单编辑器”命令，打开“菜单编辑器”窗口。
3.在“标题”栏中输入菜单项的标题“插入（&C）”，在“名称”栏中输入菜单项的名称“插入”。
4.单击“下一个”按钮，再单击“→”按钮，使用与步骤3相似的方法输入下级菜单项“文件”；使用类似的操作，输入如下所示的菜单：
插入（C）数据处理
文件计算
──────
退出Ctrl+X
5.说明：
在“退出”菜单项的“快捷键”下拉列表框中选择“Ctrl+X”。
6.单击“工程”菜单的“添加文件”命令，将考生文件夹下的“CDMK.Bas”文件添加到本工程。
该模块的功能是：
使5×5数组的主、副对角线元素为1，其余为0。
填空的参考答案如下：
'*****question*****
Ifi=jOri+j=4Then
'*****question*****
a（i,j）=0
7.添加如下所示的菜单事件过程代码：
PrivateSub退出_Click（）
End
EndSub
PrivateSub计算_Click（）
calculate
EndSub
8.调试运行并保存工程，然后单击“文件”菜单的“生成Menu1.exe”命令，生成可执行程序：
Menu1.exe。
2015上半年第八套
参考代码如下:
DimnAsInteger
PrivateSubCommand1_Click（）
n=Int（Rnd*90+10）
Text1.Text=n
EndSub
PrivateSubCommand2_Click（）
IfSqr（n）=Int（Sqr（n））Then
Label2.Caption=n&"的平方根是整数"
Else
Label2.Caption=n&"的平方根不是整数"
EndIf
EndSub
PrivateSubForm_Load（）
Randomize
EndSub
参考代码如下：
DimaAsInteger,bAsInteger,minAsInteger
DimmaAsInteger,mbAsInteger,rAsInteger
PrivateSubC1_Click（）
min=19
Fora=0To135/19
Forb=0To135/23
r=135-a*19-b*23
Ifr=0Then
min=r
ma=a
mb=b
EndIf
Nextb
Nexta
Text1.Text=ma
Text2.Text=mb
EndSub
PrivateSubC2_Click（）
putdata"kssj.dat",ma,mb
EndSub
putdata过程的作用是打开指定的文件，进行写操作。
该过程有3个参数，一个是欲打开的文件名，另外两个是要保存的数据。
这里按题目要求，指定的文件名是kssj.dat，需要保存的数据是存放了19米和23米根数的两个变量m
升级会员 