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比，请编程找出三队赛手的名单。窗体命名为“比赛抽签”，执行结果如图所示。