2004年秋浙江省高等学校二级VB考试.docVIP

2004年秋浙江省高等学校 计算机等级考试试卷(二级Visual BASIC) 试题三、程序填空题（每空2分，共10分） 说明：阅读下列程序说明和相应程序，在每小题提供的若干可选答案中，挑选一个正确答案。 程序1、 【程序说明】 单击命令按钮Command1后，输入平面上凸10边形各顶点的坐标，然后计算各点之间连线的总长。 【程序】 option base 1 Private Function f1(x1 As Single, y1 As Single, x2 As Single, _ y2 As Single) As Single f1=sqr((x2-x1)*(x2-x1)+(y2-y1)*(y2-y1)) End Function Private Sub Command1_Click() Dim i As Integer,j As Integer,s As Single Dim (36) For i=0 To 9 x(i)=InputBox(x( i )=) y(i)=InputBox(y( i )=) Next i For i=0 To 8 For j= (37) s=s+ (38) Next j Next i Label1.Caption=s End Sub （36） A、x(9) As Single,y(9) As Single B、x(0 To 9) As Single,y(0 To 9) As Single C、x(9),y(9) As Single D、x(10) As Single,y(10) As Single （37） A、i+1 To 9 B、i To 9 C、i+1 To 10 D、i To 10 （38） A、f1(x(i),x(j),y(i),y(j)) B、f1(x1,y1,x2,y2) C、f1(x(i),y(i),x(j),y(j)) D、f1(xi,yi,xj,yj) 程序2、 【程序说明】 下列程序运行时，单击Command1(0)后，图片每十分之一秒自动左移1毫米，单击Command1(1)停止移动（当图片尾部移出窗体后，图片从窗体右端进入窗体）。界面设计如图1所示 图1 程序2的界面设计 【程序】 Private Sub Command1_Click(Index As Integer) If Index=0 Then Timer1.Enabled=True Else Timer1.Enabled=False End Sub Private Sub Form_Load() Timer1.Interval = (39) Form1.ScaleMode = 6 Timer1.Enabled = False End Sub Private Sub Timer1_Timer() Picture1.Left = Picture1.Left-1 If Picture1.Left + Picture1.Width = Form1.ScaleLeft Then _ Picture1.Left= (40) End Sub （39） A、 0.1 B、 1 C、 100 D、 0.6 A、 Form1.ScaleRight B、 Form1.Left + Form1.Width C、 Form1.ScaleLeft + Form1.ScaleWidth D、 Form1.Width 试题四、程序阅读题（每小题5分，共20分） 说明：阅读下列程序，将运行时的输出结果写在答卷纸的相应题号下。 程序1、顺序写出运行时在文本框控件Text1中输入abcd后，列表框控??List1中的各表项。 Dim s As String Private Sub Form_Load() List1.Clear Text1.Text = End Sub Private Sub Text1_Change() s = s + Text1.Text List1.AddItem s End Sub 程序2、 写出下列程序运行时四次单击复选框控件ch