vb作业:输入10个整数,分别统计其中正数.负数和零的个数输出

PrivateSubForm_Click()DimaAsSingle,bAsSingle,cAsSingle,zAsSinglea=InputBox("输入a的值","")b=InputBox("输入

OptionExplicitDimarr(100)AsIntegerDimarr1(100)AsIntegerDimiAsIntegerPrivateSubCommand1_Click()Fori=1

pravitesubcommand1_Click()dimn%n=inputbox("请输入一个整数","输入整数")ifnmod3=0andnmod7=0thenprint"A"elseprint"

#includemain(){inta[10],i,j,t;printf("pleaseinputtenintnumbers:");for(i=0;i

Dima(1To10)AsInteger'定义10个数组Dimaa(1To9)AsInteger'定义9个空格数组DimnAsInteger'定义空格数DimsAsInteger'数组和Form1.C

intmain(){intc[10];inti;for(i=0;i

什么叫奇数个数和再问：就是有几个奇数，几个偶数再答：OptionExplicitPrivateSubCommand1_Click()DimsAsString:s=Text1.TextDimiAsInt

PrivateSubCommand1_Click()Dim奇数和AsLongDim偶数和AsLongDim你输入的数AsIntegerDimiAsLong你输入的数=InputBox("请输入一个整数

PrivateSubCommand1_Click()Dimaa=InputBox("请输入一个数")PrintStrReverse(a)EndSu

PrivateSubCommand1_Click()DimA(10)AsLong,IAsLongForI=1To10A(I)=InputBox("请输入第"&I&"个数据","提示","")Print

以下代码为输入任意多个数字进行统计如果输入0则退出循环显示出统计结果PrivateSubCommand1_Click()DimiAsIntegerDimqAsIntegerDimoAsIntegerq

http://zhidao.baidu.com/link?url=wyic3NEB45i2K9YZE2SpNiAV4aD7rZHpluBlyF76zg0n_8wr1t6-KOYm6eYY23KqG5n

Private Sub Command1_Click()    s1 = 0   &nbs

OptionBase1Dima(20)PrivateSubForm_Load()RandomizeFori=1To10a(i)=Int(10+90*Rnd)NextEndSubPrivateSubCo

PrivateSubForm_click()DimA(1To10)RandomizeForI=1To10A(I)=Int(Rnd*90)+10NextIForI=1To9'选择法p=IForJ=I+1

给个最简单的示例你x=0:y=0fori=1to10a=inputbox("请输入一个任意整数!","提示")ifa=""thenmsgbox"你至少输入一个数!","提示":i=i-1elseif(

添加两个控件名字分别为sc、tj的按钮.'定义一个窗体数组变量dima(10)asinteger'生成是个随机数privatesubsc_click()'下面这一句可以得到不同的随机数randomiz

写成函数,直接调用Functionprint_num(ByValnumAsInteger)Dimi,n,k,jAsIntegerDimstrAsStringn=Int(num/2)k=0IfnumMo

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

题意不是太清楚你是要输入还是输出?10个数显2排第二排一定不是3:3十个数没有范围、正负限定吗?