用VB做出计算出2 4 - 100的和,1 3 5 -99 的和,

第一题：不是vb中log是以e为底的自然对数（相当于数学中的ln）第二题：B（A的引号不对C是变量D是注释注释内容为：ASDFG'）第三题：Cifx>20thenify>20thenx=x

Private Sub Command1_Click()Dim a(1 To 3) As Double, max#For

(1)(2×4+4)×2=24;(2)(7+5)×(7-5)=24(3)2×(3+4+5)=24;(4)(7-5)×(6+8)=24(5)8÷(4-2)×6=24;(5)3+5+7+9=24

ModuleModule1SubMain()DimA(,)AsInteger={{1,2,3,4,5,6,7,8,9,0},{1,2,3,4,5,6,7,8,9,0},{1,2,3,4,5,6,7,8

PrivateSubCommandButton1_Click()Dima!,b!,c!,p!,s!,tmpa=Val(text1.Text)'转换为数字b=Val(text2.Text)c=Val(t

PrivateSubCommand1_Click()OnErrorGoToHellDimMAsInteger'月份DimNAsLong'张数DimRAsInteger'折扣M=InputBox("请输

PrivateSubForm_Click()n=2DoWhiles

x=20(a>b)and(c再问：这是一道选择题~我想知道不理解的状况下可不可以利用vb或vf里面的程序直接算出结果~再答：当然可以了。PrivateSubCommand1_Click()a=5:b=

窗体上添加2个text,1个commandPrivateSubCommand1_Click()x=Text1.TextIfx>=0Theny=1+x^2Elsey=1-2*xEndIfText2.Te

PrivateSubForm_Click()DimHeAsLongDimIAsInteger,MAsInteger,NAsIntegerM=Int(Val(InputBox("M的值","输入",3)

PrivateSubForm_Click()DimnAsIntegern=InputBox("请输入一个正整数n")s=1Fori=nTo1Step-1s=s*iNextiPrintn&"!="&sE

privatesubcommand1_click()dimjs,os,i,afori=1to20a=int(Rnd*99)+1ifamod2=0thenjs=js+ielseos=os+inextpr

PrivateSubCommand1_Click()Dimsum,aAsIntegerFori=1To7a=InputBox("")sum=sum+aNextPrintsum/7EndSu

将六个圆命名为“Oval1”直到“Oval6”在窗体上放6个timer控件.写入如下代码：Private Sub Form_load()'必要的初始化操作Timer1.in

     Private Function isH(ByVal value As String)&n

PrivateSubCommand1_Click()Dimoushu%,danshu%,sum%oushu=0danshu=0Fori=1To10Randomizesum=Int(Rnd*100)If

添加一个Listbox控件然后Ifc=Fix(c)Andc

Functionfactorial(nAsInteger)AsLongDimiAsIntegerDimretAsLongret=1Fori=1Tonret=ret*iNextifactorial=re

桌面上放一个按钮控件,双击后输入下面程序,试试.PrivateSubCommand1_Click()R1=InputBox("R1=","输入")R2=InputBox("R2=","输入")Y=R1

ifa=b=cthenprint"等边三角"ifa=borb=cora=cthenprint"等腰三角"if(a+b)*(a+b)=cor(a+c)*(a+c)=bor(b+c)*(b+c)=aort