大学vb点虐 答案 vb课后答案

Windows程序设计（VB.NET）》在线作业二

1.C

雄县网站制作公司哪家好，找创新互联建站！从网页设计、网站建设、微信开发、APP开发、响应式网站等网站项目制作，到程序开发，运营维护。创新互联建站于2013年创立到现在10年的时间，我们拥有了丰富的建站经验和运维经验，来保证我们的工作的顺利进行。专注于网站建设就选创新互联建站。

2.A

3.A

4.A

5.A

6.C

7.D

8.A

9.A

10.D

11.D

12.D

13.B

14.D

15.A

16.B

17.C

18.A

1.A

2.B

VB.NET 考试题目 急 求高手啊

(1)ByVal num as Integer() ,ByVal strInput as string

(2) strInput.Length -1

(3)strScript(i)

(4) Num(j)+1

Function mysqr(ByVal num) as string

Dim retVal as string

if num0 then

num =-num

retVal =Math.Sqrt(num).tostring +"i"

else

retVal =Math.Sqrt(num).tostring

end if

return retVal

End function

16.在VB.NET中，如果保留动态数组元素原来的值，在关键字Redim后加_____参数。

Redim Preserve Arr(10,n)

通过Preserve关键字定义的动态数组，可以更改数组arr最末维的大小，且保留数组arr原来各个元素的值。

所以答案为：C

例如：

Dim arr()

Redim arr(1 to 1,1 to 2)

arr(1,2) = "你好"

Redim Preserve arr(1 to 1, 1 to 3)

msgbox arr(1,2) '这个时候依然可以得到arr(1,2)的值为“你好”。

而且从答案来看，Redim只可能与Preserve联合使用。其他都无法编译！

VB.NET程序题

1、

For j = 3 To 19 Step 4

m += 1

Next

为循环5次

For i = 1 To 15 Step 4

Next

为循环4次

则总共循环4*5=20,m没循环一次+1，则m=20

2、从下面这段可以看出“*”与“#”是同步的(因为走else时，会继续循环)，有“*”肯定“#”，而输出“*”只有当i=2,4时，则有2次，为*#*#

For i = 1 To 5

If i Mod 2 = 0 Then

Console.Write("*")

Else

ContinueFor

EndIf

Console.Write("#")

Next

在加上最後次输出：Console.WriteLine("$")

结果则为：*#*#$