从1 2 1 4 1 6 1 8 1 10用vb

PrivateSubForm_Click()DimaAsSingle,bAsSingle,cAsSingle,zAsSinglea=InputBox("输入a的值","")b=InputBox("输入

冒泡法再问：我是新手，能发哈代码不？再答：你说的东西和语言无关，是算法思想你百度下冒泡法在领悟下里面的意思，把它写成vb的形式代码不写的，我知道你肯定是要交作业，这样学习可不行的

解题思路：历史知识的积累解题过程：<三国演义>最终答案：略

privatesubform_click()n=val(text1)m=val(text2)ifn

a>=c

01-02-04-06-08-10里有2个相连号?按我的理解写的代码Dims(0To6)AsStringPrivateSubForm_Load()s1=Split("1,2,3,4,5,6,7,8,9

PrivateSubForm_Load()s="1,2,3,6,8,9,12,16"s1=Split(s,",")Fori=1To3s3=s1(i-1)Fori2=i+1To4s4=s3&"-"&s1

SubDoArr()Dima(9)AsIntegera(1)=1:a(2)=2:a(3)=3a(4)=6:a(5)=8:a(6)=9a(7)=12:a(8)=16DimArrAsStringDimne

dimiasintegerdimsumasintegeri=1方法1dowhilei100sum=sum+ii=i+1loop方法3dosum=sum+ii=i+1loopwhilei<100

dimi%,j%,t%dima(5)asintegerprivetesubcommand1_click()randomizefori=0to5a(i)=int(rnd*6)nextifori=0to4

楼上回答基本是正确的.呵呵.就这一句有点可讨论的i=Int(Rnd*49+1)首先,对这里的数理解为整数.其次,1到50之间的数,如果包括1和50的话,应该是:i=Int(Rnd*50+1)如果不包括

Log函数返回一个Double,指定参数的自然对数值.语法Log(number)必要的number参数是Double或任何有效的大于0的数值表达式.说明自然对数是以e为底的对数.常数e的值大约是2.7

太简单了啊,有直接的函数啊,Sin()Cos()Tan()不过括号里面的是弧度制的哦,自己要转化一下.不懂得百度hi我.

s=1fori=1to10s=s*inextmsgboxs

privatesubcommand1_click()randomizedimaasinteger,basinteger,casintegera=int(rnd*12)+1text1=adob=int(

PrivateSubCommand1_Click()DimnAsIntegern=1Fori=1To3Forj=1TonPrint"*";Nextjn=n+2Print"";Nextn=3Fori=1

vb用子函数求两书最大公约数一题：两个TextBox,一个Command.OptionExplicitPrivateFunctionMaxModNum_(ByValaAsLong,ByValbAsLo

PrivateSubCommand1_Click()x=InputBox("请输入x：")e=2.718281828SelectCasexCase-10To-1y=e^x+1Case0To5y=Abs

单引号为注释部分

平静的湖面犹如一面硕大的银镜友谊犹如酿造一桶红酒,越久越醇美.生活犹如欣赏一幅古画,越看越觉珍贵.学习犹如打磨一把宝剑,越磨越快.