上海海事大学VB题库程序填空.docx

上海海事大学VB题库程序填空.docx

《上海海事大学VB题库程序填空.docx》由会员分享，可在线阅读，更多相关《上海海事大学VB题库程序填空.docx（201页珍藏版）》请在冰豆网上搜索。

上海海事大学VB题库程序填空

程序填空

〖第1题〗『程序填空』（1分）（题号:

59）

'-------------------------------------------------------

'【程序填空】

'-------------------------------------------------------

'功能：

输入一个数,若大于0,则显示"+"；若小于0，

'则显示"-"；若等于"0",则显示"零"。

'-------------------------------------------------------

PrivateSubCommand1_Click（）

x=Val（Text1.Text）

SelectCasex

'**********SPACE**********

【?

】

Label1.Caption="+"

CaseIs<0

'**********SPACE**********

【?

】

'**********SPACE**********

【?

】

Label1.Caption="零"

EndSelect

EndSub

答案：

1）.CaseIs>0

2）.Label1.Caption="-"

3）.Case0或CaseElse或CaseIs=0

〖第2题〗『程序填空』（1分）（题号:

60）

'-------------------------------------------------------

'【程序填空】

'-------------------------------------------------------

'功能：

输入任何一个英文字母x,

'若x的值为"a","c","d-f",则显示x的大写字母；

'若x的值为"m","o","p-z",则显示x的小写字母；

'若x的值为其它的值,则显示xa（如输入的X的值是g，则显示ga）。

'-------------------------------------------------------

PrivateSubCommand1_Click（）

x=Text1.Text

'**********SPACE**********

【?

】

'**********SPACE**********

Case【?

】

Label1.Caption=UCase（x）

Case"m","o","p"To"z"

Label1.Caption=LCase（x）

CaseElse

'**********SPACE**********

【?

】

EndSelect

EndSub

答案：

1）.SelectCasex

2）."a","c","d"To"f"

3）.Label1.Caption=Trim（x）+"a"或Label1.Caption=x+"a"

〖第3题〗『程序填空』（1分）（题号:

36）

'-------------------------------------------------------

'【程序填空】

'-------------------------------------------------------

'功能：

以下程序的功能如（图1）。

'-------------------------------------------------------

PrivateSubForm_Click（）

Dima%,b%,c%,d!

Dimx1,x2

Dimp,q,r

a=InputBox（"请输入a的值"）

b=InputBox（"请输入b的值"）

c=InputBox（"请输入c的值"）

d=b*b-4*a*c

p=-b/（2*a）

Ifd>=0Then

'**********SPACE**********

If【?

】Then

r=Sqr（d）/（2*a）

x1=p+r

x2=p-r

Else

x1=p

x2=p

'**********SPACE**********

【?

】

Print"x1=";x1,"x2=";x2

'**********SPACE**********

【?

】

q=Sqr（-d）/（2*a）

Print"x1=";p;"+";q;"i","x2=";p;"-";q;"i"

EndIf

EndSub

答案：

1）.d>0或0

2）.EndIf

3）.Else

〖第4题〗『程序填空』（1分）（题号:

51）

'-------------------------------------------------------

'【程序填空】

'-------------------------------------------------------

'功能：

下面的程序段用于建立文件并输出文件，文件内容如下：

'

'*****

'*****

'*****

'*****

'*****

'-------------------------------------------------------

PrivateSubForm_Click（）

'**********SPACE**********

Open"c:

\1.txt"For【?

】As#1

Fori=1To5

Print#1,Spc（i）;"*****"

Nexti

'**********SPACE**********

【?

】

'**********SPACE**********

Open"c:

\1.txt"For【?

】As#1

Fori=1To5

LineInput#1,x

Printx

Nexti

Close#1

EndSub

答案：

1）.Output

2）.Close#1或Close

3）.Input

〖第5题〗『程序填空』（1分）（题号:

49）

'-------------------------------------------------------

'【程序填空】

'-------------------------------------------------------

'功能：

以下程序段用于求∑n!

'-------------------------------------------------------

PrivateSubForm_Click（）

DimsumAsInteger,nAsInteger

n=InputBox（"请输入一个正整数"）

sum=0

Fori=1Ton

'**********SPACE**********

sum=【?

】

Nexti

Printsum

EndSub

PrivateFunctionmul（ByValxAsInteger）

DimsAsInteger,iAsInteger

s=1

'**********SPACE**********

Fori=1To【?

】

s=s*i

Nexti

'**********SPACE**********

【?

】

EndFunction

答案：

1）.sum★+★mul（i）

2）.x

3）.mul=s

〖第6题〗『程序填空』（1分）（题号:

61）

'-------------------------------------------------------

'【程序填空】

'-------------------------------------------------------

'功能：

根据输入的学习成绩,分别显示优秀（90分以上）,良好

'（75分以上）,及格（60分以上）,不及格几个等级。

'-------------------------------------------------------

PrivateSubCommand1_Click（）

x=Val（Text1.Text）

Ifx>=90Then

Label1.Caption="优秀"

'**********SPACE**********

ElseIf【?

】Then

Label1.Caption="良好"

ElseIfx>=60Then

'**********SPACE**********

【?

】

'**********SPACE**********

【?

】

Label1.Caption="不及格"

EndIf

EndSub

答案：

1）.x>=75或75<=X

2）.Label1.Caption="及格"或Label1="及格"

3）.Else

〖第7题〗『程序填空』（1分）（题号:

57）

'-------------------------------------------------------

'【程序填空】

'-------------------------------------------------------

'功能：

求1!

+2!

+……+10!

的值。

'-------------------------------------------------------

PrivateSubForm_Click（）

'**********SPACE**********

【?

】

s=1

ForI=2To10

t=t*I

'**********SPACE**********

【?

】

'**********SPACE**********

【?

】

Prints

EndSub

答案：

1）.t=1

2）.s=★s★+★t

3）.NextI或Next

〖第8题〗『程序填空』（1分）（题号:

46）

'-------------------------------------------------------

'【程序填空】

'-------------------------------------------------------

'功能：

从键盘输入学生分数，统计学生总人数和各分数段人数，

'即优秀（90-100）、良好（80-89）、中等（70-79）、

'及格（60-69）、不及格（60以下）的人数。

'-------------------------------------------------------

PrivateSubForm_Click（）

Dimscore%,n1%,n2%,n3%,n4%,n5%

msg="请输入分数（-1结束）"

msgtitile="输入数据"

score=Val（InputBox（msg,msgtitle））

'**********SPACE**********

Whil