全国计算机VB二级综合应用模拟答案文档格式.docx
- 文档编号:15796937
- 上传时间:2022-11-16
- 格式:DOCX
- 页数:28
- 大小:19.75KB
全国计算机VB二级综合应用模拟答案文档格式.docx
《全国计算机VB二级综合应用模拟答案文档格式.docx》由会员分享,可在线阅读,更多相关《全国计算机VB二级综合应用模拟答案文档格式.docx(28页珍藏版)》请在冰豆网上搜索。
SubWriteData(FilenameAsString,NumAsInteger)
FilenameForOutputAs#1
Print#1,Num
PrivateSubc1_Click()
CallReadData1
CallReadData2
PrivateSubc2_Click()
Dimc(20)AsInteger,sumAsInteger
Fori=1To20
c(i)=Arr1(i)-Arr2(i)
sum=sum+c(i)
Nexti
Printsum
CallWriteData("
dataout.txt"
sum)
2:
DimstepyAsInteger'
纵向移动增量
DimstepxAsInteger'
横向移动增量
ConstLEFT_BUTTON=1
PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,xAsSingle,yAsSingle)
Dimx0AsInteger,y0AsInteger,aAsSingle,radiusAsInteger
radius=Shape1.Width/2'
圆的半径
IfButton=LEFT_BUTTONThen
x0=Shape1.Left+radius'
圆心的x坐标
y0=Shape1.Top+radius'
圆心的y坐标
Ifx=x0Then
stepy=Sgn(y-y0)*50
stepx=0
Else
a=(y-y0)/(x-x0)'
斜率
stepx=Sgn(x-x0)*50
stepy=a*stepx
IfAbs(stepy)>
Abs(stepx)Then
stepx=stepy/a
EndIf
Timer1.Enabled=True
Timer1.Enabled=False
PrivateSubTimer1_Timer()
Shape1.MoveShape1.Left+stepx,Shape1.Top+stepy
3:
Dima(10)AsInteger,nAsInteger
PrivateSubCommand1_Click()
\in5.txt"
WhileNotEOF
(1)
n=n+1
Input#1,ch$,a(n)
List1.AddItemch
Wend
PrivateSubCommand2_Click()
'
需要考生编写的内容
x=Val(Text1.Text)
SelectCasex
CaseIs<
500
f=1
1000
f=0.98
1500
f=0.95
2000
f=0.92
CaseElse
f=0.9
EndSelect
y=f*x*0.3
Text2.Text=Str(y)
PrivateSubCommand3_Click()
\out5.txt"
ForOutputAs#1
Print#1,List1.Text,Text1,Text2
PrivateSubList1_Click()
Fori=0ToList1.ListCount-1
Text1.Text=a(List1.ListIndex+1)
4:
OptionBase1
Dima(5,8)AsSingle,athlete(5)AsString*8
DimchAsString
Text1="
"
\in5.dat"
Fork=1To5
Input#1,ch
athlete(k)=ch
Text1=Text1&
ch&
Forj=1To8
a(k,j)=Val(ch)
Nextj
Chr(13)&
Chr(10)
Nextk
PrivateFunctiongetmark(nAsInteger)AsSingle
s=a(1,1)
maxnum=s
minnum=s
Fork=2To7
s=s+a(n,k)
Ifmaxnum<
a(n,k)Then
maxnum=a(n,k)
Ifminnum>
minnum=a(n,k)
s=(s-maxnum-minnum)/5
getmark=s*3*a(n,8)
EndFunction
要求考生编写的程序
DimiAsInteger
Max=0
Fori=1To5
score=getmark(i)
Ifscore>
MaxThen
Max=score
k=i
Text2.Text=athlete(k)
Text3.Text=Max
\out5.dat"
Print#1,Text2,Text3
5:
PrivateFunctionIsPrime(ByValxAsInteger)AsBoolean
DimiAsInteger
IsPrime=False
Ifx=1ThenExitFunction
Fori=2ToSqr(x)
IfxModi=0Then
ExitFunction
Next
IsPrime=True
考生编写程序开始
n=Val(Text1.Text)
Fori=3Ton-1
Forj=3Ton-1
IfIsPrime(i)AndIsPrime(j)Then
Ifn=i+jThen
Label1.Caption=i
Label2.Caption=j
ExitFor
Ifj<
=n-1ThenExitFor
Next
考生编写程序结束
Print#1,Text1.Text,Label1.Caption,Label2.Caption
PrivateSubForm_Load()
6:
DimsAsString
s=Input(LOF
(1),#1)
7:
Dima(30)AsInteger,b(30)AsInteger,c(60)AsInteger
DimkAsInteger
Fork=1To30
Input#1,a(k)
Text1=Text1+Str(a(k))+Space
(2)
Input#1,b(k)
Text2=Text2+Str(b(k))+Space
(2)
Fori=1To30
c(i)=a(i)
Fori=1To30
c(30+i)=b(i)
Fori=1To59
Forj=1To60-i
Ifc(j)>
c(j+1)Then
t=c(j)
c(j)=c(j+1)
c(j+1)=t
'
以下程序将合并后的数组C显示在Text3中
Fork=1To60
Text3=Text3+Str(c(k))+Space
(2)
PrivateSubForm_Unload(CancelAsInteger)
Print#1,Text3.Text
End
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 全国计算机 VB 二级 综合 应用 模拟 答案