大学vb编程题考试题库及答案.docVIP

大学vb编程题考试题库及答案

1.以下VB代码中，若要实现计算1到100的整数和，在横线上应填入什么代码？（10分）

```vb

DimsumAsInteger

sum=0

Fori=1To100

sum=sum+i

Nexti

Printsum

```

2.有如下VB程序段：

```vb

Dima(1To5)AsInteger

a(1)=1

a(2)=2

a(3)=3

a(4)=4

a(5)=5

Fori=1To4

Forj=5Toi+1Step-1

Ifa(j)a(j-1)Then

t=a(j)

a(j)=a(j-1)

a(j-1)=t

EndIf

Nextj

Nexti

```

该程序段运行后，数组a中元素的值依次为？（10分）

3.编写一个VB程序，输入一个正整数n，计算并输出n的阶乘。（15分）

4.已知有如下VB函数：

```vb

Functionf(xAsInteger)AsInteger

Ifx=1Then

f=1

Else

f=