VB考试中程序填空题及答案解析.docVIP

VB考试中程序填空题及答案解析

1.以下是一段VB程序，它的功能是计算1到100的整数和，请补充完整代码。（10分）

```vb

PrivateSubCommand1_Click()

DimsumAsInteger

sum=0

Fori=1To100

sum=sum+i

Nexti

Printsum

EndSub

```

答案：这段代码无需补充，已经完整实现了计算1到100整数和的功能。

解析：通过循环从1到100，每次将当前的i值累加到sum变量中，最后输出sum的值。

2.下面的VB程序用于判断一个数是否为偶数，请填空完善代码。（10分）

```vb

PrivateSubCommand2_Click()

DimnumAsInteger

num=Val(InputBox(请输入一个整数))

IfnumMod2=0Then

Printnum是偶数

Else

Printnum是奇数

EndIf

EndSub

```

答案：这段代码无需补充，已经完整实现了判断一个数是否为偶数的功能。

解析：使用取模运算（Mod）判断num除以2的余数是否为0，如果是则为偶数