最新WPS办公软件学习教程_免费企业办公软件下载_金山WPS Office官网论坛

 找回密码
 
查看: 9102|回复: 28

[VBA/VBS教程] 【WPS出书】利用vba在Wpp中制作可以记算分数的单选题

[复制链接]

134

主题

2

听众

1148

积分

LV.6

Rank: 6Rank: 6

签到天数: 1 天

[LV.1]初来乍到

金币
24
威望
2255
帖子
626
精华
2

灯谜超人 最佳教程奖

发表于 2010-6-14 08:41 |显示全部楼层
分享到: 新浪微博 腾讯微博
WPS独家约稿文章,严禁任何网站或刊物转载

# ]3 ?4 w' v9 E7 I0 |8 ?& L. @7 Z; L+ z" a6 S
演示效果:
- i* L2 b% M; k) v4 @  E5 g
9 ^2 c/ {5 y% D/ q  r
制作过程:& ^# x$ n1 [% E: o$ r9 t
1新建空白板式演示文稿,选择“教程模板”,用10个文本框分别输入:“1.2008年奥运会在在哪个国家举行?”,“中国 ”、“美国”、“英国”、“南非”;“2.哪个城市属于中国?”,“巴黎 ”、“伦敦”、“纽约”、“上海”。利用绘图工具栏的工具对齐和分布调节文本框位置如下:' e7 w; i2 R$ X4 v) G! q

3 M, B. \$ K8 f# Y- N; r( s

. N6 G! f5 Z1 _8 h. T  D
   图 1
& r: P; O! ~( ^8 A$ i: Y! h. h' e
2、 调用控件工具箱,单击“选项”按钮,在幻灯片上左击拖出一个选项按钮,通过拖动调节大小。右键单击“选项”按钮,在弹出菜单中选择“属性”,修改“Caption”为“A”,“font”为“宋体”、“四号”,“backColor”为&H00FFFFFF&,其余属性如图所示:
7 o" |4 l% }2 h$ Z
) L! Y' F1 K6 q  {9 @
图 2

: h/ ^3 A3 ]1 t! Q- u
3、复制出其余七个选项按钮,依次修改“Caption”属性为“B”、“C”、“D”、“A”、“B”、“C”、“D”;修改第一组“A”、“B”、“C”、“D”的GroupNameSlide1;修改第二组“A”、“B”、“C”、“D”的GroupNameSlide2
, }1 C! S+ e/ @2 `

% ?  t* o3 ~* G3 f5 o
图 3
: d% i4 j3 P/ ]8 U
4、 调用控件工具箱,单击命令按钮,在幻灯片上左击拖出一个命令按钮,通过拖动调节大小。右键单击命令按钮,在弹出菜单中选择“属性”,修改“Caption”为“确定”,“font”为“宋体”、“四号”,“backColor”为&H00FFFFFF&,其余属性如图所示:
5 p. [5 ^/ w6 D; Q: r& w$ T) U
/ m0 m( d7 e+ |8 i  P
图 4
/ ?! z* k( o+ r0 L, [2 n" O
5、复制出其余五个命令按钮,依次将其修改“Caption”2-6为“清空”、“确定”、“清空”、“总得分”、“全部清空”。调用控件工具箱,单击标签按钮,在幻灯片上左击拖出一个标签按钮,通过拖动调节大小。右键单击标签按钮,在弹出菜单中选择“属性”,修改“Caption”为“”,其余属性默认。插入组件位置对应如下:
. X# t" [( P7 c4 F1 K$ g

2 p/ ]; P6 N: ]( ]) j- D
图 5

! R  D. S% a$ P6 o% R6 B4 u
6、双击CommandButton1命令按钮,进入代码窗口,在Private Sub CommandButton1_Click()…… End Sub中间输入代码:

& W* N9 [4 P) \3 [' b! b+ Y( g
  If OptionButton1.Value = True Then
7 {! `/ S* l& ]0 Y) p! ]
        MsgBox "恭喜您,这道题您答对了!得50分!", 0 + 48, "0421温馨提示"

3 V6 Q: i  T, S# h& u$ F
    Else
# Y0 N; H  T! b4 X! \
        MsgBox "对不起,这道题您答错了!得0分!", 0 + 48, "0421温馨提示"
