内容发布更新时间 : 2024/12/29 15:16:13星期一 下面是文章的全部内容请认真阅读。

VBA练习题

1.打印如下字母。 A G B H C I D J E K F L

2.求555555的最大3位约数？

3.打印如下字母。

4.在文本框中输入一串小写字母，统计其中字母a、e出现的次数以及其他字符的数目，使用Msgbox输出统计结果.

5.小明有五本新书，要借给A、B、C三位小朋友，若每人每次只能借一本，则可以有多少种不同的借法，点击“计算”按钮，结果用标签显

示.

6.创建“单词拼写”窗体，在文本框中输入英文单词，单击“显示”按钮输出显示单词的字母组成，并组成一个金字塔形状，窗体结果如图所示（利用循环语句）

7.

仙花数”是指一个三位数，其各位数字立方和等于该数本身。例如：153是一个“水仙花数”，因为153=13＋53＋33。

If n=(n\\100 mod 10)^3+(n\\10 mod 10)^3+(n mod 10)^3 then Msgbox “yes” Else

Msgbox “no” endif

从文本框中输入任意一个三位数，弹出消息框显示是否是水仙花数。所谓“水

8.用1、2、3、4这4个数字可以组成1个四位数。编写程序，输出所有可能的四位数（4个数字可以相同，每输出16个数字后换行），并统计出所组成的四位数的个数，窗体命名为“VBA_循环输出”，执行结果如图所示 ：

添加条件：所有满足条件的四位数ABCD：它是11的倍数，且第三位数（百位数）加上第2位数（十位数）等于第4位数（千位数）（即A=B+C）

9.创建窗体，要求单击计算按钮时计算：10(X+1)+10(X+2)+10(X+3)+……+10（X+100)+

+20(X+1)+20(X+2)+20(X+3)+……+20（X+100)+……++100(X+1)+100(X+2)+100(X+3)+……+100（X+100)

10．柑三梨四，一钱枣子买14。百钱买百货，问柑、枣各买几个？即柑子每个3文，梨子每个4文，枣子1文买14个，100文钱可以买柑、梨、枣各几个(共买100个)？窗体命名为“百钱买百货”。

For i = 0 To 34 For j = 0 To 25

k = 100 - i - j

If i * 3 + j * 4 + k \\ 14 = 100 And k Mod 14 = 0 Then

11．两个乒乓球队进行比赛，各出三人。甲队为a，b，c三人，乙队为x，y，z

三人。已抽签决定比赛名单。有人向队员打听比赛的名单。a说他不和x比，c说他不和x、z比，请编程找出三队赛手的名单。窗体命名为“比赛抽签”，执行结果如图所示。