VB试验---九九乘法
表
关于同志近三年现实表现材料材料类招标技术评分表图表与交易pdf视力表打印pdf用图表说话 pdf
上面的哪是九九乘法表啊
我这有两种
Private 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 j
End Sub
''''''''''''''''
Private Sub Form_Click()
Dim i, j As Integer
For 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 j
Next i
End Sub
左下
Private Sub Command1_Click()
Me.FontSize = 30'字体大小 30有点大,超出窗口范围了
Dim i As Integer
Dim j As Integer
Dim s As String
For i = 1 To 9
For j = 1 To i
s = CStr(i) & "*" & CStr(j) & "=" & CStr(i * j) s = s & Space$(10 - Len(s))
Print s;
Next j
Print
Next i
End Sub
14
| 评论