计算机二级所有大题Word格式文档下载.docx
- 文档编号:18909993
- 上传时间:2023-01-02
- 格式:DOCX
- 页数:35
- 大小:295.22KB
计算机二级所有大题Word格式文档下载.docx
《计算机二级所有大题Word格式文档下载.docx》由会员分享,可在线阅读,更多相关《计算机二级所有大题Word格式文档下载.docx(35页珍藏版)》请在冰豆网上搜索。
stepx=stepy/a
EndIf
Timer1.Enabled=True
Timer1.Enabled=False
PrivateSubTimer1_Timer()
Shape1.MoveShape1.Left+stepx,Shape1.Top+stepy
3)
PrivateSubCommand2_Click()
'
需要考生编写的内容
l=Val(Text1.Text)
SelectCasel
CaseIs>
=2000
t=0.9
=1500
t=0.92
=1000
t=0.95
=500
t=0.98
CaseElse
t=1
EndSelect
y=Int(l*t*0.3)
Text2.Text=Str(y)
PrivateSubList1_Click()
Text1.Text=a(List1.ListIndex+1)
4
要求考生编写的程序
DimiAsInteger,p(5)
Fori=1To5
p(i)=getmark(i)
Nexti
gj=p
(1)
j=1
Ifp(i)>
gjThen
gj=p(i)
j=i
Text2.Text=athlete(j)
Text3.Text=Str(gj)
5
参考代码:
DimiAsInteger
DimnAsInteger
n=Val(Text1.Text)3
IfnMod2<
>
0Then
MsgBox"
请输入偶数!
"
ExitSub
EndIf
Fori=3Ton/2
IfIsPrime(i)AndIsPrime(n-i)Then
Label1.Caption=i
Label2.Caption=n-i
ExitFor
Next
6
需考生编写
maxl=0
c=0
Sum=0
t="
Fori=1ToLen(s)
ch=Mid(s,i,1)
Ifch<
Then
t=t+ch
IfLen(t)>
maxlThen
maxl=Len(t)
Sum=Sum+Len(t)
c=c+1
Text1.Text=Str(CInt(Sum/c))
Text2.Text=Str(maxl)
Endsub
7
PrivateSubCommand2_Click()
考生编写程序开始
======================================
Fori=1To30
c(i)=a(i)
c(30+i)=b(i)
Nexti
Fori=1To59
Forj=1To60-i
Ifc(j)>
c(j+1)Then
t=c(j)
c(j)=c(j+1)
c(j+1)=t
Nextj
=========================================
考生编写程序结束
8
考生编写
Dima(26)AsInteger
Ifch>
="
a"
Andch<
z"
ch=Chr(Asc(ch)-32)
A"
Z"
a(Asc(ch)-Asc("
)+1)=a(Asc(ch)-Asc("
)+1)+1
Max=a
(1)
Fori=1To26
Ifa(i)>
MaxThen
Max=a(i)
Text1.Text=Chr(Asc("
)+j-1)
Text2.Text=Str(Max)
9'
以下Function过程用于判断字符串是否为回文
Functionfoundhuiwen(pAsString)
'
考生编写
Fori=1ToInt(Len(p)/2)
IfMid(p,i,1)<
Mid(p,Len(p)-i+1,1)Then
ExitFunction
foundhuiwen=True
EndFunction
10
考生需要编写的程序
s=Text1.Text
Text1.Text="
Ifch="
E"
Orch="
N"
T"
ch=LCase(ch)
ElseIfch="
e"
n"
t"
ch=UCase(ch)
Text1.Text=Text1.Text+ch
11
PrivateSubCommand1_Click()
Text4="
a=Val(Text1)
b=Val(Text2)
n=Val(Text3)
Text4=Text4&
a&
b
k=2
DoWhilek<
n
c=a*b
k=k+1
Ifc<
10Then
c
a=b
b=c
d=c\10
d
a=d
Ifk<
=nThen
d=cMod10
b=d
Loop
12
OptionBase1
PrivateSubForm_Click()
ConstN=5
ConstM=5
Dimmat(N,M)
Dimi,j
OpenApp.Path&
datain.txt"
ForInputAs#1
Fori=1ToN
Forj=1ToM
Input#1,mat(i,j)
Close#1
Print"
初始矩阵为:
PrintTab(5*j);
mat(i,j);
Print:
右上-左下对角线上的数为:
Ifi+j=6Then
PrintTab(5*i);
13
Fori=1To12
Sum=0
Forj=1To10
Sum=Sum+a(i,j)
s(i)=Int(Sum/10)
14
========以下考生编写程序开始=======
a59=0
a69=0
a79=0
a89=0
a99=0
Fori=1Ton
SelectCasearr(i)
CaseIs<
60
a59=a59+1
70
a69=a69+1
80
a79=a79+1
90
a89=a89+1
a99=a99+1
EndSelect
Text1.Text=Str(n)
Text2.Text=Str(a59)
Text3.Text=Str(a69)
Text4.Text=Str(a79)
Text5.Text=Str(a89)
Text6.Text=Str(a99)
======"
考生编写程序结束"
=======================
15
DimwhichAsInteger
PrivateSubcopy_Click()
Ifwhich=1Then
Text3.Text=Text1.Text
ElseIfwhich=2Then
Text3.Text=Text2.Text
PrivateSubcut_Click()
Text1.Text="
Text2.Text="
PrivateSubedit_Click()
IfText1.Text="
cut.Enabled=False
copy.Enabled=False
cut.Enabled=True
copy.Enabled=True
IfText2.Text="
IfText3.Text="
paste.Enabled=False
paste.Enabled=True
PrivateSubpaste_Click()
Text1.Text=Text1.Text+Text3.Text
Text2.Text=Text2.Text+Text3.Text
PrivateSubText1_GotFocus()'
本过程的作用是:
当焦点在Text1中时,which=1
which=1
PrivateSubText2_GotFocus()'
当焦点在Text2中时,which=2
which=2
16
PrivateSubC1_Click()
123456"
口令正确"
Text1.PasswordChar="
Text2.Text=Text2.Text-1
IfText2.Text>
第"
(3-Text2.Text)&
次口令错误,请重新输入"
3次输入错误,请退出"
Text1.Enabled=False
17
Dimb(100)AsInteger
num=0
IfLen(Text1.Text)=0Then
请先执行“读数据”功能!
考生编写(功能:
生成b数组,且按从小到大顺序排序)
注意:
请务必将数组b的元素个数存入变量num中
Fori=1To100
Ifa(i)Mod3=0Then
num=num+1
b(num)=a(i)
Fori=1Tonum-1
Forj=1Tonum-i
Ifb(j)>
b(j+1)Then
t=b(j)
b(j)=b(j+1)
b(j+1)=t
以下程序段将已排序的b数组显示在Text2中
Fori=1Tonum
Text2.Text=Text2.Text+Str(b(i))+Space
(2)
18
DimArr(100)AsInteger
DimsumAsInteger
SubReadData()
datain1.txt"
Input#1,Arr(i)
SubWriteData(FilenameAsString,NumAsInteger)
FilenameForOutputAs#1
Print#1,Num
PrivateSubcalc_Click()
Fori=1To100
IfArr(i)Mod3=0Then
Text1.Text=Text1.Text+Str(Arr(i))+Space
(2)
sum=sum+Arr(i)
PrivateSubread_Click()
CallReadData
PrivateSubsave_Click()
19
PrivateFunctionisprime(aAsInteger)AsBoolean
DimflagAsBoolean
flag=True
b%=2
DoWhileb%<
=Int(a/2)Andflag
IfInt(a/b%)=a/b%Then
flag=False
b%=b%+1
isprime=flag
DimaAsInteger
a=15000
DoWhilea>
=15000
a=a+1
Ifisprime(a)Then
Text1.Text=Str(a)
ExitDo
Loop
PrivateSubC2_Click()
OpenApp.Path+"
\out5.txt"
ForOutputAs#1
Print#1,Text1.Text
Close#1
20
================================================
算法:
1)令i指向第1个数,j指向最后1个数,并先暂存最后一个数;
2)检查第i个数是否为偶数,若不是,再检查下一个,直到第i个是
偶数,则把此偶数放到第j个位置,j向前移1个位置;
3)检查第j个数是否为奇数,若不是,再检查前一个,直到第j个是
奇数,则把此奇数放到第i个位置,i向后移1个位置;
4)重复2)、3),直到i=j
5)把开始暂存的数放到i的位置
=================================================
Dimi%,j%,temp%,flagAsBoolean
i=0
j=9
temp=Text1(j)
While(i<
j)
IfflagThen
IfText1(i)Mod2=0Then
Text1(j)=Text1(i)
j=j-1
flag=Notflag
i=i+1
IfText1(j)Mod2=1Then
Text1(i)=Text1(j)
Wend
Text1(i)=temp
21
========考生编写程序开始========
jg=0
bjg=0
Sum=Sum+arr(i)
Ifarr(i)>
=60Then
jg=jg+1
bjg=bjg+1
Avg=Sum/n
Text2.Text=Str(Avg)
Text3.Text=Str(bjg)
Text4.Text=Str(jg)
==========考生编写程序结束==============
22
Dims(35)AsLong
s
(1)=1
s
(2)=1
Fori=3To35
s(i)=s(i-1)+s(i-2)
IfOp1(0).ValueThen
Text1.Text=s(30)
ElseIfOp1
(1).ValueThen
Text1.Text=s(33)
Text1.Text=s(35)
EndSu
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 计算机 二级 所有
![提示](https://static.bdocx.com/images/bang_tan.gif)