程序设计题 上海海事vb题库

本文格式为Word版，下载可任意编辑——程序设计题上海海事vb题库试卷编号：8247所属语言：VisualBasicDimr%

Ifm>nThenr=m:m=n:Ifr=0ThenExitDom=n试卷方案：VB_程序设计试卷总分：93分共有题型：1种

一、程序设计共93题（共计93分）

第1题（1.0分）题号:52'

'

'

'题目：编写函数fun，函数的功能是：计算两个正整数的

'最大公约数，并显示。如：'两个数为15、20，结果显示\

'要求使用Do...Loop语句来实现。

'

'注意：请在指定的事件内编写代码

'代码只能写在两行标识之间

'不得修改已有代码'保存时不得修改窗体和工程文件的名称及路径，否则后果自负。

'

PrivateFunctionfun(mAsInteger,nAsInteger)AsInteger

n=r

'**********Program**********

'**********End**********EndFunction

PrivateSubForm_Load()Show

Printfun(15,10)NJIT_VBEndSub

PrivateSubNJIT_VB()DimiAsIntegerDima(10)AsStringDimfInAsIntegerDimfOutAsIntegerfIn=FreeFileOpenApp.Path&\#fIn

fOut=FreeFileOpenApp.Path&\#fOut

Fori=1To10Step2LineInput#fIn,a(i)

LineInput#fIn,a(i+1)

Print#fOut,Trim(Str(fun(Val(a(i)),Val(a(i+1)))))NextClose#fInClose#fOutEndSub

答案：Dor=mModn

n=rLoopfun=n

第3题（1.0分）题号:465'

'

'

'题目：判断一个数是否是素数。

'答案：

DimiAsIntegerPrime=TrueFori=2ToInt(Sqr(m))

IfmModi=0ThenPrime=False:ExitFor

Nexti

第5题（1.0分）题号:157'

'

'

'题目：(事件)单击窗体。'(响应)求10!的值，并将结果输出到窗体上。'将结果存入变量SUM中。

'答案：

DimiAsIntegersum=1Fori=1To10sum=sum*iNextPrintsum

第11题（1.0分）题号:151'

'

'

'题目：(事件)单击窗体。'(响应)求

1+2+3+??+100的值，并把结果输出在窗体上。'结果存入变

量SUM中。

'答案：

DimiAsIntegerFori=1To100sum=sum+iNextPrintsum

第13题（1.0分）题号:483'

'

'

'题目：编写函数fun，函数的功能是：求1到m'之间的偶数之积。

'答案：

DimyAsDoubley=1

DimiAsIntegerFori=1TomIfiMod2=0Theny=y*iEndIfNextfun=y

第22题（1.0分）题号:245'

'

'

'题目：编写函数fun，函数的功能是：根据一个百分制'成绩mark（整数），显示对应五级制的评定。条件如下：'mark大于等于90显示\优秀\

'mark小于90且大于等于80显示\良好\

'mark小于80且大于等于70显示\中等\

'mark小于70且大于等于60显示\及格\

'mark小于60显示\不及格\'要求使用Select语句来实现。

'

'注意：请在指定的事件内编写代码

'代码只能写在两行标识之间

'不得修改已有代码'保存时不得修改窗体和工程文件的名称及路径，否则后果自负。

'

PrivateFunctionfun(markCaseIs>=80fun=\良好\AsInteger)AsString

'**********Program**********

'**********End**********EndFunction

PrivateSubForm_Load()Show

Printfun(90)NJIT_VBEndSub

PrivateSubNJIT_VB()DimiAsIntegerDimsAsStringDima(10)AsIntegerDimfInAsIntegerDimfOutAsIntegerfIn=FreeFileOpenApp.Path&\#fIn

fOut=FreeFileOpenApp.Path&\#fOut

Fori=1To10LineInput#fIn,sa(i)=Val(s)Print#fOut,fun(a(i))NextClose#fInClose#fOutEndSub

答案：SelectCasemarkCaseIs>=90fun=\优秀\

CaseIs>=70fun=\中等\CaseIs>=60fun=\及格\CaseElsefun=\不及格\EndSelect

第25题（1.0分）题号:153'

'

'

'题目：(事件)双击窗体。'(响应)求100以内奇数的和，并将结果输出在窗体上。

'将结果存入变量SUM中

'答案：

DimiAsIntegerFori=1To100IfiMod2=1Thensum=sum+iEndIfNextPrintsum

第28题（1.0分）题号:20'

'

'

'题目：(事件)单击窗体。'(响应)输出100-200之间所有素数，并将这些数

'求和，求和结果存入所给变量SUM中。

'

'注意：请在指定的事件内编写代码。

'答案：

Fori=100To200Forj=2ToSqr(i)IfiModj=0ThenExitForNext

Ifj>Int(Sqr(i))Then

Sum=Sum+iEndIfNextPrintSum

第29题（1.0分）题号:470strDecR=iDecR&strDecREndIft=xs=x

DoUntilAbs(t)0iDecR=idecModibase

IfiDecR>=10Then

strDecR=Chr$(65+iDecR-10)&strDecRElse

idec=idec\\ibaseLoop

TrDec=strDecR

第30题（1.0分）题号:25'

'

'

'题目：(事件)单击按钮。'(响应)随机产生N个两位正整数（N由输入对话框

'输入，且N>0），求出其中的最大数和最小

'数，并在标签框Label1上显示最大数与最

'小数的差。

'

'注意：请在指定的事件内编写代码。

'答案：

x=InputBox(\请输入x\n=1

0.00000001n=n+1t=t*(-1)/ns=s+tLoop

Label1.Caption=\

第35题（1.0分）题号:487'

'

'

'题目：(事件)单击窗体。'(响应)已知s=1+1/3!+1/5!+1/7!+1/9!,请将s结果值

'输出到窗体上。使用dowhile...loop语句完成程序

'答案：

DimiAsIntege