(相关资料图)

1、Private Sub Form_click()For a = 1 To 9 For b = 1 To a Print b;"*"; a;"="; b * a; Next b Print Next aEnd SubPrivate Sub Form_Load() Me.AutoRedraw = True Cls For j = 1 To 9 For k = 1 To 9 If k > j Then Exit For Print k &"*"& j &"="& j * k;""; Next k Print Next jEnd Sub Private Sub Form_Click()Dim i, j As IntegerFor i = 1 To 9 For j = i To 9 Line (i * 200, j * 250)-(i * 200, j * 250) ForeColor = i * j * 253 Print Space((i - 1) * 6); i &"×"& j &"="& i * j Next jNext iEnd Sub。

本文就为大家分享到这里，希望小伙伴们会喜欢。

关键词：