t=a（i）
a（i）=a（j）
a（j）=t
EndIf
Nextj
Nexti
Printa
（2）
EndSub
8.编写程序，通过InputBox函数从键盘上输入4个数,计算并在窗体上显示这4
个数的和及平均值。
PrivateSubCommand2_Click（）
Dima（1To4）AsInteger
DimsumAsInteger,averAsSingle
Fori=1To4
a（i）=Val（InputBox（"请输入第"&i&"个数"））
sum=sum+a（i）
PrintStr（a（i））
Nexti
aver=sum/4
Print"和：
";sum
Print"平均值：
";aver
EndSub
9.在窗体的单击事件过程中，编写程序计算1！
+2！
+3！
+…+20!
PrivateSubForm_Click（）
cls
Sum=0
x=1
Fori=1To15
x=x*i
Sum=Sum+x
Next
Print"1!
+2!
+...+15!
=";Sum
EndSub
10.输入x，计算y的值。
其中：
y=1+3x（x>=0）;y=1-5x（x<0）。
PrivateSubCommand1_Click（）
Dimx!
y!
x=InputBox（"请输入x的值"）
Ifx<0Then
y=1-5*x
Else
y=1+3*x
EndIf
Print"y=";y
EndSub
11.编写程序，在窗体上输出由1、2、3、4、5这五个数字组成的所有可能的两位数，并统计它们的个数。
PrivateSubCommand1_Click（）
Dima%,n%
Fori=1To5
Forj=1To5
a=i*10+j
n=n+1
PrintStr（a）
Nextj
Nexti
Print"总个数：
";n
EndSub
12.有一个窗体，窗体中有一个文本框，名称为Text1，有一个按钮，试编写按钮的单击事件，实现计算1！
+2！
+3！
+…+10!
将结果显示在文本框Text1中。
PrivateSubCommand1_Click（）
Sum=0
x=1
Fori=1To10
x=x*i
Sum=Sum+x
Next
Text1.text=Sum
EndSub
13.编写程序计算：
s=1+1/2!
+1/3!
+…+1/n!
说明：
在窗体中有一个文本框控件：
Text1,用来接收n的值，有一个标签控件：
Label1，用来显示S的值，试编写窗体的单击事件，实现计算与显示功能，只要求写出事件的主要代码，事件过程的起始语句和结束语句可略去。
PrivateSubCommand1_Click（）
Sum=0
x=1
n=Text1.text
Fori=1Ton
x=x*i
Sum=Sum+x
Next
Text1.text=Sum
EndSub
14.通过文本框输入一个整数X，判断X是否能被2整除。
判断的结果在标签中显示。
PrivateSubCommand1_Click（）
x=Val（Text1.Text）
IfxMod2=0Then
Label1.Caption=x&"能被2整除"
Else
Label1.Caption=x&"不能被2整除"
EndIf
EndSub
15.编写程序,点击命令按钮Command1时，两个文本框text1与text2中的内容进行交换。
PrivateSubCommand1_Click（）
DimaAsString
a=Text1.Text
Text1.Text=Text2.Text
Text2.Text=a
EndSub
16.求s=a+aa+aaa+…+aaa…aaa（n个a）,其中a和n的值由用户自己输入。
例如，当a=3,n=4时，S=3+33+333+3333。
PrivateSubForm_Click（）
Cls
a=Val（InputBox（"a="））
n=Val（InputBox（"n="））
s=0
s1=0
Fori=1Ton
s1=s1*10+a's1=s1+a*10^（i-1）
s=s+s1
Next
Prints
EndSub
17.在窗体上输出下三角的九九乘法表。
PrivateSubForm_Click（）
Cls
Fori=1To9
ForJ=1Toi
Printi;"*";J;"=";Format（Str（i*J）,"!
@@"）;
Next
Print
Next
EndSub
18.编写程序，将26个字母逆序输出。
PrivateSubCommand1_Click（）
Dimn%,m%
n=Asc（"a"）
Fori=1To26
m=n+26-i
PrintChr（m）
Nexti
EndSub
19.编写程序，将字符串"山高人为峰"按逆序"峰为人高山"输出。
PrivateSubCommand1_Click（）
Cls
s="山高人为峰"
s1=""
Fori=Len（s）To1Step-1
s1=s1&Mid（s,i,1）
Next
Prints1
EndSub
20.编写程序，在窗体上随机输出一个10--99之间的两位整数。
同第3题
21.设纸的厚度为0.5毫米，将纸对折，再对折…，求至少对折多少次，纸张的厚度能达到珠穆朗玛峰的高度8848米。
PrivateSubForm_Click（）
Cls
h=0.5:
cs=0
DoWhileh<8848000
h=h*2
cs=cs+1
Loop
Print"折纸次数为:
";cs
EndSub
22.在窗体的单击事件中编写程序，要求：
由文本框TEXT1输入一个0到6的数字，单击窗体时，在标签控件LABEL1上显示汉英对照星期信息，如：
输入0，则显示星期日（SUNDAY）、输入１，则显示星期一（MONDAY），以此类推。
如果输入0--6以外的数据，用MsgBox信息框显示“输入数据错误”的提示信息。
PrivateSubForm_Click（）
DimdAsInteger
d=Val（Text1.Text）
SelectCased
Case0
Label1.Caption="Sunday"
Case1
Label1.Caption="Monday"
Case2
Label1.Caption="Tuesday"
Case3
Label1.Caption="Wednesday"
Case4
Label1.Caption="Thursday"
Case5
Label1.Caption="Friday"
Case6
Label1.Caption="Saturday"
CaseElse
MsgBox"输入数据错误"
EndSelect
EndSub
23.编写程序，要求随着不断单击命令按钮Command1，窗体的标题依次显示为：
今天是星期一→今天是星期二→今天是星期三→今天是星期四→今天是星期五→今天是星期六→今天是星期日。
subcommand1_click（）
staticnasinteger
n=n+1
selectcasenmod7
case0
form1.caption="今天是星期日"
case1
form1.caption="今天是星期一"
case2
form1.caption="今天是星期二"
case3
form1.caption="今天是星期三"
case4
form1.caption="今天是星期四"
case5
form1.caption="今天是星期五"
case6
form1.caption="今天是星期六"
endselect
endsub
24.在文本框中输入时、分、秒，编写程序将它们换算为秒，然后输出。
设小时为h，分为m，秒为s，则计算共有多少秒的公式为：
x=h*3600+m*60+s。
subcommand1_click（）
dimh%，m%,s%
h=text1.text
m=text2.text
s=text3.text
msgbox（"共有"&h*3600+m*60+s&"秒"）
endsub
25.在银行存款，计算本利和的公式为：
p1=p（1+r）n，其中，p为存款数，n为年数，r为年利率，p1为n年后本金和利息之和。
设p=1000,n=3,r=0.02,编程计算3年后本利和。
要求小数点后两位，四舍五入。
Subcommand1_click（）
p=1000:
n=3:
r=0.02
p=p*（1+r）^n
p=Round（p,2）'或者p=Int（100*p+0.5）*0.01
Printp
EndSub
26.使用InputBox函数输入圆半径r和圆柱高h,使用文本框分别输出圆球表面积和圆球体积。
提示：
圆球表面积公式为4*3.14*r;圆球体积公式为（3/4）*3.14*r3
PrivateSubForm_Click（）
r=Val（InputBox（"圆半径:
"））
Text1.Text="半径为"+Str（r）+"的圆球表面积是"+Str（4*3.14*r）
Text2.Text="半径为"+Str（r）+"的圆球体积是"+Str（（3/4）*3.14*r^3）
EndSub
27.用InputBox函数输入3个数据，判断这3个数据是否可以组成三角形，如果能够组成三角形，计算并在窗体上输出三角形的面积。
构成三角形的条件是：
任意两边之和大于第三边。
面积公式为area=,其中S=（A+B+C）/2，A、B、C为三条边的长度。
PrivateSubForm_Click（）
cls
a=Val（InputBox（"a="））
b=Val（InputBox（"b="））
c=Val（InputBox（"c="））
Ifa+b>cAnda+c>bAndb+c>aThen
s=（a+b+c）/2
area=Sqr（s*（s-a）*（s-b）*（s-c））
Print"边长为:
";a;b;c;"的三角形面积为:
";area
EndIf
EndSub
28.从键盘输入一个半径，输出圆的面积和周长，输出要求有文字说明，保留两位小数。
PrivateSubForm_Click（）
Cls
r=Val（InputBox（"r="））
Print"半径为";r;"的圆"
Print"面积为";Round（3.14*r^2,2）
Print"周长为";Round（2*3.14*r）
EndSub
29.使用文本框输入长方形的长和宽,用MsgBox输出长方形的周长和面积.
PrivateSubForm_Click（）
l=Val（Text1.Text）
h=Val（Text2.Text）
MsgBox"长是"+Str（l）+"宽是"+Str（h）+_
"的长方形"+Chr（10）+"面积是:
"+Str（l*h）+_
Chr（10）+"周长是:
"+Str（2*（l+h））
EndSub
30.使用InputBox函数输入华氏温度，要求输出摄氏温度。
公式为：
C=（5/9）*（F-32）,输出要有文字说明，取两位小数。
subcommand1_click（）
dimC!
F!
F=val（inputbox（"请输入华氏温度"））
C=（5/9）*（F-32）
print"摄氏温度为：
"
printC
endsub
31.编写涨工资的程序。
计算条件是：
基本工资大于或等于1500元的，增加工资20%；若小于1500元大于或等于900元的，增加工资15%；小于900元的，增加工资10%。
要求：
（1）在文本框中输入基本工资值；
（2）在标签上输出增长后的基本工资值；（3）当单击按钮command1时实现上述功能。
PrivateSubCommand1_Click（）
gz=Val（Text1.Text）
SelectCasegz
CaseIs>=1500
gz=gz*（1+0.2）
CaseIs>=900
gz=gz*（1+0.15）
CaseElse
gz=gz*（1+0.1）
EndSelect
Label1.Caption=Str（gz）
EndSub
32.公用电话收费标准如下：
通话时间在3分钟之内（包括3分钟），收费0.5元；3分钟以上，则每超过1分钟加收0.15元。
编写一段程序，计算某人通话S分钟，应缴多少电话费。
PrivateSubForm_Click（）
Cls
s=Val（InputBox（"通话时间"））
Ifs<=3Then
hf=0.5
Else
hf=0.5+Int（s-3）*0.15
EndIf
Print"通话时间为";s;"分种"
Print"应收话费";Format（hf,"0.##"）;"元"
EndSub
33.编程将一维数组A（10）中数组元素循环向后移动一个位置，最后一个元素移动到第一个元素的位置。
PrivateSubForm_Click（）
Dima（10）AsInteger
Randomize
cls
Print"初始数组为:
"
Fori=0To10
a（i）=Int（Rnd*10）
Printa（i）;
Next
Print
t=a（10）
Fori=10To1Step-1
a（i）=a（i-1）
Next
a（0）=t
Print"移位后数组为"
Fori=0To10
Printa（i）;
Next
Print
EndSub
34.编写程序，求s的值，s=1×2×3+2×3×4+…+n×（n+1）×（n+2）的值。
n由程序输入。
PrivateSubForm_Click（）
Cls
n=Val（InputBox（"n="））
s=0
Fori=1Ton
s=s+i*（i+1）*（i+2）
Next
Print"1×2×3+2×3×4+…+";n;"×";n+1;"×";n+2;"=";s
EndSub
35.火车站托运行李，按规定当行李重量不超过50公斤时，每公斤运费0.25元，超过50公斤后，超过部分按每公斤0.40元收费。
输入行李重量W公斤，计算出应付多少运费。
PrivateSubForm_Click（）
Cls
w=Val（InputBox（"w="））
Ifw<=50Then
yf=w*0.25
Else
yf=50*0.25+（w-50）*0.4
EndIf
Print"行李重量为";w;"公斤"
Print"应付运费:
";Format（yf,"0.00"）;"元"
EndSub
36.编写一个程序，用户连续输入N个值，直到输入非数值数据为止。
最后输出其中最大的一个数。
PrivateSubCommand2_Click（）
Cls
max=0
Do
a=InputBox（"a="）
Printa;"";
IfNotIsNumeric（a）Then
ExitDo
EndIf
Ifa>maxThenmax=a
Loop
（6）对建设项目实施环境监测的建议。
Print
Print"最大数";max
3.不同等级的环境影响评价要求EndSub
（三）环境价值的定义37.编写程序，输入一个数，判定该数是否为素数，如果是素数，则输出“该数是素数”的信息，否则输出“该数不是素数”的信息。
PrivateSubForm_Click（）
B.可能造成重大环境影响的建设项目，应当编制环境影响报告书Cls
x=Val（InputBox（"x="））
Fori=2Tox-1
IfxModi=0ThenExitFor
4.环境保护地方性法规和地方性规章Next
Ifi=xThen
Print"该数是素数"
Else
Print"该数不是素数"
EndIf
EndSub
38.编写程序，实现如下功能：
由文本框Text1输入一个数，单击窗体时，如果该数大于等于0，将其平方根输出到标签Lable1上，否则输出“数据不能为负数”的提示信息。
（四）安全预评价内容PrivateSubForm_Click（）
（2）规划编制机关在报送审批专项规划草案时，将环境影响报告书一并附送。
x=Val（InputBox（"接收一个数"））
Ifx>=0Then
Label1.Caption=Sqr（x）
2.早期介入原则；Else
（二）安全评价的基本原则MsgBox"数据不能为负数"
EndIf
1.筛选环境影响：
环境影响被筛选为三大类，一类是被剔除、不再作任何评价分析的影响，如内部的、小的以及能被控抑的影响；另一类是需要作定性说明的影响，如那些大的但可能很不确定的影响；最后一类才是那些需要并且能够量化和货币化的影响。
EndSub
升级会员 