+ W8 f2 S) {# w. m, d! C. X
End If

4 ^0 b% [6 t- H- _$ `/ X
5 y- H8 q; D% K6 |2 C; ~0 ]% D$ m2 M  {( n
7、双击CommandButton2命令按钮,进入代码窗口,在Private Sub CommandButton_Click()…… End Sub中间输入代码:
% K" ?! p! G! J- Y
    OptionButton1.Value = False
0 ^2 V$ g  I. K  h
    OptionButton2.Value = False
- G2 d$ l& ~# |8 {) a& k" i
    OptionButton3.Value = False
# N0 r% y% k) }: j9 `
OptionButton4.Value = False

9 S0 o1 O) u& W% |% }# ]1 L/ D
' x0 r3 R! y' r( |" A" m" ~" g7 |1 ^, }' m' E5 ?0 J$ c$ ]
8、双击CommandButton3命令按钮,进入代码窗口,在Private Sub CommandButton_Click()…… End Sub中间输入代码:
0 J2 f& n  j  G7 z, c
  If OptionButton.Value = True Then
2 \0 x, J3 {$ d, E3 R' Y
        MsgBox "恭喜您,这道题您答对了!得50分!", 0 + 48, "0421温馨提示"
( F: x# Z- i. n: I) s6 ?3 y; b
    Else
+ k5 l; x1 y9 k5 E0 j8 y
        MsgBox "对不起,这道题您答错了!得0分!", 0 + 48, "0421温馨提示"
# w4 f. C$ A" C0 J+ N
End If
" L1 P8 m* S5 M+ z7 G; B/ k

5 v  B5 H) `  P$ o$ V, U+ O( c4 w% _. F% B8 |
9、双击CommandButton4命令按钮,进入代码窗口,在Private Sub CommandButton_Click()…… End Sub中间输入代码:
# J: P/ o4 \: |& q6 z
OptionButton5.Value = False

4 h; q. V) m( N% U! a3 ^
OptionButton6.Value = False
4 a( d" N* B1 h' b% z8 P
OptionButton7.Value = False
' Y5 T4 q$ r7 k, W7 @% w5 {
OptionButton8.Value = False

; N% F3 d: f$ f
( K$ E7 V3 a: d# V+ z% j9 X% `7 q& ^  [4 Q  t
10、双击CommandButton5命令按钮,进入代码窗口,在Private Sub CommandButton_Click()…… End Sub中间输入代码:

% r! a4 ^! v1 s
    Dim a As Integer, b As Integer

# H' N! a* d7 y9 u1 `
    If OptionButton1.Value = True Then
& `2 n! X; u& H2 O* Q; m
        a = 50
; _( W9 T/ Y! @% R) o0 J
    Else
4 U" k  W8 z4 L
        a = 0
2 k2 g( b5 b( k+ _
    End If

; R+ ~3 m- h+ G# I# c! O5 e
    If OptionButton8.Value = True Then

4 @/ E( x& A* F/ e+ w) Y* U3 W+ f6 E
        b = 50

/ f# z# w, p* w% b4 v) p6 s
    Else

: M8 U* Q  y3 B& s
        b = 0
) @4 J; ]8 l; h+ U: A7 [
    End If
  w6 c/ j( J+ X$ c- G6 k5 g
    Label1.Caption = a + b
  L8 T' i) V/ I5 c7 B/ r1 H1 q7 d7 O( B
( K% k4 x! V# T! q9 ]5 f8 S
3 P5 l- T* k7 r
11、双击CommandButton6命令按钮,进入代码窗口,在Private Sub CommandButton_Click()…… End Sub中间输入代码:

( e( @- Y+ b: D( n0 t
OptionButton1.Value = False

4 L$ F9 N7 ]$ z( j+ H  X) M
OptionButton2.Value = False
0 b4 m/ O( X  l( V; |5 v6 i. S# E
OptionButton3.Value = False

) \4 K8 M) R! Y) T8 `0 M
OptionButton4.Value = False
9 v: O$ u+ h7 g) n8 a
OptionButton5.Value = False

& _0 q3 o: o1 _. c9 V: R+ ^' g
OptionButton6.Value = False

2 C5 R3 o( c+ [" |, B: }  I% g
OptionButton7.Value = False
3 E7 v/ g5 h7 o% H
OptionButton8.Value = False
3 p: I$ t) d4 j
Label1.Caption = ""
  t7 Z0 N- n1 k6 L9 Z+ T
4 ?! u# k8 v7 |: f6 g6 `! V' a
4 u' t+ H5 K+ |& ^8 t0 v/ F8 t" E  f
12、测试保存。
7 Y9 P5 [. G' T/ H, ?

/ r( l- W: {) `: E" h. n[ 本帖最后由 0421 于 2010-6-16 15:32 编辑 ]

本帖子中包含更多资源

您需要 登录 才可以下载或查看,

已有 1 人评分威望 收起 理由
红云 + 15 精品文章

总评分: 威望 + 15   查看全部评分

134

主题

2

听众

1148

积分

LV.6

Rank: 6Rank: 6

签到天数: 1 天

[LV.1]初来乍到

金币
24
威望
2255
帖子
626
精华
2

灯谜超人 最佳教程奖

发表于 2010-6-14 08:42 |显示全部楼层
图片
  T4 K# |' E# f9 x: m) H; u3 d* }8 i7 \# B: ]  M- v$ Z
[ 本帖最后由 0421 于 2010-6-14 08:45 编辑 ]

本帖子中包含更多资源

您需要 登录 才可以下载或查看,

回复

使用道具 举报

9

主题

0

听众

120

积分

LV.2

Rank: 2

该用户从未签到

金币
15
威望
129
帖子
37
精华
0
发表于 2010-6-15 09:47 |显示全部楼层
i不错
回复

使用道具 举报

1

主题

0

听众

302

积分

LV.3

Rank: 3Rank: 3

该用户从未签到

金币
0
威望
157
帖子
221
精华
0

活跃会员奖

发表于 2010-6-15 12:09 |显示全部楼层
好家伙厉害啊。
回复

使用道具 举报

134

主题

2

听众

1148

积分

LV.6

Rank: 6Rank: 6

签到天数: 1 天

[LV.1]初来乍到

金币
24
威望
2255
帖子
626
精华
2

灯谜超人 最佳教程奖

发表于 2010-6-16 15:31 |显示全部楼层

本帖子中包含更多资源

您需要 登录 才可以下载或查看,

回复

使用道具 举报

258

主题

5

听众

1816

积分

LV.8

Rank: 8Rank: 8

该用户从未签到

金币
177
威望
3096
帖子
1326
精华
0

最佳教程奖 测试体验团

发表于 2010-6-16 15:44 |显示全部楼层
好东东。
装机修电脑也能赚外快!你只需在装机时把2345.com设为主页,就可以永久赚积分,每月换礼品,安装好压和PPS也能赚积分。到这里注册:http://jifen.2345.com/?i6423114
回复

使用道具 举报

9

主题

0

听众

120

积分

LV.2

Rank: 2

该用户从未签到

金币
15
威望
129
帖子
37
精华
0
发表于 2010-6-21 09:40 |显示全部楼层
请问楼主,你是用的哪一个软件制作的实例讲解
回复

使用道具 举报

0

主题

0

听众

8

积分

LV.1

Rank: 1

该用户从未签到

金币
0
威望
8
帖子
9
精华
0
发表于 2013-5-28 12:51 |显示全部楼层
{:1_14:}{:1_1:}
回复

使用道具 举报

3

主题

3

听众

7069

积分

测试体验团员

Rank: 14Rank: 14Rank: 14Rank: 14

签到天数: 1188 天

[LV.10]以坛为家III

金币
1639
威望
19669
帖子
1799
精华
0
发表于 2013-5-28 13:40 |显示全部楼层
学习学习宝贵经验!
回复

使用道具 举报

114

主题

20

听众

2万

积分

LV.18

Rank: 18Rank: 18Rank: 18Rank: 18Rank: 18

签到天数: 1241 天

[LV.10]以坛为家III

金币
2140
威望
69257
帖子
4226
精华
0

优秀会员奖 活跃会员奖

发表于 2014-9-7 15:11 |显示全部楼层
学习一下                  
回复

使用道具 举报

*滑动验证:
您需要登录后才可以回帖 登录 | 更多账号登录:

快速回帖:

fastpost

WPS论坛更新日志|WPS Office官方论坛 ( 粤公网安备 44049102496073号 粤ICP备13015957号-1   

GMT+8, 2018-1-19 19:25

Powered by Discuz! X2.5

© 2001-2012 Comsenz Inc.

回顶部