九九乘法表(vb)

来源:互联网 发布:淘宝客服能学到什么 编辑:程序博客网 时间:2024/06/10 09:24

http://localhost:4671/test2/Default4.aspx

 

 
1X1=1  
1X2=2  2X2=4  
1X3=3  2X3=6  3X3=9  
1X4=4  2X4=8  3X4=12  4X4=16  
1X5=5  2X5=10  3X5=15  4X5=20  5X5=25  
1X6=6  2X6=12  3X6=18  4X6=24  5X6=30  6X6=36  
1X7=7  2X7=14  3X7=21  4X7=28  5X7=35  6X7=42  7X7=49  
1X8=8  2X8=16  3X8=24  4X8=32  5X8=40  6X8=48  7X8=56  8X8=64  
1X9=9  2X9=18  3X9=27  4X9=36  5X9=45  6X9=54  7X9=63  8X9=72  9X9=81  

 

 

code:

 

<script language ="vb" runat ="server">
    Sub page_load(ByVal sender As Object, ByVal e As EventArgs)
        '下面先给二维数组赋值
        Dim I, J, a(8, 8) As Integer
        For I = 1 To 9
            For J = 1 To 9
                a(I - 1, J - 1) = I * J
            Next
        Next
        '将乘法表输出
        For I = 1 To 9
            For J = 1 To I
                message.text &= J & "X" & I & "=" & a(I - 1, J - 1) & "&nbsp;&nbsp;"
            Next
            message.text &= "<br>"
        Next
    End Sub
</script>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

<html xmlns="http://www.w3.org/1999/xhtml" >
<head runat="server">
    <title>无标题页</title>
</head>
<body>
    <form id="form1" runat="server">
    <div>
    <asp:Label ID=message runat=server></asp:Label>
    </div>
    </form>
</body>
</html>

 


原创粉丝点击