用VB计算奇数

Private Sub Command1_Click()    Dim i As Integer &

q=0:e=0Fori=1To100IfiMod2=0Thene=e+1Elseq=q+1EndIfNextPrint"奇数个数=";q,"偶数个数=";e

OptionExplicitPrivateSubCommand1_Click()Label1.Visible=TrueDimrAs__single___Dim____s___AsDouble_cons

在命令按钮里加上以下代码：DimiAsInteger,kAsInteger,jAsIntegerDimxAsStringj=0Fori=1To35Fork=1To35If(i*3+k*4)=100Th

#includevoidmain(){doublea,b(1),s=0;for(a=1;a

dimiaslongdimsumaslongsum=0fori=1to100step2sum=sum+inextiprintsum

DimiAsLongDimjAsLongDimkAsLongFori=0To100IfiMod2=0Thenj=j+iElsek=k+iNextMsgBox"偶数和："&j&vbCrLf&"奇数和："

语句自己找给思路.第一种：暴力运算1.申请2个变量jsum,osum分别放奇数和、偶数和.赋初值0.2.做个循环从1到100,变量用i2.1判断i是否为奇数,是的话jsum=jsum+i,否则osum

我自己写了个C++的,里面用到了一些C++特有的功能,不能移到VB上,但我可以给你算法　　(1)将1放在最后一行的中间一列;　　(2)从2开始直到n×n止各数依次按下列规则存放：　　按45°方向行走,

PrivateSubCommand1_Click()DimS_numAsLongS_num=Val(Text1.Text)Text2.Text=""Text3.Text=""IfS_num>0Then

话说楼上的已经很好了,还要在做什么?算了,给你个实例吧,添加一个command按钮,输入以下代码OptionExplicitPrivateSubCommand1_Click()DimresultAsL

不好意思我好久没用vb了大概如下dimcassingledimxassinglex=inputbox("输入x")c=5*(x-32)/9printc\我以前把vb删了不能试你试试吧

PrivateSubCommand1_Click()Dimi,sum1,sum2AsIntegersum1=0sum2=0Fori=1To100IfiMod2=1Thensum1=sum1+iElse

inputab=int(（a+1)/2)c=b-1

在窗口上建立一个按钮：FunctionTotal(Num1,Num2)AsString'Num1为奇数和'Num2为偶数和Fori=1To100IfiMod20ThenNum1=Num1+iElseN

定义三个listboxOptionExplicitPrivateSubForm_Click()DimiAsLong,jAsLongList1.AddItem("奇数")List2.AddItem("偶

dimiasintegerdima(9)asintegerdimsasstrings=""fori=0to9a(i)=inputbox("输入第"&(i+1)&"个数：")nextfori=0to9i

Functionfactorial(nAsInteger)AsLongDimiAsIntegerDimretAsLongret=1Fori=1Tonret=ret*iNextifactorial=re

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

PrivateSubCommand1_Click()Dimli_iAsIntegerli_i=Val(Text1.Text)Ifli_i