浙江省湖州市长兴县2018-2019学年九年级上学期信息技术期末考试试卷
年级: 学科:信息技术(信息科技) 类型:期末考试 来源:91题库
一、选择题(本大题共25题,每小题2分,共50分)(共25小题)








i=20
j=10
if i<j then print j
print i
Dim n as integer
…
If them
MsgBox"恭喜,本站有车!"
Else
MsgBox"很遗憾,本站车已经借完!"
End If
…
划线处应填写的条件表达式是( )
a=14
b=30
select case b\10 ‘“\”是整除,运算结果只保留整数部分。
Case 0
c=a+b
Case 1 to 9
c=a*10+b
Case 10 to 99
c=a*100+b
End select
Print c
Private Sub Command 1_Click()
a=10
for k=1 to 5 Step -1
a=a -k
Next k
Print a, k
End sub
For i=1 to 10 Step 4
s=s+i
Next i
该程序段执行后,语句s=s+i执行的次数是( )
x=5
For i=1 to 10 Step 2
x=x+i
Next i
Private Sub Form_Click()
Dim x as integer
x=1
n=0
Do while x<100
x=x*3
n=n+1
Loop
Print x,n
End Sub
二、判断题(本大题共10题,每小题1分,共10分)(共10小题)

三、综合填空题(本大题共10题,每空2分,共40分)(共10小题)
Private Sub begin_cmd_Click()
a=1
b=2
c=3
text1. text=c>a+borb-1>c-1 and c+a>a
end sub
这一过程所对应的事件是 (鼠标单击\鼠标双击\鼠标移过);所对应的控件对象是 。(填写对象名称)
Private Sub Command 1_Click()
Dim r as single, c as single,
c=2*3.14*r
s=3.14*r*r
Text3 text=str(s)
End sub
x=val(Text1 text)
If Then
y=1.5*x
Else
End If
Text2 text=str(y)
Private Sub Form_Click()
n=1
s=0
Do while
s=
n=n+1
Loop
Print s
End sub
程序代码如下:
Private Sub Form Click()
Dim ji As Integer ‘鸡
Dim tu As Integer ‘兔
Dim tui As Integer ‘腿数
Dim tou As Integer ‘头数
For ji=
For tu=1 to 25
tui= ‘计算腿的数量
tou= ji+tu ‘计算头的数量
IF Them
Print ji, tu
End If
Next tu
Next ji
End sub