用VB做出计算出2 4 - 100的和,1 3 5 -99 的和,
来源:学生作业帮助网 编辑:作业帮 时间:2024/09/23 17:14:08
第一题:不是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