vb 窗体上有两个复选框,标题分别为"能被5整除""能被6整除"
来源:学生作业帮助网 编辑:作业帮 时间:2024/09/29 08:24:14
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
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
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