vb将2,4,6,8共10个数据赋予一个数组,并将各数组元素按照相反顺序输出-搜答案-神马作文网

12*11*10/3*2*1=220

2,-8,64,0,-4-6,8,-2

privatesucommand1_click()dima(1to6),b,ifori=1to50b=int(rnd*6)+1a(b)=a(b)+1nextfori=1to6printi&"的个数："

做完了,不用任何控件,代码如下：DimM(6)AsByte,H(6)AsByteDimG(3)AsByteDimIAsByte,JAsByte,HjAsIntegerConstN=10,X=6,Y=3

Dimfbn(19)AsInteger'定义斐波那契数列变量数组,共20个fbn(0)=1'给出前两个值fbn(1)=1Fori=2To19fbn(i)=fbn(i-2)+fbn(i-1)NextiP

189642753是这样的,给我分,我是JINDAN!

10385796114不是很难!我是第一个,请楼主注意!

容易02-8-10-264-6-4行不?都等于-6啊

放置三个控件：text1,command1,其它就靠程序自己运行啦!注意窗口要足够宽哟,否则可能会造成运行时显示不完整昂.代码如下：PrivateSubCommand1_Click()ClsDimaA

a=0fori=1to10h=1forj=1toih=h*jnextja=a+hnexti'a就是结果

1、观察此数列知：A1＝1A3＝2A5＝3那么An＝（n＋1）/2A2＝2A4＝4A6＝6那么Am＝m所以：Am+An=129,An+2Am=138可以得出Am＝9那么An＝120＝120n＝2392

a=Array(12,23,10,8,6,45,56,7,16,30)c=UBound(a)-1Fori=0TocIfa(i)>mThenm=a(i)p=i+1EndIfNextMsgBox"最大数"

这个比输简单,书上都有的.例如：#include#includeintmain(){intaa[100],i;for(i=1;i

11-10=13+6=92*4=85+7=12

有以下两种情况：1：1+2+52：1+3+46个数中取3个不同数有C6（3）=20种情况P=2/20=0.1

i=1s=0DoWhilei

建立一个text1、一个command1,代码如下：PrivateSubCommand1_Click()IfNotIsNumeric(Text1.Text)ThenMsgBox("请先在框中输入数字的

010-4-2268-64其实一共有8种排法只要把这个方阵旋转,翻折,所得的结果都可以

同123456789方法与-10,-8,-6,-4,-2,0,2,4,6对应

dim ar(1 to 10) as integerdim s as integer, i as&n