Delphi 7 9*9乘法口诀表

柔情只为你懂 2022-04-16 00:08 202阅读 0赞

unit Unit1;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, StdCtrls;
    
    type
      TForm1 = class(TForm)
        Button1: TButton;
        Button2: TButton;
        procedure Button1Click(Sender: TObject);
        procedure Button2Click(Sender: TObject);
      private
        { Private declarations }
      public
        { Public declarations }
      end;
    
    var
      Form1: TForm1;
    
    implementation
    
    {$R *.dfm}
    
    procedure TForm1.Button1Click(Sender: TObject);
      var i,j:integer;
    begin
         for i := 1 to 9 do
              for j :=1 to i do
              form1.Canvas.TextOut(50*j,20*i,inttostr(j)+'*'+inttostr(i)+'='+inttostr(i*j));
    
    
    end;
    
    procedure TForm1.Button2Click(Sender: TObject);
    begin
           if messagedlg('exit',mtInformation,[mbyes,mbno],0)=mryes then
                 form1.close;
    end;
    
    end.

程序说明：

1： inttostr(j)：应该是整数型数据转化为字符串

2： Canvas属性TextOut的方法，TextOut(x,y:integer, const text:string)

3： messagedlg ： [https://www.cnblogs.com/jxsoft/archive/2011/03/09/1978150.html][https_www.cnblogs.com_jxsoft_archive_2011_03_09_1978150.html]

运行结果如下图所示：

![watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3dlaXhpbl80MjUyODA4OQ_size_16_color_FFFFFF_t_70][]

[https_www.cnblogs.com_jxsoft_archive_2011_03_09_1978150.html]: https://www.cnblogs.com/jxsoft/archive/2011/03/09/1978150.html
[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3dlaXhpbl80MjUyODA4OQ_size_16_color_FFFFFF_t_70]: /images/20220416/8f215b40bf79416bbaa4bb7104e0e627.png

发表评论取消回复

表情：

评论列表（有 0 条评论，202人围观）

还没有评论，来说两句吧...

相关阅读

相关 java：输出乘法口诀表

public class Test{ public static void main(String[] args){

淡淡的烟草味﹌/ 2023年08月17日 17:13/ 0 赞/ 159 阅读

相关【C语言】输出乘法口诀表

include<stdio.h> include<stdlib.h> int main() { int i, j, result;

阳光穿透心脏的1/2处/ 2023年07月11日 06:17/ 0 赞/ 2 阅读

相关用python做乘法口诀表_如何用python编写乘法口诀表

如何用python编写乘法口诀表？首先要明确一下思路，我们可以确定x,y两个变量，弄清楚其变化的规律，再使用循环嵌套实现。下面是如何用Python编写乘法口诀表的具体方法。

﹏ヽ暗。殇╰゛Y/ 2023年01月01日 05:58/ 0 赞/ 213 阅读

相关 99加法口诀表java_加法口诀表

加法口诀表加法口诀表程序填空，不要改变与输入输出有关的语句。输入一个正整数repeat (0 (将加数、被加数、和放入一个二维数组中, 再输出该数组) 例：括号内

柔光的暖阳◎/ 2022年11月03日 05:42/ 0 赞/ 927 阅读

相关用c语言输出乘法口诀表

这个其实很简单！只要好好学习一下printf（）的运用即可！ include<stdio.h> int main() {

r囧r小猫/ 2022年08月07日 06:37/ 0 赞/ 232 阅读

相关 Delphi 7 9*9乘法口诀表

unit Unit1; interface uses Windows, Messages, SysUtils, Vari

柔情只为你懂/ 2022年04月16日 00:08/ 0 赞/ 203 阅读

相关【C语言】打印乘法口诀表

为大家带来两种用C语言打印乘法口诀表的方法： 1. 用for循环输出：代码如下： include <stdio.h> include <stdli

约定不等于承诺〃/ 2022年02月24日 12:00/ 0 赞/ 456 阅读

相关 Java语言打印出乘法口诀表

打印出乘法口诀表结果如图： ![20190511224208657.png][] 代码如下： public class cheng{

柔光的暖阳◎/ 2022年02月04日 10:43/ 0 赞/ 373 阅读

相关打印乘法口诀

/ 打印乘法口诀 @author xuxiaowei @date 2019年7月6日14:34:49 /

阳光穿透心脏的1/2处/ 2021年12月14日 08:23/ 0 赞/ 316 阅读

相关乘法口诀

还记得乘法口诀吗？？？今天复习一下吧！！！乘法口诀的表示与星星矩阵有着异曲同工之妙；就是简单的循环嵌套； public class ljljlj {

迈不过友情╰/ 2021年09月15日 21:44/ 0 赞/ 394 阅读