vb 九九乘法表

在窗体上合适位置放置1个按钮控件,1个标签控件,其属性设置如下:按钮控件,名称:cmd_output;标题:输出;大小为:1215(宽)*615(高);位置:10080(左)*2160(上)。其余属性默认标签控件,名称:Lab_result;大小为:9735(宽)*2775(高);位置为:0(左)、0(上);标题为空。其余属性默认。功能:程序运行后,当点击“Cmd_output”按钮,将在标签(Lb_Result)上显示九九乘法表,如下图所示。将保存好的程序进行提交。特别注意:提交作业时,只需要提交sy3.frm一个文件即可,千万不可提交错误!!!完成作业过程,一定按照题目要求进行,电脑检测评分。 6.资源文件:sy3.frm提醒:
在VB中,回车换行系统常量为vbCrlf。一定将9*9乘法表显示在标签上,不能用Print方法输出到窗体上!

(1)print"*"
意思是打印一个字符"*"。
(2)print:print
VB中,一行一句命令,如果你想多句命令一行,可用冒号隔开。
print省略参数就表示输出一个空行。
简单说,"print:print"就等于:
print
print
打印两行空行。
(3)tab(n)函数。
用来将光标移到参数n指定的位置开始输出信息。tab(i*6),(i=1,2,3...),也就是在第6、12、24...格才输出表达式,这样看起来就像一个列表一样。如果你需要更要宽松一点,你写成tab(i*7)也是可以的:)

楼主提供的程序代码,语句有点混乱,运行也不正确.
请参考我提供的以下的乘法表(思路清晰):
Private Sub Form_Click()
Print Tab(35); "乘法表"
Dim Se As String
For I = 1 To 9
For J = 1 To I
Se = I & "X" & J & "=" & I * J
Print Tab((J - 1) * 9); Se;
Next J
Print
Next I
End Sub
温馨提示:内容为网友见解,仅供参考
第1个回答  2020-12-03

04九九乘法表的记忆方法

第2个回答  2015-05-03
Private Sub Command1_Click()
Dim i As Integer, j As Integer, s As String
For i = 1 To 9
    
    For j = 1 To i
    s = " " & i & "x" & j & "=" & i * j & String(5, " ")
    If j > 1 And i * j < 10 Then s = s + String(1, " ")
    Label1.Caption = Label1.Caption + s
    Next
    Label1.Caption = Label1.Caption & vbCrLf + " "
    
Next
End Sub

追问

不对呀 朋友

追答

我的运行如图,如果不符合你的要求自己弄吧!

追问

s = " " & i & "x" & j & "=" & i * j & String(5, " ")这是什么,写清楚

追答

这个就是显示乘法口诀的字符串。
如果要把乘号使用星号表示,修改如下。
s = " " & i & "*" & j & "=" & i * j & String(5, " ")

追问

错的

追答

& 这个符号,前后有空格。

本回答被网友采纳

如何在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编一个九九乘法表,程序应该怎么写,求救!
本示例使用Visual Basic编写了一个九九乘法表程序。以下为程序代码:在编写程序前,我们需要定义两个整型变量i和j,分别用于表示行数和列数,以及一个字符串变量str用于存储乘法表。通过设置Me.AutoRedraw = True,可以实现在输出过程中实时更新控件。使用For循环,遍历i从1到9。在循环内部,定义一个空字...

用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打九九乘法表
三角形的九九乘法表 Private Sub Form_Load()Dim i, j, s For i = 1 To 9 For j = 1 To i s = s & j & "×" & i & "=" & IIf(Len(i * j) < 2, i * j & " ", i * j) & " "Next s = s & vbCrLf Next MsgBox s End Sub ...

用VB程序怎么做九九乘法表?
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....

怎样用vb在窗体上输出九九乘法表?
Private Sub Form_Click()Dim i, j As Integer Dim s As String Print Tab(35); "九九乘法表"For i = 1 To 9 For j = 1 To i s = i & "×" & j & "=" & i * j Print Tab((j - 1) * 9 + 2); s;Next j Print Next i End Sub ...

用vb编写九九乘法表
用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...

VB中怎么用矩阵输出右下倒三角九九乘法表代码?
VB中用矩阵输出右下倒三角九九乘法表代码是:Private Sub Form_Load()show FontSize=12 print tab(25);“九九表”print print "*";for i =1 to 9 print Tab(i*6);i;next i print for j =1 to 9 print j;"";for k = j to 9 m=j*k print tab(k*6);m;" ";next k print...

VB程序设计,功能是打印“九九表”,如图所示。
Private Sub Command3_Click()Print Tab(35); "九九乘法表(上三角)" For i = 1 To 9 For j = i To 9 '就只有这里有点变化i to 9 Print Tab((j - 1) * 9); i & "×" & j & "=" & i * j; Next j Print Next iEnd Sub ...

九九乘法表九九乘法表vb代码
关于九九乘法表,九九乘法表 vb代码这个很多人还不知道,今天来为大家解答以上的问题,现在让我们一起来看看吧!1、Private Sub Command1_Click() print99 Me End Sub Private Sub Command2_Click() print99 Picture1 End Sub Private Sub print99(obj1 As Object) Dim i As Integer, j As ...

相似回答