浙教版初中信息技术九年级上学期期末试卷(1)
年级: 学科: 类型:期末考试 来源:91题库
一、选择题(共10小题)
二、综合题(共3小题)
d=
if d>0 then
x1= (-b + Sqr(d)) / (2 * a)
x2=
text4.text=str(x1)
text5.text=str(x2)
label6.caption=“有两个不同的实数根”
else
if then
x1=(-b)/(2*a)
x2=x1
text4.text=str(x1)
text5.text=str(x2)
label6.caption=“有两个相同的实数根”
else
text4.text=
text5.text=""
label6.caption=
end if
end if
对象名 |
属性名 |
属性 |
Command1 |
计算 |
Private Sub Command1_Click()
Dim i, s As Integer
s =
For i = 0 To 100 Step 1
Next i
Label2.Caption = Str(s)
End Sub