早教吧
育儿知识
作业答案
考试题库
百科
知识分享
创建时间
资源类别
相关度排序
共找到 56 与PrivateSubCommand1Click 相关的结果，耗时7 ms
请问高手如下代码的运算过程和结果
PrivateSubCommand1Click
()Dimarr1(10)AsInteger,arr2(10)AsIntegern=3Fori=1To5arr1(i)=iarr2(n)=2*n+iNextiPrintarr2(i);arr1
其他
iNext iPrint a
用函数产生10个随机数并保存a数组中单击查找任意输入一个数在数组a中查找该数OptionBase1Dima(10)
PrivateSubCommand1Click
()Text1.Text="":Text2.Text=""Fori=1To10a(i)=Fix(Rnd*99+
其他
10a(i) = Fix(
问VB题求三位数的奇数中,所有各位数字之和是12的倍数的数的个数.
PrivateSubCommand1Click
()Dima,b,c,i,nAsIntegerFori=101To999Step2a=Int(i/100)b=Int(i/10)-a*10c=iMod100I
数学
i / 10) - a *
设窗体文件中有下面的事件过程：
PrivateSubCommand1Click
()Dimsa%=100PrintaEndSub其中变量a和s的数据类型分别是A．整型，整型B．变体型，变体型C．整型，变
其他
体型，整型
VB有道不会做。有如下VisualBasic程序：
PrivateSubCommand1Click
()DimsAsInteger,tAsIntegert=1:s=0Fori=1To10Step2t=t*2s=t+1NextiText1.Text=Str(s)EndSub问
其他
2 s = t +
求讲解.不知道为啥就=78了.
PrivateSubCommand1Click
()DimaAsVariantDimiAsInteger,yAsIntegera=Array(5,6,78,3,10,12)y=1Fori=LBound(a)+1ToUBound(a)Ifa(y
数学
or i = LBound(
Vb：一条长度为L的铁丝,要制作一个面积最大的矩形框.填空完成程序,输入铁丝的长度L,输出矩形面积的最
PrivateSubCommand1Click
()DimLAsIntegerDimchangAsIntegerDimkuaiAsIntegerDimsAsInteg
其他
As Integer
VB关闭某项进程的Dimprocname$,rtn&
PrivateSubCommand1Click
()procname="explorer.exe"strcomputer="."SetobjWMIService=GetObject("winmgmts:"&"{imper
其他
nmgmts:" & "{i
vb计算阶乘问题。下面是我写的程序帮忙改正。
PrivateSubCommand1Click
()DimiAsDouble,sumAsDouble,bAsDoubleIfi=1Thensum=1Elsesum=1Fori=2Tobsum=sum*iNextiEndIfPri
其他
= 2 To b sum
VB语句哪里有错误？请指出来并改正谢谢~！
PrivateSubCommand1Click
()Dima(1To10)AsIntegerDimi,max,minAsIntegerFori=1To10a(i)=100+Int(Rnd*999)NextiFori=1To10Pr
其他
nt(Rnd * 999)
<
1
2
3
4
5
6
>
热门搜索：
