高中信息技术会考测试题

' 算法描述：
'注意事项：
' 1、请在func() 函数中实现算法，返回算法结果' 2、请不要修改Main() 过程
Function func()
Dim i As Integer, s As Integer
s = 0
For i = 2 To 100 step 2
s = s + i
Next i
func = s
End Function
'
' 请不要修改Main() 过程！
'
Sub Main()
If Command = "assess" Then
Open "in.txt" For Input As #1
Line Input #1, n
Close #1
Open "out.txt" For Output As #1
Print #1, func()
Close #1
Else
MsgBox func()
End If
End Sub
Function func()
Dim A As Single
Dim B As Single
Dim H As Single
Dim V As Single
A = 5
B = 6
H = 20
V = A*B*H
func = "长方体的体积V=" & V
End Function
'
' 请不要修改Main() 过程！
'
Sub Main()
If Command = "assess" Then
Open "in.txt" For Input As #1
Line Input #1, n
Close #1
Open "out.txt" For Output As #1
Print #1, func()
Close #1
Else
MsgBox func()
End If
End Sub
Function func()
Dim a As Integer, x As Integer
a = 178
If a/2= Int(a / 2) Then
x =0
Else
x =1
End If
func = x
End Function
'
' 请不要修改Main() 过程！
'
Sub Main()
If Command = "assess" Then
Open "in.txt" For Input As #1
Line Input #1, n
Close #1
Open "out.txt" For Output As #1
Print #1, func()
Close #1
Else
MsgBox func()
End If
End Sub
Function func()
Dim A As Single
Dim B As Single
Dim H As Single
Dim V As Single
A = 8
B = 7
H = 12
V = ___________
func = "长方体的体积V=" & V
End Function
'
' 请不要修改Main() 过程！
'
Sub Main()
If Command = "assess" Then
Open "in.txt" For Input As #1
Line Input #1, n
Close #1
Open "out.txt" For Output As #1
Print #1, func()
Close #1
Else
MsgBox func()
End If
End Sub
Function func()
Dim i As Integer, s As Integer
s = 0
For i = 2 To 100 Step 2
s = s + i
Next i
func = s
End Function
'
' 请不要修改Main() 过程！
'
Sub Main()
If Command = "assess" Then
Open "in.txt" For Input As #1
Line Input #1, n
Close #1
Open "out.txt" For Output As #1
Print #1, func()
Close #1
Else
MsgBox func()
End If
End Sub
Function func()
Dim m As Integer, n As Integer
m= 128
If m <= 70 Then
n =
Else
n = 4 * 70 + 6 * (m - 70)
End If
func = "房租费n=" & n
End Function
If x<=500 then
X=a
Else
X=500+(a-500)*0.8
End if
'
' 请不要修改Main() 过程！
'
Sub Main()
If Command = "assess" Then
Open "in.txt" For Input As #1
Line Input #1, n
Close #1
Open "out.txt" For Output As #1
Print #1, func()
Close #1
Else
MsgBox func()
End If
End Sub
Function func()
Dim a As Single
Dim s As Single
R = 3
s =3.14*R^2
func = "圆的面积s=" & s
End Function
'
' 请不要修改Main() 过程！
'
Sub Main()
If Command = "assess" Then
Open "in.txt" For Input As #1
Line Input #1, n
Close #1
Open "out.txt" For Output As #1
Print #1, func()
Close #1
Else
MsgBox func()
End If
End Sub。