10年下模拟试题.docx
- 文档编号:5427001
- 上传时间:2022-12-16
- 格式:DOCX
- 页数:47
- 大小:1.12MB
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.单击“下一个”按钮,再单击“→”
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 10 年下 模拟 试题