能帮我做个插入PPT的随机数生成器吗。1-41的,讲通俗点,我是个菜鸟 求做一个随机数生成器插入PPT
\u600e\u4e48\u5728PPT\u91cc\u9762\u63d2\u5165\u4e00\u4e2a\u968f\u673a\u6570\u751f\u6210\u5668\u5f00\u53d1\u5de5\u5177
\u6dfb\u52a0\u547d\u4ee4\u6309\u94ae
\u6dfb\u52a0\u6807\u7b7e\u63a7\u4ef6
\u53cc\u51fb\u547d\u4ee4\u6309\u94ae
\u5728\u4e24\u884c\u4e2d\u95f4\u7c98\u8d34\u8fdb\u53bb
Label1.Caption = 1 + Int(41 * Rnd())
\u7136\u540e\u5173\u95ed
\u7136\u540e\u64ad\u653e\u5c31\u884c\u4e86
\u5728PPT\u4e2d\u63d2\u5165\u4e00\u4e2a\u5b8f\uff08VBA\uff09\uff0c\u5728\u6309\u94ae\u4e2d\uff0c\u7528Rnd\u3002
添加一个命令按钮和一个标签控件,在命令按钮中键入:Label1.Caption = 1 + Int(41 * Rnd())
放映时每单击一次命令按钮,就产生一个1-41之间的随机数字。
你有控件工具箱没
啊通俗点说,比如你是2007的话
点左上角的图标,就是那个可以选择“另存为”按钮的地方
点击“PowerPoint选项卡”--“常用”--功能显示区“开发工具”选项卡前面打勾
这样你就有控件的工具箱了
然后找到一个字母A的图标,就是标签控件,一个方方的小块就是命令按钮
画出命令按钮这个控件后,双击它,就是宏命令的编辑画面
在这里的
Private Sub CommandButton1_Click()
Label1.Caption = 1 + Int(41 * Rnd())
End Sub
中间,粘贴进去上面那行
啊通俗点说,比如你是2007的话
点左上角的图标,就是那个可以选择“另存为”按钮的地方
点击“PowerPoint选项卡”--“常用”--功能显示区“开发工具”选项卡前面打勾
这样你就有控件的工具箱了
绛旓細鍦PPT涓锛屾偍鍙互浣跨敤浠ヤ笅涓ょ鏂规硶鏉ラ殢鏈烘娊鏁板瓧锛氭柟娉曚竴锛氫娇鐢≒PT鍐呯疆鐨勯殢鏈烘暟鍑芥暟 1. 鍦≒PT涓墦寮闇瑕侀殢鏈烘娊鏁板瓧鐨骞荤伅鐗囥2. 鍦ㄩ渶瑕鎻掑叆闅忔満鏁扮殑浣嶇疆锛岃緭鍏モ=RAND()鈥(涓嶅寘鎷紩鍙)銆3. 鎸変笅鍥炶溅閿紝PPT浼氳嚜鍔ㄧ敓鎴愪竴涓殢鏈烘暟銆4. 濡傛灉闇瑕佺敓鎴愬涓殢鏈烘暟锛屽彲浠ュ鍒剁浜屾涓殑鍏紡锛屽苟鍦ㄩ渶瑕佺殑浣...
绛旓細1. 鎵撳紑PPT鏂囦欢锛岀偣鍑诲乏涓婅鐨勨滄枃浠垛濓紝閫夋嫨鈥滈夐」鈥濄2. 鍦ㄥ脊鍑虹殑瀵硅瘽妗嗕腑锛岀偣鍑烩滆嚜瀹氫箟鍔熻兘鍖衡濓紝鍕鹃夆滃紑鍙戣呭伐鍏封濆苟鐐瑰嚮鈥滅‘瀹氣濅互鍚敤寮鍙戣呭伐鍏枫3. 鍦ㄧ紪杈戝尯鍩燂紝浣跨敤寮鍙戣呭伐鍏风偣鍑烩鎻掑叆鈥濋夐」锛岀劧鍚庨夋嫨鈥滄爣绛锯濇潵鍒涘缓涓涓樉绀烘暟瀛楃殑鍖哄煙銆4. 鍙抽敭鐐瑰嚮鏂板垱寤虹殑鏍囩锛岄夋嫨鈥滃睘鎬р濓紝鍦...
绛旓細鏂规硶/姝ラ 绗竴姝ワ細鎵撳紑涓涓ppt鏂囨。锛岀劧鍚庨夋嫨鈥滃紑鍙戝伐鍏封---銆嬮夋嫨鎸夐挳鎺х殑浠跺拰鏂囨湰妗嗘帶浠讹紝骞舵斁鍦ㄩ〉闈笂 绗簩姝ワ細鍙冲嚮鎸夐挳鐨勬帶浠讹紝閫夋嫨鈥濇帶浠跺睘鎬р滃湪宸︿晶璁剧殑缃悕绉板拰鐨勫叾浠栨牱寮 绗笁姝ワ細鍚岀悊璁剧疆鏂囨湰鐨勬鐨勬牱寮忓拰鍚嶇О绛夈傜鍥涙锛氶夋嫨鎸夐挳鐨勬帶浠讹紝骞跺彸鍑伙紝閫夋嫨鈥滄煡鐪嬩唬鐮佲濆嵆鍙繘鍏ョ殑浠g爜缂栬緫椤...
绛旓細鎴戣1-41鐨勮寖鍥寸殑瑕佽兘鎻掑叆PPT,澶栧舰鏈濂藉ソ鐪嬬偣,鏁堟灉搴旇鏄偣鍑讳竴涓寜閽敓鎴愪竴涓, a65890612 | 娴忚4226 娆 |涓炬姤 鎴戞湁鏇村ソ鐨勭瓟妗堟帹鑽愪簬2017-12-16 16:57:14 鏈浣崇瓟妗 寮鍙戝伐鍏 娣诲姞鍛戒护鎸夐挳娣诲姞鏍囩鎺т欢鍙屽嚮鍛戒护鎸夐挳鍦ㄤ袱琛屼腑闂寸矘璐磋繘鍘籐abel1.Caption = 1 + Int(41 * Rnd())鐒跺悗鍏抽棴鐒跺悗鎾斁灏辫浜 鏈...
绛旓細鍙互浣跨敤浠ヤ笅姝ラ鏉ュ湪ppt涓婇殢鏈洪夊彿锛1. 鍦ppt涓鍒涘缓涓涓〃鏍笺傝〃鏍肩殑鍒楁暟鍜岃鏁板簲璇ヤ笌浣犺閫夌殑鍙风爜鏁伴噺鐩稿悓銆備緥濡傦紝濡傛灉浣犺閫10涓彿鐮侊紝閭d箞琛ㄦ牸搴旇鏈10鍒楀拰1琛屻2. 鍦ㄦ瘡涓崟鍏冩牸涓緭鍏ヤ竴涓彿鐮侊紝纭繚姣忎釜鍙风爜閮藉彧鍑虹幇涓娆°3. 閫夋嫨涓涓殢鏈烘暟瀛楃敓鎴愬櫒锛堜緥濡傦紝Excel鐨勯殢鏈烘暟鍑芥暟鎴栧湪绾块殢鏈烘暟鐢熸垚...
绛旓細Label1.Caption = 1 + Int(41 * Rnd())鏀炬槧鏃舵瘡鍗曞嚮涓娆″懡浠ゆ寜閽紝灏变骇鐢熶竴涓1-41涔嬮棿鐨勯殢鏈烘暟瀛椼備綘鏈夋帶浠跺伐鍏风娌 鍟婇氫織鐐硅锛屾瘮濡備綘鏄2007鐨勮瘽 鐐瑰乏涓婅鐨勫浘鏍囷紝灏辨槸閭d釜鍙互閫夋嫨鈥滃彟瀛樹负鈥濇寜閽殑鍦版柟 鐐瑰嚮鈥PowerPoint閫夐」鍗♀濓紞锛嶁滃父鐢ㄢ濓紞锛嶅姛鑳芥樉绀哄尯鈥滃紑鍙戝伐鍏封濋夐」鍗″墠闈㈡墦鍕 杩欐牱...
绛旓細鍦ppt涓彃鍏鍛戒护鎸夐挳锛屽苟鍏锋湁闅忔満鎶藉彇鏁板瓧1-55鐨勫姛鑳界殑姝ラ锛1銆佺偣OFFICE鎸夐挳鈥斺旂偣PowerPoint閫夐」锛2銆佸嬀閫夈愬湪鍔熻兘鍖烘樉绀衡滃紑鍙戝伐鍏封濋夐」鍗°戯紝鐐圭‘瀹氾紱3銆佺偣寮鍙戝伐鍏疯彍鍗曗斺旂偣A锛屽湪缂栬緫鍖虹粯鍒朵竴涓爣绛炬锛屽苟涓斿皢鍚嶇О鏀逛负Label锛4銆佺偣寮鍙戝伐鍏疯彍鍗曗斺旂偣鍛戒护鎸夐挳锛屽湪缂栬緫鍖虹粯鍒朵竴涓懡浠ゆ寜閽紱5銆...
绛旓細1銆佸湪鐢佃剳涓婃墦寮涓涓PPT鏂囦欢锛岀偣鍑诲乏涓婅鐨勬枃浠讹紝鐒跺悗鐐瑰嚮閫夐」鎸夐挳銆2銆佸湪寮瑰嚭鐨勯夐」瀵硅瘽妗嗕腑鐐瑰嚮鑷畾涔夊姛鑳藉尯锛屽嬀閫夊紑鍙戣呭伐鍏风偣鍑荤‘瀹氥3銆佸湪PPT鐣岄潰涓偣鍑诲紑鍙戝伐鍏蜂互鍚庡啀鐐瑰嚮鑻辨枃瀛楁瘝A锛屽湪PPT缂栬緫鍖哄煙娣诲姞涓涓爣绛俱4銆侀紶鏍囧彸閿偣鍑昏鏍囩锛岄夋嫨灞炴ф寜閽繘鍏ャ5銆佸湪寮瑰嚭鐨勫睘鎬у璇濇涓垎鍒皢鍚嶇О浠ュ強...
绛旓細寮鍙戝伐鍏 娣诲姞鍛戒护鎸夐挳 娣诲姞鏍囩鎺т欢 鍙屽嚮鍛戒护鎸夐挳 鍦ㄤ袱琛屼腑闂寸矘璐磋繘鍘 Label1.Caption = 1 + Int(41 * Rnd())鐒跺悗鍏抽棴 鐒跺悗鎾斁灏辫浜
绛旓細鍦PPT涓彃鍏涓涓畯锛圴BA锛夛紝鍦ㄦ寜閽腑锛岀敤Rnd銆