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