如何用VB编程给WORD练习题评分

说代码当然麻烦，说说思路吧

在VB里面，工程-引用，把那个Microsoft Word 110 Object Library（我的是Office 2003，所以是11，你的视版本而定），然后

Dim a As WordApplication

Set a = New WordApplication

建立一个WordApplication对象，用它打开文档，在程序里面看对不对，Word的帮助里面对整个WordApplication对象有详细的描述，足可以满足要求

Dim a(20) '如果不需要显示20个数的话，不需要数组，a(i)用X代替就可以

Dim max!, Min!, i%

Private Sub Command1_Click() '按钮单击

For i = 1 To 20

a(i) = Int(Rnd 10) + 1 '[1~10]间在随机数

s = s + a(i) '求和

If i = 1 Then '最大最小值的初值为第一个数

max = a(1): Min = a(1)

Else

If max < a(i) Then max = a(i)

If Min > a(i) Then Min = a(i)

End If

Next i

Print (s - max - Min) / 18 '求平均

End Sub

减数低8发送30H，高8发送31H。被减数低8发送32H，高8发送33H。拒食34（低八位），35（高八位）。

清除CY

MOV A，30H

SUBB A，32H MOV

34H，A

MOV A，31H

SUBB A，33H MOV

35H，A

这是一个8051的设计方法中，如果有16位减法指令的支持不会设计，直接上行写入。

VB中添加一个按钮点击就可以了

Private Sub Command1_Click()

a = InputBox("请输入分数：")

If IsNumeric(a) And a <= 100 And a >= 0 Then

Select Case a

Case 0 To 59

dd = "E"

Case 60 To 69

dd = "D"

Case 70 To 79

dd = "C"

Case 80 To 89

dd = "B"

Case 90 To 100

dd = "A"

Case Else

dd = "成绩错误！"

End Select

MsgBox dd

Else

MsgBox "你输入的成绩非法"

End If

End Sub

VB中添加一个按钮点击就可以了\x0d\Private Sub Command1_Click()\x0d\a = InputBox("请输入分数：")\x0d\If IsNumeric(a) And a = 0 Then\x0d\Select Case a\x0d\Case 0 To 59\x0d\dd = "E"\x0d\Case 60 To 69\x0d\ dd = "D"\x0d\Case 70 To 79\x0d\ dd = "C"\x0d\Case 80 To 89\x0d\ dd = "B"\x0d\Case 90 To 100\x0d\ dd = "A"\x0d\Case Else\x0d\dd = "成绩错误！"\x0d\End Select\x0d\MsgBox dd\x0d\Else\x0d\MsgBox "你输入的成绩非法"\x0d\End If\x0d\End Sub

以上就是关于如何用VB编程给WORD练习题评分全部的内容，包括:如何用VB编程给WORD练习题评分、VB编程：设计一个体 *** 评分程序， 20 位评委，除去一个最高分和一个最低分，计算平均分、用VB.net设计一个随机两位数的四则运算的算术题自动评分程序等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！