Question

编写个程序帮助小学生学习乘法。利用rand函数产生两个一位正整数。接着调用该函数显示诸如3*4=？的问题，

Answer 1

delphi写的

type

  TForm1 = class(TForm)

    Button1: TButton;

    Edit1: TEdit;

    Edit2: TEdit;

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Button2: TButton;

    procedure Button2Click(Sender: TObject);

    procedure FormCreate(Sender: TObject);

    procedure Button1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);  //生成按钮

var

i:integer;

begin

Label3.Caption:='?';

Randomize;

 for I := 0 to 9 do

  begin

   Edit1.Text:=IntToStr(Random(i));

   Edit2.Text:=IntToStr(Random(i));

  end;

 Button2.Enabled:=true;

end;

procedure TForm1.Button2Click(Sender: TObject); //答案按钮

begin

label3.Caption:=IntToStr(StrToInt(Edit1.Text)*strtoint(Edit2.Text));

Button2.Enabled:=False;

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

button2.Enabled:=false;

end;

Answer 2

type
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
Edit2: TEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Button2: TButton;
procedure Button2Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject); //生成按钮
var
i:integer;
begin
Label3.Caption:='?';
Randomize;
for I := 0 to 9 do
begin
Edit1.Text:=IntToStr(Random(i));
Edit2.Text:=IntToStr(Random(i));
end;
Button2.Enabled:=true;
end;

procedure TForm1.Button2Click(Sender: TObject); //答案按钮
begin
label3.Caption:=IntToStr(StrToInt(Edit1.Text)*strtoint(Edit2.Text));
Button2.Enabled:=False;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
button2.Enabled:=false;
end;

Answer 3

int main()
{
int a,b;
a=rand()%9;
b=rand()%9;
cout<<"a="<<a<<"b="<<b<<"a*b=?"<<"a*b="<<a*b;
}