资源描述：
《2008秋二级VB》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。
1、2008年秋浙江省高等学校计算机等级考试试卷（二级VisualBasic）试题1（每小题3分，共12分）阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。【程序说明】运行时每隔10秒钟，以窗体标题的形式显示此时正在上第几节课或是晚餐或是午休时间，等等。【程序】PrivateSubForm_Load()Timer1.Interval=___(1)___EndSubPrivateSub___(2)____Timer()DimxAsSinglex=___(3)___+Minute(Time)/60SelectCasexCaseIs>
2、21Form1.Caption="Over"Case___(4)___Form1.Caption="第9~11节课"CaseIs>18Form1.Caption="晚餐时间"CaseIs>=14Form1.Caption="第5~8节课"CaseIs>12Form1.Caption="午餐时间"CaseIs>=8Form1.Caption="第1~4节课"EndSelectPrintxEndSub【供选择的答案】(1)[A]10[B]100[C]1000[D]10000(2)[A]Interval[B]Command1[C]Timer1[D]Tim
3、er(3)[A]Hour(Now)[B]House(Time)[C]Hour(Date)[D]Hour()(4)[A]19,20,21[B]19To21[C]19..21[D]Is>=19AndIs<=21试题2（每小题3分，共12分）阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。【程序说明】运行时初始界面如下图左所示。单击Command1统计Text1中的单词数，单击Command2在标签控件中显示所统计的单词数（如下图右所示）。7【程序】___(5)___PrivateSubCommand1_Click()DimnAs
4、Integer,iAsInteger,isalphaAsBooleann=Len(Text1.Text)___(6)___sum=0Fori=1Tons(i)=Mid(Text1.Text,i,1)Nextiisalpha=False'做s[0]不是英文字母的标记Fori=1TonIfUCase(s(i))>="A"AndUCase(s(i))<="Z"ThenIf___(7)___Then'如果s[i-1]不是英文字母，而s[i]是英文sum=sum+1'字母，则判定s[i]是一个单词的首字母isalpha=TrueEndIfElse___(8)
5、___EndIfNextiEndSubPrivateSubCommand2_Click()Label1.Caption="文本中有"&sum&"个单词"EndSub【供选择的答案】(5)[A]OptionBase1[B]DimsumAsInteger[C]OptionBase0[D]sum=0(6)[A]ReDims(n)AsString*1[B]ReDims(n)AsByte[C]Dims(n)AsString*1[D]Dims(n)AsByte(7)[A]s[i]<>alpha[B]s[i]=isalpha[C]isalpha[D]Notisa
6、lpha(8)[A]isalpha=True[B]ExitFor[C]isalpha=False[D]sum=sum-17试题3（每小题3分，共12分）阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。【程序说明】如下图所示，在图片框上拖动鼠标后绘制出一个轮廓线为黄色的矩形：鼠标按下、抬起位置分别为其斜对角线的顶点，在绘制一个与矩形内接、轮廓线为红色的椭圆。【程序】Dimx1AsSingle,y1AsSinglePrivateSubPicture1_MouseDown(ButtonAsInteger,ShiftAsIntege
7、r,XAsSingle,YAsSingle)___(9)___EndSubPrivateSubPicture1_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)Dimx0AsSingle,y0AsSingle,bAsSinglePicture1.Line(x1,y1)-(X,Y),___(10)___x0=x1+(X-x1)/2'计算椭圆中心点坐标y0=y1+(Y-y1)/2b=Abs(Y-y1)/Abs(X-x1)'计算椭圆纵横轴之比If___(11)___ThenPictur
8、e1.Circle(x0,y0),Abs(Y-y1)/2,255,,,bElsePicture1.Circle(x0,y0
