使用vba编程完成模拟试卷制作（关于EXCEL VBA的，我想做个考核的试卷，总共就5、6题，需要选择一些选项，自动给出分数，哪位大侠可以提供）

本文目录

• 关于EXCEL VBA的，我想做个考核的试卷，总共就5、6题，需要选择一些选项，自动给出分数，哪位大侠可以提供
• 使用VBA解题
• 求助大神关于VBA编程的题
• 如何在office 2010的Word中使用Word VBA制作选择题
• 跪求大神，用VBA实现表格转word，数据内容是试卷，求代码！
• 怎么用VBA编程或者窗体做成选择题
• 如何在powerpoint中使用vba做交互单项选择题课件

关于EXCEL VBA的，我想做个考核的试卷，总共就5、6题，需要选择一些选项，自动给出分数，哪位大侠可以提供

你这个就是根据上一个单元格的选择，下一个单元格有不同的选择。也就是第二级菜单根据第一级菜单的选择不同而变化。
只要你学会用以下这个函数 INDIRECT ，再分别做几列辅助，定义名称。
例如：定义名称“部门”、“姓名”、“项目”……
=INDIRECT($A$1)，……
试试。

使用VBA解题

修改一下,把模拟1W次改成了10W次,这个问题我有理论解.附图给你参考一下,

Sub 运行()

Dim a, b, c, m, n, i, j, k, x, y, sum

Dim arr(8)  ’发生次数

Dim p(8)    ’权重

For k = 1 To 100000

p(1) = 100  ’赋值

For i = 2 To 8

p(i) = p(i - 1) + 100

Next

For j = 1 To 4  ’抽取4次

’随机

sum = 0

For i = 1 To 8

sum = sum + p(i)

Next

x = WorksheetFunction.RandBetween(1, sum)

’动作

Select Case x

Case Is 《= p(1)

arr(1) = arr(1) + 1

p(1) = 0

Case Is 《= p(1) + p(2)

arr(2) = arr(2) + 1

p(2) = 0

Case Is 《= p(1) + p(2) + p(3)

arr(3) = arr(3) + 1

p(3) = 0

Case Is 《= p(1) + p(2) + p(3) + p(4)

arr(4) = arr(4) + 1

p(4) = 0

Case Is 《= p(1) + p(2) + p(3) + p(4) + p(5)

arr(5) = arr(5) + 1

p(5) = 0

Case Is 《= p(1) + p(2) + p(3) + p(4) + p(5) + p(6)

arr(6) = arr(6) + 1

p(6) = 0

Case Is 《= p(1) + p(2) + p(3) + p(4) + p(5) + p(6) + p(7)

arr(7) = arr(7) + 1

p(7) = 0

Case Is 《= p(1) + p(2) + p(3) + p(4) + p(5) + p(6) + p(7) + p(8)

arr(8) = arr(8) + 1

p(8) = 0

End Select

Next

Next

For i = 1 To 8

Sheet1.Cells(i, 1).Value = arr(i)

Next

End Sub

求助大神关于VBA编程的题

Sub a()
Dim i&, arr(99), a&, b&, c
a = 0
b = 0
For i = 1 To 100
arr(i - 1) = Application.RandBetween(1, 2)
If arr(i - 1) = 1 Then
a = a + 1
Else
b = b + 1
End If
Next
c = Round(a / b, 2)
MsgBox "正反面之比为 " & c
End Sub

如何在office 2010的Word中使用Word VBA制作选择题

具体步骤如下：
选中试卷的题目和答案部分，然后单击“插入-表格-文字转换成表格”按钮。如下图 1 处所示：
然后注意，本例的每一个选择题由五个段落组成。所以我们要强制把表格转换成五列。如下图 2 处所示：
然后Word试卷就会变成以下样子：
接下来就简单多了，只要选中表格，复制到Excel就好了。
以上便是为大家介绍的如何将Word试卷快速导入Excel的方法，Word的东西要放入Excel，自然想到与表格相关的东西，当然本例有个特点就是正好每题都是五个段落。如果您在设计试卷的时候知道要导入到Excel，您可以插入空段落，保证每题的统一，方便您的快速Excel转化。文字转成表格功能是个好东西，经常出试卷的朋友可以学习下，以备不时之需。

