VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)

VB爱好者乐园(VBGood)

 找回密码
 立即注册
搜索
查看: 4126|回复: 1

[原创] 大家帮我看看这个为什么显示不了呢?(要求对角线都是5,其余是8)

[复制链接]
 楼主| 发表于 2012-3-1 20:57:33 | 显示全部楼层 |阅读模式
Private Sub Command1_Click()
    Dim mn(9, 9) As String
    Dim i As Integer
    Dim j As Integer
    For i = 0 To 9
        For j = 0 To 9
            If i = j Then
                mn(i, j) = "5"
            Else
                mn(i, j) = "8"
            End If
            Print mn(i, j); Spc(4)
        Next
        Print
    Next
End Sub
发表于 2012-3-11 22:44:39 | 显示全部楼层
Private Sub Command1_Click()
  Dim mn(9, 9) As String
  Dim i As Integer
  Dim j As Integer
  For i = 0 To 9
  For j = 0 To 9
    If i = j Or (9 - i) = j Then
      mn(i, j) = "5"
    Else
      mn(i, j) = "8"
    End If
    Me.CurrentX = j * 10
    Me.CurrentY = i * 10
    Print mn(i, j); Spc(4)
  Next
  Print
  Next
End Sub

Private Sub Form_Load()
    Me.ScaleMode = 3
End Sub
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

文字版|手机版|小黑屋|VBGood  

GMT+8, 2020-6-7 05:35

VB爱好者乐园(VBGood)
快速回复 返回顶部 返回列表