重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
for i=1 to 9
成都网站制作、网站设计的开发,更需要了解用户,从用户角度来建设网站,获得较好的用户体验。成都创新互联公司多年互联网经验,见的多,沟通容易、能帮助客户提出的运营建议。作为成都一家网络公司,打造的就是网站建设产品直销的概念。选择成都创新互联公司,不只是建站,我们把建站作为产品,不断的更新、完善,让每位来访用户感受到浩方产品的价值服务。
for k=1 to 9
if k=i then
print i " x " k "=" i*k,
else
exit for
end if
next k
next i
在按钮的单击事件里写
For i = 1 To 9
For j = 1 To (10 - i)
If (i * j) 9 Then
Print i " * " j " = " i * j " ";
Else
Print i " * " j " = " i * j " ";
End If
Next j
Next i
标准三角,不因为算式长短而错位
'点击窗体出现九九乘法表,如果显示不全,适当调大窗体
Private Sub Form_Click()
Dim a As Integer
Dim b As Integer
Dim c As String
For a = 1 To 9
c = ""
For b = 1 To 9
c = c a "×" b "=" a * b vbTab
Next b
Print c
Next a
End Sub