高中信息技术学业水平测试VB操作题Word格式.docx
- 文档编号:17586026
- 上传时间:2022-12-07
- 格式:DOCX
- 页数:14
- 大小:58.49KB
高中信息技术学业水平测试VB操作题Word格式.docx
《高中信息技术学业水平测试VB操作题Word格式.docx》由会员分享,可在线阅读,更多相关《高中信息技术学业水平测试VB操作题Word格式.docx(14页珍藏版)》请在冰豆网上搜索。
))
Printa(i);
Nexti
Fori=1To___①__
Min=a(i):
m=i
Forx=i+1To5
If___②___ThenMin=a(x):
m=x
Nextx
k=a(i):
____③___:
a(m)=k
Print"
从小到大排序后的数据为:
"
EndSub
2、完善程序代码实现:
输入三角形的三条边长,首先判断给出的三条边能否构成三角形(三角形的两边之和大于第三边),如可以,则计算并输出该三角形的面积;
否则输出"
不能构成三角形"
。
Dima,b,c,q,sAsSingle
a=Val(Text1.Text)
b=Val(Text2.Text)
c=Val(Text3.Text)
q=(a+b+c)/2
If(a+b)<
=cOr(a+c)<
=b___①___(b+c)<
=aThen
Else
s=___②___(q*(q-a)*(q-b)*(q-c))
三角形的面积是"
&
s
____③____
3、删除①②③及下划线,填上正确的代码,画出如下所示的图形,请不要更改原程序结构。
*******
*****
***
*
Dimi,j,kAsInteger
Fori=4To1Step___①___
Forj=1To___②___Step1
*"
;
'
打印符号*
____③__
Print'
换行
Fork=i-3To1
"
打印空格
Nextk
4、判断某年是否为闰年的方法是如果该年份的数值能被4整除但不能被100整除,或者能被400整除则该年份是闰年。
DimiAsLong
i=___①____
IfiMod4=0And___②____Then
Label2.Caption="
该年是闰年!
该年不是闰年!
___③____
5、
(1)删除①②及下划线,填空完成程序。
(2)完善程序代码实现:
手动输入0到10以内的一个整数,如果这个数字正好等于随机产生的整数(0到10之内),'
那么输出"
恭喜您猜中了!
,否则输出"
谢谢,重在参与!
Dimi,jAsInteger
Randomize
i=___①___
j=Val(InputBox("
请您输入一个0-10之间的整数:
您选中的数字为:
j
随机产生的数为:
i
If____②___Then
EndIf
6、凡在商场消费满500元以上(含500元),享受9折优惠;
消费满1000元以上(含1000元),享受8折优惠;
消费在500元以下不优惠。
输入消费金额,计算出实收金额。
注:
请不要更改原程序结构,删除①、②、③及下划线,并在对应位置填写正确的代码。
PrivateSubcommand1_click()
DimmAsSingle'
消费金额
m=___①___
Ifm>
=1000Then
Text2.Text=____②___
If__③___Then
Text2.Text=m*0.9
Text2.Text=m
7、
在Text1中输入每月用电量,单击按钮"
应收电费"
后,在Text2中输出电费。
收费标准:
家庭每月用电量不超过260度按原价1.3元/度收费;
超过260度,不超过400度每度电费用增加0.1元;
超过400度后每度电费用增加0.3元。
DimiAsSingle
i=____①___
Ifi>
=0Andi<
=260Thens=____②____
260Andi<
=400Thens=i*(1.3+0.1)
400Thens=i*(1.3+0.3)
____③___=s&
元"
8、完善程序代码实现:
任意输入一个1到100以内的整数,并求出它的阶乘。
DimiAsInteger
DimjAsInteger
DimsAsDouble
s=___①___
i=Val(InputBox("
请您输入一个1到100以内的整数"
Forj=1Toi
s=___②__
___③___
Printi&
的阶乘等于"
9、下面的程序是求100以内所有奇数之和,程序中有三处错误,请更正。
DimsAsInteger
s=0
Fori=1To99Step1
s=s*i
s="
10、在Text1中输入学生的成绩,点击“转换”按钮后,转换成相应的等级并显示在Label1中!
DimexamAsInteger
exam=____①___
SelectCase____②____
CaseIs<
60
Label1.Caption="
该学生的成绩等级为:
D"
Case60To69
C"
Case70To84
B"
Case85To100
A"
CaseElse
输入的数据不合法"
____③___
11、
'
删除程序中的①②③及下划线,填空完成程序,运行程序使能打印下面所示的图案。
@
@@
@@@
@@@@
@@@@@
@@@@@@
请不要更改原程序结构,删除①、②、③及下划线,并在对应位置填写正确的代码
Fori=1To__①___
PrintTab(10);
Forj=1To___②_____
Print____③_____
Nextj
12、'
删除①②③及下划线,利用字符串函数Ucase()和转换函数Asc(),填空完成程序。
PrivateSubForm_Click()
Dimstr1AsString,str2AsString
Dimstr3AsString,iAsInteger
str1="
f"
Fori=1To____①______
str2=UCase(str1)
str1=str2&
str1
str3=str3&
str1=Chr(Asc(str1)+____②_____)
______③_______
Printstr3
13、
删除①②③及下划线,填空完成程序。
程序运行后,单击“初始值”命令按钮对数组a的各元素赋值;
单击“求和”命令按钮,求出数组a的各元素之和,并在Text1中显示出来
Dima(4,3)AsInteger
Dimi,jAsInteger
Fori=0To3
Forj=0To2
_____①_____=i+j
Nexti
PrivateSubCommand2_Click()
Forj=0To3
Fori=0To2
s=s+_____②______
Nextj
Text1.Text=______③_______
14、
(1)删除①②③④及下划线,填空完成程序。
(2)程序运行后,从键盘上输入“abcd”,单击确定按钮后,在标签Label1中显示出“BCD”
请不要更改原程序结构,删除①、②、③、④及下划线,并在对应位置填写正确的代码。
PrivateSubForm_Load()
DimstrtextAsString
strtext=____①____("
请输入"
)
strtext=____②____(Trim(____③____),3)
Label1.Caption=____④____(strtext)
15、
(1)删除①②③及下划线,填空完成程序。
(2)从键盘输入10个100以内的整数,单击命令按钮后在窗体上输出其中的最大数,最小数和平均值
DimxAsInteger
Dimmax,min,sumAsInteger
x=InputBox("
请输入您的数:
您输入的数有:
x;
、"
max=x:
min=x:
sum=x
Fori=2To10
):
Printx;
sum=sum+x
If____①____ThenMax=x
If____②_____ThenMin=x
平均值"
_____③_______
最大数"
max,"
最小数"
min
16、
(2)输入车程公里数,单击按钮“应收车费”后,在Label1输出车程,在Label2中输出车费。
3公里内(包括3公里)起步价12元;
超过3公里,但10公里内(包括10公里),则3公里内收费12元,超出部分每公里2元;
如果超过10公里,则10公里内收费26元,超出部分每公里3元。
其程序实现如下:
x=Val(Text1.Text)
Ifx>
0Andx<
=3Then_____①_____
3And_____②_____Theny=12+(x-3)*2
10Theny=_____③____*3
Ifx<
=0Theny=0
Label1.Caption=x&
公里"
Label2.Caption=y&
17、
(2)已知三角形的两边分别为15、18,它们的夹角为41度,圆周率取3.14,求该三角形的面积。
a=15
b=___①___
s=0.5*a*b*___②____(41*3.14/180)
____③____=s
18、
(2)在文本框Text1中输入成绩,点击"
等级"
按钮时,文本框里就显示相应的等级。
具体等级划分如下:
90分以上为"
优"
,80到89分为"
好"
,70到79分为"
良"
,60到69分为"
及格"
,60分以下为"
不及格"
DimxAsInteger,gradeAsString
x=_____①________
________②______
Case90To100
grade="
Case80To89
Case70To79
_______③_______
MsgBox"
请重新输入"
EndSelect
Print"
该学生成绩为:
+_____④_____
19、
在Text1中输入学生的成绩,点击“转换”按钮后,转换成相应的等级并显示在Label1中!
DimexamAsInteger'
定义变量exam用来存放成绩
判断输入的成绩是否为数值!
IfIsNumeric(Text1.Text)=FalseThen
IfMsgBox("
您输入的成绩必须为数字!
vbInformation+vbOKOnly)=vbOKThen
ExitSub
EndIf
判断输入的成绩是否合法
exam=Val(Text1.Text)
Ifexam<
0Orexam>
100OrLen(exam)=0Then
您输入的成绩不正确!
将输入的成绩转换为相应的等级
SelectCase__①__
Case__②__
Case__③__
Case__④__
Case__⑤__
__⑥__
20、
(2)点击“计算”按钮后,在窗体上输出“1+2+……+100”的和,并求出1到100之间能被19整除的整数的个数
DimiAsInteger,xAsInteger
x=0
Fori=1To100
______①______
If_____②____Thenx=_____③_____
1+2+3+4...+100="
1到100之间能被19整除有:
x&
个数"
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 高中 信息技术 学业 水平 测试 VB 操作