早教吧
育儿知识
作业答案
考试题库
百科
知识分享
创建时间
资源类别
相关度排序
共找到 265 与Text 相关的结果,耗时12 ms
答案是10,但我需要过程,求高手赐教,把每个过程也写下DimaAsIntegerPrivateSubCommand1Click()DimbAsInteger,cAsIntegera=2:b=-1CallMySub(b,c)c=c+bCallMySub(c,b)a=a+c
数学
c) c = c +
VB文本替换求改错```PrivateSubCommand1Click()DimsAsStringDimsLineAsStringlj=App.Path&"\"&
Text
1.
Text
&".txt"lj2=App.Path&"\完成文件\"&
Text
1.
Text
&".tx
其他
& "\完成文件\" & T
VB随机函数初学..PrivateSubCommand1Click()DimaAsIntegerDimx,yAsSingleFori=1To10x=Val(
Text
1.
Text
)y=Val(
Text
2.
Text
)a=Int(y*Rnd+x)
Text
3=aNextEndS
其他
= Int(y * Rnd
VB转换函数出错DimAaAsSingleAa=CSng(text1.
Text
)*CSng(text2.
Text
)*CSng(text3.
Text
)出现实时错误13不知道怎么回事好像是CSng(text3.
Text
)错误请给出正确的写法..
其他
法..
vb计算问题Constpi=3.14159DimmessPrivateSubCommand1Click()'DimsumAsDoubleDimaAsDoubleDimbAsDoubleDimcAsDoubleDimtAsDoubleDimdAsDoublea=
Text
1
其他
ubleDim d As D
懂VB的高手进来翻译下下面的代码Dimd(10000)AsLongDimkAsIntegerPrivateSubCommand1Click()DimaAsLonga=Val(text1.
Text
)k=k+1i=kDoWhilei>1Andd(i-1)>ad(i)=d(i
其他
While i > 1 A
EXCELVB为何结果=0PrivateSubLabel1Click()Label1.AutoSize=TrueEndSubPrivateSub
Text
Box4Change()EndSubPrivateSubFormLoad()DimnumberAsIntegerEnd
其他
er As IntegerE
下面程序中的x1=(-b+Sqr(b^2-4*a*c))/(2*a)这一句错在哪里?PrivateSubCommand1Click()DimaAsSingle,bAsSingle,cAsSingleDimx1AsSingle,x2AsSinglea=Val(
Text
1.
数学
Single,x2 As
VB6.0无效限定符,求教各位大神PrivateSubCommand1Click()DimXAsDouble,YAsDouble,ZAsDouble,BAsDouble,LAsDouble,HAsDouble,fAsDouble,aAsDouble,b1AsDouble
其他
uble, a As Dou
Dimsaslong,xasintegers=0Forx=9to10Step2S=s+xNextx
Text
1.
Text
=sS的值是多少,答案为什么是25
数学
<
1
2
3
4
5
6
7
8
9
10
>
热门搜索: