大一编程实验：月份对应季节程序填空与素数查找.pdfVIP

一、实验3‑9、3‑10、3‑13

二、程序填空

1.下列程序是在键盘上输入月份的数值，计算机即打印出该月份的季节（12,1,2为冬季，

其余类推）。比如输入7，则打印出“夏季”，请完善以下程序。

Pr_

ivatesubformclick()Don

inputbox(“请输入一个月份：”)

loopuntiln0andn13m=___n\

3_____selectcasemcase1print“春

季”case2print“夏季”case3

print“秋季”case0,4print“冬季”

endselectendsub

2.从键盘上输入一个正整数，找出大于或等于该数的第一个素数。

_

PrivateSubFormClick()DimpAsInteger,xAsInteger,

flagAsBooleanflag=Falsex=InputBox(请输入一个正整数

)DoWhileNotflagp=2:flagTrueDoWhileflagAnd(

p=(x/2))IfxModp=0Thenflag=FalseElsepp+1End

IfLoopIfNotflagThenxx+1LoopPrintxEndSub

3.下面程序的功能是将十进制的数转换为二进制数，请完善程序。

PrivateSubCommand1_Click()DimDecAsInteger,StAs

String

一、实验3-9、3-10、3-13

二、程序填空

1.下列程序是在键盘上输入月份的数值，，计算机即打印出该月份的季节（12，1，2为冬

季，其余类推）。比如输入7，则打印出”夏季”，请完善以下程序。

Privatesubform_click()

Do

n=inputbox(“pleaseenteramonth:”)

loopuntiln0andn13

m___n\3_____

selectcasem

case1

print“春季”

case2

print“夏季”

case3

print“秋季”

case0,4

print“冬季”

endselect

endsub

2.从键盘上输入一个正整数，找出大于或等于该数的第一个素数。

PrivateSubForm_Click()

DimpAsInteger,xAsInteger,flagAsBoolean

flag=False

x=InputBox(请输入一个正整数)

DoWhileNotflag

p=2:flagTrue

DoWhileflagAnd(p=(x/2))

IfxModp=0Then

flag=False

Else

p=p+1