文档介绍：选择题VB参考答案1A2D3A4D5B6B7D8C9C10B11A12C13D14D15C16A17D18C19C20C21A22B23B24C25D26A27B28A29D30D二填空题1vbpfrm2TopLeft3sin(30*)42*a*(7+b)5A61725+32=578AutoSize9Picture10事件三、程序分析题(1)Sum=0Sum=sum+I(2)第一次22第二次24四、编程题(1)PrivateSubForm_Click()ForI=1To20IfImod3<>0ThenPrintINextIEndSub(2)PrivateSubForm_Click()Dimi,a(1To20),sumAsIntegerFori=1To20a(i)=Int(Rnd*100)+1Ifa(i)>50Thensum=sum+a(i)NextiFori=1To20Printa(i);IfiMod10=0ThenPrintNextiPrint"sum="&sumEndSub