江苏信息技术学业水平测试算法与程序设计上机题库Word文档下载推荐.docx
- 文档编号:21321698
- 上传时间:2023-01-29
- 格式:DOCX
- 页数:38
- 大小:784.46KB
江苏信息技术学业水平测试算法与程序设计上机题库Word文档下载推荐.docx
《江苏信息技术学业水平测试算法与程序设计上机题库Word文档下载推荐.docx》由会员分享,可在线阅读,更多相关《江苏信息技术学业水平测试算法与程序设计上机题库Word文档下载推荐.docx(38页珍藏版)》请在冰豆网上搜索。
b=Val(Text2.Text)
c=Val(Text3.Text)
Ifa>
bThenmax=aElse①
Ifc>
maxThen②
Label3.Caption=CStr(③)
*****
打开“15”,填空使能输出上图。
Dimi,jAsInteger
Fori=1To①
PrintTab(6-i);
Forj=1To②
Print③;
Nextj
Dimx,sAsSingle
x=Val(Text1.Text)
If①Then
s=4*②
Else
s=4*x
EndIf
Label1.Caption=CStr(③)
共有56人要乘船,大船限乘6人,小船限乘4人,坐大船每条10元,坐小船每条8元。
打开"
Z:
\22\工程1.vbp"
填空完成程序,使得当单击"
显示所有可能的乘船方式"
按钮时,输出全部可能的大船数、小船数及所需要的钱数。
Dimi,jAsInteger'
变量i表示大船数,j表示小船数
DimmAsInteger'
变量m表示所需钱数
Print"
大船数"
"
小船数"
所需钱数"
j=Int((56-i*6)/4)+1
m=②+i*10
Printi,j,m
Dima,b,c,x,nAsInteger
Randomize
Label6.Caption="
第"
&
n&
"
道题"
a=Int(Rnd*10)
b=Int(Rnd*10)
Label1.Caption=a
Label2.Caption=b
n=n+1
PrivateSubCommand2_Click()
c=a+b
x=Val(①)
Ifc=②Then
Label3.Caption="
正确"
错误"
PrivateSubForm_Load()
26题。
点按钮,实现分别使标签“Label1”上移或下移100个单位。
①
②
Dima,b,c,pAsSingle
b=Val(①)
p=b*b-4*a*c
If②Then
X1=(-b+Sqr(p))/(2*a)
X2=(-b-Sqr(p))/(2*a)
X1="
;
X1
X2="
X2
该方程无实数根"
DimxAsSingle,yAsSingle
a=3:
b=-5
请输入x的值"
Ifx<
0Then
②=x+5*a
y=x-2*b
y="
CStr(y)
DimaAsInteger,bAsInteger
DimbaiAsInteger,shiAsInteger
DimgAsInteger
a=Val(①)
bai=a\100
shi=(a-bai*100)\10
g=aMod10
②=g*100+shi*10+bai
③=CStr(b)
DimsAsSingle,qAsSingle
DimaAsSingle,bAsSingle,cAsSingle
请输入边长a的值:
b=Val(InputBox("
请输入边长b的值:
c=Val(InputBox("
请输入边长c的值:
q=(a+b+c)/2
s=②(q*(q-a)*(q-b)*(q-c))
DimyearAsInteger
year=Val(InputBox("
请输入年号:
If((yearMod4=0)And(yearMod100<
>
0))①(yearMod400=0)Then
Print②
DimWuyuanAsInteger,YiyuanAsInteger,WujiaoAsInteger
ForWuyuan=1To20
ForYiyuan=1To①
Wujiao=100-Wuyuan-②
IfWuyuan*5+Yiyuan*1+Wujiao*0.5=100Then
Wuyuan="
Wuyuan&
Yiyuan="
Yiyuan&
Wujiao="
Wujiao
NextYiyuan
NextWuyuan
DimxAsSingle,costAsSingle
x=Val(InputBox("
请输入苹果公斤数:
=2Then
cost=①
cost=x*6.8*0.8
PublicFunctionFib(nAsInteger)AsInteger
If(n=1)Or(n=2)Then
Fib=①
Fib=Fib(n-1)+Fib(n-2)
EndFunction
DimSAsInteger
S=Fib(③)
S="
CStr(S)
45
Dima,b,cAs①
Leta=Val(Text1.Text);
Letb=Val(Text2.Text);
Letc=Val(Text3.Text)
If(a+b>
c)And(a+c>
b)And(b+c>
a)Then
LetText4.Text="
OK"
NO"
Dimi,a,bAsInteger
Fori=100To①
a=i\100
b=(i-a*100)\10
c=②
Ifa*a*a+b*b*b+c*c*c=iThen
PrintCStr(i)
Dimh,x,y①Single
Letx=Val(Text1.Text)
Let②=Val(Text2.Text)
Lety=x-(h/100)*0.5
LetText3.Text=③
Constpi=3.14
①r,sasSingle
r=Val(②)
s=pi*r*r
T2.Text=③
Dimn,iAsLong
DimyesAs①
Letn=Val(Text1.Text)
Letyes=True
Fori=2Ton\2
IfnModi=0Then
Letyes=②
EndIf
IfyesThen
LetText2.Text="
yes"
no"
DimaAsInteger,bAsInteger,tAsInteger
a=Val(Text1.Text):
t=a
a=①
b=②
Text1.Text=③
Text2.Text=④
DimaAsInteger
If②=0Then
Label1.③="
偶数"
Label1.Caption="
奇数"
④
PrivateSubForm_Click()
DimiAsInteger,jAsInteger
Fori=-3To①
PrintTab(3);
Forj=1To3-②
Next
*"
DimsAsSingle,yAsInteger,rAsSingle'
s计算存款,y计算年份,r是年利率
s=①
y=0
r=Val(InputBox("
输入年利率"
数据输入框"
DoWhiles②
y=③
s=s*④
Loop
Printy;
年以后,存款可以达到2000元"
DimtzAsInteger,tsAsInteger'
tz是桃子数,ts是天数
tz=①
Forts=1To②
tz=③*2
Nextts
最初共有桃子"
①=Text1.Text
Timer1.Interval=1000
PrivateSubTimer1_timer()
DimxAsSingle
请输入x的值!
y=0.8*x
y=0.7*x
输入的数据出界!
Printx,y
DimxAsInteger
DimsAsInteger
Fori=1①
NO."
i))
PrintCStr(x)
total:
DimwAsInteger,pjAsInteger'
w是行李重量pj是机票价格
DimfyAsSingle
w=Val(Text1.Text):
pj=Val(Text2.Text)
Ifw<
=20Then
fy=(w-20)*pj*0.015
Text3.Text=③
Dima(100)AsInteger
DimtotalAsInteger
Fori=1To100
Ifa(i)Mod2=0Then
PrintCStr(total)
③=Int(Rnd*1000)
Dima(10)AsInteger
Fori=1To10
a(i)=Int(Rnd*1000)
Forj=②
Ifa(i)③a(j)Then
a(0)=a(i)
a(i)=a(j)
PrintCStr(a(i))
DimxAsLong
Forx=①To67998Step10
If(xMod67=0)Or(xMod78=0)Then
PrivateSubForm1_Click()
DimtzAsSingle,sgAsSingle,bzAsSingle
请输入您的体重:
sg=Val(InputBox("
bz=tz/sg^2
If②>
25Then
MsgBox("
您的身材偏胖,需要加强锻炼!
)
If③Then
您的身材偏瘦,需要补充营养!
您的身材真棒!
DimxAsInteger,yAsInteger
请输入x的值:
y=x
Text1.Text=③
DimvAsSingle
v=Val(InputBox("
请输入飞船速度的值"
SelectCasev
CaseIs>
16.67
飞船挣脱太阳引力飞出太阳系"
caseis①
飞船离开地球的控制,围绕太阳转"
caseis②
飞船绕地球似做匀速圆周运动"
CaseElse
输入数据错误!
IfxMod3=2Then
If①=3Then
DimsAsInteger,aAsInteger,bAsInteger,kAsInteger
s=0:
a=1:
b=1
Fork=1To10
s=s+a/b
s=②
b=③
Nextk
Prints
DimiAsInteger,sAsInteger
i=1:
s=0
DoWhilei<
=99
s=s+①
i=②
s="
DimsAsInteger,NAsInteger
N=22:
Do
s=s+①
N=②
LoopUntils>
1500
N="
CStr(③)
DimpAsInteger,nAsLong'
变量p保存人口
n=0
DoWhile②
p=p*③
n=④
n="
CStr(n)
DimHAsSingle,LAsSingle,SAsSingle,HomeAsSingle
Home=Val(InputBox("
请输入一个起始高度:
H=Home:
S=0
L=0.7*①
S=S+H+L
H=②
LoopWhileL>
=Home/1000
DimS1AsSingle,S2AsSingle,V1AsSingle,V2AsSingle,TAsSingle
S1=Val(InputBox("
请输入王晓珊家离学校的距离:
V1=Val(InputBox("
请输入王晓珊步行速度:
V2=Val(InputBox("
请输入李明步行速度:
T=①
S2=②*T
DimLAsInteger,changAsInteger,kuaiAsInteger,sAsInteger
DimsmaxAsInteger
smax=0
L=Inpu
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 江苏 信息技术 学业 水平 测试 算法 程序设计 上机 题库