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

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

《高中信息技术学业水平测试VB操作题.docx》由会员分享，可在线阅读，更多相关《高中信息技术学业水平测试VB操作题.docx（17页珍藏版）》请在冰豆网上搜索。

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

Corporationstandardizationoffice#QS8QHH-HHGX8Q8-GNHHJ8

高中信息技术学业水平测试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以内的整数，单击命令按钮后在窗体上输出其中的最大数，最小数和平均值

'注：

请不要更改原程序结构，删除①、②、③及下划线，并在对应位置填写正确的代码。

PrivateSubCommand1_Click（）

DimxAsInteger

Dimmax,min,sumAsInteger

x=InputBox（"请输入您的数：

"）

Print"您输入的数有：

"&x;"、";

max=x:

min=x:

sum=x

Fori=2To10

x=InputBox（"请输入您的数：

"）:

Printx;

sum=sum+x

If____①____ThenMax=x

If____②_____ThenMin=x

Nexti

Print"平均值"&_____③_______

Print"最大数"&max,"最小数"&min

EndSub

16、

'

（1）删除①②③及下划线，填空完成程序。

'

（2）输入车程公里数，单击按钮“应收车费”后，在Label1输出车程，在Label2中输出车费。

'收费标准：

3公里内（包括3公里）起步价12元；

'超过3公里，但10公里内（包括10公里），则3公里内收费12元，超出部分每公里2元；

'如果超过10公里，则10公里内收费26元，超出部分每公里3元。

其程序实现如下：

'注：

请不要更改原程序结构，删除①、②、③及下划线，并在对应位置填写正确的代码。

PrivateSubCommand1_Click（）

x=Val

Ifx>0Andx<=3Then_____①_____

Ifx>3And_____②_____Theny=12+（x-3）*2

Ifx>10Theny=_____③____*3

Ifx<=0Theny=0

=x&"公里"

=y&"元"

EndSub

17、

'

（1）删除①②③及下划线，填空完成程序。

'

（2）已知三角形的两边分别为15、18，它们的夹角为41度，圆周率取，求该三角形的面积。

'注：

请不要更改原程序结构，删除①、②、③及下划线，并在对应位置填写正确的代码

PrivateSubCommand1_Click（）

a=15

b=___①___

s=*a*b*___②____（41*180）

____③____=s

EndSub

18、

'

（1）删除①②③④及下划线，填空完成程序。

'

（2）在文本框Text1中输入成绩，点击"等级"按钮时，文本框里就显示相应的等级。

具体等级划分如下：

'90分以上为"优"，80到89分为"好"，70到79分为"良"，60到69分为"及格"，60分以下为"不及格"。

'注：

请不要更改原程序结构，删除①、②、③、④及下划线，并在对应位置填写正确的代码。

PrivateSubCommand1_Click（）

DimxAsInteger,gradeAsString

x=_____①________

________②______

Case90To100

grade="优"

Case80To89

grade="好"

Case70To79

grade="良"

Case60To69

grade="及格"

CaseIs<60

_______③_______

CaseElse

MsgBox"请重新输入"

EndSelect

Print"该学生成绩为:

"+_____④_____

EndSub

19、

'在Text1中输入学生的成绩，点击“转换”按钮后，转换成相应的等级并显示在Label1中！

PrivateSubCommand1_Click（）

DimexamAsInteger'定义变量exam用来存放成绩

'判断输入的成绩是否为数值！

IfIsNumeric=FalseThen

IfMsgBox（"您输入的成绩必须为数字！

",vbInformation+vbOKOnly）=vbOKThen

ExitSub

EndIf

EndIf

'判断输入的成绩是否合法

exam=Val

Ifexam<0Orexam>100OrLen（exam）=0Then

IfMsgBox（"您输入的成绩不正确！

",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"1+2+3+4...+100="&s

Print"1到100之间能被19整除有:

"&x&"个数"

EndSub