跪求大神，用VBA实现表格转word，数据内容是试卷，求代码！

不用VBA可以么？
如果可以，就用WORD的邮件合并功能试试。一样能满足你的需求。
如果非用VBA，一起等高手。

怎么用VBA编程或者窗体做成选择题

用option控件，进入下一题么再用一个command控件。如果你的题目是选了就不能改的，可以直接是触发option_click 事件就进入下一题··

如何在powerpoint中使用vba做交互单项选择题课件

一、基本构想
图1
本例很简单，就两道题：界面如图1所示，就是题目、选项和一个按钮，在最后一道题所在的页面上把“下一题”按钮改成“得分”按钮。由界面可知，我们需要一个文本框，四个选项按钮和一个命令按钮。功能方面我希望在单击“下一题”按钮时，界面能够转到下一题;单击“得分”按钮时，在成绩文本框中能够显示出这次测验的成绩就可以了。本例的两道题的正确选项分别为“B”、“C”。
二、制作过程
1、运行PowerPoint2003，单击“文件”-“保存”命令，弹出“另存为”对话框，文件名设为“测验”，单击“保存”命令。
2、单击“插入”-“文本框”-“水平”命令，这时鼠标变成“1”字型，在区内单击鼠标左键拖动鼠标拉出一个方框，在框内输入第一题的题目“1.人造地球卫星的轨道半径越大，则”。
3、下面我们来制作选项。单击“视图”-“工具栏”-“控件工具箱”命令，弹出“控件工具箱”，单击“控件工具箱”上的“选项按钮”控件，鼠标变成十字型，按下鼠标左键拖动鼠标拉出一个方框。单击“控件工具箱”上的“属性”命令，弹出“属性”对话框，把“名称”改为“ti1”，把“caption”改为“A.速度越小，周期越小”，其它设为默认。如图2所示。
图2
其余的三个选项的名称分别为“ti2”、“ti3”、“ti4”，“caption”分别为“B.速度越小，周期越大”、“C.速度越大，周期越小”、“D.速度越大，周期越大”。
4、“下一题”按钮的制作。单击“控件工具箱”中“命令按钮”控件，这时鼠标变成十字型，如前在区内拖拉出一个方框，松开鼠标方框会变成一个按钮。选中它，单击鼠标右键，在弹出的快捷菜单中选择“属性”命令，把“命令按钮”属性中的“caption”设为“下一题”。
这样，第一题的界面就制作完成了。第二题我们可以按照第2-4步做出来，只是要把题目、各个选项值换一下，另外需要添加一个文本框命令，其名称设为“sum”，命令按钮的名称改为“得分”。
三、添加代码
1、单击“控件工具箱”上“查看代码”控件，弹出“Microsoft visual basic”器，单击“插入”-“模块”命令，弹出“模块”窗口，在“模块”窗口输入“public fen(2) as integer”。
2、选中第一题中“下一题”按钮，单击“控件工具箱”上“查看代码”控件，弹出“Microsoft visual basic”器，在“Private Sub CommandButton1_Click()”和“End Sub”之间输入
If ti2.Value = True Then
fen(0) = 2
Else
fen(0) = 0
End If
With SlideShowWindows(1).View
.GotoSlide (2)
End With
3、选中最后一题中“得分“按钮，单击“控件工具箱”上“查看代码”控件，弹出“Microsoft visual basic”器，在“Private Sub CommandButton1_Click()”和“End Sub”之间输入
If ti3.Value = True Then
fen(1) = 2
Else
fen(1) = 0
End If
Dim i, s
s = 0
For i = 0 To 2
s = s + fen(i)
Next
sum = s
好了，退出“Microsoft visual basic”器，按F5试一下效果