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