VB编程程序代码文档格式.docx

VB编程程序代码文档格式.docx

《VB编程程序代码文档格式.docx》由会员分享，可在线阅读，更多相关《VB编程程序代码文档格式.docx（28页珍藏版）》请在冰豆网上搜索。

End 

Sub

2、从键盘输入任意长度的字符串，要求将字符顺序倒置

例如，将输入的“ABCDEFG”变换成“GFEDCBA”。

Command1_Click（）

a$, 

I%, 

c$, 

d$, 

n%

a 

InputBox$（"

输入字符串"

）

n 

Len（a）

I 

1 

Int（n 

\ 

2）

c 

Mid（a, 

I, 

1）

1） 

+ 

1, 

c

I

a

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

n%, 

i%

200

11 

Or 

5 

Then

If

n

4、输入一年份，判断它是否为闰年，并显示有关信息。

（判断闰年的条件是：

年份能被4整除但不能被100整除，或者能被400整除）

y%

y 

InputBox（"

请输入年数"

4 

And 

100 

<

>

400 

MsgBox 

（y 

&

"

年是闰年"

Else

年是平年"

5、已知x,y,z 

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

y<

z。

x!

y!

z!

x 

inputx"

inputy"

z 

inputz"

z"

t 

x:

y:

t

z:

排序后"

;

x;

y;

z

6、求s=a+aa+aaa+...aaaaa（n个a），其中a和n的值随机产生，a的范围是[1,9]的整数，n的范围是[5,10]。

如a=3,n=6,则s=3+33+333+3333+33333+333333。

编程确定n和a的值，并计算s。

s!

t!

i!

a%, 

Int（Rnd 

* 

9 

6 

5）

0:

s 

a="

a, 

n="

10 

t;

Print

s="

s

7、计算100~300之间所有能被3和7整除的数之和。

300

21 

i;

8、编程求200--400范围内5的倍数或7的倍数之和。

（一个数如果同时是7和5的倍数，则只能加一次。

s1%,s2%,s3%,i%

S1=0

S2=0

i=200 

to 

400

mod 

=0 

or 

7=0 

then 

s1=s1+i

if

s2=s2+i

S3=s1-s2

s3

sub

9、找出被3、5、7除，余数为1的最小的5个正整数。

CountN%, 

CountN 

Do

3 

7 

Loop 

Until 

5

10、某次歌曲大奖赛，有7个评委。

如果分别输入7个评委对某个参赛者的打分数，

按照去掉一个最高分和一个最低分的计算办法，求出该参赛者的平均得分。

mark!

max!

min!

aver!

aver 

7

mark 

输入第"

位评委的打分"

max 

mark:

min 

mark

（aver 

max） 

/ 

aver

11、编程显示100~500之间所有的水仙花数之和。

（水仙花数是3位数，其各位数之和等于该数本身）

s%, 

s1%, 

s2%, 

s3%, 

a!

99 

s1 

（s 

100） 

10

s2 

s3 

^ 

12、随机产生一个三位正整数，然后逆序输出，产生的数与逆序数同时显示。

例如，产生246，输出是642。

m%, 

b%, 

c%, 

d%

900 

100）

d 

（a 

10） 

b 

10）

m 

d

m

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

c%

Val（InputBox（"

input 

a"

））

b"

c"

（"

能构成三角形"

不能构成三角形"

14、已知数组a（），编程删除a中第5个元素。

数组a中的元素分别为{12，6，4，89，75，63，100，20，31}。

a（）, 

Array（12, 

6, 

4, 

89, 

75, 

63, 

100, 

20, 

31）

UBound（a）

a（i）;

a（i 

a（i）

ReDim 

Preserve 

a（n）

15、随机生成一个整型的二维数组，范围在[10,20]之间，以上三角形式输出该数组。

（下三角、全部元素）

a%（4, 

4）

Picture1.Cls

4

Picture1.Print 

Tab（j 

6）;

a（i, 

j）;

Picture1.Print

Form_Load（）

j） 

16、利用随机函数生成一个4×

4的矩阵（即二维矩阵）,范围是[20,50]内的整数,输出每行中的最大值和下标。

a%（3, 

3）, 

s0%, 

b0%, 

b1%, 

b2%, 

b3%

Max 

40

3

31 

20）

5）;

a（0, 

s0 

j）:

b0 

a（1, 

b1 

a（2, 

b2 

a（3, 

b3 

第一行"

s0;

0;

b0;

）"

第二行"

s1;

1;

b1;

第三行"

s2;

2;

b2;

第四行"

s3;

3;

b3;

17、利用随机函数生成一个4×

4的矩阵（即二维矩阵）,范围是[40,80]内的整数，求它的最大值及所对应的下标。

Form_Cl