VB上机考试习题以

VB上机考试习题以及答案VB上机考试习题以及答案20/20螆PAGE20膆蕿螁聿薇芃膇薈薄膈薀罿蚇蒄薈袆芆螇薃衿螇蚅蚅膄螄蚀莂螀袇蚂肆蚆蒅艿膀蚀膁袃蒆羄羃袈膃薀芁膄袇薆蚅蒈羂薀莁肂芈袄肃肇蚁蒀蒀莃蒅莇袅羀蒀莀薀薄袆蚅芃蕿蒃芀薀螅芇膇羅膈节膀蚀螂蚈蒅蒂螇肁肁螀羃螅肇膄莆蝿羁袀芄膅芅薂腿袂羁羀膁薆袇莄蝿薁袁肀蒃羇膆螂莈莀螁腿蚄莈蚈蒄羇莃蚁腿袅蒅羆芆袀膂薁艿袂袆芄蚄葿羁蒁荿肃芇螆莆肈螀莂葿芄蚈肄袃蚇螂莂蕿芁袄蚆薅芆薁节虿蒂芅袄羃肀芀膂虿螄蚆蒇螅虿莃肂螈羅肇螅膃芈肂羂袈羂蒈芇袅袇袁袂羈膃薅薅莃螀蚀袂肈莄羆膇肅荿蚃螃膈蚅莇莅薂羈蒁蚃芈薂螇羇芄薇膀艿芈袃膈芅蚂膇芃腿莈肅莅螈蒄羀羂腿蒇肂螆肆膆蕿螁聿薇芃膇薈薄膈薀罿蚇蒄薈袆芆螇薃衿螇蚅蚅膄螄蚀莂螀袇蚂肆蚆蒅艿膀蚀膁袃蒆薂羃莇膃膈芁蚃袇肅蚅羆羂肈莁蚀芈莃肃薅蚁羈蒀袁蒅袅袅蒈蒀袈薀肂袆膃芃肇蒃螈薀莃芇螅羅蚆节虿蚀芀蚈羃蒂芅肁虿螀薁螅薅膄袄蝿蕿袀螂膅袃薂蚈袂葿羀螀薆莆莄芇薁荿肀羁羇蚄螂袆莀艿腿膂莈芆蒄蒅莃腿VB上机考试习题以及答案VB上机考试

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

阵。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

2EndSub

PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)

IfButton=2Then

X&","&YEndIfEndSub

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

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

Printi&"出现了"&a(i);"次"

Nexti

EndSub

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

PrivateSubForm_Click()

n=Len

x=

Fori=1Ton

IfMid(x,i,1)=""Thens=s+1

Nexti

Print"共出了"&s&"个空格"

EndSub

7、程算以下公式的，其中n(<10)从入的正整数。

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

n=Val(InputBox("入一个不大于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()

n=Val(InputBox("入一个不大于10的整数"))

s=0

Fori=2To2*nStep2

p=1

Forj=1Toi

p=p*j

Nextj

s=s+p

Nexti

Prints

EndSub

9、用For⋯Next句程，双窗体后，在屏幕上示如：

PrivateSubForm_Click()

a=0

Fori=1To3

PrintTab(8-2*i-1);

Forj=1To2*i-1

a=a+1

PrintStr(a);

Nextj

Print

Nexti

EndSub

10、用For⋯Next句程，双窗体后，在屏幕上示如：

PrivateSubForm_DblClick()

Fori=1To3

PrintTab(11-3*i);

Forj=2To10Step2

Printj;

Nextj

Print

Nexti

EndSub

11、用For⋯Next句程，双窗体后，在屏幕上示如：

PrivateSubForm_Click()

Fori=1To3

x=2*i+1

PrintTab(10-3*i);

Forj=1To5

Printx;

Nextj

Print

Nexti

EndSub

12、从文本框输入一个正整数，判断该数可否为素数。DimaAsLong

PrivateSubForm_Click()

a=Val

Ifa=2Then

Tag=True

ElseIfaMod2=0Then

Tag=False

Else

Tag=True

Fori=3ToSqr(a)Step2

IfaModi=0ThenTag=False:ExitFor

Nexti

EndIf

IfTag=TrueThen

Printa;"是素数"

Else

Printa;"不是素数"

EndIf

EndSub

13、利用随机函数产生并显示10个3位数的正整数，找出其中的最大数。OptionExplicit

Dimi%,max%,loc%

Dima(1To10)AsInteger

PrivateSubForm_Click()

Randomize

Fori=1To10

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

Printa(i)

Nexti

max=a(1):loc=1变'量赋值，假设a(1)为最大数

Fori=2To10

Ifa(i)>maxThenmax=a(i):loc=i

Nexti

Print"最大的数是";max

Print"在数组中是第";loc;"个数"

EndSub

14、利用随机函数产生并显示10个4位数的正整数，找出其中的最小数。OptionExplicitDimi%,min%,loc%

Dima(1To10)AsInteger

PrivateSubForm_Click()

Randomize

Fori=1To10

a(i)=Int(Rnd*(9999-1000+1)+1000)

Printa(i)

Nexti

min=9999

Fori=1To10

Ifa(i)<minThenmin=a(i):loc=i

Nexti

Print"最小的数是";min

Print"在数组中是第";loc;"个数"

EndSub

15、当按下鼠标左键时，窗体的背景色变为红色；松开鼠标左键时，窗体的背景

色变为绿色。PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)

IfButton=1Then=vbRed

EndSub

PrivateSubForm_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)

