private sub command1_click() dim a as integer,b as integer,c as integer randomize a=10+90*rnd b=10+90*rnd c=inputbox(str(a)&"+"&str(b)&"=") if c=a+b then print str(a)&"+"&str(b)&"=;c;msgbox("恭喜你~答对了!e...
12345678910111213141516171819202122#!usr/bin/python#-*-coding:utf-8-*-#file:sum_number.py"""求和"""def sumner(n):if **instance(n,int):m=n+1 sum_num=0 for i in range(1,m):sum_num+1.0/(i*(i+1))*(pow(-1,i)...
1楼所述,vlookup就能搞定 如果强行要用vba的话,代码也不会很多的 翻译按钮 'a列一番下 dim maxline as long maxline=cells(rows.count,1).end(xlup).row '検索缲り返し dim i as long for i=3 to maxline if trim(cells(i,1))<>""and trim(cells(i,3...