大学计算机VB考试上机题库

1、求100以内的素数。Private

Sub

Form_Click()Dim

i%,

j%For

i

=

2

To

100

For

j

=

2

To

i

-

1

If

i

Mod

j

=

0

Then

Exit

For

Next

j

If

j

=

i

Then

Print

iNext

iEnd

Sub2、从键盘输入任意长度的字符串，要求将字符顺序倒置，例如，将输入的“ABCDEFG”变换成“GFEDCBA”。Private

Sub

Command1_Click()Dim

a$,

I%,

c$,

d$,

n%a

=

InputBox$("输入字符串")n

=

Len(a)For

I

=

1

To

Int(n

\

2)

c

=

Mid(a,

I,

1)

Mid(a,

I,

1)

=

Mid(a,

n

-

I

+

1,

1)

Mid(a,

n

-

I

+

1,

1)

=

c

Next

I

Print

a

End

Sub3、计算0~200之间所有能被11或5整除的数之和Private

Sub

Form_Click()Dim

n%,

i%n

=

0

For

i

=

1

To

200

If

i

Mod

11

=

0

Or

i

Mod

5

=

0

Then

n

=

n

+

i

End

If

Next

i

Print

nEnd

Sub4、输入一年份，判断它是否为闰年，并显示有关信息。（判断闰年的条件是：年份能被4整除但不能被100整除，或者能被400整除）Private

Sub

Command1_Click()Dim

y%y

=

InputBox("请输入年数")If

y

Mod

4

=

0

And

y

Mod

100

<>

0

Or

y

Mod

400

=

0

Then

MsgBox

(y

&

"年是闰年")Else

MsgBox

(y

&

"年是平年")End

IfEnd

Sub5、已知x,y,z

3个变量中存放了3个不同的数，比较它们的大小并进行调整，使得x<y<z。Private

Sub

Command1_Click()Dim

x!,

y!,

z!x

=

InputBox("inputx")y

=

InputBox("inputy")z

=

InputBox("inputz")Print

"

x

y

z"If

x

>

y

Then

t

=

x:

x

=

y:

y

=

tIf

x

>

z

Then

t

=

x:

x

=

z:

z

=

tIf

y

>

z

Then

t

=

y:

y

=

z:

z

=

tPrint

"排序后";

x;

"

";

y;

"

";

zFor

i

=

0

To

400s

=

99

+

is1

=

(s

Mod

100)

\

10s2

=

s

Mod

10s3

=

s

\

100If

s1

^

3

+

s2

^

3

+

s3

^

3

=

s

Thena

=

s

+

aEnd

IfNext

iPrint

aEnd

Sub12、随机产生一个三位正整数，然后逆序输出，产生的数与逆序数同时显示。例如，产生246，输出是642。Dim

a%,

m%,

b%,

c%,

d%Private

Sub

Form_Click()

a

=

Int(Rnd

*

900

+

100)

Print

a

d

=

(a

Mod

10)

*

100

b

=

(a

Mod

100)

-

(a

Mod

10)

c

=

a

\

100

m

=

c

+

b

+

d

Print

mEnd

Sub13、从键盘输入三角形的三条边a，b，c的值，根据其数值，判断能否构成三角形。Private

Sub

Form_Click()Dim

a%,

b%,

c%

a

=

