3、值是:";KeyAsciiEndSub①启动VB,输入程序:检测所按键盘字符,弹出对应的ASC码值程序:PrivateSubCommand1_Click()R=2000ForK=1To360Step1X=5000+R*Cos(K*3.14/180)Y=4000+R*Sin(K*3.14/180)Circle(X,Y),RNextEndSub②画圆程序的实现:程序用于画一个这样的圆然后对程序进行修改:(1)将程序中的R=2000改为 R=1000再运行;(2)将程序中的ForK=1To360Step1改为 For