10年下模拟试题.docx
《10年下模拟试题.docx》由会员分享，可在线阅读，更多相关《10年下模拟试题.docx（47页珍藏版）》请在冰豆网上搜索。
10年下模拟试题
第一套
参考代码如下：
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
Prog1.bas文件如下：
OptionExplicit
Subputdata（t_FileNameAsString,t_StrAsVariant）
DimsFileAsString
sFile="\"&t_FileName
OpenApp.Path&sFileForOutputAs#1
Print#1,t_Str
Close#1
EndSub
本题可以用双重循环来实现该数列的求和计算。
外循环用于求和，内循环计算某项的分母。
参考代码如下:
DimsAsSingle,nAsInteger,tAsSingle,iAsInteger
PrivateSubC1_Click（）
s=1
n=1
Do
n=n+1
t=1
Fori=1To2*n-1
t=t*i'计算阶乘
Nexti
s=s+（-1）^（n-1）/t'求和
LoopUntil1/t<0.00001'外循环结束条件
Text1.Text=s
EndSub
PrivateSubC2_Click（）
Callputdata（"kssj.dat",Text1.Text）
'调用putdata过程把结果写入文件
EndSub
操作步骤如下：
1.打开考生文件夹中的工程Menu1.Vbp。
2.单击“工具”菜单的“菜单编辑器”命令，打开“菜单编辑器”窗口。
3.在“标题”栏中输入菜单项的标题“控制（&C）”，在“名称”栏中输入菜单项的名称“控制”。
4.单击“下一个”按钮，再单击“→”按钮，使用与步骤3相似的方法输入下级菜单项“播放”；使用类似的操作，输入如下所示的菜单：
控制（C）数据处理
播放计算
──────
退出Ctrl+X
5.说明：
在“退出”菜单项的“快捷键”下拉列表框中选择“Ctrl+X”。
6.单击“工程”菜单的“添加文件”命令，将考生文件夹下的“CDMK.Bas”文件添加到本工程。
CDMK.Bas文件如下：
'下列程序的功能是：
编写程序计算S的近似值，直到最后一项的绝对值小于0.0001为止。
'其中：
S=1-1/2+1/3-1/4+……+（-1）^（k+1）/k
PublicSubCalculate（）
DimsAsSingle,kAsInteger
s=1
k=1
Do
'*****question*****'循环变量增加1
k=______参考答案：
k=k+1
s=s+（-1）^（k+1）/k
'*****question*****'循环条件
LoopUntil______参考答案：
LoopUntil1/k<0.0001
Menu1.Prints
EndSub
7.添加如下所示的菜单事件过程代码：
PrivateSub退出_Click（）
End
EndSub
PrivateSub计算_Click（）
calculate
EndSub
8.调试运行并保存工程，然后单击“文件”菜单的“生成Menu1.exe”命令，生成可执行程序：
Menu1.exe。
第二套
参考代码如下：
PrivateSubHScroll1_Scroll（IndexAsInteger）
Text1（Index）.Text=HScroll1（Index）.Value
Picture1.BackColor=RGB（HScroll1（0）.Value,HScroll1
（1）.Value,HScroll1
（2）.Value）
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.在“标题”栏中输入菜单项的标题“播放（&P）”，在“名称”栏中输入菜单项的名称“播放”。
4.单击“下一个”按钮，再单击“→”按钮，使用与步骤3相似的方法输入下级菜单项“打开”；使用类似的操作，输入如下所示的菜单：
播放（P）数据处理
打开计算
──────
退出Ctrl+X
5.说明：
在“退出”菜单项的“快捷键”下拉列表框中选择“Ctrl+X”。
6.单击“工程”菜单的“添加模块”命令，将考生文件夹下的“CDMK.Bas”文件添加到本工程。
'下列程序的功能是：
在窗体上打印九九乘法表。
“CDMK.Bas”文件如下：
PublicSubcalculate（）
DimcharAsString
DimiAsInteger,jAsInteger
Menu1.Print
Menu1.PrintTab（33）;"九九乘法表"'打印标题
Menu1.PrintTab（31）;"***************"
Fori=1To9
'*****question*****'内循环下限
Forj=______To9参考答案：
Forj=iTo9
'*****question*****'打印
char=j&"×"&______&"="&（i*j）参考答案：
char=j&"×"&i&"="&（i*j）
Menu1.PrintTab（（j-1）*8+2）;char;
Nextj
Nexti
EndSub
7.添加如下所示的菜单事件过程代码：
PrivateSub退出_Click（）
End
EndSub
PrivateSub计算_Click（）
calculate
EndSub
8.调试运行并保存工程，然后单击“文件”菜单的“生成Menu1.exe”命令，生成可执行程序：
Menu1.exe。
第三套
参考代码如下：
DimYAsInteger
'定义模块级变量y
PrivateSubForm_Load（）
Y=50
EndSub
PrivateSubTimer1_Timer（）
Shape1.Top=Shape1.Top+Y
'改变球的位置
IfShape1.Top<=0ThenY=100
'如果球到顶部
IfShape1.Top>Me.HeightThenY=-100
'如果球到底部
EndSub
PrivateSubVScroll1_Scroll（）
'用滚动条的Value值来控制计时器的时间间隔
Timer1.Interval=VScroll1.Value
EndSub
putdata过程如下：
Subputdata（t_FileNameAsString,t_StrAsVariant）
DimsFileAsString
sFile="\"&t_FileName
OpenApp.Path&sFileForOutputAs#1
Print#1,t_Str
Close#1
EndSub
Getdata过程如下：
Subgetdata（t_FileNameAsString,t_StrAsVariant）'读文件函数
DimsFileAsString,StrnameAsString
sFile="\"&t_FileName
OpenApp.Path&sFileForInputAs#1
DoWhileNotEOF
（1）
LineInput#1,Strname
t_Str=t_Str&Strname&Chr（13）&Chr（10）
Loop
Close#1
EndSub
参考代码如下:
DimSAsInteger
DimStrAsString
PrivateSubC1_Click（）
Callgetdata（"ini.txt",Str）'调用getdata过程读入数据
Text1.Text=Str'把数据显示在Text1中
EndSub
PrivateSubC2_Click（）
DimLAsInteger
DimiAsInteger
S=0
L=Len（Str）
'统计and出现的次数
Fori=1ToL-2
IfMid（Str,i,3）="and"Then
S=S+1
EndIf
Nexti
Text2.Text=S
EndSub
PrivateSubC3_Click（）
putdata"kssj.dat",S
'把统计结果写入kssj.dat文件
EndSub
操作步骤如下：
1.打开考生文件夹中的工程Menu1.Vbp。
2.单击“工具”菜单的“菜单编辑器”命令，打开“菜单编辑器”窗口。
3.在“标题”栏中输入菜单项的标题“插入（&C）”，在“名称”栏中输入菜单项的名称“插入”。
4.单击“下一个”按钮，再单击“→”按钮，使用与步骤3相似的方法输入下级菜单项“页码”；使用类似的操作，输入如下所示的菜单：
插入（C）数据处理
页码计算
──────
退出Ctrl+X
5.说明：
在“退出”菜单项的“快捷键”下拉列表框中选择“Ctrl+X”。
6.单击“工程”菜单的“添加文件”命令，将考生文件夹下的“CDMK.bas”文件添加到本工程。
该模块的功能是：
删除数组a（）中指定的某个元素。
填空的参考答案如下：
PublicSubcalculate（）
DimaAsVariant
DimiAsInteger,jAsInteger
DimkeyAsInteger
a=Array（1,6,8,3,5,9,10,2,7,4）
key=Val（InputBox（"输入要删除的值"））
Fori=0ToUBound（a）
'*****question*****'比较是否是要删除的数
Ifkey=______Then参考答案：
Ifkey=a（i）Then
Forj=i+1ToUBound（a）
'*****question*****'找到后，后面的元素都前移1，实现删除
a（j-1）=______参考答案：
a（j-1）=a（j）
Nextj
ReDimPreservea（UBound（a）-1）
MsgBox（"删除成功"）
ExitSub
EndIf
Nexti
MsgBox（"找不到要删除的元素"）
EndSub
7.添加如下所示的菜单事件过程代码：
PrivateSub退出_Click（）
End
EndSub
PrivateSub计算_Click（）
calculate
EndSub
8.调试运行并保存工程，然后单击“文件”菜单的“生成Menu1.exe”命令，生成可执行程序：
Menu1.exe。
第四套
参考代码如下:
DimnAsInteger'模块级变量，用于保存产生的随机数
PrivateSubCommand1_Click（）
n=Int（Rnd*900+100）
Text1.Text=n
Command2.Enabled=True
EndSub
PrivateSubCommand2_Click（）
IfnMod2=0Then
Label2.Caption=n&"是偶数"
Else
Label2.Caption=n&"是奇数"
EndIf
Command2.Enabled=False
EndSub
PrivateSubForm_Load（）
Randomize
EndSub
参考代码如下：
PrivateSubCommand1_Click（）
DimsAsInteger
Callgetdata'调用getdata过程读入数据
s=0
Fori=1ToN
List1.AddItemA（i）
'把数组A的所有元数添加到列表框
IfA（i）Mod2<>0Thens=s+1
'统计奇数个数
Nexti
Text1.Text=s'在文本框中显示奇数个数
EndSub
PrivateSubCommand2_Click（）
Callputdata（"kssj.dat",Text1.Text）
'调用putdata过程把计算结果写入结果文件
EndSub
操作步骤如下：
1.打开考生文件夹中的工程Menu1.Vbp。
2.单击“工具”菜单的“菜单编辑器”命令，打开“菜单编辑器”窗口。
3.在“标题”栏中输入菜单项的标题“插入（&C）”，在“名称”栏中输入菜单项的名称“插入”。
4.单击“下一个”按钮，再单击“→”按钮，使用与步骤3相似的方法输入下级菜单项“分隔符”；使用类似的操作，输入如下所示的菜单：
插入（C）数据处理
分隔符计算
──────
退出Ctrl+X
5.说明：
在“退出”菜单项的“快捷键”下拉列表框中选择“Ctrl+X”。
6.单击“工程”菜单的“添加文件”命令，将考生文件夹下的“CDMK.bas”文件添加到本工程。
该模块的功能是：
将一个数插入到一个递减数列中，插入后使该数列仍然有序。
填空的参考答案如下：
PublicSubcalculate（）
DimaAsVariant
DimiAsInteger,jAsInteger
DimnAsInteger,mAsInteger
a=Array（19,17,15,13,11,9,7,6,3,1）
n=UBound（a）
ReDimPreservea（n+1）
m=Val（InputBox（"输入欲插入的数"））
Fori=UBound（a）-1To0Step-1
Ifm>=a（i）Then
'*****question*****'寻找插入的位置
a（i+1）=______参考答案：
a（i+1）=a（i）
Ifi=0Thena（i）=m
Else
'*****question*****'新数据找到插入的位置，插到数组中
a（i+1）=______参考答案：
a（i+1）=m
ExitFor
EndIf
Nexti
Fori=0ToUBound（a）'显示插入后的数列
Menu1.Printa（i）
Nexti
EndSub
7.添加如下所示的菜单事件过程代码：
PrivateSub退出_Click（）
End
EndSub
PrivateSub计算_Click（）
calculate
EndSub
8.调试运行并保存工程，然后单击“文件”菜单的“生成Menu1.exe”命令，生成可执行程序：
Menu1.exe。
第五套
将文本框Text1的MultiLine属性值设为True，ScrollBars属性值设为3，Locked属性值设为True。
参考代码如下：
'“编辑”过程代码
PrivateSubCommand1_Click（）
Text1.Locked=False
EndSub
'“只读”过程代码
PrivateSubCommand2_Click（）
Text1.Locked=True
EndSub
'“显示”过程代码
PrivateSubCommand3_Click（）
Text1.PasswordChar=""
EndSub
'“掩码”过程代码
PrivateSubCommand4_Click（）
Text1.PasswordChar="*"
EndSub
参考程序如下：
DimsAsInteger
PrivateSubCommand1_Click（）
s=0
Fori=3To99Step2'只考虑奇数
Forj=2ToSqr（i）
IfiModj=0ThenExitFor
Nextj
Ifj>Sqr（i）Then
s=s+i
EndIf
Nexti
Text1.Text=CStr（s）'把s转换成字符再赋值到Text1中
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”文件添加到本工程。
该模块的功能是：
随机产生15个不重复的大写英文字母。
填空的参考答案如下：
PublicSubcalculate（）
Dims（1To15）AsString,cAsString
DimnAsInteger,jAsInteger,yesAsInteger
Forn=1To15
Do
'*****question*****'随机产生一个大写字母
c=Chr（______）参考答案：
c=Chr（Int（Rnd*26+65））
yes=0
Forj=1Ton-1
Ifs（j）=cThenyes=1:
ExitFor
Nextj
LoopUntilyes=0
'*****question*****'没有重复的则加入数组中
s（n）=______参考答案：
s（n）=c
Nextn
Menu1.Print"15个字母是：
"
Forj=1To15
Menu1.Prints（j）;"";
Nextj
EndSub
7.添加如下所示的菜单事件过程代码：
PrivateSub退出_Click（）
End
EndSub
PrivateSub计算_Click（）
calculate
EndSub
8.调试运行并保存工程，然后单击“文件”菜单的“生成Menu1.exe”命令，生成可执行程序：
Menu1.exe。
第六套
参考代码如下:
PrivateSubCommand1_Click（）
List1.Clear
IfCheck1.Value=1ThenList1.AddItemCheck1.Caption
IfCheck2.Value=1ThenList1.AddItemCheck2.Caption
IfCheck3.Value=1ThenList1.AddItemCheck3.Caption
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.单击“下一个”按钮，再单击“→”
升级会员 