IfButton=1Then=vbGreen

EndSub

16、编制一个时钟程序，以以下列图

OptionExplicit

PrivateSubForm_Load()

vbWhite

1

2

True

1000EndSub

PrivateSubTimer1_Timer()

TimeEndSub

17、从键盘输入10个数，按输入的序次和按输入序次相反的序次输出。Option

Explicit

Dimi%

Dima(1To10)AsSingle

PrivateSubForm_Click()

Fori=1To10

a(i)=Val(InputBox("请输入第"&i&"个数"))

Printa(i);

Nexti

Print

Fori=10To1Step-1

Printa(i);

Nexti

EndSub

18、计算圆面积的程序。程序运行时，单击窗体，尔后在以下列图所示的输入框中输入圆的半径，即可在窗体上显示计算出的圆面积。

OptionExplicit

Dimr%,aAsSingle

ConstpiAsSingle=

PrivateSubForm_Click()

r=Val(InputBox("请输入圆半径"&vbCrLf&"（1-9）：","输入",5))

a=pi*r^2

Print"半径为";r;"的圆面积为";a

EndSub

19、编写一个时钟程序，当选择“24小时”时，以24小时的方式显示如A，当选择“12小时”时，以12小时的方式显示如B。

Private

SubForm_Load()

=1000

EndSub

PrivateSubTimer1_Timer()

SelectCaseTrue

Case

Time

Case

Format(Time,"HH:MM:SSAM/PM")EndSelect

EndSub

20、设计一个程序，用户界面以下列图。程序运行后，用户在文本框中输入一段文字，尔后按需要单击选择框，用以改变文本的字体、字型、颜色以及大小。

OptionExplicit

PrivateSubCheck1_Click()

If=1Then

"黑体"

Else

"宋体"EndIfEndSub

PrivateSubCheck2_Click()

If=1Then

True

Else

False

EndIf

EndSub

PrivateSubCheck3_Click()

If=1Then

20

Else

9EndIfEndSub

PrivateSubCheck4_Click()

If=1Then

vbGreen

Else

vbBlack

EndIf

EndSub

PrivateSubCommand1_Click()

""

EndSub

PrivateSubCommand2_Click()

End

EndSub

20做出2个周期的正弦波形.PrivateSubForm_Click()

Dimi%,x#,y#

ConstpiAsString=

(-2*pi,-(2*pi,

(-2*pi,0)-(2*pi,0)

(0,-(0,

Forx=-2*piTo2*piStep

y=Sin(x)

(x,y)

Nextx

EndSub

21以窗体为中心,产生1000个半径颜色随机的同心圆.

PrivateSubForm_Click()

Fori=1To1000x=/2y=/2r=Int(Rnd*y)

c=RGB(255*Rnd,255*Rnd,255*Rnd)

(x,y),r,c

Next

EndSub

PrivateSubForm_Click()

Dimi%,j%

"九九乘法表"PrintTab(48);CaptionPrintTab(48);""Fori=1To9

Forj=1Toi

PrintTab((j-