基础训练一 L.VB.NET程序有数组声明语句“Dim(8segr“,郑么数组a中包含(1)_个数 粗元素，分别表示为 (2》一其缺省值为(3》_· 2.执行下列程序后。s的值为： Dim i,s As Integer Din a(12),b(4)As Integer s=】 For i 1 To 12 a(i)■i Next For i 1 To 4 b(i)=a(i*3) Next For i 1 To 4 s =s +b(i) Next 3.执行下列程序后，s的值为 Dim i,j.s,a(4,4)As Integer s=0 Fori■0To4 For j=0 To 4 推(i,j》=i米j Next Next For i 0 To 4 ss a(i,i) Next 4.阅读下列程序，该程序的功能是： Dim i,m,p,n As Integer Din a()As Integer n Convert.ToInt32(txtN.Text) ReDim a(n) Labell.Text =""Label2.Text = For i =0 To n a(i)=Rmd0*(200-100)+100 Labell,Text■Labell.Text&””&a(i) Next m=a(0):p=0 For i 1 To n If n a(i)Then m=a(i)
基础训练一 1. VB.NET 程序有数组声明语句“Dim a(8) as integer”，那么数组 a 中包含 （1） 个数 组元素，分别表示为 （2） ，其缺省值为 （3） 。 2. 执行下列程序后，s 的值为： 。 Dim i, s As Integer Dim a(12), b(4) As Integer s = 1 For i = 1 To 12 a(i) = i Next For i = 1 To 4 b(i) = a(i * 3) Next For i = 1 To 4 s = s + b(i) Next 3. 执行下列程序后，s 的值为： 。 Dim i, j, s, a(4, 4) As Integer s = 0 For i = 0 To 4 For j = 0 To 4 a(i, j) = i * j Next Next For i = 0 To 4 s = s + a(i, i) Next 4. 阅读下列程序，该程序的功能是： 。 Dim i, m, p, n As Integer Dim a() As Integer n = Convert.ToInt32(txtN.Text) ReDim a(n) Label1.Text = "" : Label2.Text = "" For i = 0 To n a(i) = Rnd() * (200 - 100) + 100 Label1.Text = Label1.Text & " " & a(i) Next m = a(0) : p = 0 For i = 1 To n If m < a(i) Then m = a(i)
p=1 End If Next Label2.Text="mF”&n&“p=°&p 5.执行下列程序段后，标签控件Lae1的显示文本是！ Din i,t,a(4)As Integer t=0 Fori■0To3 a(i)=1+1 t=i+1 If t 2 Then Labell.Text a (i) a(t-l)=a(i-1) Else a(t)=a(i) End If If i 2 Then a(i 1)a(t 2) a(4)=1 Labell.Text a(i) Next 6.执行下列程序段后，s的值是： Dim i,s,a(10)As Integer For i 1 To 10 a(i)=1211 Next s=a(4+a(8)) 7,执行下列程序段后，标签控件l的显示文本是： Din i,j.a(3,3)As Integer For i 0 To 3 For j=0 To 3 a(i,j)■i*j Next Next Labell.Text =" For i =0 To 3 Forj■0Toi Labell.Text Labell.Text "a(i,j) Next Labell.Text Labell.Text Chr(10) Next &.若有数组声明语句“Dm4)as integer”,那么acgh的值：一· 9.执行下列程序段后，1和1的值分别是： Dim i,t.a(4)As Integer Fori■0 To a.Length-I
p = i End If Next Label2.Text = "m=" & m & " p=" & p 5. 执行下列程序段后，标签控件 Label1 的显示文本是： 。 Dim i, t, a(4) As Integer t = 0 For i = 0 To 3 a(i) = i + 1 t = i + 1 If t = 2 Then Label1.Text = a(i) a(t - 1) = a(i - 1) Else a(t) = a(i) End If If i = 2 Then a(i + 1) = a(t - 2) a(4) = 1 Label1.Text = a(i) Next 6. 执行下列程序段后，s 的值是： 。 Dim i, s, a(10) As Integer For i = 1 To 10 a(i) = 12 \ i Next s = a(4 + a(8)) 7. 执行下列程序段后，标签控件 Label1 的显示文本是： 。 Dim i, j, a(3, 3) As Integer For i = 0 To 3 For j = 0 To 3 a(i, j) = i * j Next Next Label1.Text = "" For i = 0 To 3 For j = 0 To i Label1.Text = Label1.Text & " " & a(i, j) Next Label1.Text = Label1.Text & Chr(10) Next 8. 若有数组声明语句“Dim a(4) as integer”，那么 a.Length 的值： 。 9. 执行下列程序段后，i 和 t 的值分别是： 。 Dim i, t, a(4) As Integer For i = 0 To a.Length - 1
进(i)■2*i+1 Next i Array.Indexof(a.4) t Array.Indexof (a,5) 10.执行下列程序段后，数组元素0小d7)的值分别是： Dim i,a(7)As Integer For i 1 To a.Length 1 a(i)=1+2 Next Array.Reverse(a.2.3)
a(i) = 2 * i + 1 Next i = Array.IndexOf(a, 4) t = Array.IndexOf(a, 5) 10. 执行下列程序段后，数组元素 a(0)~a(7)的值分别是： 。 Dim i, a(7) As Integer For i = 1 To a.Length - 1 a(i) = i + 2 Next Array.Reverse(a, 2, 3)