我要的效果是312...全置换递归算法:constn3Typeststring第12届全国信息学奥林匹克竞赛各省初试试题(Pascal语言在普及组两小时内完成)●●所有问题答案要求写在答题卡上，将作废●●● 1。选择题(共20题，每题1.5分，共30分，每个问题有且只有一个正确答案，1.在下列世界级奖项中，由在计算机科学技术领域做出突出贡献的科学家设立的奖项是()，a .沃尔夫奖b .诺贝尔奖c .菲尔兹奖d .图灵奖2。以下软件中，不推荐NOIP赛(复赛)使用的语言环境是()。
这太长了...module:optionexplicitpublicdecleafunctiongetcaretposlibuser 32(lppointaspointapi)aslongpublicdecleafunctiongetforegroundwindowlibuser 32()aslongpublicdecleafunctiongetfocuslibuser 32()aslongpublicdecleafunctionattachthreadinputlibuser 32(ByValidAttachAsLong，
ByValfAttachAsLong)aslongpublicadclaurefunctiongetwindowthreadprocessidlibser 32(ByValhwndAsLong，lpdwProcessIdAsLong)aslongpublicadclaurefunctiongetcurrentthreadidlibke .
/图像-3//图像-4/1。Module1.bas代码:public const max _ Tooltip as Integer 64 public const nif _ icon
