min=a（i）
EndIf
s=s+a（i）
Next
aver=Int（s/10）
Print（CStr（max））
Print（CStr（min））
Print（CStr（aver））
8题
Dimi,j,sAsInteger
Fori=100To200
Forj=2ToSqr（i）
If（iModj）=0Then
Print（CStr（i））
sum=sum+i
ExitFor
EndIf
Next
Next
Printsum
9题
Dimi%，j%，bAsBoolean
l=1：
b=False
Fori=10To20
Forj=2Toi-2
IfiModj=0Then
b=True
EndIf
Next
Ifb=FalseThen
l=l*i
EndIf
b=False
Next
PrintStr（l）
10题
DimiAsInteger
Fori=1To100
IfiMod2=1Then
j=j+1/i
ElseIfiMod2=0Then
j=j-1/i
EndIf
Next
Printj
11、习题：
（事件）单击窗体。
（响应）如果一个数的真因子之和等于这个数本身，则称这样的数为“完全数”。
例如，整数28的真因子为1、2、4、7、11，其和是28。
因此28是一个完全数。
请编写一个程序，求出500以内最大的完全数。
并存入变量SUM中。
使用for...next语句完成程序
12、习题：
应用选择法对数组A按升序排列
13、习题：
单击窗体。
求一个数,它除3余2，除5余3，除7余2，请将满足上面条件的最小数保存到sum变量中。
使用for...next语句完成程序。
14、习题：
编写函数fun，函数的功能是：
判断一个字符是字母字符、数字字符还是其他字符，并做相应的显示。
字母字符显示字符串"字母"，数字字符显示字符串"数字"，其他字符显示字符串"其他"，要求使用IF语句来实现。
PrivateFunctionfun（nAsString）AsString
'**********Program**********
'**********End**********
EndFunction
PrivateSubForm_Load（）
Show
Printfun（"A"）
Printfun（"9"）
Printfun（"&"）
NJIT_VB
EndSub
PrivateSubNJIT_VB（）
DimiAsInteger
DimlAsInteger
Dima（10）AsString*1
DimfInAsInteger
DimfOutAsInteger
fIn=FreeFile
OpenApp.Path&"\in.dat"ForInputAs#fIn
fOut=FreeFile
OpenApp.Path&"\out.dat"ForOutputAs#fOut
Fori=1To10
LineInput#fIn,a（i）
Print#fOut,fun（a（i））
Next
Close#fIn
Close#fOut
EndSub
15、习题：
编写函数fun，函数的功能是：
根据一个百分制成绩mark（整数），显示对应五级制的评定。
条件如下：
'mark大于等于90显示"优秀"
'mark小于90且大于等于80显示"良好"
'mark小于80且大于等于70显示"中等"
'mark小于70且大于等于60显示"及格"
'mark小于60显示"不及格"
'要求使用IF语句来实现。
PrivateFunctionfun（markAsInteger）AsString
'**********Program**********
'**********End**********
EndFunction
PrivateSubForm_Load（）
Show
Printfun（90）
NJIT_VB
EndSub
PrivateSubNJIT_VB（）
DimiAsInteger
DimsAsString
Dima（10）AsInteger
DimfInAsInteger
DimfOutAsInteger
fIn=FreeFile
OpenApp.Path&"\in.dat"ForInputAs#fIn
fOut=FreeFile
OpenApp.Path&"\out.dat"ForOutputAs#fOut
Fori=1To10
LineInput#fIn,s
a（i）=Val（s）
Print#fOut,fun（a（i））
Next
Close#fIn
Close#fOut
EndSub
16、习题：
编写函数fun，函数的功能是：
当x的初值为10，每年增长率为千分之八，计算多少年以后x的值能达到y，并显示所需年数的值（变量名必须为n）。
'要求使用DoWhile...Loop语句来实现。
PrivateFunctionfun（yAsSingle）AsLong
DimxAsSingle,nAsLong
'**********Program**********
'**********End**********
EndFunction
PrivateSubForm_Load（）
Show
Printfun（15）
NJIT_VB
EndSub
PrivateSubNJIT_VB（）
DimiAsInteger
Dima（10）AsString
DimfInAsInteger
DimfOutAsInteger
fIn=FreeFile
OpenApp.Path&"\in.dat"ForInputAs#fIn
fOut=FreeFile
OpenApp.Path&"\out.dat"ForOutputAs#fOut
Fori=1To10
LineInput#fIn,a（i）
Print#fOut,Trim（Str（fun（Val（a（i）））））
Next
Close#fIn
Close#fOut
EndSub
17、习题：
编写函数fun，函数的功能是：
求从m到n的乘积并显示，'如：
m为2，n为4时，显示"24"'存储连乘的乘积的变量必须为Product'要求使用For语句来实现。
PrivateFunctionfun（mAsInteger,nAsInteger）AsLong
DimProductAsDouble,tAsInteger
Ifm>nThent=m:
m=n:
n=t
'**********Program**********
'**********End**********
EndFunction
PrivateSubForm_Load（）
Show
Printfun（4,2）
NJIT_VB
EndSub
PrivateSubNJIT_VB（）
DimiAsInteger
Dima（10）AsString
DimfInAsInteger
DimfOutAsInteger
fIn=FreeFile
OpenApp.Path&"\in.dat"ForInputAs#fIn
fOut=FreeFile
OpenApp.Path&"\out.dat"ForOutputAs#fOut
Fori=1To10Step2
LineInput#fIn,a（i）
LineInput#fIn,a（i+1）
Print#fOut,Trim（Str（fun（Val（a（i））,Val（a（i+1）））））
Next
Close#fIn
Close#fOut
EndSub
18、习题：
编写函数fun，函数的功能是：
判断一个数是否为素数。
并显示相应提示。
如：
该数为素数时，显示"素数"；该数为非素数时，显示"非素数"'要求使用For语句来实现，用布尔型变量flag作为该数是否为素数的标志，注意：
不得使用Goto语句。
PrivateFunctionfun（mAsLong）AsString
DimflagAsBoolean
'**********Program**********
'**********End**********
EndFunction
PrivateSubForm_Load（）
Show
Printfun（225）
NJIT_VB
EndSub
PrivateSubNJIT_VB（）
DimiAsInteger
Dima（10）AsString
DimfInAsInteger
DimfOutAsInteger
fIn=FreeFile
OpenApp.Path&"\in.dat"ForInputAs#fIn
fOut=FreeFile
OpenApp.Path&"\out.dat"ForOutputAs#fOut
Fori=1To10Step1
LineInput#fIn,a（i）
Print#fOut,fun（Val（a（i）））
Next
Close#fIn
Close#fOut
EndSub
Next
Close#fIn
Close#fOut
EndSub
19、习题：
编写函数fun，函数的功能是：
求1~100以内能被m整除或能被n整除的数的总和并显示。
如：
'm为15，n为11时，显示"810"，'存储总和的变量必须为Sum，'要求使用For语句来实现。
PrivateFunctionfun（mAsInteger,nAsInteger）AsLong
DimSumAsLong
'**********Program**********
'**********End**********
EndFunction
PrivateSubForm_Load（）
Show
16题x=10
n=0
DoWhilexx=x*1.008
n=n+1
Loop
fun=n
Printfun（15,11）
19题Sum=0
Fori=1To100
IfiModm=0OriModn=0Then
Sum=Sum+i
EndIf
Nexti
fun=Sum
NJIT_VB
EndSub
PrivateSubNJIT_VB（）
DimiAsInteger
15题Ifmark>=90Then
fun="优秀"
ElseIfmark>=80Then
fun="良好"
ElseIfmark>=70Then
fun="中等"
ElseIfmark>=60Then
fun="及格"
Else
fun="不及格"
EndIf
Dima（10）AsString
20题
Dims,iAsInteger
Fori=2Ton-1
IfnModi=0Then
s=s+i
EndIf
Next
Fun=s
DimfInAsInteger
DimfOutAsInteger
fIn=FreeFile
OpenApp.Path&"\in.dat"ForInputAs#fIn
fOut=FreeFile
OpenApp.Path&"\out.dat"ForOutputAs#fOut
Fori=1To10Step2
LineInput#fIn,a（i）
LineInput#fIn,a（i+1）
Print#fOut,Trim（Str（fun（Val（a（i））,Val（a（i+1）））））
Next
Close#fIn
Close#fOut
EndSub
20、习题：
编写函数fun，函数的功能是：
计算并输出给定整数n的所有因子之和（不包括1与自身）。
规定n的值不大于1000?
例如：
n的值为855时，应输出704。
21、习题：
：
编写函数fun其功能是:
判断一个整数w的各位数字平方之和能否被5整除,可以被5整除则返回1,否则返回0
22、习题：
编写函数fun其功能是：
根据整型形参m，计算如下公式的值:
'y=1/5+1/6+1/7+1/8+1/9+1/10...+1/（m+5）
求：
函数中用到的中间变量必须声明为Single类型。
11题
DimiAsInteger
dimsasinteger
Fori=500To1Step-1
s=i
Forj=i-1To1Step-1
IfiModj=0Then
s=s-j
EndIf
Nextj
Ifs=0Then
ExitFor
EndIf
Nexti
Printi
sum=i
12题
Dimi,j,imin,tempAsInteger
Fori=1Ton-1
imin=i
Forj=i+1Ton
Ifa（imin）>a（j）Thenimin=j
Nextj
temp=a（i）
a（i）=a（imin）
a（imin）=temp
Nexti
13题
DimiAsInteger
Fori=2To1000
IfiMod3=2AndiMod5=3AndiMod7=2Then
Printi
ExitFor
EndIf
Nexti
sum=i
14题IfUCase（n）>="A"AndUCase（n）<="Z"Then
fun="字母"
ElseIfn>="0"Andn<="9"Then
fun="数字"
Else
fun="其他"
EndIf
15题
Ifmark>=90then
Fun=优秀
Elselfmark>=80then
Fun=良好
Elseifmark>=70then
Fun=中等
Elseifmark>=60then
Fun=及格
Else
Fun=不及格
16题x=10
n=0
DoWhilexx=x*1.008
n=n+1
Loop
fun=n
17题Product=1
Fori=mTon
Product=Product*i
Nexti
fun=Product
18题flag=True
Fori=2Tom-1
IfmModi=0Thenflag=False
Nexti
IfflagThen
fun="素数"
Else
19题Sum=0
Fori=1To100
IfiModm=0OriModn=0Then
Sum=Sum+i
EndIf
Nexti
20题
Dims,iAsInteger
Fori=2Ton-1
IfnModi=0Then
s=s+i
EndIf
Next
21题
DimkAsInteger,sAsInteger
Do
s=s+（wMod10）*（wMod10）
w=Int（w/10）
LoopWhilew<>0
IfsMod5=0Then
k=1
Else
k=0
EndIf
fun=k
学习就到这里了，最后祝大家学习愉快！
！
！
升级会员 