// Client.cpp : Defines the class behaviors for the application.//#include "stdafx.h"#include "Client.h"#include "MainFrm.h"#include "ClientDoc.h"#include "ClientView.h"#ifdef _DEBUG#define new DEBUG_NEW#undef THIS_FILEstatic char THIS_FILE[] = __FILE__;#endif/////////////////////////////////////////////////////////////////////////////
Option ExplicitPrivate Sub cmdCal_Click()Dim a, b, n, info, lfcrlfcr = Chr(13) + Chr(10)b = Val(txtDan.Text) If optA.Value = True Then For a = 1 To 9 n = b * a info = info & Str(b) & " " & "*" & Str(a) & "=" & Str(n) & lfcr & lfcr Next lblDisplay.Alignment = 2 End If