vb上机考试习题以及答案.pdf

VB上机考试

1、利用随机函数产生25个100到999之间的整数，构成5?5的矩阵，输出该矩

阵。Dima(1To5,1To5)

PrivateSubForm_Click()

Randomize

Fori=1To5

Forj=1To5

a(i,j)=Int(Rnd*(999-100+1)+100)

Printa(i,j);

Nextj

Print

Nexti

EndSub

2、利用随机函数产生25个10到99之间的整数，求其平均值(要求保留3位小

数，第4位四舍五入)。PrivateSubForm_Click()

Fori=1To25

a=Int(Rnd*(99-10+1)+10)

Printa;

s=s+a

Nexti

Print

Avg=s/25

PrintAvg

EndSub

3、在窗体上按下鼠标的右键，记录其坐标。

PrivateSubForm_Load()

=1

=2

EndSub

PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAs

Single,YAsSingle)

IfButton=2Then

EndIf

EndSub

4、利用随机函数产生25个10到99之间的整数，按从小到大的顺序显示。Dima(1

To25)

PrivateSubForm_Click()

Cls

Fori=1To25

a(i)=Int(Rnd*(99-10+1)+10)

Printa(i);

Nexti

Print

Fori=1To25-1

Forj=1To25-i

Ifa(j)a(j+1)Thentmp=a(j):a(j)=a(j+1):a(j+1)=tmp

Nextj

Nexti

Fori=1To25

Printa(i);

Nexti

EndSub

5、利用随机函数产生50个[1,6]之间的整数,分别统计出1的个数，2的个

数，3的个数，4的个数，5的个数和6的个数。Dima(1To6)

PrivateSubForm_Click()

Fori=1To6

a(i)=0

Nexti

Forj=1To50

x=Int(Rnd*(6-1+1)+1)

a(x)=a(x)+1

Nextj

Fori=1To6

出现了出现了次次

Nexti

EndSub

6、在文本框中输入一些英语单词，统计空格的个数。

Dimn%,xAsString,s%

PrivateSubForm_Click()

n=Len

x=

Fori=1Ton

Nexti

共出现了共出现了个空格个空格

EndSub

7、编程计算下列公式的值，其中n(10)为从键盘输入的正整数。

S=1!+3!+5!+……+(2*n-1)!PrivateSubForm_Click()

请输入一个不大于10的整数的整数

s=0

Fori=1To2*n-1Step2

p=1

Forj=1Toi

p=p*j

Nextj

s=s+p

Nexti

Prints

EndSub

8、编程计算下列公式的值，其中n(10)为从键盘输入的正整数。

S=2!+4!+6!+……+(2*n)!PrivateSubForm_Click()

请输入一个不大于10的整数的整数

s=0

Fori=2