vb编写一个sub过程,利用该过程求三角形内接圆与外接圆的面积

PrivateSubCommand1_Click()Printcalc(1000,0.05,10)EndSubPrivateFunctioncalc(baseAsSingle,rateAsSingle

FunctionS(rAsSingle)AsSingle'Function过程Constpi=3.1415926535898S=pi*r^2EndFunctionPrivateSubForm_Clic

PrivateFunctionisPrim(n%)AsBoolean'素数判断子过程Dimd%Ifn=2ThenisPrim=True:ExitFunctionFord=2ToSqr(n)IfnMod

PrivateFunctionSUM(Fir_LAsDouble,Fir_SAsDouble,Scend_LAsDouble,Scend_SAsDouble)AsDoubleSUM=Fir_L*Fir

OptionExplicitPrivateSubForm_Click()Dimd(1To10)AsIntegerDimiAsIntegerDimMyMaxAsIntegerDimMyAveAsSing

PrivateSubCommand1_Click()Dima,xAsSinglea=Val(Text1.Text)Ifa再问：x=x+a*0.2+3000*0.2怎么都乘0.2呀？

DimXAsInteger这句出的毛病.你直接把它定义成整数型变量,输入3.5直接四舍五入转换为4.把它换成DimXAsSingle

显然不是你自己的代码!查了MSDN,shell的第二个参数Shell常数可在代码中的任何地方使用下列常数代替实际值：常数值描述vbHide0窗口是隐藏的,并且焦点被传递给隐藏窗口.vbNormalFo

PrivateFunctionjo(ByValnAsInteger)n=InputBox("请输入一个数字")IfnMod20ThenMsgBoxn&"是奇数"ElseMsgBoxn&"是偶数"End

PrivateSubCommand1_Click()DimmAsInteger,nAsIntegerm=Int(InputBox("输入第一个整数"))n=Int(InputBox("输入第一个整数"

DimnAsIntegerPrivateSubForm_Click()Ifn/2=0ThenPrint"n是偶数"ElsePrint"n是奇数"EndIfEndSubPrivateSubForm_Lo

SubJiSuanDimx,y,ix=1Fori=2To100y=i-1/ix=x+y'''按需要怎么输出..NextEndSub选我啊

Private Sub Command1_Click()Dim i As Integer, j As Integer,&

PrivateSubForm_Load()DimXAsLong,YAsLong,KAsLongDimAAsLong,BAsLongA=6B=8X=IIf(A>=B,A,B)'x存入最大值Y=IIf(A

首先“落叶|无情”的代码很好,但是我想题目中所说“用Sub过程和Function过程两种方法来实现”的意思,应该是用这两个独立实现求阶乘和,而不是在Sub中还要调用Function.当然,在Sub过程

functionsj(i%,a%,b%)aslongDimx%x=Int(Rnd*(b-a+1))+asj=xEndfunctionPrivateSubCommand1_Click()Dimn%,a%

DimaAsString,bAsStringSubmy()k=a:a=b:b=kEndSubPrivateSubCommand1_Click()a="aaaaaa"b="bbbbbb"Print"替换

根据你的代码,你的题意是当Combo1中选择了某项时,将此项加入到List1中,所以,应该是不需要循环的.用以下代码即可.PrivateSubCommand1_Click()IfCombo1.List

经常遇到类似的题目,可以参考此程序!　　VB2008调试通过!PublicClassForm1Dimprime(100)AsIntegerDimCurrentIndexAsIntegerPrivate

ifxmod2=0thenmsgbox"是偶数"elsemsgbox"是奇数"