[计算机硬件及网络]全国计算机二级VB 408合一试题答案

1、140套模拟试题的简单应用和综合应用的答案一：2（1）： index n n+2 n f12（2）： s s,s1 str(n) 3:private sub c1_click() dim x as integer x = 17999 do while x 3：dim i as integer, j as integer, n as integer for i = 1 to 7 for j = 1 to 7 if i = 1 or i = 7 or j = 1 or j = 7 then sum = sum + a(i, j) if a(i, j) mod 7 = 0 then n = n +

2、1 end if next j next i lblfirst.caption = str(n)lblsecond.caption = str(sum)三：2（1）： or num 2（2）：avg is=85 is=60 end select n-13：dim b(20) as single, i as integer, j as integer dim max as integer140套模拟试题的简单应用和综合应用的答案一：2（1）： index n n+2 n f12（2）： s s,s1 str(n) 3:private sub c1_click() dim x as integer

3、 x = 17999 do while x 3：dim i as integer, j as integer, n as integer for i = 1 to 7 for j = 1 to 7 if i = 1 or i = 7 or j = 1 or j = 7 then sum = sum + a(i, j) if a(i, j) mod 7 = 0 then n = n + 1 end if next j next i lblfirst.caption = str(n)lblsecond.caption = str(sum)三：2（1）： or num 2（2）：avg is=85

4、is=60 end select n-13：dim b(20) as single, i as integer, j as integer dim max as integer140套模拟试题的简单应用和综合应用的答案一：2（1）： index n n+2 n f12（2）： s s,s1 str(n) 3:private sub c1_click() dim x as integer x = 17999 do while x 3：dim i as integer, j as integer, n as integer for i = 1 to 7 for j = 1 to 7 if i =

5、1 or i = 7 or j = 1 or j = 7 then sum = sum + a(i, j) if a(i, j) mod 7 = 0 then n = n + 1 end if next j next i lblfirst.caption = str(n)lblsecond.caption = str(sum)三：2（1）： or num 2（2）：avg is=85 is=60 end select n-13：dim b(20) as single, i as integer, j as integer dim max as integer140套模拟试题的简单应用和综合应用

6、的答案一：2（1）： index n n+2 n f12（2）： s s,s1 str(n) 3:private sub c1_click() dim x as integer x = 17999 do while x 3：dim i as integer, j as integer, n as integer for i = 1 to 7 for j = 1 to 7 if i = 1 or i = 7 or j = 1 or j = 7 then sum = sum + a(i, j) if a(i, j) mod 7 = 0 then n = n + 1 end if next j ne

7、xt i lblfirst.caption = str(n)lblsecond.caption = str(sum)三：2（1）： or num 2（2）：avg is=85 is=60 end select n-13：dim b(20) as single, i as integer, j as integer dim max as integer140套模拟试题的简单应用和综合应用的答案一：2（1）： index n n+2 n f12（2）： s s,s1 str(n) 3:private sub c1_click() dim x as integer x = 17999 do whil

8、e x 3：dim i as integer, j as integer, n as integer for i = 1 to 7 for j = 1 to 7 if i = 1 or i = 7 or j = 1 or j = 7 then sum = sum + a(i, j) if a(i, j) mod 7 = 0 then n = n + 1 end if next j next i lblfirst.caption = str(n)lblsecond.caption = str(sum)三：2（1）： or num 2（2）：avg is=85 is=60 end select n

9、-13：dim b(20) as single, i as integer, j as integer dim max as integer140套模拟试题的简单应用和综合应用的答案一：2（1）： index n n+2 n f12（2）： s s,s1 str(n) 3:private sub c1_click() dim x as integer x = 17999 do while x 3：dim i as integer, j as integer, n as integer for i = 1 to 7 for j = 1 to 7 if i = 1 or i = 7 or j =

10、1 or j = 7 then sum = sum + a(i, j) if a(i, j) mod 7 = 0 then n = n + 1 end if next j next i lblfirst.caption = str(n)lblsecond.caption = str(sum)三：2（1）： or num 2（2）：avg is=85 is=60 end select n-13：dim b(20) as single, i as integer, j as integer dim max as integer140套模拟试题的简单应用和综合应用的答案一：2（1）： index n

11、 n+2 n f12（2）： s s,s1 str(n) 3:private sub c1_click() dim x as integer x = 17999 do while x 3：dim i as integer, j as integer, n as integer for i = 1 to 7 for j = 1 to 7 if i = 1 or i = 7 or j = 1 or j = 7 then sum = sum + a(i, j) if a(i, j) mod 7 = 0 then n = n + 1 end if next j next i lblfirst.capt

12、ion = str(n)lblsecond.caption = str(sum)三：2（1）： or num 2（2）：avg is=85 is=60 end select n-13：dim b(20) as single, i as integer, j as integer dim max as integer140套模拟试题的简单应用和综合应用的答案一：2（1）： index n n+2 n f12（2）： s s,s1 str(n) 3:private sub c1_click() dim x as integer x = 17999 do while x 3：dim i as int

13、eger, j as integer, n as integer for i = 1 to 7 for j = 1 to 7 if i = 1 or i = 7 or j = 1 or j = 7 then sum = sum + a(i, j) if a(i, j) mod 7 = 0 then n = n + 1 end if next j next i lblfirst.caption = str(n)lblsecond.caption = str(sum)三：2（1）： or num 2（2）：avg is=85 is=60 end select n-13：dim b(20) as s

