VBA开发与应用试题.doc

PAGE 1 - `0163 02F1 编程实现在文档的末尾插入该文档每次被打开的时间。在用户打开文档时发生该事件。 ~0163 Private Sub Document_Open() Dim rngCurrent As Range Set rngCurrent = ActiveDocument.Content With rngCurrent .collapse wdCollapseEnd .InsertDateTime”MM/dd/yy HH:MM:SS”,False End with Set rngCurrent = ActiveDocument.Content With rngCurrent .InsertParagraphAfter .Collapse wdCollapseEnd .Select End with End Sub `0167 06F 编写程序解决爱因斯坦的阶梯问题。设有一阶梯，每步跨2阶，最后余1阶；每步跨3阶，最后余2阶；每步跨5阶，最后余4阶；每步跨6阶，最后余5阶；只有每步跨7阶时，正好到阶梯顶。求至少有多少阶梯。 ~0167 Sub kk() a = 7 Do While a Mod 2 1 Or a Mod 3 2 Or a Mod 5 4 Or a Mod 6 5 a = a + 7 Loop MsgBox a End Sub `0168 06F3 编写程序，将八进制正整数组成的字符串转换为十进制整数。 ~0168 Sub kk() b = InputBox(请输入一个八进制数：) n = Len(b) s = 0 For i = 1 To n k = Mid(b, i, 1) s = s * 8 + k Next MsgBox s End Sub `0169 06F2 编写一个循环程序，计算：s=1+12+123+1234+12345+。项目数通过键盘指定。 ~0169 Sub kk() n = InputBox(n=?) s = 0: t = 0 For i = 1 To n t = t * 10 + i s = s + t Next MsgBox s End Sub `0170 06F3 编写程序检查一个字符串是否为回文，是回文时，输出“yes!”，否则输出“no!”。所谓回文即正向与反向的拼写都一样，例如：adgda。 ~0170 Sub kk() s = InputBox(请输入一个字符串：) n = Len(s) p1 = 1: p2 = n Do While p1 p2 If Mid(s, p1, 1) Mid(s, p2, 1) Then MsgBox No! Exit Sub End If p1 = p1 + 1 p2 = p2 - 1 Loop MsgBox Yes! End Sub `0171 06F2 编程将Excel当前工作表第1行的所有数据元素逆置。 ~0171 Sub kk() i = 1 j = Rows(1).End(xlToRight).Column Do While i j t = Cells(1, i) Cells(1, i) = Cells(1, j) Cells(1, j) = t i = i + 1: j = j - 1 Loop End Sub `0172 06F3 编写一个程序，将Excel如图所示的原数据区的数据复制到目标数据区。 ~0172 Sub 方法之一() For k = 1 To 8 r = 11 + ((k - 1) Mod 4) * 5 c = IIf(k 5, 3, 6) For m = 0 To 3 Cells(r + m, c) = Cells(5 + m, k) Next Next End Sub 评分标准：代码10行以内满分，11-20行减2分，20行以上减4分。 `0173 06F3 编程3行4列矩阵所有靠外侧元素之和。例如，矩阵为： 3 0 0 3 2 5 7 3 1 0 4 2 则所有靠外侧的各元素值之和为18。 ~0173 Sub kk() m = 3: n = 4: Sum = 0 For i = 1 To m p = IIf(i 1 And i m, n - 1, 1) For j = 1 To n Step p Sum =