用VB编写根据不同的时间段发出问候语的程序

PrivateSubCommand1_Click()DimaAsSingle,bAsSingle,cAsSingleDimdAsSingle,x1AsSingle,x2AsSinglea=InputB

privatesubcommand1_click()dimmaxfori=1to3n=val(inputbox("输入第"&i&"个数"))ifn>maxthenmax=nendifnextprint

用在线COD测试仪,可测得不用时间段的COD值.fenton试剂的反应时间很快,就是用fenton试剂法处理生产三羟基甲基丙烷的废水,反应时间30mins即可,如此短的时间内,再把时间分割测试不同时刻

如果要判断句子中的英文单词是否正确,那就很麻烦的.如果不要判断单词的正确性,仅仅假设句子中.单词以空格分隔,那么就比较容易实现了.思路:1．计算句子的长度,字符数L2．ZFS----存放英文单词所用到

早晨上学的时候,天空飘起了鹅毛般的大雪.我很高兴,因为雪停了以后,我和同学们可以在雪地上打雪仗、做游戏.吃完午饭,雪终于停了,同学们迫不及待地穿上羽绒服,冲出教室,向操场跑去.操场上铺着厚厚的一层雪毯

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

阶乘n!=n*(n-1)(n-2)(n-2)···3*2*1

Dima(9)AsIntegerRandomizea(0)=Int(Rnd()*21+10)Doa(1)=Int(Rnd()*21+10)LoopWhilea(1)=a(0)Doa(2)=Int(Rn

PrivateSubCommand1_Click()DimbjAsSingleDimzzAsSingleDimmjAsSinglebj=CSng(Text1.Text)Ifbj

1.你用自己的方法将这N个数字分别用数组a(1)-a(n)表示2.求最大fori=1ton-1ifa(i)>a(i+1)thenmax=a(i)elsemax=a(i+1)endifnexti3.求最

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

privatesubcommand1_click()ifisnumeric(text1.text)ANDisnumeric(text2.text)thentext3.text=cdbl(text1.t

拜托,这么多输入你就用列表啦,用那么多textbox,你不累我看得都累.还有,你要求的是什么尽量用数学的方式表达出来,有图更好至于你的a5d6的问题,是因为你的是字符串运算而不是数值运算,转换一下类型

PrivateSubCommand1_Click()Fori=1To9Forj=1ToiPrintTab(9*(j-1));i&"x"&j&"="&i*j;NextPrintNextEndSubPri

儒跟儒家不同的孔子之前的儒是一种职业,相当于现在的司仪,为贵族的相礼儒家之后的儒是"方士我的大学老师说的

PrivateSubForm_Click()Dimi,min,nClsFori=1To3Randomizen=Int(Rnd*100)+1Printn,Ifi=1Thenmin=nElseIfmin>

PrivateSubCommand1_Click()Dimc()AsVariantDimeAsBoolean'预设五个最小的正整数为1、2、3、4、5Fori=3To11'由题意可得第一第二个正整数必

人们根据（音色）不同判断不同乐器发出的声音

PrivateSubCommand1_Click()a=InputBox("请输入数值")b=InputBox("请输入数值")IfVal(a)Fori=1ToVal(a)IfVal(a)Modi=0

我HI你吧,等一下