14、ingle, i as integer, j as integer dim max as integerfor i = 1 to 20 for j = 1 to 5 b(i) = b(i) + a(i, j) next j b(i) = b(i) / 5 next i max = b(1) for i = 2 to 20 if max b(j) then t = b(i) b(i) = b(j) b(j) = t end if next j next i五：2（1）： x y2（2）：list1,list2 l1.text l1.listindex list1.listcount-13：for

15、 i = 1 to n for j = 1 to n if i = j or i + j = 8 then if a(i, j) mod 3 = 0 then counter = counter + 1 end if if i = j then sum = sum + a(i, j) next j next ifor i = 1 to 20 for j = 1 to 5 b(i) = b(i) + a(i, j) next j b(i) = b(i) / 5 next i max = b(1) for i = 2 to 20 if max b(j) then t = b(i) b(i) = b

16、(j) b(j) = t end if next j next i五：2（1）： x y2（2）：list1,list2 l1.text l1.listindex list1.listcount-13：for i = 1 to n for j = 1 to n if i = j or i + j = 8 then if a(i, j) mod 3 = 0 then counter = counter + 1 end if if i = j then sum = sum + a(i, j) next j next ifor i = 1 to 20 for j = 1 to 5 b(i) = b(

17、i) + a(i, j) next j b(i) = b(i) / 5 next i max = b(1) for i = 2 to 20 if max b(j) then t = b(i) b(i) = b(j) b(j) = t end if next j next i五：2（1）： x y2（2）：list1,list2 l1.text l1.listindex list1.listcount-13：for i = 1 to n for j = 1 to n if i = j or i + j = 8 then if a(i, j) mod 3 = 0 then counter = co

18、unter + 1 end if if i = j then sum = sum + a(i, j) next j next ifor i = 1 to 20 for j = 1 to 5 b(i) = b(i) + a(i, j) next j b(i) = b(i) / 5 next i max = b(1) for i = 2 to 20 if max b(j) then t = b(i) b(i) = b(j) b(j) = t end if next j next i五：2（1）： x y2（2）：list1,list2 l1.text l1.listindex list1.list

19、count-13：for i = 1 to n for j = 1 to n if i = j or i + j = 8 then if a(i, j) mod 3 = 0 then counter = counter + 1 end if if i = j then sum = sum + a(i, j) next j next ifor i = 1 to 20 for j = 1 to 5 b(i) = b(i) + a(i, j) next j b(i) = b(i) / 5 next i max = b(1) for i = 2 to 20 if max b(j) then t = b

20、(i) b(i) = b(j) b(j) = t end if next j next i五：2（1）： x y2（2）：list1,list2 l1.text l1.listindex list1.listcount-13：for i = 1 to n for j = 1 to n if i = j or i + j = 8 then if a(i, j) mod 3 = 0 then counter = counter + 1 end if if i = j then sum = sum + a(i, j) next j next ifor i = 1 to 20 for j = 1 to

21、 5 b(i) = b(i) + a(i, j) next j b(i) = b(i) / 5 next i max = b(1) for i = 2 to 20 if max b(j) then t = b(i) b(i) = b(j) b(j) = t end if next j next i五：2（1）： x y2（2）：list1,list2 l1.text l1.listindex list1.listcount-13：for i = 1 to n for j = 1 to n if i = j or i + j = 8 then if a(i, j) mod 3 = 0 then

22、counter = counter + 1 end if if i = j then sum = sum + a(i, j) next j next ifor i = 1 to 20 for j = 1 to 5 b(i) = b(i) + a(i, j) next j b(i) = b(i) / 5 next i max = b(1) for i = 2 to 20 if max b(j) then t = b(i) b(i) = b(j) b(j) = t end if next j next i五：2（1）： x y2（2）：list1,list2 l1.text l1.listinde

23、x list1.listcount-13：for i = 1 to n for j = 1 to n if i = j or i + j = 8 then if a(i, j) mod 3 = 0 then counter = counter + 1 end if if i = j then sum = sum + a(i, j) next j next ifor i = 1 to 20 for j = 1 to 5 b(i) = b(i) + a(i, j) next j b(i) = b(i) / 5 next i max = b(1) for i = 2 to 20 if max b(j

24、) then t = b(i) b(i) = b(j) b(j) = t end if next j next i五：2（1）： x b(i) then min = b(i) next i label3.caption = str(n) label4.caption = str(min)八：2（1）：len asc b 2 x(i).caption2（2）：la.listcount la la3： eof(1) str(a(i)dim i as integer, j as integer, t as integerfor i = 1 to 9 for j = i + 1 to 10 if a(

25、i) a(j) then lblfirst.caption = str(counter)lblsecond.caption = str(sum)六：2（1）： 2 true flag2（2）： 0 sellength t text2.text3：for k = 1 to 100 for i = 2 to a(k) - 1 if a(k) mod i = 0 then exit for next i if i = a(k) then num = num + 1 b(num) = a(k) end if next k七：2（1）：true height false2（2）：tmp*a tmp xn

26、(t,i) str(z)3:dim i as integer, min as integer dim b(40) as integer, n as integer for i = 1 to 40 if prime(arr(i) then n = n + 1 b(n) = arr(i) end if next i min = b(1) for i = 2 to n if min b(i) then min = b(i) next i label3.caption = str(n) label4.caption = str(min)八：2（1）：len asc b 2 x(i).caption2（2）：la.listcount la la3： eof(1) str(a(i)dim i as integer, j as integer, t as integerfor i = 1 to 9 for j = i + 1 to 1