Question

怎么写上三角形的九九乘法表的VB程序

怎么转行呀! 用循环写.

Answer 1

Private Sub Command1_Click()
Dim i, j As Integer '实现9 X 9乘法口诀
For i = 1 To 9
For j = 1 To i
Print i; "*"; j; "孝拍御贺芦="巧岩; i * j;
Next j
Print
Next i
End Sub

Answer 2

Private Sub Command1_Click()
Dim i As Integer
Dim j As Integer
Dim a As String

For i = 1 To 9
For j = 1 To i
a = CStr(j) & "枣蔽×" & CStr(i) & "凳孝州慎橘=" & CStr(i * j)
a = a & Space$(8 - Len(a))
Print a;
Next j
Print
Next i
End Sub

Answer 3

三个text框（分别text1、早旁大漏text2、text3），然陆仿橡后一个按钮（command1)，
给按钮写个click事件，
private sub command1_click()
dim a,b,c
a=val(text1.text)
b=val(text2.text)
c=a*b
text3.text=c
end sub