高中信息技术学业水平测试 VB操作题.docx
《高中信息技术学业水平测试 VB操作题.docx》由会员分享,可在线阅读,更多相关《高中信息技术学业水平测试 VB操作题.docx(13页珍藏版)》请在冰豆网上搜索。
高中信息技术学业水平测试VB操作题
Vb算法程序题汇总
1、输入5个数并排序(选择排序)
2、判读输入的三条边能否构成三角形
3、图形打印(倒三角)
4、判断是否为闰年
5、产生随机数
6、输入消费金额,计算出实收金额
7、输入用电量,计算出输出电费
8、求出100以内某数的阶乘
9、程序改错,求100以内奇数之和
10、输入学生成绩,显示相应等级(selectcase结构)
11、图形打印(三角形)
12、用字符串函数Ucase()和转换函数Asc()填空
13、对数组赋值并求和
14、利用函数,把abcd变成BCD
15、输入10个数,求最大值最小值和平均值
16、输入公里数,计算车费
17、已知两边和夹角,求三角形面积
18、输入学生成绩,显示相应等级(selectcase结构)
19、学生成绩转换(selectcase结构)
20、求100以内能够被19整除的个数
1、完善程序代码实现当单击"输入并排序"按钮后,从键盘输入5个数,保存在数组中,并显示在窗体上,然后把这5'个数按照从小到大的顺序排列并显示在窗体上。
PrivateSubCommand1_Click()
DimxAsLong
DimnAsInteger,iAsInteger,sAsLong
Dima(1To5)AsSingle
Fori=1To5
a(i)=Val(InputBox("请在输入第"+Str(i)+"/5个数"))
Printa(i);
Nexti
Print
Fori=1To___①__
Min=a(i):
m=i
Forx=i+1To5
If___②___ThenMin=a(x):
m=x
Nextx
k=a(i):
____③___:
a(m)=k
Nexti
Print"从小到大排序后的数据为:
"
Fori=1To5
Printa(i);
Nexti
EndSub
2、完善程序代码实现:
输入三角形的三条边长,首先判断给出的三条边能否构成三角形(三角形的两边之和大于第三边),如可以,则计算并输出该三角形的面积;否则输出"不能构成三角形"。
PrivateSubCommand1_Click()
Dima,b,c,q,sAsSingle
a=Val
b=Val
c=Val
q=(a+b+c)/2
If(a+b)<=cOr(a+c)<=b___①___(b+c)<=aThen
Print"不能构成三角形"
Else
s=___②___(q*(q-a)*(q-b)*(q-c))
Print"三角形的面积是"&s
____③____
EndSub
3、删除①②③及下划线,填上正确的代码,画出如下所示的图形,请不要更改原程序结构。
*******
*****
***
*
PrivateSubCommand1_Click()
Dimi,j,kAsInteger
Fori=4To1Step___①___
Forj=1To___②___Step1
Print"*";'打印符号*
____③__
Print'换行
Fork=i-3To1
Print"";'打印空格
Nextk
Nexti
EndSub
4、判断某年是否为闰年的方法是如果该年份的数值能被4整除但不能被100整除,或者能被400整除则该年份是闰年。
PrivateSubCommand1_Click()
DimiAsLong
i=___①____
IfiMod4=0And___②____Then
="该年是闰年!
"
Else
="该年不是闰年!
"
___③____
EndSub
5、
(1)删除①②及下划线,填空完成程序。
(2)完善程序代码实现:
手动输入0到10以内的一个整数,如果这个数字正好等于随机产生的整数(0到10之内),'那么输出"恭喜您猜中了!
",否则输出"谢谢,重在参与!
"。
PrivateSubCommand1_Click()
Dimi,jAsInteger
Randomize
i=___①___
j=Val(InputBox("请您输入一个0-10之间的整数:
"))
Print"您选中的数字为:
"&j
Print"随机产生的数为:
"&i
If____②___Then
Print"恭喜您猜中了!
"
Else
Print"谢谢,重在参与!
"
EndIf
EndSub
6、凡在商场消费满500元以上(含500元),享受9折优惠;消费满1000元以上(含1000元),享受8折优惠;消费在500元以下不优惠。
输入消费金额,计算出实收金额。
注:
请不要更改原程序结构,删除①、②、③及下划线,并在对应位置填写正确的代码。
PrivateSubcommand1_click()
DimmAsSingle'消费金额
m=___①___
Ifm>=1000Then
=____②___
Else
If__③___Then
=m*
Else
=m
EndIf
EndIf
EndSub
7、
在Text1中输入每月用电量,单击按钮"应收电费"后,在Text2中输出电费。
收费标准:
家庭每月用电量不超过260度按原价元/度收费;超过260度,不超过400度每度电费用增加元;超过400度后每度电费用增加元。
PrivateSubCommand1_Click()
DimiAsSingle
i=____①___
Ifi>=0Andi<=260Thens=____②____
Ifi>260Andi<=400Thens=i*+
Ifi>400Thens=i*+
____③___=s&"元"
EndSub
8、完善程序代码实现:
任意输入一个1到100以内的整数,并求出它的阶乘。
PrivateSubCommand1_Click()
DimiAsInteger
DimjAsInteger
DimsAsDouble
s=___①___
i=Val(InputBox("请您输入一个1到100以内的整数"))
Forj=1Toi
s=___②__
___③___
Printi&"的阶乘等于"&s
EndSub
9、下面的程序是求100以内所有奇数之和,程序中有三处错误,请更正。
PrivateSubCommand1_Click()
DimsAsInteger
DimiAsInteger
s=0
Fori=1To99Step1
s=s*i
EndIf
Print"s="&s
EndSub
10、在Text1中输入学生的成绩,点击“转换”按钮后,转换成相应的等级并显示在Label1中!
PrivateSubCommand1_Click()
DimexamAsInteger
exam=____①___
SelectCase____②____
CaseIs<60
="该学生的成绩等级为:
D"
Case60To69
="该学生的成绩等级为:
C"
Case70To84
="该学生的成绩等级为:
B"
Case85To100
="该学生的成绩等级为:
A"
CaseElse
="输入的数据不合法"
____③___
EndSub
11、
'删除程序中的①②③及下划线,填空完成程序,运行程序使能打印下面所示的图案。
'@
'@@
'@@@
'@@@@
'@@@@@
'@@@@@@
'注:
请不要更改原程序结构,删除①、②、③及下划线,并在对应位置填写正确的代码
PrivateSubCommand1_Click()
DimiAsInteger
DimjAsInteger
Fori=1To__①___
PrintTab(10);
Forj=1To___②_____
Print____③_____
Nextj
Print
Nexti
EndSub
12、'删除①②③及下划线,利用字符串函数Ucase()和转换函数Asc(),填空完成程序。
'注:
请不要更改原程序结构,删除①、②、③及下划线,并在对应位置填写正确的代码。
PrivateSubForm_Click()
Dimstr1AsString,str2AsString
Dimstr3AsString,iAsInteger
str1="f"
Fori=1To____①______
str2=UCase(str1)
str1=str2&str1
str3=str3&str1
str1=Chr(Asc(str1)+____②_____)
______③_______
Printstr3
EndSub
13、
'删除①②③及下划线,填空完成程序。
'程序运行后,单击“初始值”命令按钮对数组a的各元素赋值;
'单击“求和”命令按钮,求出数组a的各元素之和,并在Text1中显示出来
'注:
请不要更改原程序结构,删除①、②、③及下划线,并在对应位置填写正确的代码。
Dima(4,3)AsInteger
Dimi,jAsInteger
PrivateSubCommand1_Click()
Fori=0To3
Forj=0To2
_____①_____=i+j
Nextj
Nexti
EndSub
PrivateSubCommand2_Click()
Forj=0To3
Fori=0To2
s=s+_____②______
Nexti
Nextj
=______③_______
EndSub
14、
'
(1)删除①②③④及下划线,填空完成程序。
'
(2)程序运行后,从键盘上输入“abcd”,单击确定按钮后,在标签Label1中显示出“BCD”
'注:
请不要更改原程序结构,删除①、②、③、④及下划线,并在对应位置填写正确的代码。
PrivateSubForm_Load()
DimstrtextAsString
strtext=____①____("请输入")
strtext=____②____(Trim(____③____),3)
=____④____(strtext)
EndSub
15、
'
(1)删除①②③及下划线,填空完成程序。
'
(2)从键盘输入10个100以内的整数,单击命令按钮后在窗体上输出其中的最大数,最小数和平均值
'注:
请不要