Val(InputBox("input

a"))

b

=

Val(InputBox("input

b"))

c

=

Val(InputBox("input

c"))If

a

+

b

>

c

And

a

+

c

>

b

And

b

+

c

>

a

Then

MsgBox

("能构成三角形")Else

MsgBox

("不能构成三角形")End

IfEnd

Sub14、已知数组a()，编程删除a中第5个元素。数组a中的元素分别为{12，6，4，89，75，63，100，20，31}。Private

Sub

Form_Click()Dim

a(),

i%,

n%

a

=

Array(12,

6,

4,

89,

75,

63,

100,

20,

31)

n

=

UBound(a)

For

i

=

0

To

n

Print

a(i);

Next

i

PrintFor

i

=

5

To

n

a(i

-

1)

=

a(i)Next

i

n

=

n

-

1ReDim

Preserve

a(n)For

i

=

0

To

n

Print

a(i);Next

iPrintEnd

Sub15、随机生成一个整型的二维数组，范围在[10,20]之间，以上三角形式输出该数组。（下三角、全部元素）Dim

a%(4,

4)Dim

a%(4,

4)Private

Sub

Command1_Click()Picture1.ClsFor

i

=

0

To

4

For

j

=

i

To

4

Picture1.Print

Tab(j

*

6);

a(i,

j);

Next

j

Picture1.PrintNext

iEnd

SubPrivate

Sub

Form_Load()For

i

=

0

To

4

For

j

=

0

To

4

a(i,

j)

=

Int(Rnd

*

11

+

10)

Next

jNext

iEnd

Sub16、利用随机函数生成一个4×4的矩阵(即二维矩阵),范围是[20,50]内的整数,输出每行中的最大值和下标。Private

Sub

Form_Click()Dim

a%(3,

3),

s0%,

s1%,

s2%,

s3%,

b0%,

b1%,

b2%,

b3%Max

=

40For

i

=

0

To

3

For

j

=

0

To

3a(i,

j)

=

Int(Rnd

*

31

+

20)Print

Tab(j

*

5);

a(i,

j);If

a(0,

j)

>=

Max

Then

s0

=

a(0,

j):

b0

=

jIf

a(1,

j)

>=

Max

Then

s1

=

a(1,

j):

b1

=

jIf

a(2,

j)

>=

Max

Then

s2

=

a(2,

j):

b2

=

jIf

a(3,

j)

>=

Max

Then

s3

=

a(3,

j):

b3

=

jNext

jNext

iPrintPrint

"

第一行";

s0;

"(";

0;

b0;

")"Print

"

第二行";

s1;

"(";

1;

b1;

")"Print

"

第三行";

s2;

"(";

2;

b2;

")"Print

"

第四行";

s3;

"(";

3;

b3;

")"End

Sub17、利用随机函数生成一个4×4的矩阵(即二维矩阵),范围是[40,80]内的整数，求它的最大值及所对应的下标。Private

Sub

Form_Click()Dim

a%(3,

3)Min

=

80For

i

=

0

To

3

For

j

=

0

To

3a(i,

j)

=

Int(Rnd

*

41

+

40)Print

Tab(j

*

5);

a(i,

j);If

a(i,

j)

<=

Min

ThenMin

=

a(i,

j):

b

=

i:

c

=

jEnd

IfNext

jNext

iPrintPrint

"最小值为";

MinPrint

"其下标为";

"(";

b,

c;

")"End

Sub18、输入一系列字符串，编程求出长度最大的字符串并输出其所对应的次序。Private

Sub

Form_Click()Dim

a(5)

as

string,b(4)

as

integer,t%,max%,imax%For

i

=1

to

5a(i)=inputbox("a")Next

iFor

i

=0

to

4b(i)=len(trim(a(i)))Next

iMax=1For

i

=0

to

4If

max<b(i)

then

max=b(i):imax=iNext

iPrint

"max=";a(i)Print

"cixu=",imax+1End

sub19、利用随机函数生成一个4×4的矩阵(即二维矩阵),范围是[20,50]内的整数,输出该矩阵所有数据之和

Private

Sub

Form_Click()

Dim

a%(3,

3)

For

i

=

0

To

3

For

j

=

0

To

3

a(i,

j)

=

Int(Rnd

*

31

+

20)

Print

Tab(j

*

5);

a(i,

j);

Next

j

Next

i

s

=

a(0,

0)

+

a(1,

1)

+

a(2,

2)

+

a(3,

3)

+

a(3,

0)

+

a(2,

1)

+

a(1,

2)

+

a(0,

3)

Print

s;End

Sub20、输入一系列字符串，将字符串按递减次序排列。请编程实现。Dim

a()

As

String,

n%,

i%,

j%Private

Sub

Command1_Click()n

=

Text1ReDim

a(1

To

n)

As

StringFor

i

=

LBound(a)

To

UBound(a)a(i)

=

InputBox("请输入字符串")Picture1.Print

a(i);

Spc(1);Next

iEnd

Sub

Private

Sub

Command2_Click()For

i

=

1

To

n

For

j

=

1

To

n

-

i

If

a(j)

<

a(j

+

1)

Then

t

=

a(j):

a(j)

=

a(j

+

1):

a(j

+

1)

=

t

Next

jNext

iFor

i

=

1

To

nPicture2.Print

a(i);

Spc(1);Next

iEnd

Sub

Private

Sub

Form_Load()Text1

=

""End

Sub21、随机产生10个[30,100]内的整数，求最大值、最小值和平均值。Dim

a(1

To

10)

As

Integer,

amin,

amax,

i%,

avera!Private

Sub

Form_Click()

For

i

=

1

To

10

a(i)

=

Int(Rnd

*

71

+

30)

Next

i

amin

=

a(1)

amax

=

a(1)

avera

=

a(1)

For

i

=

2

To

10

If

a(i)

>

amax

Then

amax

=

a(i)

If

a(i)

<

amin

Then

amin

=

a(i)

avera

=

avera

+

a(i)

Next

i

For

i

=

1

To

10

Print

a(i);

Next

i

Print

Print

"max=";

amax,

"min=";

amin,

"avera=";

avera

/

10End

Sub22、定义三个4×4的二维数组A,B,C，A和B中的元素均随机生成，数组A的范围是1～20，数组B的范围是100～200，数组C是A和B相乘得到的。请编程生成并输出A,B,C。（相加）Dim

a%(3,

3),

b%(3,

3),

c%(3,

3)Private

Sub

Command1_Click()Picture1.ClsFor

i

=

0

To

3

For

j

=

0

To

3

Picture1.Print

Tab(j

*

6);

a(i,

j);

Next

j

Picture1.PrintNext

iEnd

SubPrivate

Sub

Command2_Click()Picture2.ClsFor

i

=

0

To

3

For

j

=

0

To

3

Picture2.Print

b(i,

j);

"";

Next

j

Picture2.PrintNext

iEnd

SubPrivate

Sub

Command3_Click()Picture3.ClsFor

i

=

0

To

3

For

j

=

0

To

3

Picture3.Print

Tab(j

*

7);

c(i,

j);

Next

j

Picture3.PrintNext

iEnd

SubPrivate

Sub

Form_Load()23、随机产生15个小写字母，放在字符数组中。提示：c=chr(int(rnd*26+97))Private

Sub

Command1_Click()Dim

c$(14),

i%Picture1.ClsFor

i

=

0

To

14c(i)

=

Chr(Int(Rnd

*

26

+

97))Next

iFor

i

=

0

To

14Picture1.Print

c(i);Next

iEnd

Sub24、随机产生10个[30,100]内的整数，求最大值及所对应的下标Private

Sub

Form_Click()Dim

a(1

To

10)

As

Integer,

i%,

maxa%,

m%For

i

=

1

To

10

a(i)

=

Int(Rnd

*

70)

+

30Next

imaxa

=

a(1)For

i

=

2

To

10

If

a(i)

>

a(1)

Then

maxa

=

a(i):

m

=

i

End

IfNext

iFor

i

=

1

To

10

Print

a(i);Next

i

Print

"maxa="

&

maxa;

"下标为"

&

mEnd

Sub25、定义三个4×4的二维数组A,B,C，A和B中的元素均随机生成，数组A范围是1～20，数组B的范围是100～200，数组C是A和B相加得到的。请编程生成并输出A,B,C。Private

Sub

Command1_Click()

Dim

a(3,

3),

b(3,

3),

c(3,

3),

t%,

m%

For

i

=

0

To

3

For

j

=

0

To

3

a(i,

j)

=

Int(Rnd

*

20

+

1)

Picture1.Print

a(i,

j);

Next

j

Next

i

Picture1.Print

For

i

=

0

To

3

For

j

=

0

To

3