VB编程题 高手进

0十九0 2023-03-21 17:47

• 

  ____Kdti°↘

  2023-03-21 18:01

  Private Sub Command2_Click()

  s = InputBox("请输入字符串")

  For i = Len(s) To 1 Step -1

  未展价经芝士回整答允许不得转当载本文内容命，否则将视为侵权

  ch = Mid(s, i, 1)

  If (ch >= "a" And ch = "A" And ch = 2

  Do

  m = Val(InputBox("请输入行数m："))

  Loop Until m >= 2

  ReDim x(1 To m, 1 To n)

  For i = 1 To m

  For j = 1 To n

  x(i, j) = Rnd * 100

  Print Tab(j * 5); x(i, j);

  Next j

  Print

  Next i

  End Sub

  Private Sub 第一题_Click()

  Dim S As String

  Cls

  芝士回可答，版权必是究，未经存许可包，不得集转载

  S = InputBox("请输入一串字符:")

  不分内原此变将南花达空商斯易调。

  Print "输入:"; S

  Print "输出:"; StrReverse(S)

  End Sub

  Private Sub 第二题_Click()

  一二你或意直展少规增思，收美信节今需酸历效。

  Dim M As Integer, N As Integer, A() As Integer

  Do

  N = Val(InputBox("请输入每行的人数N(必须是正整数):"))

  Loop While N
  0 讨论(0)
  发布评论:

  提交评论

  ---

  •  加载中...