vb考试操作题目及答案.docxVIP

vb考试操作题目及答案

一、程序填空题（本题型共15题，每题4分，共60分）

1.以下程序的功能是计算1+2+…+100的和，补全代码。

```vb

PrivateSubCommand1_Click()

DimsAsInteger,iAsInteger

s=0

Fori=1To100

s=s+______

Nexti

Print和为：;s

EndSub

```

2.以下程序用于在文本框`Text1`中显示“HelloVB”，补全代码。

```vb

PrivateSubForm_Load()

Text1.______=HelloVB

EndSub

```

3.以下程序实现从键盘输入一个数，判断是否为偶数，补全代码。

```vb

PrivateSubCommand2_Click()

DimnumAsInteger

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

IfnumMod2______Then

Printnum;是偶数

Else

Printnum;是奇数

EndIf

EndSub

```

4.以下程序用数组存储5