教材习题及答案

‘—7—

Module Module1

Sub Main()

Dim A() As Integer = {23, 34, 56, 78, 12, 2, 45, 6, 7, 90} Dim x As Integer = 56

Console.WriteLine(\

End Sub

Function IsHere(ByVal A() As Integer, ByVal x As Integer) As Integer For i As Integer = 0 To A.Length - 1 If x = A(i) Then Return i End If Next Return -1 End Function

End Module

‘—8—

Module Module1

Sub Main()

Console.WriteLine(\请输入工作时间，工作年数（整数）,以空格分隔并以回车结束\

Dim s0 As String = Console.ReadLine() Dim sSplit() As String = s0.Split(\

Dim t, y, sperh As Integer t = Convert.ToInt32(sSplit(0)) y = Convert.ToInt32(sSplit(1)) Dim s As Single

If y >= 5 Then sperh = 50 Else

sperh = 30 End If

If t < 40 Then s = t * sperh

Else

s = 40 * sperh + (t - 40) * sperh * 1.5 End If

Console.WriteLine(\工资是{0:N2}\

End Sub

End Module

‘—9—

Module Module1

Sub Main()

Console.WriteLine(\请输入年 月 日,以空格分隔并以回车结束\ Dim s0 As String = Console.ReadLine() Dim sSplit() As String = s0.Split(\

Dim y, m, d As Integer

y = Convert.ToInt32(sSplit(0)) m = Convert.ToInt32(sSplit(1)) d = Convert.ToInt32(sSplit(2))

Dim s As Integer = 0 Dim mm As Integer

For i As Integer = 1 To m - 1

If ((i <= 7) And (i Mod 2 = 1)) Or ((i >= 8) And (i Mod 2 = 0)) Then mm = 31 Else

If i = 2 And (((y Mod 4 = 0) And (y Mod 100 <> 0)) Or (y Mod 400 = 0)) Then

mm = 29 Else

If i = 2 Then mm = 28 Else

mm = 30 End If End If End If s = s + mm Next s = s + d

Console.WriteLine(\

End Sub

End Module

‘—10—

Module Module1

Sub Main()

Console.WriteLine(\请输入n\

Dim s As String = Console.ReadLine() Dim n As Integer = Convert.ToInt32(s) Dim y As Integer = 1 For i = 1 To n - 1 y = 2 * (y + 1) Next

Console.WriteLine(\桃子数是{0}\ End Sub

End Module

‘—11—

Module Module1

Sub Main()

For x As Integer = 0 To 50

For y As Integer = 0 To 50 - x If x * 2 + y * 4 = 160 Then

Console.WriteLine(\钥匙扣{0}个，漫画书{1}本\ End If Next Next End Sub

End Module

‘—12—

Module Module1

Sub Main()

For x As Integer = 100 To 999 Dim a As Integer = x Mod 10

Dim b As Integer = (x \\ 10) Mod 10 Dim c As Integer = x \\ 100

If a ^ 3 + b ^ 3 + c ^ 3 = x Then

Console.WriteLine(\ End If Next End Sub

End Module

‘—13—

Module Module1

Sub Main()

Dim ins As String = Console.ReadLine() Dim n As Integer = Convert.ToInt32(ins) If IsSquare(n) Then

Console.WriteLine(\ Else

Console.WriteLine(\ End If End Sub

Function IsSquare(ByVal n As Integer) As Boolean Dim i As Integer = 1 For i = 1 To n / i If i * i = n Then Return True End If Next

Return False End Function

End Module

‘—14—

Module Module1 Structure count

Dim x As Integer Dim c As Integer End Structure

Sub Main()

Dim A() As Integer = {2, 3, 3, 3, 4, 5, 5, 5} Dim cou(20) As count Dim i As Integer = 0

For Each k As Integer In A