t=k（i）
k（i）=k（j）
k（j）=t
EndIf
Nextj
Nexti
func=k
（1）&""&k
（2）&""&k（3）&""&k（4）&""&k（5）
EndFunction
12. 编程找出四位整数abcd中满足下述关系的数有多少种方案。
（ab+cd）（ab+cd）=abcd
13. 求100~999中的水仙花数的个数。
若三位数abc，abc=a*a*a+b*b*b+c*c*c，则称abc为水仙花数。
例如：
1*1*1+5*5*5+3*3*3=153，则153是水仙花数
DimpAsBoolean,sAsInteger,iAsInteger,kAsInteger
s=1
Fori=3TonStep2
p=True
Fork=2Toi/2
IfiModk=0Thenp=False
Nextk
IfpThens=s+1
Nexti
func=s
14.某同学想将手中一张面值100元的人民币换成5元、1元、0.5元面值的票子，但要求换成以上面值的零钱共100张，要求每种面值不少于1张，问共有多少种方案。
DimaAsInteger,bAsInteger,cAsInteger,sAsInteger
s=0
Fora=1To20
Forb=1To100
Forc=1To600
Ifa+b+c=100Anda*5+b*1+c/6=100Thens=s+1
Nextc
Nextb
Nexta
func=s
EndFunction
15. 某学校组织一次读书活动，计划购买各种各样书写笔作为奖品。
用100元买100支笔，其中钢笔每支5元，圆珠笔每支1元,铅笔1元买6支,编程求总共有多少种方案
DimsAsLong,mAsInteger
s=0
m=1
DoUntils>=12345678
s=s+m
m=m+1
Loop
func=m-1
EndFunction
Functionfunc（）
DimaAsInteger,bAsInteger,cAsInteger,sAsInteger
s=0
Fora=1To20
Forb=1To100
Forc=1To600
Ifa+b+c=100Anda*5+b*1+c/6=100Thens=s+1
Nextc
Nextb
Nexta
func=s
16.打开C:
\MyExam\工程1.vbp 按下列要求设计Visual Basic应用程序界面
1．将窗体标题设为“调查表”；
2．在标题为“姓名”的标签右侧画一个名称为Text1的文本框，宽度为2295，并清空其中的内容；
3．在窗体中画一名称为Label2的标签，设标题为“请选择你的爱好”，字体为宋体、四号；
4．在窗体上画三个名称分别为Check1、Check2、Check3的复选框，标题分别为“体育”、“艺术”、“其它”，并选中“艺术”；
5．在窗体下方画一个名称为Command1命令按扭，标题为“确定”；
6．保存结果。
17.打开C:
\MyExam\工程1.vbp 按下列要求设计Visual Basic应用程序界面
1.将名称为Form1的窗体宽度设为6500，高度设为4050，背景色为&H0080C0FF&。
2.在窗体上画一个标签Label1，标题为“VB学习园地”，字体为楷体、二号，标签能自动调整大小来显示内容。
且与窗体左边距2040，上边距720。
3.在窗体中画一个命令按钮，标题为“开始”，字体为黑体，小四号。
4.保存结果。
18.打开C:
\MyExam\工程1.vbp 按下列要求设计Visual Basic应用程序界面
1．将窗体标题设为“课程选择”；
2．在窗体上画一个名称为Label1标签，标题为“学号”，字体为宋体、小二号；
3．在“学号”右侧画一个名称为Text1的文本框，宽为2300，高为555；
4．画三个名称分别为Check1、Check2、Check3的复选框，标题分别为“多媒体技术”、“算法与程序设计”、“计算机网络应用”，并选择“多媒体技术”；
5．在窗体下方画一个名称为Command1命令按扭，标题为“确定”；
6.保存结果。
19.打开C:
\MyExam\工程1.vbp按下列要求设计VisualBasic应用程序界面（图示见操作要求之后）
1．设窗体Form1的标题的“信息输入”；
2．画一名称为Text1的文本框，清空其中内容，文本框宽度为1800，与窗体的上边距为840；
3．将Label2标签的标题“性别”两字设为蓝色（&H00FF0000&），在该标签右侧画两个单选按钮Option1、Option2，标题分别为“男”、“女”，默认为选中“女”；
4．.在窗体下方画一个名称为Command1命令按扭，标题为“报名”，字体为楷体、三号；
5．保存文件。
20.打开C:
\MyExam\工程1.vbp 按下列要求设计Visual Basic应用程序界面
1.将窗体标题设为“登录”，窗体名称设为“Ct1”，背景色为&H00C0E0FF&；
2.画一名称为Text1的文本框，清空其中内容，宽度为2535，与窗体左边距2600，上边距1560；
3.插入一个名称为Command1命令按扭，标题为“开始考试”，字体为仿宋体、三号，高度为515；
4.保存结果。
21.打开C:
\MyExam\工程1.vbp 按下列要求设计Visual Basic应用程序界面
1. 1.将窗体标题设为“编程世界”，将窗体宽度设为6200，高度设为4050；
2.在窗体上画一个标签Label1，标题为“欢迎来到VB编程世界！
”，字体为楷体、二号，字体颜色为&H00008000&，标签能自动调整大小来显示内容；
3.插入一个命令按扭，标题为“单击进入”、字体为黑体、小三号，按钮宽度2000；
4.保存结果。
22.打开C:
\MyExam\工程1.vbp 按下列要求设计Visual Basic应用程序界面
1.将窗体名称命名为F1，将窗体宽度设为6000，高度设为4005，背景色为&H0080FFFF&
2.在窗体上画一个标签，标题为“欢迎光临”，字体为黑体、二号，字体颜色为&H000000FF&
3.标签能自动调整大小来显示内容，且与窗体左边距2100，上边距820
4.保存结果
23.打开工程1.vbp按下列要求设计VisualBasic应用程序界面：
1．设窗体Form1的名称改为“Ct1”；
2．在Ct1窗体上画两个标签Label1、Label2，标题分别为“姓名”、“简历”，字体为楷体三号字；
3．在“姓名”右侧画一文本框Text1，清空内容；
4．在“简历”右侧画一文本框Text2，高为1500，宽为4335，设为多行文本输入，并有垂直滚动条；
5．保存文件。
24.打开C:
\MyExam\工程1.vbp按下列要求设计VisualBasic应用程序界面（图示见操作要求之后）
1．设窗体Form1的标题的“报名表”。
2．在Form1窗体上画两个标签Label1、Label2，标题分别为“姓名”、“性别”，字体都设为宋体三号。
3．在“姓名”右侧画一文本框Text1，宽为2000，高为650。
4．在“性别”右侧画两个单选按钮Option1、Option2，标题分别为“男”、“女”，默认为选中男性。
5．保存文件。
25.打开c:
\MyExam\文档.doc,进行如下操作：
1．将所有的“客户”替换为“用户”；
2．将“动员口令1……”、“动员口令2……”段落悬挂缩进2厘米，并设为黑体、加粗、四号字；
3．将其余段落左缩进2厘米；
4．保存文件。
文档：
动员口令1：
凡是在8月26日至9月10日加入全球通的客户，人人都可获得超值红礼一份！
具体如下：
限于在规定的16日期限内加入全球通的客户
礼包为金额不同的150元、100元、50元购物券
请客户于9月20号之前，持身份证对奖
动员口令2：
拨打1860热线，电话购卡配送上门！
服务内容：
全球通、神州行储值卡、充值卡
目前配送范围：
师范街以北，胜利街以南，建设路以西及和平路以东
图：
26.打开c:
\MyExam\表格.xls，进行如下操作：
1.标题单元格合并，设为隶书、蓝色、22号， 表头各项水平居中；
2.将“出生日期”列的日期格式改为日期类型中的“2001-3-14”类型；
3.用函数计算所有学生的总分；
4.保存文件。
高一2009-2010学年第二学期成绩表
班级
姓名
出生日期
语文
数学
计算机
总分
0901
王扬
03/09/83
96
94
60
0902
李东方
05/09/85
78
98
67
0901
张茵
09/05/85
93
87
76
0903
武向清
10/12/84
87
66
68
0902
流水龙
04/09/83
79
88
55
0903
马少林
08/09/84
82
74
74
0903
秦倩
03/08/82
76
80
93
0901
闵捷
09/08/84
67
71
76
0902
郑燕枫
08/12/83
51
65
66
27、打开c:
\MyExam\文档.doc,进行如下操作：
1．设置文本样式：
宋体、四号、行距为固定值20磅；
2．每段落首行缩进2个字符；
3．第一段首字下沉2行；
4．插入艺术字“城市，让生活更美好”，作为标题，置于文本的上面。
艺术字形状为“双波型”；
5．设置艺术字格式，文字环绕方式为“四周型”、大小：
高1.7厘米、宽9.2厘米。
位置：
绝对位置，页面，右侧6.3厘米，下侧5.5厘米。
28、打开c:
\MyExam\文档.doc,进行如下操作：
1.设置文本样式：
隶书、三号、行距为固定值20磅；
2．每段落首行缩进2个字符；
3．插入艺术字“保护环境，拯救家园”，作为标题，置于文本中间。
其中艺术字形状为桥形。
设置文字环绕方式：
四周型，位置；
4.保存文档。
升级会员 