1、求100以內(nèi)的素數(shù)。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整除的數(shù)之和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、輸入一年份，判斷它是否為閏年，并顯示有關(guān)信息。（判斷閏年的條件是：年份能被4整除但不能被100整除，或者能被400整除）Private

Sub

Command1_Click()Dim

y%y

=

InputBox("請輸入年數(shù)")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個不同的數(shù)，比較它們的大小并進(jìn)行調(diào)整，使得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、隨機(jī)產(chǎn)生一個三位正整數(shù)，然后逆序輸出，產(chǎn)生的數(shù)與逆序數(shù)同時顯示。例如，產(chǎn)生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的值，根據(jù)其數(shù)值，判斷能否構(gòu)成三角形。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

("能構(gòu)成三角形")Else

MsgBox

("不能構(gòu)成三角形")End

IfEnd

Sub14、已知數(shù)組a()，編程刪除a中第5個元素。數(shù)組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、隨機(jī)生成一個整型的二維數(shù)組，范圍在[10,20]之間，以上三角形式輸出該數(shù)組。（下三角、全部元素）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、利用隨機(jī)函數(shù)生成一個4×4的矩陣(即二維矩陣),范圍是[20,50]內(nèi)的整數(shù),輸出每行中的最大值和下標(biāo)。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、利用隨機(jī)函數(shù)生成一個4×4的矩陣(即二維矩陣),范圍是[40,80]內(nèi)的整數(shù)，求它的最大值及所對應(yīng)的下標(biāo)。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

"其下標(biāo)為";

"(";

b,

c;

")"End

Sub18、輸入一系列字符串，編程求出長度最大的字符串并輸出其所對應(yīng)的次序。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、利用隨機(jī)函數(shù)生成一個4×4的矩陣(即二維矩陣),范圍是[20,50]內(nèi)的整數(shù),輸出該矩陣所有數(shù)據(jù)之和

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、輸入一系列字符串，將字符串按遞減次序排列。請編程實(shí)現(xiàn)。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、隨機(jī)產(chǎn)生10個[30,100]內(nèi)的整數(shù)，求最大值、最小值和平均值。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的二維數(shù)組A,B,C，A和B中的元素均隨機(jī)生成，數(shù)組A的范圍是1～20，數(shù)組B的范圍是100～200，數(shù)組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、隨機(jī)產(chǎn)生15個小寫字母，放在字符數(shù)組中。提示：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、隨機(jī)產(chǎn)生10個[30,100]內(nèi)的整數(shù)，求最大值及所對應(yīng)的下標(biāo)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;

"下標(biāo)為"

&

mEnd

Sub25、定義三個4×4的二維數(shù)組A,B,C，A和B中的元素均隨機(jī)生成，數(shù)組A范圍是1～20，數(shù)組B的范圍是100～200，數(shù)組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