承德汽车网

      看图写VB一般三平

      发布时间:2020-09-09

      ))
      w = w + a(i)
      s = s + a(i) * a(i)
      r = w /请输入"平均值为"和为"个数", s%
      Dim i%
      w = 0
      r = 0
      s = 0
      For i = 1 To 30
      a(i) = Val(InputBox(", w%Private Sub Form_Load()
      Dim a(1 To 30); & r
      Print " & w
      Print " 30
      Next i
      Print " & i & ", r%;平方和为"

      回复:

      )
      b = InputBox("输入随机数的下界"Private Sub Command1_Click()
      a = InputBox(")
      For i = 1 To 3
      Randomize
      c = Int(Rnd * (b - a + 1) + a)
      Picture1.0000", "0.Print Format(m.Print c
      m = m + Sqr(c)
      Next
      Picture1;输入随机数的上界"

      回复:

      Private Sub Command1_Click() Dim i%, a%, b%, c% For i = 100 To 999 If Sqr(i) = Int(Sqr(i)) Then a = Left(i, 1) b = Mid(i, 2, 1) c = Right(i, 1) If a = b Or a = c Or b = c Then Print i End If Next i End Sub

      回复:

      Private Sub Form_Load() Dim a(1 To 30), w%, r%, s% Dim i% w = 0 r = 0 s = 0 For i = 1 To 30 a(i) = Val(InputBox("请输入" & i & "个数")) w = w + a(i) s = s + a(i) * a(i) r = w / 30 Next i Print "和为" & w Print "平均值为" & r Pr...

      回复:

      Sub main() Dim a%(20), num%(20, 3), b%(10), i%, j%, k%, m%, n%, t%, flag% Debug.Print "the..." For i = 11 To 31 If i Mod 10 Then k = i * i num(j + 1, 0) = k \ 100 num(j + 1, 1) = k \ 10 Mod 10 num(j + 1, 2) = k Mod 10 If Not (n...

      回复:

      Dim t, n%Sub pt(a) Dim i% Debug.Print vbCrLf; "No."; n; ":"; n = n + 1 For i = 0 To 6 Debug.Print "| "; IIf(a(i) = 1, "*", IIf(a(i) = 2, "@", " ")); NextEnd SubSub chg(ByVal n%, ByVal m%) Dim tm tm = t(n) t(n) = t(m) t(m) = tmE...

      回复:

      c=x+2^2+x+3^3+x+n^n

      回复:

      Sub main() Dim i%, t%, a!(2), b!(2) Debug.Print "the possible..." For i = 11 To 31 For t = 11 To 31 f i * i, a f t * t, b If Sqr(a(0) * 10 + b(0)) = Int(Sqr(a(0) * 10 + b(0))) And Sqr(a(1) * 10 + b(1)) = Int(Sqr(a(1) * 10 + b(1...

      回复:

      Private Sub Command1_Click() a = InputBox("输入随机数的下界") b = InputBox("输入随机数的上界") For i = 1 To 3 Randomize c = Int(Rnd * (b - a + 1) + a) Picture1.Print c m = m + Sqr(c) Next Picture1.Print Format(m, "0.0000") End Sub

      回复:

      Sub main() Dim i%, a%(2) For i = 100 To 999 f i, a If i = fact(a(0)) + fact(a(1)) + fact(a(2)) Then Debug.Print "the number is:" Debug.Print i; "="; a(0); "!+"; a(1); "!+"; a(2); "!" End If NextEnd SubSub f(ByVal n%, s%()) Dim ...

      上一篇:2016年6月10日是否合适搬家 下一篇:北京东路到天海北路坐多少路公交

      返回主页:承德汽车网

      本文网址:http://0314car.cn/view-114982-1.html
        信息删除