在VB里输出九九乘法表

vb中输出九九乘法表，可以参考下面的代码：

Private Sub Form_Click()

For a = 1 To 9

For b = 1 To a

Print b "*" a "=" b * a

Next b

Print

Next a

End Sub

扩展资料：

VB基本函数列举：

CBool 函数： 返回已被转换为 Boolean 子类型的变体的表达式。

CByte 函数： 返回已被转换为字节子类型的变体的表达式。

CCur 函数 ：返回已被转换为货币子类型的变体的表达式。

CDate 函数： 返回已被转换为日期子类型的变体的表达式。

CDbl 函数： 返回已被转换为双精度子类型的变体的表达式。

Chr 函数： 返回指定 ANSI 字符码的字符。

参考资料来源：百度百科-Visual Basic

Public Class Form1

Private Sub Button1_Click(sender As Object,e As EventArgs)Handles Button1.Click

Dim i,j As Integer

Dim se As String

Label1.Text=""

For i=1 To 9 Step 1

For j=1 To 9 Step 1

se=i&"x"&j&"="&i*j

Label1.Text&=se&Space(10-Len(se))

Next

Label1.Text&=vbCrLf

Next

End Sub

Private Sub Button2_Click(sender As Object,e As EventArgs)Handles Button2.Click

Dim i,j As Integer

Dim se As String

Label1.Text=""

For i=1 To 9 Step 1

For j=1 To i Step 1

se=i&"x"&j&"="&i*j

Label1.Text&=se&Space(10-Len(se))

Next

Label1.Text&=vbCrLf

Next

End Sub

Private Sub Button3_Click(sender As Object,e As EventArgs)Handles Button3.Click

Dim i,j As Integer

Dim se As String

Label1.Text=""

For i=1 To 9 Step 1

For j=i To 9 Step 1

se=i&"x"&j&"="&i*j

Label1.Text&=se&Space(10-Len(se))

Next

Label1.Text&=vbCrLf&Space(i*10)

Next

End Sub

End Class

扩展资料：

Label定义和用法

&ltlabel&gt标签为input元素定义标注（标记）。

label元素不会向用户呈现任何特殊效果。不过，它为鼠标用户改进了可用性。如果您在label元素内点击文本，就会触发此控件。就是说，当用户选择该标签时，浏览器就会自动将焦点转到和标签相关的表单控件上。

&ltlabel&gt标签的for属性应当与相关元素的id属性相同。

实例

带有两个输入字段和相关标记的简单HTML表单：

&ltform&gt

&ltlabelfor="male"&gtMale&lt/label&gt

&ltinputtype="radio"name="sex"id="male"/&gt

&ltbr/&gt

&ltlabelfor="female"&gtFemale&lt/label&gt

&ltinputtype="radio"name="sex"id="female"/&gt

&lt/form&gt

浏览器支持

所有主流浏览器都支持&ltlabel&gt标签。

Safari 2或更早的版本不支持&ltlabel&gt标签。

提示和注释

注释："for"属性可把label绑定到另外一个元素。请把"for"属性的值设置为相关元素的id属性的值。

---