高中信息技术学业水平测试VB操作题 .pdf

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

Dima1To5AsSingle

Fori=1To5

ai=ValInputBox请在输入第+Stri+/5个数

Printai;

Nexti

Print

Fori=1To___①__

Min=ai:m=i

Forx=i+1To5

If___②___ThenMin=ax:m=x

Nextx

k=ai:____③___:am=k

Nexti

Print从小到大排序后的数据为：

Fori=1To5

Printai;

Nexti

EndSub

2、完善程序代码实现:输入三角形的三条边长,首先判断给出的三条边能否构成三角形三角形

的两边之和大于第三边,如可以,则计算并输出该三角形的面积；否则输出不能构成三角形;

PrivateSubCommand1_Click

Dima,b,c,q,sAsSingle

a=Val

b=Val

c=Val

q=a+b+c/2

Ifa+b=cOra+c=b___①___b+c=aThen

Print不能构成三角形

Else

s=___②___qq-aq-bq-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删除①②及下划线