用VB程序怎么做九九乘法表?

发布网友 发布时间：2022-04-27 08:41

我来回答

共9个回答

热心网友 时间：2022-04-27 10:10

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定义和用法

<label>标签为input元素定义标注（标记）。

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

<label>标签的for属性应当与相关元素的id属性相同。

实例

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

<form>

<labelfor="male">Male</label>

<inputtype="radio"name="sex"id="male"/>

<br/>

<labelfor="female">Female</label>

<inputtype="radio"name="sex"id="female"/>

</form>

浏览器支持

所有主流浏览器都支持<label>标签。

Safari 2或更早的版本不支持<label>标签。

提示和注释

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

热心网友 时间：2022-04-27 11:28

用VB程序怎么做九九乘法表的步骤如下：

创建显示结果的窗体：

编写按钮宏

Private Sub Command1_Click()

Dim a, b As Integer

Dim s As String: s = ""

For a = 1 To 9

For b = 2 To 9

s = s & a & "*" & b & "=" & b * a

If b <> 9 Then s = s & Space(1) Else s = s & vbNewLine

Next

Next

MsgBox s

End Sub

3.运行结果

热心网友 时间：2022-04-27 13:03

直接两个for循环就可以了.给你的例子看下:Private Sub Form_Click() '对form窗体的单击事件添加代码
For i = 1 To 9 Step 1
For j = 1 To i
Print j & "X" & i & "=" & i * j; vbTab;
Next j
Print
Next i
End Sub 效果图:

热心网友 时间：2022-04-27 14:54

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button.Click
For i = 1 To 9
For j = 1 To 9
If i <= j Then TextBox1.Text = TextBox1.Text & i & "x" & j & "=" & (i * j) & Chr(9)
Next
TextBox1.Text = TextBox1.Text & Chr(13) & Chr(10)
Next
End Sub

End Class

关键在于 Chr() 函数，VS 2008 写的，

热心网友 时间：2022-04-27 17:02

Private Sub Form_Click()
Dim a As Integer
Dim b As Integer

Dim s As String

For a = 1 To 9
For b = 1 To a
s = s & b & "×" & a & "=" & a * b & " "
Next
Print s
s = ""
Next
End Sub 代码很直观，无须解释。

热心网友 时间：2022-04-27 19:27

Private Sub Command1_Click()
Dim a, b, c As Integer
For a = 1 To 9
For b = 1 To a
c = a * b
Print b & "X" & a & "=" & c; vbTab;
Next
Print
Next
End Sub

热心网友 时间：2022-04-27 22:08

Private Sub Form_Click()
Dim a, b, c As String
For a = 1 To 9
For b = 1 To a
c = c & b & "×" & a & "=" & a * b & " "
Next
Print c
c = ""
Next
End Sub

热心网友 时间：2022-04-28 01:06

Private Sub Command2_Click()
For i = 1 To 9 Step 1
For j = 1 To i
Print j & "*" & i & "=" & i * j; vbTab;
Next j
Print
Next iEnd Sub