VB编程代码怎么写

VB编程代码怎么写三种方法,求解... VB编程代码怎么写三种方法,求解 展开
 我来答
数学与计算机编程
2018-06-07 · TA获得超过2160个赞
知道大有可为答主
回答量:2312
采纳率:80%
帮助的人:567万
展开全部
Private Sub Command1_Click()
  CurrentY = 0
  For i = 1 To 9
    If i <= 5 Then
      Print Space(9 - i);
      For j = 1 To 2 * i - 1
        Print "*";
      Next j
    Else
      Print Space(i - 1);
      For j = 1 To 2 * (10 - i) - 1
        Print "*";
      Next j
    End If
    Print
  Next i
End Sub

Private Sub Command2_Click()
  CurrentY = 0
  Dim a(8) As String, b(8) As String
  For i = LBound(a) To UBound(a)
    If i <= 4 Then
      a(i) = String(2 * i + 1, "*")
      b(i) = Space(25 - i)
    Else
      a(i) = String(2 * (8 - i) + 1, "*")
      b(i) = Space(17 + i)
    End If
    Print b(i) + a(i)
  Next i
End Sub

Private Sub Command3_Click()
  CurrentY = 0
  For i = 1 To 9
    If i <= 5 Then
      Print Space(43 - i);
      Print String(2 * i - 1, "*")
    Else
      Print Space(33 + i);
      Print String(2 * (10 - i) - 1, "*")
    End If
  Next i
End Sub

Private Sub Form_Load()
  Me.Width = 4800
  Me.Height = 2640
  Command1.Width = 1245: Command1.Height = 315: Command1.Left = 120: Command1.Top = 1830
  Command2.Width = 1245: Command2.Height = 315: Command2.Left = 1635: Command2.Top = 1830
  Command3.Width = 1245: Command3.Height = 315: Command3.Left = 3150: Command3.Top = 1830
End Sub

推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式