stay+safe+vbn

凤尤刮4106用vb循环嵌套解sum=1!+2!+3!+4!+5! -
伊刻贩15559729326 ______ Private Sub Command1_Click() For i = 1 To 5 s = 1 For j = 1 To i s = s * j Next j t = t + s Next i Print t End Sub

凤尤刮4106 - (stay)safe,we must follow the rules. 填to stay还是啥 -
伊刻贩15559729326 ______ 填stay说明:Stay safe保持安全为一个已动词原型开头的祈使句,表达说话者的要求或命令

凤尤刮4106用VB怎么编写2/1+3/2+5/3+8/5+…… -
伊刻贩15559729326 ______ 规律是这样的.2/1+3/2+5/3+8/5... 比如先是2/1 ,3/2的3是2+1, 2是前面的分子 所以就是A/B (A+B)/A 程序如下(我手上没有VB,可能会有语法错误) dim n as integer dim a as integer dim b as integer dim i as integer dim s as long s=0 a=2 b=1 s=a/b n=5 '循环次数 for i=1 to n s=s+(a+b)/a b=a a=a+b next i print i

凤尤刮4106vb编写一程序计算 s=2+4+6+8+······ +20,要求将结果显示到文件框控制件中 -
伊刻贩15559729326 ______ dim i& ,s&s=0for i=2 to 20 step 2s=s+inexttext1.text=s

凤尤刮4106VB编程题 求1/1+1/2+1/3+…1/n. 要求:n从一个文本框输入,1/1~1/n的和从另一个文本框输入. -
伊刻贩15559729326 ______ dim x%,y as doublefor x=1 to int(text1.text)y=y+1/xnexttext2.text=y

凤尤刮4106VB编程题 3+33+333+......+333333333 -
伊刻贩15559729326 ______ s = 0 For i = 1 To 9 a = Val(String(i, ＂3＂)) s = s + a Next Print s

凤尤刮4106求vb编程 S=a+aa+aaa+aaaa+....的值,a和n的值由用户自己输入 例如 当a=3,n=4时,s=3+33+333+3333 -
伊刻贩15559729326 ______ Private Sub Form_Load()a = Val(InputBox(＂请输入:＂))b = Val(InputBox(＂请输入:＂))c = 0For...

凤尤刮4106VB循环结构计算根号1+根号2+根号3+....+根号99之和 -
伊刻贩15559729326 ______ s=0 for i=1 to 99 s=s+sqr(i) next i print s

凤尤刮4106创建一个窗体,用vb编程序计算s=1+2+3+...+n在文本框text1中输入n的值 -
伊刻贩15559729326 ______ Private Sub Command1_Click() Dim n As Long, s As Double n = Val(Text1.Text) For i = 1 To n s = s + i Next i Label3.Caption = Str(s) End Sub

凤尤刮4106用vb求和 s=1+1/2+1/4+1/8……+1/1024 -
伊刻贩15559729326 ______ 123456 PrivateSubCommand1_Click() Fori = 0 To10 s = s + 1 / 2 ^ i Nexti Print ＂s=＂; s EndSub