Next
Print"输入的5个数是：
"
Fori=1To5
Printnum（i）:
Next
Print
Print"最大整数是：
";max
EndSub
10.利用文本框的常用属性，把Text1中选定的文本复制到Text2中去。
11.编程实现1－200内6或5的倍数。
12.随机产生10个递增的100-400的随机数，存放到数组中，并显示结果。
13.已知x，y，z三个变量中存放了3个不同的数，比较它们的大小并进行调整，使得x＜y＜z。
14.已知x，y，z三个变量中存放了3个不同的数，比较它们的大小并进行调整，使得x＞y＞z。
15.假设我国有16亿人口，按人口年增长率r＝0.9％计算，多少年后我国人口超过32亿,利用log（）函数来计算。
PrivateSubForm_Click（）
x=16
n=0
DoWhilex<32
x=x*1.009
n=n+1
Loop
Printn&"年后我国人口超过32亿"
Print"此时国家人口为"&x
EndSub
16.假设窗体中有一标签Label1,通过Move方法编程实现该图在窗体中的左右移动，移动幅度为20单位。
17.编制程序，要求输入两个操作数和一个操作符（＋、－、×、/）,根据操作符进行两个操作数的简单运算，并显示结果。
PrivateSubCommand1_Click（IndexAsInteger）
Dimnum1!
num2!
result!
num1=Val（Text1.Text）
num2=Val（Text2.Text）
SelectCaseIndex
Case0:
result=num1+num2:
Text3.Text=result
Case1:
result=num1-num2:
Text3.Text=result
Case2:
result=num1*num2:
Text3.Text=result
Case3:
Ifnum2=0Then
Text2.Text=""
Text3.Text=""
Text2.SetFocus
Else
Text3.Text=num1/num2
EndIf
Case4:
Ifnum2=0Then
Text2.Text=""
Text2.SetFocus
Else
Text3.Text=num1\num2
EndIf
EndSelect
EndSub
PrivateSubCommand2_Click（）
EndSub
PrivateSubCommand3_Click（IndexAsInteger）
EndSub
18.已知List1中显示了若干课程名，要求用户用鼠标在该列表框中选择一个或多个选修课时，单击“显示”按扭可以在list2中显示用户选中的所有课程。
19.已知输入某课程的百分制成绩mark，要求显示对应五级制的评定，评定条件如下：
等级优秀（90-100）、良好（80-90）、中等（70-80）、及格（60-70）和不及格（＜60分）。
PrivateSubCommand1_Click（）
Dimvalue
value=InputBox（"请输入成绩:
"）
Ifvalue<>""Then
SelectCaseVal（value）
Case0To59
MsgBox"你的成绩不及格"
Case60To69
MsgBox"你的成绩及格"
Case70To79
MsgBox"你的成绩中等"
Case80To89
MsgBox"你的成绩良好"
Case90To100
MsgBox"你的成绩优秀"
CaseElse
MsgBox"输入的数值不合法，请重新输入"
EndSelect
EndIf
EndSub
20.在购买某物品时，若所花的钱x在下述范围内，所付钱y=x（x＜1000）;y=0.9x（1000＜x＜2000）;y=0.8x（2000＜x＜3000）;y=0.7x（3000＜x＜4000）;按对应折扣支付。
编程求y值。
PrivateSubForm_click（）
DimxAsInteger,yAsInteger
x=InputBox（"请输入所花的钱数:
"）
Ifx<1000Then
y=x
EndIf
Ifx>1000Andx<2000Then
y=0.9*x
EndIf
Ifx>2000Andx<3000Then
y=0.8*x
EndIf
Ifx>3000Andx<4000Then
y=0.7*x
EndIf
Printy
EndSub
21.将输入的字符串，以反序显示。
例如：
输入“ASDFGHJKL”,显示“LKJHGFDSA”。
PrivateSubCommand1_Click（）
a="ASDFGHJKL"
ReDimp（Len（a）-1）
Fori=Len（a）-1To0Step-1
b=b&Mid（a,i+1,1）
Nexti
Printb
EndSub
22.已知三角形三条边的边长a，b，c，编程判断该三角形的类型（等腰，等边，直角三角形）。
PrivateSubForm_click（）
DimaAsInteger,bAsInteger,cAsInteger
a=InputBox（"请输入第一条边:
"）
b=InputBox（"请输入第二条边:
"）
c=InputBox（"请输入第三条边:
"）
Ifa+b>cAnda+c>bAndb+c>aAnda=bOra=cOrb=cThen
Print"等腰三角形"
EndIf
Ifa+b>cAnda+c>bAndb+c>aAnda^2+b^2=c^2Ora^2+c^2=b^2Orb^2+c^2=a^2Then
Print"直角三角形"
EndIf
Ifa+b>cAnda+c>bAndb+c>aAnda=b=cThen
Print"等边三角形"
EndIf
EndSub
23.试编写一个程序，允许用户输入数字，判断其是否大于或等于60分，如果大于等于60分，则输出“及格，否则输出“不及格”。
要求：
（1）用inputbox输入数字
（2）用Msgbox输出“及格”或“不及格”的结果。
PrivateSubForm_click（）
DimaAsInteger
a=InputBox（"请输入数字:
"）
Ifa>=60Then
MsgBox"及格"
EndIf
Ifa<60Then
MsgBox"不及格"
EndIf
EndSub
24.随机产生15个不重复的A-Z（包括A，Z）的大写字母，存放在字符数组中。
PrivateSubForm_Click（）
Dims（1To15）AsString,cAsString
s
（1）=Chr（Int（Rnd*26+65））
Forn=2To15
re:
c=Chr（Int（Rnd*26+65））
Forj=1Ton-1
Ifc=s（j）ThenGoTore
Nextj
s（n）=c
Nextn
Fori=1To15
Prints（i）;
Nexti
EndSub
25.利用数组编写一个n*m的矩阵，其各元素的值由随机函数生成（范围为50-150）。
26.假设Text1中有一字符串，利用文本框的常用属性，把Text1中第一个字符至第八个字符之间的内容复制到Text2中去。
PrivateSubForm_Click（）
Text1.SelStart=0
Text1.SelLength=8
Text2.Text=Text1.SelText
EndSub
27.从键盘上输入10整数，并放入一个一维数组中，然后将其前5个元素与后5个元素对换，即第一个元素与第10个元素互换，第2个元素与第9个元素互换……。
输出对换后各元素的值。
28.输入一个数字（1－7），用英文显示对应的星期一至星期日。
PrivateSubForm_Click（）
a=Val（InputBox（"请输入一个数字1-7"））
SelectCaseVal（a）
Case1
Print"monday"
Case2
Print"tuesday"
Case3
Print"wendsday"
Case4
Print"thursday"
Case5
Print"friday"
Case6
Print"satursay"
Case7
Print"sunday"
CaseElse
Print"必须输入1-7中的一个数字！
"
EndSelect
EndSub
29.编程产生一个12－75范围内的正整数。
PrivateSubcommand1_Click（）
Dims（12To75）AsInteger
a=Int（Rnd*64+12）
Printa
EndSub
30.建立一个数组，输出1－100之间的所有偶数。
PrivateSubCommand1_Click（）
Dimm（1to100）asInteger,iasInteger
Fori=1to100
Ifimod2=0then
Printi
Endif
Nexti
Endsub
31.假设文本框Text1中有一字符串，要求编程实现对其字号进行放大和缩小，倍数通过随机函数产生，范围在7－10倍。
PrivateSubCommand1_Click（）
x=Int（4*Rnd+7）
Text1.FontSize=x*36
EndSub
PrivateSubCommand2_Click（）
y=Int（4*Rnd+7）
Text1.FontSize=36/y
EndSub
PrivateSubForm_Load（）
Text1.FontSize=36
Text1.Text=""
EndSub
32.编写程序，判断给出的3条边能否构成三角形。
PrivateSubCommand1_Click（）
DimaAsInteger,bAsInteger,cAsInteger
a=Val（InputBox（"请输入第一条边长：
"））
b=Val（InputBox（"请输入第二条边长：
"））
c=Val（InputBox（"请输入第三条边长：
"））
Ifa+b>cAnda+c>bAndc+b>aAnda-bPrint"该三边能否构成三角形"
Else
Print"该三边能否构成三角形"
EndIf
EndSub
33.已知List1中显示了若干课程名，要求用户用鼠标在该列表框中选择一个或多个选修课时，单击“清除”按扭时，清除右列表框中的内容。
34.随机产生10个30-100（包括30，100）的正整数，求最大值，最小值和平均值，并显示整个数组的值和结果。
PrivateSubForm_click（）
Dima（1To10）AsInteger
Fori=1To10
a（i）=Int（Rnd*71+30）
Printa（i）;
Nexti
Max=a
（1）:
Min=a
（1）:
Sum=a
（1）
Fori=2To10
Ifa（i）>MaxThenMax=a（i）
Ifa（i）Sum=Sum+a（i）
Nexti
Print
Print"最大值是"&Max
Print"最小值是"&Min
Print"平均值是"&Sum/10
EndSub
35.输入3个数a，b，c，输出三者之中的最大者。
PrivateSubcommand1_click（）
Dimm!
n!
p!
max!
m=Val（InputBox（"请输入第一个数:
"））
n=Val（InputBox（"请输入第一个数:
"））
p=Val（InputBox（"请输入第一个数:
"））
max=m
Ifn>maxThenmax=n
Ifp>maxThenmax=p
Print
Printm;"、";n;"与";p;"之中最大值是:
"
Print
Printmax
EndSub
36.税务部门征收所得税，规定如下：
（1）收入200元以内，免征；
（2）收入在200―400元内，超过200元的部分纳税3%；（3）收入超过400元的部分，纳税4%；（4）当收入等于5000元或超过时，将4%税金改为5%。
编程序实现上述操作.
PrivateSubCommand1_Click（）
a=Val（Text1.Text）
Ifa<200Then
b=0
ElseIf200b=0.03*（a-200）
ElseIf400b=0.03*200+0.04*（a-400）
ElseIfa>5000Ora=5000Then
b=0.03*200+0.05*（a-400）
EndIf
Printb
EndSub
37.随机产生20个学生的计算机课程的成绩，并显示。
统计各分数段人数，即0-59，60-69，70-79，80-89，90-100，并显示结果。
PrivateSubCommand1_Click（）
Dima,b,c,d,eAsInteger
a=0
b=0
c=0
d=0
e=0
Fori=1To20
m=Int（Rnd*101+0）
Printm
SelectCaseVal（m）
Case0To59
a=a+1
Case60To69
b=b+1
Case70To79
c=c+1
Case80To89
d=d+1
Case90To100
e=e+1
EndSelect
Nexti
Printa;b;c;d;e
EndSub
38.假设窗体上有Text1，密码是“1234”。
编制程序，实现密码校验。
要求密码输入正确或错误时都给予提示。
PrivateSubCommand1_Click（）
IfText1.Text<>""Then
IfText1.Text="1234"Then
MsgBox（"密码正确，欢迎进入！
"）
Else:
MsgBox（"密码错误，请重新输入！
"）
EndIf
EndIf
EndSub
39.用组合框对学生名单进行添加、修改和删除操作。
OptionExplicit
Dimi
SubForm_Load（）
Combo1.AddItem"张三"
Combo1.AddItem"李四"
Combo1.AddItem"王二"
EndSub
PrivateSubCombo1_Click（）
i=Combo1.ListIndex
EndSub
PrivateSubCommand1_Click（）
Combo1.AddItemCombo1.Text
Combo1.Text=""
EndSub
PrivateSubCommand2_Click（）
Combo1.RemoveItemCombo1.ListIndex
EndSub
PrivateSubCommand3_Click（）
Combo1.List（i）=Combo1.Text
EndSub
40.已知三角形三条边的边长a，b，c，编程求该三角形的面积M（M=根号下s（s-a）（s-b）（s-c），s=（a+b+c）/2）。
PrivateSubCommand1_Click（）
Dima,b,cAsDouble
a=InputBox（"请输入第一条边边长:
"）
b=InputBox（"请输入第二条边边长:
"）
c=InputBox（"请输入第三条边边长:
"）
s=（a+b+c）/2
i=s*（s-a）*（s-b）*（s-c）
j=i^（1/2）
Printj
EndSub
41.编写程序，使能输出如下图形。
******
******
******
******
******
PrivateSubCommand1_Click（）
Fori=1To5
PrintSpc（i）;
Forj=1To6
PrintSpc
（1）;"*";
Nextj
Print
Nexti
EndSub
42．利用数组编写程序，产生40个100以内的随机整数，统计40~49有多少个数并输出。
PrivateSubCommand1_Click（）
Dima（1To40）AsInteger
b=0
Fori=1To40
a（i）=Int（Rnd*101+0）
Printa（i）;
SelectCaseVal（a（i））
Case40To49
b=b+1
EndSelect
Nexti
Printb
EndSub
43．设计2个单选按钮，分别用来改变文本框中的字体为“宋体”，“黑体”。
PrivateSubOption1_Click（）
Text1.FontName="宋体"
EndSub
PrivateS
升级会员 