1、 通过设置何属性可以改变所画图形的形状？

A.Shape

B.Index

C.Enabled

D.Height

参考答案： A

无

----------------------------------------

2、 在窗体上画一个命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click()s=1Dos=(s+1)*(s+2)Number=Number+1LoopUntils>=30PrintNumber,sEndSub程序运行后，输出的结果是

A.23

B.256

C.512

D.1020

参考答案： B

无

----------------------------------------

3、 下列程和序段的执行结果为x=Int(Rnd()+9)SelectCasexCase10Print"excellent"Case9Print"good"Case8Print"pass"CaseElsePrint"fail"EndSelect

A.excellent

B.good

C.pass

D.fail

参考答案： B

无

----------------------------------------

4、 下列程序段的执行结果为a=75Ifa>60ThenScore=1Ifa>70ThenScore=2Ifa>80ThenScore=3Ifa>90ThenScore=4Print"Score=";Score

A.Score＝1

B.Score＝2

C.Score＝3

D.Score＝4

参考答案： B

无

----------------------------------------

5、 下列程序段的执行结果为I=1x=5DoI=I+1x=x+2LoopUntilI>=7Print"I=";IPrint"x=";x

A.I＝4x＝5

B.I＝7x＝15

C.I＝6x＝8

D.I＝7x＝17

参考答案： D

无

----------------------------------------

6、 下面的程序的运行结果是a=1b=1Doa=a^2b=b+1LoopUntilb>5Print"k=";a;Spc(4);"b=";b+a

A.k＝7b＝14

B.k＝6b＝6

C.k＝4b＝8

D.k＝1b＝7

参考答案： D

无

----------------------------------------

7、 单击命令按钮，下列程序的执行结果为PrivateSubCommand1_Click()DimxAsInteger,yAsIntegerx=32:y=42CallPCS(x,y)Printx;yEndSubPublicSubPCS(ByvalnAsInteger,ByValmAsInteger)n=nMod10+1m=mMod10+1EndSub

A.3242

B.232

C.23

D.123

参考答案： A

无

----------------------------------------

8、 下列程序的执行结果为PrivateSubCommand1_Click()Dims1AsString,s2AsStrings1="abcd"CallTransfer(s1,s2)Prints2EndSubPrivateSubTransfer(ByValxstrAsString,ystrAsString)DimtempstrAsStringi=Len(xstr)DoWhilei>=1tempstr=tempstr+Mid(xstr,i,1)i=i-1Loopystr=tempstrEndSub

A.dcba

B.abdc

C.abcd

D.dabc

参考答案： A

无

--

首页 上页 1 2 下页 尾页 1/2/2