vb中输入10个整数
来源:学生作业帮助网 编辑:作业帮 时间:2024/05/24 06:34:55
PrivateSubForm_Click()DimaAsSingle,bAsSingle,cAsSingle,zAsSinglea=InputBox("输入a的值","")b=InputBox("输入
输入10的倍数后按回车!PrivateSubForm_Load()Text1.Text=""EndSubPrivateSubText1_KeyPress(KeyAsciiAsInteger)IfKey
OptionExplicitDimarr(100)AsIntegerDimarr1(100)AsIntegerDimiAsIntegerPrivateSubCommand1_Click()Fori=1
pravitesubcommand1_Click()dimn%n=inputbox("请输入一个整数","输入整数")ifnmod3=0andnmod7=0thenprint"A"elseprint"
Dima(1To10)AsInteger'定义10个数组Dimaa(1To9)AsInteger'定义9个空格数组DimnAsInteger'定义空格数DimsAsInteger'数组和Form1.C
什么叫奇数个数和再问:就是有几个奇数,几个偶数再答:OptionExplicitPrivateSubCommand1_Click()DimsAsString:s=Text1.TextDimiAsInt
PrivateSubCommand1_Click()Dimaa=InputBox("请输入一个数")PrintStrReverse(a)EndSu
PrivateSubCommand1_Click()Doa=Val(InputBox("输入整数,-1结束:"))IfaMod2=0Thens=s+1LoopUntila=-1Print"共有";s;
Dima(9)AsIntegerRandomizea(0)=Int(Rnd()*21+10)Doa(1)=Int(Rnd()*21+10)LoopWhilea(1)=a(0)Doa(2)=Int(Rn
OptionExplicitPrivateSubCommand1_Click()DimA(9)AsInteger,i%,m%,t%,AA%Fori=0To9RandomizeA(i)=Int(Rnd*
PrivateSubCommand1_Click()DimA(10)AsLong,IAsLongForI=1To10A(I)=InputBox("请输入第"&I&"个数据","提示","")Print
OptionExplicitPrivateSubCommand1_Click()DimAAsString,iAsInteger,DDAsSingleRandomizeDoDD=Int(Rnd*1000
http://zhidao.baidu.com/link?url=wyic3NEB45i2K9YZE2SpNiAV4aD7rZHpluBlyF76zg0n_8wr1t6-KOYm6eYY23KqG5n
Dimy%,x%Fori=1To10x=Int(Rnd*100)'[0,99]Printx;Ifi=1Theny=xElseIfy>xTheny=xEndIfNextiPrint"最小值";x如果是N
Randomize初始化随机数发生器Rnd()获取0~1之间的随机数,乘以90后再加上10,取整后就是10~90之间的了然后挑选出来Mod3=0的数据排序就是了再问:就是mod3=0后不会排序啊再答:
functionGetData()dimMaxasdouble'最大的数dimminasdouble‘最小的数dimiLasdouble’最大的位置dimalasdouble‘最小的位置dimtota
给个最简单的示例你x=0:y=0fori=1to10a=inputbox("请输入一个任意整数!","提示")ifa=""thenmsgbox"你至少输入一个数!","提示":i=i-1elseif(
呵呵,一看就知道你刚学.我按照你的思路写的代码,你看看PrivateSubCommand1_Click()a=Val(Text1.Text)IfaText2="负整数"ElseIfa>0ThenTex
写成函数,直接调用Functionprint_num(ByValnumAsInteger)Dimi,n,k,jAsIntegerDimstrAsStringn=Int(num/2)k=0IfnumMo
建立一个text1、一个command1,代码如下:PrivateSubCommand1_Click()IfNotIsNumeric(Text1.Text)ThenMsgBox("请先在框中输入数字的