Dim i, j, n As Integer Dim sql As String Private Declare Function GetKeyState Lib "user32" _ (ByVal nVirtKey As Long) As Integer Public je As Integer '记忆菜单上次数值，实现数据传送 Private Sub acg_Click() Call asPopup7_Click(False) End Sub Private Sub addcg_Click
用java编写的万年历程序
package Day;
import java.util.Scanner;
public class Day {
static int B1=0; //判断是否为闰年，1代表闰年，0代表平年
static int B2; //判断月份的天数，0代表31天，1代表29天，2代表28天，3代表30天
static int DAY1=0; //计算从1900年到今年1月1日的天数
static int DAY2=0; //计算从今年1月1日到本月1日的天数
s
