第一篇：PS上机试题
PS期末考试试题
1、将素材1图片做成下面右边的效果图（素材1原图可在素材文件夹中找）（20分）
2、制作牵手字效果（20）
3、给下面相片纠正偏色（相片可在素材文件夹中找）（10）
4、制作火焰字（20）
5、制作电影胶片效果。（30）
要求：图像高为600像素，宽为800像素；利用素材中四张人物图像制作；四个单胶片要连缀起来，形成一串胶片；将成串的胶片制作成透视效果；背景填充为蓝色；图像右下角输入文本“***制作”。
第二篇：VB上机试题及答案
上机操作练习题
1．某数组有20个元素，其值为随机产生的两位整数。现要求将前10个元素与后10个元素对换。即第1个元素与第20个元素互换，第2个数与第19个元素互换，…，第10个元素与第11个元素互换。在窗体上输出数组原来各元素的值与对换后各元素的值。
Option explicit Dim a(1 to 20)as integer, I as integer, j as integer, t as integer Private Sub Form_Load()Show Print “原始数组是：” Randomize For i = 1 To 20
a(i)= Int(Rnd * 90)+ 10
Print a(i);If i Mod 10 = 0 Then Print Next i Print Print “现在数组是：” For i = 1 To 10
j = 211
a(k)= a(k + 1)
Next k
ReDim Preserve a(UBound(a)1 End If i = i + 1 Loop While(i <= UBound(a))If flag = False Then MsgBox n & “不在该数组中” Else Print “删除” & n & “后的数组是:” For i = 0 To UBound(a)Print a(i);Next i End If End Sub 3．数组a中存放着升序排列的数据，使用array赋值，将inputbox输入的新数插入到数组中，插入后数组仍有序。
注意：要求利用动态数组，能够实现多次插入 Private Sub Form_Load()Show n = 8: ReDim a(n)a = Array(5, 15, 23, 52, 68, 88, 90, 99)n = n + 1: ReDim Preserve a(n)m = InputBox(“请输入要插入的数据:”)For i = 1 To n1)Next k a(k)= m For i = 1 To n
Print a(i);Next i Print End Sub 4．6个评委为4位歌手打分，分数介于1-100之间。去掉一个最高分，一个最低分，求出每位选手的最后得分。将4位歌手得分从高到低排列输出，同时输出该选手的编号。
如：
歌手3 95分 歌手 1 87分 歌手 4 80分 歌手 2 70分
/ 19
Option Base 1
Private Type geshou
xuhao As String
fenshu(6)As Integer
score As Integer
pingjun As Integer End Type Dim singer(1 To 4)As geshou Private Sub Command1_Click()For i = 1 To 4 For j = 1 To 6
singer(i).fenshu(j)= Int(Rnd * 100)
singer(i).xuhao = “歌手” & i Next Next Call paixu End Sub
Private Sub paixu()Dim p As geshou For i = 1 To 4
For j = 1 To 5
For k = j To 6
If singer(i).fenshu(j)> singer(i).fenshu(k)Then
t = singer(i).fenshu(j)
singer(i).fenshu(j)= singer(i).fenshu(k)
singer(i).fenshu(k)= t
End If
Next
Next Next For i = 1 To 4 For j = 2 To 5
singer(i).score = singer(i).score + singer(i).fenshu(j)Next singer(i).pingjun = singer(i).score / 4 Next
For i = 1 To 3 For j = i To 4
If singer(i).score < singer(j).score Then
p = singer(i): singer(i)= singer(j): singer(j)= p
End If Next
/ 19
Next For i = 1 To 4 Print singer(i).xuhao & “得分：” & singer(i).pingjun Next End Sub Private Sub Form_Load()End Sub 10个评委给10个选手打分 Private Sub Form_Load()Show n = UBound(b)For i = 1 To 10
For j = 1 To 10
a(i, j)= Val(InputBox(“请第” & j & “位评委给第” & i & “位选手打分：”))Next j Next i For i = 1 To 10
max = a(i, 1): sum = 0
min = a(i, 1): ave = 0
For j = 1 To 10
If a(i, j)> max Then max = a(i, j)
If a(i, j)< min Then min = a(i, j)
sum = sum + a(i, j)
Next j
ave =(summin)/(n1
For j = i + 1 To n
If b(i)< b(j)Then
t = b(i): b(i)= b(j): b(j)= t
End If
Next j Next i Print “选手的得分由高到低为：” For i = 1 To 10
Print b(i);Next i End Sub 5．编写函数求一元二次方程ax2+bx+c=0的解。
注意：要求考虑方程有两相等实根、两不等实根和两个虚根的情况。Dim a As Single, b As Single, c As Single Dim s As Single a = InputBox(“请输入a”)
/ 19
b = InputBox(“请输入b”)c = InputBox(“请输入c”)s = b ^ 2Sqr(s))/ 2 * a End If End Sub 6.任意输入一组字符，统计出大写字母多少个，小写字母多少个，数字多少个？要求用过程实现。
Call tongji(a, n, m, o)Print “数字：” & n & Chr(13)& “小写：” & m & Chr(13)& “大写：” & o End Sub Private Sub tongji(a As String, n As Integer, m As Integer, p As Integer)For i = 1 To Len(a)If Asc(Mid(a, i, 1))> 47 And Asc(Mid(a, i, 1))< 58 Then
n = n + 1 ElseIf Asc(Mid(a, i, 1))> 96 And Asc(Mid(a, i, 1))< 123 Then
m = m + 1 ElseIf Asc(Mid(a, i, 1))> 64 And Asc(Mid(a, i, 1))< 91 Then
p = p + 1 End If Next End Sub 7．随机产生一个5*5的矩阵，将主对角线和次对角线元素都置为1，并求出矩阵的四周元素之和，显示在列表框中。
Option Base 1 Private Sub Form_Load()Dim a(5, 5)As Integer Dim s As Integer For i = 1 To 5 For j = 1 To 5
If i = j Or i = 6Asc(Mid(s1, i, 1))+ 64)ElseIf Asc(Mid(s1, i, 1))< 123 And Asc(Mid(s1, i, 1))> 96 Then convert = convert & Chr(1235: g = e
For j = 1 To n
If j > i Then
a(i, j)= 0
Else
If i = j Then
a(i, j)= 1
Else
a(i, j)= a(i1, ji + 1);String(2 *(i1)/ 2 To 1 Step(-1)
c = c + 1
s = Chr(64 + ii + c + 1);String(2 *(j1)/ 2 Else
x = x / 2 End If i = i + 1 Loop
ReDim Preserve a(UBound(a))If y < 0 Then For i = 1 To UBound(a)convert = convert & a(i)Next convert = “-” & convert Else For i = 1 To UBound(a)
/ 19
convert = convert & a(i)Next End If
End Function Private Sub Command1_Click()Dim y As Integer Text1.Text = “" y = InputBox(”请输入十进制数字“)Text1.Text = convert(y)
End Sub
Private Sub Form_Load()
End Sub 14．输入一个整数N，产生N个随机数（范围1—10*N），然后采用任何2种算法实现由小到大的排序。将排序前后的数据显示出来。
Option Base 1 Private Sub Command1_Click()Dim a()As Integer, n As Integer n = InputBox(”请输入数列项数“)ReDim a(n)For i = 1 To n
a(i)= Int(Rnd * 10 * n + 1)
Print a(i);Next Print ReDim Preserve a(n)For i = 1 To n1 For j = 1 To n2)+ fact(n2 s = s1 + s2: t = s2: s2 = s: s1 = t Next End Function
Private Sub Command2_Click()n = InputBox(”请输入n“)Print s(n)End Sub 17.编写2个函数，分别采用递归法和递推法求斐波纳契数列的第n个月的兔子数，n使用inputbox输入，调用函数的结果在窗体上显示。Private Sub Command1_Click()List1.Clear Dim i As Integer For i = Val(Text1.Text)To Val(Text2.Text)If isprime(i)= True Then
List1.AddItem(i)
c = c + 1
If i Mod 10 = 9 Then
/ 19
List1.Selected(c1 If n Mod i = 0 Then
isprime = False
Exit For End If Next End Function 18 Dim sum As Long Private Sub Command1_Click()
Dim i As Integer, j As Integer, a(40)As Long
a(1)= 1
a(2)= 1
For i = 3 To 40
a(i)= a(i2)
Next i
sum = 0
For j = 1 To 40
sum = sum + a(j)
Next j End Sub
Private Sub Command2_Click()
Open ”out18.txt“ For Output As #1
Print #1, ”数列1，1，2，3，5，8…的前四十项的之和是：“
Print #1, sum
Close #1 End Sub 1.百钱买百鸡
Option Explicit
Private Sub Command1_Click()Dim a As Integer, b As Integer For a = 1 To 34
For b = 1 To 20
If 3 * a + 5 * b +(100b)/ 3 = 100 Then
/ 19
Print a;
Print b;
Print 100b
End If
Next b Next a End Sub 2.分钱作业
Private Sub Command1_Click()Dim a As Single,b as single,c as single a = Text1.Text b = Fix(a / 100)Print ”100元：“;Print b c = ab * 50
b = Fix(c / 20)Print ”20元：“;Print b c = c0.05 * b b = Fix((c + 0.005)/ 0.02)Print ”0.02元：“;Print b c = c1
If a(i)= a(j)Then
GoTo aaa
End If
Next j
Next i For i = 1 To 10
Print a(i);Next i Print End Sub
Private Sub Command2_Click()Dim i As Integer, j As Integer, t As Integer For i = 1 To 9
For j = 1 + i To 10
If a(i)> a(j)Then
t = a(j)
a(j)= a(i)
a(i)= t
End If
Next j Next i For i = 1 To 10
Print a(i);Next i Print
End Sub
Private Sub Command3_Click()Dim i As Integer, j As Integer, t As Integer For i = 1 To 9
For j = 1 To 10c)> 10 ^(-5)i =(a + b)/ 2
If i ^ 2c = 0 Then
Exit Do
Else
a = i
End If Loop MsgBox(i)End Sub 7.闰年
Option Explicit
Private Sub 计算_Click()Dim i As Integer i = InputBox(”请输入一个年份“)If i Mod 4 = 0 And i Mod 400 = 0 Then
If i Mod 100 <> 0 Then
MsgBox ”NOT“
Else
MsgBox ”YES“
End If Else
MsgBox ”NOT“ End If
End Sub 8.三角
Option Explicit Private Sub Command1_Click()
/ 19
Dim a As Single Dim b As Single Dim c As Single Dim p As Single Dim s As Single
a = Text1.Text b = Text2.Text c = Text3.Text
p =(a + b + c)/ 2
s = Sqr((pb)* p +(p1
If n Mod i = 0 Then
MsgBox ”NOT“
Exit For
End If Next i If i = n Then
MsgBox ”YES“ End If End Sub
Private Sub Command2_Click()
Dim a As Boolean, n As Double, i As Double a = False n = InputBox(”请输入一个数：“)For i = 2 To n-1
If n Mod i = 0 Then
a = True
Exit For
End If Next i If a = True Then
/ 19
MsgBox ”NOT“ Else
MsgBox ”YES“ End If End Sub
Private Sub Command3_Click()Dim n As Double, i As Double n = InputBox(”请输入一个数：“)i = 2 Do While i < n
If n Mod i = 0 Then
MsgBox ”NOT“
Exit Do
End If i = i + 1 Loop If i = n Then
MsgBox ”YES“ End If End Sub
Private Sub Command4_Click()Dim n As Double, i As Double, sushu As Boolean n = InputBox(”请输入一个数：“)i = 2 sushu = True Do While i < n And sushu = True
If n Mod i = 0 Then
sushu = False
End If i = i + 1 Loop If sushu = True Then
MsgBox ”YES“ Else
MsgBox ”NOT" End If End Sub
/ 19
第三篇：VB上机试题及答案
1、在工程中添加一个窗体form1，当用户单击窗体时，在窗体上显示九九乘法表程序。结果如下图所示（本题编程解决，20分）
参考答案：
Private Sub Form_Click()
Cls
For i = 1 To 9
For j = 1 To i
Print i * j;“ ”;
Next j
Next i End Sub
2、在工程中，添加一个窗体form2，在窗体上放置一个文本框text1（文本框中的文字为“改变字形”，居中显示）。三个复选框check1,check2和check3，如图设置属性。
要求：当用户单击“加粗”、“斜体”、“下划线”这三个复选框时（即当复选框被选中时）能将文本框的字形变为“粗体、斜体、加下划线”（本题编程完成，满分：30分）
参考答案：
Private Sub Check1_Click()
Text1.FontBold = Check1.Value End Sub
Private Sub Check2_Click()
Text1.FontItalic = Check2.Value End Sub
Private Sub Check3_Click()
Text1.FontUnderline = Check3.Value End Sub
3、在工程中添加一窗体form3，在窗体上按下图放置两个标签和一个文本框，一个列表框和一个命令按钮，各控件的名称属性取默认值。其他属性按下图进行设置。
要求：当用户在文本框输入他的籍贯后，单击“添加籍贯”按钮时，能够将籍贯添加到列表框中。双击列表框中的某一项时将该项删除.（本题：20分）
参考答案：
Private Sub Command1_Click()
List1.AddItem Text1.Text End Sub
Private Sub List1_DblClick()
List1.RemoveItem List1.ListIndex End Sub
4、在窗体form4中建立下图所示的菜单,各菜单项的名称如下：
文件：file，新建：NEW，-：kong1，打开：OPEN，关闭：CLOSE 编辑：EDIT，剪切：CUT，复制：COPY，粘贴：PASTE（本题不用编程，30分）
参考答案：略
第四篇：ps模拟试题解析
Photoshop考证参考资料
模拟试题一
1-1：新建文件（6cm-6cm），新建图层，[椭圆选框工具]，固定大小（直径230px）绘制圆形选框，填充绿色；[多边套索工具]，以圆心出发包围一个小扁形，用移动工具移出，依次填充红色、蓝色。Ctrl键点图层缩略图选取整个图形，按[Ctrl+Alt+↑]，上升形成圆饼。（可先作一个灰色描边再上升）
1-1
2-1 2-1： 打开素材，背景复制一副本。[仿制图章工具]，笔触选择柔角画笔，按Alt选取木头的颜色，顺着木纹涂抹，按此方法不断选取颜色涂抹整个木板表面，用[加深工具]加深加暗、用[涂抹工具]细化。（也可运用柔角画笔刻画细节）
3-1： 打开素材，将图片改为RGB模式（图像菜单-模式），复制背景层，用[多边套索工具]选取天空，按Ctrl+U（色相/饱和度），选“着色”，进行色相的调节。用[魔棒工具]选取树叶（可结合快速蒙版选取），同理，Ctrl+U调节颜色，保留选区，反选后得出（墙面与天空），再用[多边套索工具]减去天空得出墙面，同理Ctrl+U着色。
以上资料仅供参考
3-1
4-1
4-1： 新建文件（500px-500px），建立图层1，[椭圆工具]（属性栏属性：路径），根据题目给出的数据，绘制两个圆（直径分别444px和40px），[路径选择工具]（黑箭头），按Shift选取两个圆（属性栏属性：垂直居中、水平居中。重叠形状区域除外、组合。）。[矩形工具]绘制矩形（56px*400px），），[路径选择工具]（黑箭头），按Shift选取两个圆和矩形，（属性栏属性：垂直居中、水平居中）。单选矩形进行组合。[圆角矩形工具]，半径设置20px，按题目要求大小绘制圆角矩形，同理进行居中与组合。[矩形工具]，按题目要求大小绘制矩形，同理进行居中与组合。将工作路径存为路径1。将路径1转为选区，填充题目给出的红色。
5-1：打开素材，[魔棒工具]（选项栏将“连续”取消）将白色区域选取并反选，选中齿轮，ctrl+J建立副本。Ctrl键点图层缩略图选取齿轮，新建图层填充黑色，高斯模糊4.0-6.0，透明度20%，按Ctrl+T，扭曲调整如图。调整图层顺序，将黑色齿轮移动中间层。渐变工具，在渐变编辑器中设置给定渐变色，从上至下填充渐变。6-5：新建文件（283px-283px），新建图层，[渐变工具]，填充由下至上黑至白渐变（黑色部分多一点），滤镜”-“扭曲”-“波浪”（生成器
1、波长40、40波幅60、120类型：三角形）极坐标（默认），“滤镜”-“素描”-“烙黄”（数值：
10、10）。新建图层2，渐变，色谱渐变，图层混合模式：颜色。
以上资料仅供参考
5-1
6-5
7-1：新建文件(500px-150px)，新建图层1,[椭圆选框工具]，绘制圆形（90px，填充渐变（径向）白到红，从底往上）。新建图层2，在按钮上部建立椭圆选区（固定大小65px-40px），选区填充渐变（线性）白到透明，从上往下白到透明。新建图层3，钢笔工具（属性栏属性：路径）勾画出5条花纹（点一下到下一个点拖动），将工作路径转为路径1，在转为选区并填充白色。在图层1中，“图层样式”-“投影”（默认值），“图层样式”-“外发光”（图层模式：正常，颜色：黑色，扩展及大小自己调），Ctrl+鼠标选中所有图层，Ctrl+E（合并图层），Ctrl+J复制3个图层，将4个按钮排成一排，按Ctrl+U分别着色（颜色自己调）。
7-1
8-1：打开素材，复制图层1为图层1副本，副本中，按Ctrl+T（在属性栏那修改W：45%、H：45%）。在图层1中，Ctrl+T
以上资料仅供参考
将叶子缩小30%（同比例），垂直翻转，移至酒杯左下方，“编辑”-“变换”-“变形”，调整形状。复制Layer4为副本。在副本中，将叶子移至酒杯右上方，（W：80%、H：60%、旋转-70）。复制Layer2为副本，将葡萄移至酒杯正上方，将Layer2副本移至Layer4副本之上，水平翻转，W、H：120%，两次复制Layer2为副本2、3，将副本2移至Layer4副本之上，副本3移至Layer4副本之下，分别放置在Layer2副本两侧（注意方向、位置）。将图层1及其副本和Layer4副本图层合并，并添加图层投影（不透明度70%、距离
26、大小58）。新建图层，椭圆选框，在酒杯中将少量酒用椭圆选区选取，复制到新图层中，液化处理出效果。对液化后的酒：滤镜-塑料包装（20、12、8），Ctrl+U为酒汁添加光泽。（叶子、葡萄放置如下图，注意图层的放置）
模拟试题二
1-2：打开两个素材，将“树”拉入“window”中，调整树的大小（稍微大点）。在“树”图层添加“图层蒙版”，填充黑色（将树暂蒙住），用[多边套索工具]圈出窗户范围，在蒙版上填充白色（显示出窗外的树），用黑色尖角画笔，结合[shift]键在蒙版上画直线，添加窗格子。（可暂时将“树”图层不透明度降低，待窗格子添加完成后恢复）。
22-2
2-2：新建一个10px-10px的文件（背景透明），画笔工具，尖角画笔（大小1-3px），在透明背景中点几下（如下图），“编辑”-“定义画笔预设”，将这几个点设置位新笔刷。打开素材，[涂抹工具]，使用新笔刷，适时调整大小、强度（70-90），由内至外在头发处涂抹出效果。
3-2：打开素材，新建图层，填充红色，调整图层混合模
以上资料仅供参考
式“色相”。
4-2：在photoshop打开素材，新建文件800px-800px，新建图层1。在素材中，魔棒工具选取素材中下面的苹果，将他拖入新建的文件图层1中，转为路径1，再将它转为选区。在通道面板下方点击“将选区储存为通道，Alpha l通道，对新通道高斯模糊1次（半径66.1），Ctrl+I（反相），按Ctrl+C、Ctrl+V将Alpha 1通道复制粘贴到新图层2，删除图层1，在图层2中，按Ctrl+M（曲线），将曲线调整（如下图）。用套索工具选出苹果叶子，转换成选区后调暗。用[钢笔工作]勾选出苹果上半部（包括叶子上半部）的选区，按Ctrl+M（曲线），调亮，作为高光区。将整个苹果着色（Ctrl+U），添加“投影”及“斜面和浮雕”效果。
3-2
4-25-2 5-2：打开素材，新建图层1，[多边套索工具]，以光源起点，分别勾画3条细长的三角选区，填充白色，高斯模糊，修改图层透明度。新建图层2，[画笔工具]（白色、较大柔边画笔、不透明降低）画出落在地上的反光区，调整图层透明度50%。在背景图层，“滤镜”-“渲染”-“镜头光晕”，在光源处添加光源。6-1：新建文件（303px-396px），背景填充给定色（木色）。
以上资料仅供参考
设置前景色褐色，画笔工具，柔边30px，按题目绘制5条花纹，“滤镜”-“扭曲”-“切变”，“滤镜”-“杂色”-“添加杂色”（数量
5、单色）。“动感模糊”（距离10px，角度0），Ctrl+T，顺时针90旋转花纹，调整。液化处理。
17-2
7-2：新建文件，新建图层1，椭圆选区工具(固定大小52px-52px)。径向渐变工具，在渐变编辑器中设置白到浅蓝（#99c1f4），径向，从左上至右下拉出渐变。“选择”-“修改”-“收缩”（收缩4px），右下至左上拉渐变。新建图层2，[椭圆选框工具]画一小小椭圆，填充白色，高斯模糊，ctrl+T调整方向。横排文本工具，（ADMUI21g字体、白色、15点），为文字图层、图层1添加投影（默认）。
8-2：打开素材，将Layer7图像移至右上角，将Layer5图像移至右下角，将Layer4图像移至中上部。隐藏除Layer4以外的图层，在Layer4中单击“添加矢量图层蒙版”，（在图层蒙版里）黑色柔边画笔将图像右侧和底部涂抹。用同样的方法将Layer1“添加矢量图层蒙版”，涂抹右侧部分。新建图层1，放置第二图层，在图层1中，矩形选区工具，分别在上部1/3与右部1/3绘制矩形并填充（f26971）、（432f92），图层1透明度（50%）。新建图层2，自定义形状工具绘制2个白色“原子”图案（再“形状”里找，图层透明度60%）,位置调整好（Ctrl+T）。文本工具，添加白色文字（宋体），删格化文字，高斯模糊1.0。
以上资料仅供参考
模拟试题三
1-4： 新建文件6cm-6cm，背景色为黑色。椭圆选框工具，固定大小（85px）新建三个图层，在三个图层中分别绘制圆并分别填充三种给定色（红、绿、蓝），位置调整如下图。将顶层两个图层的图层混合模式改为“滤色”。
2-4： 打开素材，新建图层。[画笔工具]，打开“画笔预设”，数值设置如下。画笔笔尖形状：（尖角
9、圆度100％、硬度100％、间距25％）形状动态：（三次渐隐[150、25、25]、大小抖动40％、最小直径10％、角度抖动100％、圆度抖动20％、最小圆度45%）散布（散布400%、渐隐160、数量
8、抖动36%）、纹理（默认为第一个纹理）。设置好画笔后，将前景色分别设置为给定色(绿色、红色、橙色)，然后如图分别绘制水草。
以上资料仅供参考
3-4：打开素材，解锁背景图层。按Ctrl+I（反相），按Ctrl+U（色相着色）
44-4
4-4：打开素材，[横排文字工具]，白色黑体字，栅格化文字，按Ctrl+T，扭曲，进行调整。调整文字图层透明度，用橡皮擦工具稍微擦一下文字。
5-4：打开素材，双击背景图层解锁背景。新建图层1并填充红色，隐藏图层0，横排文本工具，输入黑色文字（120点、加粗、黑体），调整文字。打开图层0，将图层0移动至顶层，“图层”-“创建图层剪切蒙版”，选择文字图层，“斜面和浮雕”（枕状浮雕、平滑、深度251%、方向-上、大小5px、软化2px、角度30、高度30、滤色75%、正片叠底75%）
以上资料仅供参考
6-3：新建文件（10cm-6cm背景黑色），横排文本工具，输入白色文字“ORB”，加粗、倾斜。ctrl+J复制文字图层，将下面文字图层隐藏。在“ORB”副本中按Ctrl+T，顺时针90°，删格化后执行：风格化-风（从左2-3次），Ctrl+T逆时针90°旋转回去；执行高斯模糊1.5、扭曲-波纹120%，上黄色。ctrl+J复制黄色文字，上红色，图层混合模式为“叠加”（配合“锁定透明像素”上色）。将隐藏的文字图层打开，放在顶层，改文字颜色为黑色。
7-4：新建文件10cm-4cm，设置前景色（#737173），填充背景图层。新建图层1，圆角矩形工具（属性栏属性：填充像素、半径20、固定大小185-50px）绘制圆角矩形，图层1中“斜面和浮雕”（枕状浮雕、雕刻清晰），输入文字。
8-4：打开素材，选择“橙子”图层，添加图层蒙版，用白到黑线性渐变填充蒙版，使橙子上部层半透明。选择“水面”图层，进行“液化”，产生层次，制作橙子入水溅起效果。新建画布100px*100px，填充浅蓝背景，制作汽泡：用[椭圆选框工具]绘制正圆选区，用柔角画笔（降低透明度）在选区靠外绘制一层半透明边，如左下图。取消圈选，缩小，复印N个，成一组小汽泡如右下图。合并所有汽泡图层。将合并的图层拖动至未经素材，复印,调整大小放在合适位置，成为水下橙子上上方汽泡。
以上资料仅供参考
以上资料仅供参考
第五篇：ACCESS上机试题及答案3
一、基本操作
（1）在考生文件夹下，“samp1.mdb”数据库文件中建立表“tTeacher”，表结构如下。
（2）根据“tTeacher”表的结构，判断并设置主键。（3）设置“工作时间”字段的有效性规则为只能输入上一五月一日以前（含）的日期（规定：本年号必须用函数获取）。（4）将“在职否”字段的默认值设置为真值，设置“邮箱密码”字段的输入掩码为将输入的密码显示为6位星号（密码），设置“联系电话”字段的输入掩码，要求前四位为“010-”，后八位为数字。（5）将“性别”字段值的输入设置为“男”、“女”列表选择。（6）在“tTeacher”表中输入以下2条记录：
第1题分析
本题主要考核点：在一个数据库中添加一个新表、表结构的定义、主键的设置、有效性规则的设置、默认值的设置、输入掩码的设置、查阅向导的使用以及向表中输入记录。
本题解题思路：
第一步：打开考生文件夹下的“samp1.mdb”数据库。
第二步：打开数据库菜单选择“新建(N)”，在弹出的“新建表”对话框中，点击“设计视图”按钮，在弹出的表设计器中按题面要求依次输入各字段的定义。
第三步：主关键字是每个表中能惟一标识每条记录的字段，可以是一个字段，或是一组字段。由表中字段可知，“编号”为该表的主关键字，选中“编号”字段行，点击工具栏上的“主键”按钮。
第四步：选中“工作时间”字段行，再选中下面的“有效性规则”，在右边的框中直接输入“<=DateSerial(Year(Date())-1,5,1)”。
第五步：选中“在职否”字段行，在“默认值”右边的框中输入“True”。选中“邮箱密码”字段行，再选中下面的“输入掩码”，点击右边的“...”按钮，在弹出的“输入掩码”向导中选择“密码”，单击“下一步”按钮，再单击“完成”按钮。选中“联系电话”字段行，再选中下面的“输入掩码”，输入：“010-”00000000。
第六步：选中“性别”字段，在下面的“查阅”选项卡中的“显示控件”选择“列表框”，“行来源类型”中选择“值列表”，“行来源”中输入：男;女。然后以“tTeacher”保存该表。
第七步：向“tTeacher”表中输入题面所要求的各字段的内容。
二、简单应用
考生文件夹下存在一个数据库文件“samp2.mdb”，里面已经设计好三个关联表对象“tStud”、“tCourse”、“tScore”和一个空表“tTemp”。试按以下要求完成设计：
（1）创建一个查询，查找并显示有书法或绘画爱好学生的“学号”、“姓名”、“性别”和“年龄”四个字段内容，所建查询命名为“qT1”。
（2）创建一个查询，查找成绩低于所有课程总平均分的学生信息，并显示“姓名”、“课程名”和“成绩”三个字段内容，所建查询命名为“qT2”。（3）以表对象“tScore”和“tCourse”为基础，创建一个交叉表查询。要求：选择学生的“学号”为行标题、“课程号”为列标题来统计输出学分小于3分的学生平均成绩，所建查询命名为“qT3”。注意：交叉表查询不做各行小计。
（4）创建追加查询，将表对象“tStud”中“学号”、“姓名”、“性别”和“年龄”四个字段内容追加到目标表“tTemp”的对应字段内，所建查询命名为“qT4”。（规定：“姓名”字段的第一个字符为姓，剩余字符为名。将姓名分解为姓和名两部分，分别追加到目标表的“姓”、“名”两个字段中。）
第2题分析
本题主要考的是数据库的查询。
本题解题思路：
（1）点击“查询”，选择“新建(N)”，在弹出的“新建查询”窗体上选择“设计视图”，点击“确定”按钮，然后在弹出的“显示表”窗体上选择“tStud”表，点击“添加”按钮，关闭“显示表”窗体。然后从“tStud”表中选择“学号”、“姓名”、“性别”和“年龄”字段，并选择“简历”字段，把该字段的显示中的钩去掉，然后在“简历”字段的“条件”中输入：Like “*书法*” Or Like “*绘画*”，以“qT1”保存查询。
（2）选择“新建(N)”，在弹出的“新建查询”窗体上选择“设计视图”，点击“确定”按钮，然后在弹出的“显示表”窗体上分别选择“tStud”、“tCourse”和“tScore”表，点击“添加”按钮，关闭“显示表”窗体。选择题目中所说的三个字段，在“成绩”字段的“条件”中输入：<(select avg(成绩)from tScore)，最后以“qT2”保存查询。
（3）选择“新建(N)”，在弹出的“新建查询”窗体上选择“设计视图”，点击“确定”按钮，然后在弹出的“显示表”窗体上分别选择“tScore”和“tCourse”表，点击“添加”按钮，关闭“显示表”窗体。然后点击“查询”菜单中的“交叉表查询”菜单（或点击右键，选择查询类型中的“交叉表查询”）。在字段中选择“学号”，“交叉表”中选择“行标题”；选择“课程号”字段，在“交叉表”中选择“列标题”；选择“成绩”字段，“交叉表”中选择“值”，并在“总计”中选择“平均值”；再选择“学分”字段，并在条件中输入：<3，“总计”中选择“条件”；最后以“qT3”保存查询。
（4）选择“新建(N)”，在弹出的“新建查询”窗体上选择“设计视图”，点击“确定”按钮，然后在弹出的“显示表”窗体上选择“tStud”表，点击“添加”按钮，关闭“显示表”窗体。选择“查询”菜单中的“追加查询”菜单（或者右击鼠标，在弹出的菜单中选择“追加查询”），追加到当前数据库中的“tTemp”表中，点击“确定”。然后从“tStud”选择“学号”字段，再在“字段”行的第二个空格处输入“Left(([姓名]),1)”，第三个空格处输入“Right([姓名],Len([姓名])-1)”，再从“tStud”选择“性别”和“年龄”字段，追加到“tTemp”表对应的字段中，最后以“qT4”保存查询。
三、综合操作
考生文件夹下存在一个数据库文件“samp3.mdb”，里面已经设计了表对象“tEmp”、窗体对象“fEmp”、宏对象“mEmp”和报表对象“rEmp”。同时，给出窗体对象“fEmp”的“加载”事件和“预览”及“打印”两个命令按钮的单击事件代码，试按以下功能要求补充设计：（1）将窗体“fEmp”上标签“bTitle”以特殊效果：阴影显示。
（2）已知窗体“fEmp”的三个命令按钮中，按钮“bt1” 和“bt3”的大小一致、且左对齐。现要求在不更改“bt1” 和“bt3”大小位置的基础上，调整按钮“bt2”的大小和位置，使其大小与“bt1”和“bt3”相同，水平方向左对齐“bt1” 和“bt3”，竖直方向在“bt1” 和“bt3”之间的位置。
（3）在窗体“fEmp”的“加载”事件中设置标签“bTitle”以红色文本显示；单击“预览”按钮（名为“bt1”）或“打印”按钮（名为“bt2”），事件过程传递参数调用同一个用户自定义代码（mdPnt）过程，实现报表预览或打印输出；单击“退出”按钮（名为“bt3”），调用设计好的宏“mEmp”来关闭窗体。
（4）将报表对象“rEmp”的记录源属性设置为表对象“tEmp”。
注意：不允许修改数据库中的表对象“tEmp”和宏对象“mEmp”；不允许修改窗体对象“fEmp”和报表对象“rEmp”中未涉及的控件和属性。程序代码只允许在“*****Add*****”与“*****Add*****”之间的空行内补充一行语句、完成设计，不允许增删和修改其它位置已存在的语句。
第3题分析
本题主要考的是窗体的设计。
本题解题思路如下：
（1）打开窗体对象“fEmp”的设计视图，选择“bTitle”标签控件，并点击工具栏上的“属性”按钮，特殊效果属性设置为“阴影”。
（2）打开窗体“fEmp”的设计视图，选中“bt2”按钮，并点击工具栏上的“属性”按钮，将命令按钮bt2的“左边距”设置为3厘米，“上边距”设置为2.5厘米，“宽度”设置为3厘米，“高度”设置为1厘米。
（3）打开窗体“fEmp”的设计视图，并点击工具栏上的“属性”按钮，点击“加载”属性右边的“…”打开代码生成器，在“*****Add1*****”与“*****Add1*****”之间输入“bTitle.ForeColor = 255”，保存窗体。
（4）打开窗体“fEmp”的设计视图，选中“bt1”按钮，并点击工具栏上的“属性”按钮，点击“单击”属性右边的“…”打开代码生成器，在“*****Add2*****”与“*****Add2*****”之间输入“mdPnt acViewPreview”，保存窗体。
（5）打开窗体“fEmp”的设计视图，选中“bt3”按钮，并点击工具栏上的“属性”按钮，点击“单击”属性并选择宏“mEmp”，保存窗体。
（6）打开报表对象“rEmp”的设计视图，将“记录源”属性设置为表“tEmp”。
点击咨询 