vb 窗体上有两个复选框,标题分别为"能被5整除""能被6整除"-搜答案-百度作业网

Private Sub Form_Click()Dim T(10) As IntegerDim R(10) As Int

a>b>ca>b是true,值是1再执行1>c==false

'本人亲测可行Private Sub Form_CLICK() Dim arr(9) As In

dimarray(),iasinteger,jasintegerdimmin_iasinteger,max_jasinteger'用来标注数组中最小值和最大值的下标redimarray(10)=[1,

程序运行后,显示232.所以应选择A本题的主要考点是传值与传址.子过程proc（）中,n默认的是传址格式,即x的地址赋予n后,n变为12,在子过程中n运算后值为2,过程结束后,将n的地址再传回x,故x

PrivateSubForm_Load()DimiAsInteger,nAsLongDimkAsLongi=1:n=1DoWhilei

先要理解DoWhilex

C记得采纳~~！

whileregexp_instr(var_tmp,'\D'||var_element1||'\D')>0loopvar_return:=var_return||substr(var_tmp,1,

在你的生命中成长再答：望采纳

自己看下书,试着写一下就好,太简单了再问：你妹，会了还问你？别把自己膨胀的信心践踏在别人身上再答：别误会，要是说过了我很抱歉，这个代码估计没人给你发，还是自己照着书写就可以实现，很快的再问：好吧，原谅

'单击窗体函数里面的代码：DimiAsInteger'从1~200DimcountAsInteger'保存所求的和Fori=1to200If(iMod5=0)And(iMod7=0)Thencount

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

form1上：PrivateSubForm_Click()f=1Fori=1To8f=f*iIfi=5Thena=fIfi=7Thenb=fNextiy=(a+b)/fPrint"y=(5!+7!)/

functionGetData()dimMaxasdouble'最大的数dimminasdouble‘最小的数dimiLasdouble’最大的位置dimalasdouble‘最小的位置dimtota

前些天我才写的,是给别人弄的,他要的是1到100的十个数,并且按command2可以到换,我稍加修改给你(别忘了把窗体拉长点哈!短了后面不能显示哦)还要添加一个commandPrivateSubCom

PrivateSubCommand1_Click()a=InputBox("请输入数字","提示")b=InputBox("请输入数字","提示")Print"和："&Val(a)+Val(b)Pri

C

Text1.Text="abc"Text2.Text=Text1.TextText1.Text="xyz"先执行Text1.Text="abc"执行后text1显示abcText2.Text=Text

PrivateSubCommand1_Click()DimiAsIntegerText1.Text=""IfCheck1.Value<>0AndCheck2.Value<>0T