高中信息技术学业水平测试 VB操作题讲解学习.docx
《高中信息技术学业水平测试 VB操作题讲解学习.docx》由会员分享，可在线阅读，更多相关《高中信息技术学业水平测试 VB操作题讲解学习.docx（18页珍藏版）》请在冰点文库上搜索。
高中信息技术学业水平测试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
?
?
?
嘠污?
灮瑵潂?
请在输入第+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
牐湩?
从小到大排序后的数据为：
Fori=1To5
Printa（i）;
Nexti
EndSub
2、完善程序代码实现:
输入三角形的三条边长，首先判断给出的三条边能否构成三角形（三角形的两边之和大于第三边），如可以，则计算并输出该三角形的面积；否则输出不能构成三角形。
PrivateSubCommand1_Click（）
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
____③____
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=___①___
?
?
慖?
湉異?
硯尨请您输入一个0-10之间的整数:
））
牐湩?
您选中的数字为：
&j
牐湩?
随机产生的数为：
&i
If____②___Then
牐湩?
恭喜您猜中了！
Else
牐湩?
谢谢，重在参与！
EndIf
EndSub
精品文档．
精品文档
6、凡在商场消费满500元以上（含500元），享受9折优惠；消费满1000元以上（含1000元），享受8折优惠；消费在500元以下不优惠。
输入消费金额，计算出实收金额。
注：
请不要更改原程序结构，删除①、②、③及下划线，并在对应位置填写正确的代码。
PrivateSubcommand1_click（）
DimmAsSingle'消费金额
m=___①___
Ifm>=1000Then
Text2.Text=____②___
Else
If__③___Then
Text2.Text=m*0.9
Else
Text2.Text=m
EndIf
EndIf
EndSub
7、
中输出电费。
收费标准：
家Text2后，在在Text1中输入每月用电量，单击按钮应收电费度每度电费用增400260度，不超过度收费；度按原价庭每月用电量不超过2601.3元/超过元。
0.30.1加元；超过400度后每度电费用增加
PrivateSubCommand1_Click（）
DimiAsSingle
精品文档．
精品文档
i=____①___
Ifi>=0Andi<=260Thens=____②____
Ifi>260Andi<=400Thens=i*（1.3+0.1）
Ifi>400Thens=i*（1.3+0.3）
____③彟?
?
?
…元
EndSub
8、完善程序代码实现:
任意输入一个1到100以内的整数，并求出它的阶乘。
PrivateSubCommand1_Click（）
DimiAsInteger
DimjAsInteger
DimsAsDouble
s=___①___
?
?
慖?
湉異?
硯尨请您输入一个1到100以内的整数））
Forj=1Toi
s=___②__
___③___
牐湩?
?
…的阶乘等于&s
EndSub
9、下面的程序是求100以内所有奇数之和,程序中有三处错误，请更正。
PrivateSubCommand1_Click（）
DimsAsInteger
DimiAsInteger
s=0
Fori=1To99Step1
s=s*i
EndIf
Prints=&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=
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
Text1.Text=______③_______
EndSub
14、
'
（1）删除①②③④及下划线，填空完成程序。
（'2）程序运行后，从键盘上输入“abcd”，单击确定按钮后，在标签Label1中显示出“BCD”
'注：
请不要更改原程序结构，删除①、②、③、④及下划线，并在对应位置填写正确的代码。
PrivateSubForm_Load（）
DimstrtextAsString
strtext=____①彟彟尨请输入）
strtext=____②____（Trim（____③____）,3）
Label1.Caption=____④____（strtext）
EndSub
15、
'
（1）删除①②③及下划线，填空完成程序。
'
（2）从键盘输入10个100以内的整数，单击命令按钮后在窗体上输出其中的最大数，最小数和平均值
'注：
请不要更改原程序结构，删除①、②、③及下划线，并在对应位置填写正确的代码。
PrivateSubCommand1_Click（）
DimxAsInteger
Dimmax,min,sumAsInteger
?
?
湉異?
硯尨请输入您的数：
）
牐湩?
您输入的数有：
?
…?
尠、;
max=x:
min=x:
sum=x
Fori=2To10
精品文档．
精品文档
?
?
湉異?
硯尨请输入您的数：
）:
Printx;
sum=sum+x
If____①____ThenMax=x
If____②_____ThenMin=x
Nexti
Print平均值&_____③_______
牐湩?
最大数?
…慭?
尠最小数&min
EndSub
16、
'
（1）删除①②③及下划线，填空完成程序。
'
（2）输入车程公里数，单击按钮“应收车费”后，在Label1输出车程，在Label2中输出车费。
'收费标准：
3公里内（包括3公里）起步价12元；
'超过3公里，但10公里内（包括10公里），则3公里内收费12元，超出部分每公里2元；
'如果超过10公里，则10公里内收费26元，超出部分每公里3元。
其程序实现如下：
'注：
请不要更改原程序结构，删除①、②、③及下划线，并在对应位置填写正确的代码。
PrivateSubCommand1_Click（）
x=Val（Text1.Text）
Ifx>0Andx<=3Then_____①_____
Ifx>3And_____②_____Theny=12+（x-3）*2
Ifx>10Theny=_____③____*3
Ifx<=0Theny=0
慌敢?
?
灡楴湯?
砠?
尠公里
慌敢?
?
灡楴湯?
礠?
尠元
EndSub
17、
'
（1）删除①②③及下划线，填空完成程序。
'
（2）已知三角形的两边分别为15、18，它们的夹角为41度，圆周率取3.14，求该三角形的面积。
'注：
请不要更改原程序结构，删除①、②、③及下划线，并在对应位置填写正确的代码
PrivateSubCommand1_Click（）
a=15
b=___①___
s=0.5*a*b*___②____（41*3.14/180）
精品文档．
精品文档
____③____=s
EndSub
18、
'
（1）删除①②③④及下划线，填空完成程序。
'
（2）在文本框Text1中输入成绩，点击等级按钮时，文本框里就显示相应的等级。
具体等级划分如下：
'90分以上为优，80到89分为好，70到79分为良，60到69分为及格，60分以下为不及格。
'注：
请不要更改原程序结构，删除①、②、③、④及下划线，并在对应位置填写正确的代码。
PrivateSubCommand1_Click（）
DimxAsInteger,gradeAsString
x=_____①________
________②______
Case90To100
牧摡?
?
优
Case80To89
牧摡?
?
好
Case70To79
牧摡?
?
良
Case60To69
牧摡?
?
及格
CaseIs<60
_______③_______
CaseElse
獍?
硯尠请重新输入
EndSelect
牐湩?
该学生成绩为:
+_____④_____
EndSub
19、精品文档．
精品文档
Label1中！
'在Text1中输入学生的成绩，点击“转换”按钮后，转换成相应的等级并显示在
PrivateSubCommand1_Click（）
exam用来存放成绩'定义变量DimexamAsInteger
判断输入的成绩是否为数值！
'IfIsNumeric（Text1.Text）=FalseThen
vbInformation+vbOKOnly）=vbOKThen您输入的成绩必须为数字！
晉?
杳潂?
ExitSub
EndIf
EndIf
判断输入的成绩是否合法'exam=Val（Text1.Text）
Ifexam<0Orexam>100OrLen（exam）=0Then
vbInformation+vbOKOnly）=vbOKThen晉?
杳潂?
您输入的成绩不正确！
ExitSub
EndIf
EndIf
将输入的成绩转换为相应的等级'__SelectCase__①
__
②Case__
D
该学生的成绩等级为：
慌敢?
?
灡楴湯?
尠精品文档．
精品文档
Case__③__
慌敢?
?
灡楴湯?
尠该学生的成绩等级为：
C
Case__④__
慌敢?
?
灡楴湯?
尠该学生的成绩等级为：
B
Case__⑤__
慌敢?
?
灡楴湯?
尠该学生的成绩等级为：
A
__⑥__
EndSub
20、
'
（1）删除①②③及下划线，填空完成程序。
'
（2）点击“计算”按钮后，在窗体上输出“1+2+……+100”的和，并求出1到100之间能被19整除的整数的个数
'注：
请不要更改原程序结构，删除①、②、③及下划线，并在对应位置填写正确的代码。
PrivateSubCommand1_Click（）
DimiAsInteger,xAsInteger
DimsAsInteger
s=0
x=0
Fori=1To100
______①______
If_____②____Thenx=_____③_____
Nexti
Print+2+3+4...+100=&s
Print到100之间能被19整除有尺?
砠?
尠个数
EndSub
精品文档．
升级会员 