1\循环语句打印矩形*注意:print"*"后的;分号 内循环结束后加print语句PrivateSubCommand1_Click()Fori=1To8Forj=1To30Print"*";NextjPrintNextiEndSub2\控制矩形的输出位置在外循环上加PrintTab(数字);3\编写打印任意宽长的矩形.加位置输出点4\打印平行四边形PrivateSubCommand1_Click()Fori=1To8PrintTab(9-i);Forj=1To30Print"*";NextjPrintNextiEndSub5\编写打印任意宽长的平行四边形\加位置输出点6\打印三角形7打印等腰三角形 (双)PrivateSubCommand1_Click()Fori=20To1Step-1PrintTab(21-i);Forj=1To2*i-1Print"*";Nextj PrintTab(21-i50); Fork=1To2*i-1Print"*";Nextk Print Nexti EndSub8一行打印正三角形（两个）PrivateSubCommand1_Click()Fori=1To20PrintTab(21-i);Forj=1To2*i-1Print"*";Nextj PrintTab(21-i50); Fork=1To2*i-1Print"*";Nextk Print Nexti EndSub9打印菱形PrivateSubCommand1_Click()Fori=1To20PrintTab(31-i);Forj=1To2*i-1Print"*";NextjPrintNextiFori=20To1Step-1PrintTab(31-i);Forj=1To2*i-1Print"*";NextjPrintNexti EndSub1\利用tab\sqc
函数
excel方差函数excelsd函数已知函数 2 f x m x mx m 2 1 4 2拉格朗日函数pdf函数公式下载
建立一个实心的正方形和一个空心的正方形PrintTab(10);"**********"PrintTab(10);"*";Spc(8);"*"PrintTab(10);"*";Spc(8);"*"PrintTab(10);"*";Spc(8);"*"PrintTab(10);"*";Spc(8);"*"PrintTab(10);"**********"PrintTab(10);"**********"EndSub2 printusing函数(控制输出数值的样式)3\屏幕控制语句PrivateSubCommand1_Click()Me.CurrentX=1000Me.CurrentY=5000Me.Print"Hello"EndSub4\随机函数rndPrivateSubCommand1_Click()PrintRnd0至1之间的函数PrintRnd(0) 与前一个随机函数一样的函数EndSub思考0-9之间的随机数int(rnd(1)*10)1-10 1-10050-100编写一个骰子程序 1-6任意两个整数之间的随机函数程序PrivateSubCommand1_Click()Dima,bAsIntegera=Val(Text1.Text)b=Val(Text2.Text)c=(b-a)1PrintInt(Rnd(1)*c)aEndSub产生一个随机两位数,即11-99之间的奇数PrivateSubCommand1_Click()DimaAsIntegera=Int(Rnd(1)*8811)c=aMod2Ifc>0ThenPrintaEndIfEndSub用VB编写的开方与乘方程序PrivateSubCommand1_Click()DimaAsIntegera=Val(Text1.Text)b=a*aPrintbEndSubPrivateSubCommand2_Click()DimaAsIntegera=Val(Text1.Text)Ifa>=0Thenb=Sqr(a)PrintbElsePrint"请输入一个大于零的数"EndIfEndSub求任意数之间的平方根整数的PrivateSubCommand1_Click()DimiAsIntegerFori=1To100a=Sqr(i)IfInt(a)=aThenPrinti,aEndIfNextiEndSubVB实现二进制与十进制转换程序[2010-12-2714:38:00|By:苦雨]Fori=Len(a)To1Step-1"len是取字符串的长度s=s2^(i-1)NextiMsgBox"二进制数"&a&"得到的十进制数是："&sEndSubPrivateSubCommand1_Click()DimaAsStringa=Val(Text1.Text)DoWhilea<>0 'a没等于0的时候就执行循环b=aMod2 '这个获得余数a=Int(a/2) '把商重新赋给a以便下次再运算s=s&bPrintbLoopFori=Len(s)To1Step-1 '这个循环负责把获取的余数倒转过来aa=Mid(s,i,1)ss=ss&aaNextiPrintss '显示出这个值EndSub打印平行四边形，正三角，倒三角PrivateSubForm_Click()showDimm,n,i,jAsIntegerm=4:n=7Fori=1TomForj=1Tom-i1Print"";NextjForj=1TonPrint"*";NextjPrintNextiPrintFori=1TomForj=1Tom-i1Print"";NextjForj=1To2*i-1Print"*";NextjPrintNextiPrintFori=1TomForj=1ToiPrint"";NextjForj=1To2*m-2*i1Print"*";NextjPrintNextiEndSub
浙公网安备 33021202002483