第一、Const y0& = 1110, x0& = 1100, radius& = 750
Private Function oncircle(X As Single, Y As Single) As Boolean
precision = 55000
If Abs((X - x0) * (X - x0) + (y0 - Y) * (y0 - Y) - radius * radius) < precision Then
oncircle = True
Else
oncircle = False
End If
End Function
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As
Single)
Const LEFT_BUTTON = 1
If oncircle(X, Y) Then
Line1.X1 = x0
Line1.Y1 = y0
If Button = LEFT_BUTTON Then
Line1.X2 = X
' Line1.Y2 = ? ***** Y *****
Else
' Line1.X2 = Line1.? ***** X1 *****
' Line1.Y2 = y0 - ? ***** radius *****
End If
Label1.Caption = ""
Else
' ? = "鼠标位置不对" ***** label1.caption *****
End If
End Sub
（2）在考生目录下有一个工程文件sjt4.vbp，窗体如图所示。其功能是单击“输入数据”按钮，则可输入一个整数n（要求：8<=n<=12）；单击“计算”按钮，则计算1!+2!+3!+…….+n!，并将计算结果显示在文本框中；单击“存盘”按钮，则把文本框中的结果保存到考生目录下的out4.dat文件中。
文件中已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的？改为正确的内容，并编写“计算”按钮的Click 事件过程。注意：不得修改已经存在的内容和控件属性，在结束程序运行之前，必须用“存盘”按钮存储计算结果，否则无成绩。最后把修改后的文件按原文件名存盘。
Dim n As Integer
Private Sub Command1_Click()
n = Val(InputBox("请输入整数（8-12）", "输入"))
' If n > ? Or n < 8 Then ***** 12 *****
MsgBox ("数据错误，请重新输入")
Command2.Enabled = False
Command3.Enabled = False
Else
Command2.Enabled = True
Command3.Enabled = True
End If
End Sub
Private Sub Command2_Click()
Dim s As Long, k As Integer
*****'考生应编写的程序*****
S=1
For k=2 to n
S=s+f(k)
Next k
Text1.text=s
*****End Sub*****
Function f(n As Integer) As Long
' s = ? ***** 1 *****
For k = 2 To n
s = s * k
Next
' f = ? ***** s *****
End Function
Private Sub Command3_Click()
Open App.Path & "\out4.dat" For Output As #1
Print #1, n, Text1
Close #1
End Sub
第01套综合应用题（新模14）
在考生文件夹下有一个工程文件sjt5.vbp，含三个窗体，标题分别为‘启动’、‘注册’、‘登录’，运行时显示‘启动’窗体，单击其
标准模块中函数finduser的功能是：在users数组中搜索用户名（即参数ch），找到则返回该用户名在user中的位置，否则返回0。
已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把Form2、Form3窗体文件中的？改为正确的内容。―――――――――Form2―――――――――――――――――――――――――
Private Sub Command1_Click()
Text1 = ""
Text2 = ""
Text3 = ""
End Sub
Sub writeusers()
' n = n + ? ***** 1 *****
users(n, 1) = Text1
users(n, 2) = Text2
End Sub
Private Sub Command2_Click()
If Text1 = "" Then
MsgBox ("必须输入用户名！")
Text1.SetFocus
' ElseIf finduser(Trim$(Text1)) > ? Then ***** 0 *****
MsgBox ("此用户名已经存在!")
ElseIf Text2 <> Text3 Then
MsgBox ("口令验证错误!")
Else
writeusers
' ? = "注册成功！" ***** https://www.doczj.com/doc/fc11991687.html,bel1.caption *****
Form2.Hide
End If
End Sub
―――――――――Form3―――――――――――――――――――――――――
Private Sub Command1_Click()
k = finduser(Trim$(Text1))
' If k = ? Then ***** 0 *****
MsgBox ("没有注册！")
' ElseIf Trim$(Text2) <> users( ? ) Then ***** n,2 *****
MsgBox ("口令错误！")
Else
https://www.doczj.com/doc/fc11991687.html,bel1.Caption = "登录成功！"
Form3.Hide
End If
End Sub
第02套简单应用题（新模8）
（1）在名称为Form1的窗体上画一个名称为Text1的文本框，再建立一个名称为Format的弹出式菜单，含三个菜单项，标题分别为‘加粗’、‘斜体’、‘下划线’，名称分别为M1、M2、M3。请编写适当的事件过程，在运行时当用鼠标右键单击文本框时，弹出此菜单，选中一个菜单项后，则进行菜单标题所描述的操作，如图所示。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt3.vbp，窗体文件名为sjt3.frm。
M1_click( )
Text1.fontBold=true
M2_click( )
Text1.fontItalic=true
M3_click( )
Text1.fontUnderline=true
Text1_MouseDown( )
If button=2 then Popupmenu format
（2）在考生文件夹下有一个工程文件sjt4.vbp，含有Form1和Form2两个窗体，Form1为启动窗体。两个窗体上的控件如图1所示。程序运行后，在Form1窗体的文本框中输入有关信息（‘密码’框中显示‘*’字符），然后单击‘提交’按钮则弹出‘确认’对话框（即Form2窗体），并在对话框中显示输入的信息，如图2所示。单击‘确认’按钮则程序结束，单击‘重输’按钮，则对话框消失，回到Form1窗体。在给出的窗体文件中已经给出了程序，但不完整。要求：1）把Form1的标题改为‘注册’，把Form2的标题改为‘确认’；
2）设置适当的属性，使Form2标题栏上的所有按钮消失（如图2所示）；
3）去掉程序中的注释符，把程序中的？改为正确的内容。
注意：不能修改程序中的其他部分，标题等属性的修改只能在属性窗口中的进行。最后把修改后的文件按原文件名存盘。
Form2.Print Form1.L1.Caption; Form1.Text1
Form2.Print Form1.L2.Caption; Form1.Text2
Form2.Print Form1.L3.Caption; Form1.Text3
' Form2.Print Form1.Frame1. ? ; "："; *****caption*****
For k = 0 To 1
' If Form1.Op1( ? ).Value Then ***** k *****
Form2.Print Form1.Op1(k).Caption
End If
Next k
End Sub
Private Sub Form_Load()
' Text2. ? = "*" ***** passwordchar *****
End Sub
第02套综合应用题（新模8）
在考生目录下有一个工程文件sjt5.vbp，其窗体上有两个标签L1和L2，标题分别为‘口令’和‘允许次数’；一个命令按钮C1，标题为‘确定’；两个文本框名称分别为Text1和Text2。其中Text1用来输入口令（输入时，显示‘*’），无初始内容；Text2的初始内容为3。并给出了C1的事件过程，但不完整，要求去掉程序中的注释符，把程序中的？改为正确的内容，使得在运行时，在Text1中输入口令后，单击‘确定’，如果输入的是‘123456’则在Text1中显示‘口令正确’；如果输入其他内容，单击‘确定’后，弹出如图所示的错误提示对话框，并且Text2中的数字减1.最多可输入3次口令，若3次都输入错误，则禁止再次
输入。
Private Sub C1_Click()
' If ? = "123456" Then ***** text1.text *****
Text1.Text = "口令正确"
' Text1.? = "" ***** passwordchar *****
Else
Text2.Text = Text2.Text - 1
' If Text2.Text > ? Then ***** 0 *****
MsgBox "第" & (3 - Text2.Text) & "次口令错误，请重新输入"
Else
MsgBox "3次输入错误，请退出"
' Text1.Enabled = ? ***** false *****
End If
End If
End Sub
第03套简单应用题（新模18）
（1）在考生文件夹下有一个工程文件sjt3.vbp，其功能是：
1）单击‘读数据’按钮，则把考生文件夹下in3.dat文件中的100个0-999之间的整数读入数组a中；
2）单击‘计算’按钮，则对这100个整数中的所有水仙花数（当一个数的值等于该数中各位数字的立方和时，此数被称为水仙花数。如：153＝1^3+5^3+3^3，所以153就是一个水仙花数）求平均值，并对该平均值截尾取整后显示在文本框Text1中。窗体中给出了所有控件（如图所示），以及‘读数据’按钮的Click事件过程，请为‘计算’按钮编写适当的事件过程实现上述功能。
注意：不得修改已经存在的控件和程序，在结束程序运行之前，必须进行计算，且必须用窗体右上角的关闭按钮结束程序，否则无成绩。最后，程序按原文件名存盘。
Dim a(100) As Integer
Private Sub Command1_Click()
Dim k As Integer
Open App.Path & "\in3.dat" For Input As #1
For k = 1 To 100
Input #1, a(k)
End Sub
Private Sub Command2_Click()
'*****考生应完成的程序*****
Dim k ,c1, c2, c3, avg, num as integer
Avg=0
Num=0
For k=1 to 100
C1=int(a(k)/100)
C2=int((a(k)-c1*100)/10)
C3=a(k) mod 10
If a(k)=c1^3+c2^3+c3^3 then
Avg=avg+a(k)
End if
Next k
Avg=int(avg / num)
Text1.text=avg
***** End Sub *****
Private Sub Form_Unload(Cancel As Integer)
Open App.Path & "\out3.dat" For Output As #1
Print #1, Text1.Text
Close #1
End Sub
（2）已知出租车行驶不超过4公里时一律收费10元。超过4公里时分段处理，具体处理方式为：15公里以内每公里加收1.2元，15公里以上每公里收1.8元。在考生文件夹下有一个工程文件sjt4.vbp。程序的功能是：单击‘输入’按钮，将弹出一个输入对话框，接收出租车行驶的里程数；单击‘计算’按钮，则可根据输入的里程数计算应付的出租车费，并将计算结果显示在名称为Text1的文本框内。
文件中已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的？改为正确的内容。
Dim s As Integer
Private Sub Command1_Click()
s = Val(InputBox("输入里程数（单位：公里）"))
End Sub
Private Sub Command2_Click()
If s > 0 Then
'Select Case ? ***** s *****
Case Is <= 4
'? ***** f=10 *****
Case Is <= 15
'f = 10 + ? ***** (s-4)*1.2 *****
'Case ?
'f = 10 + ? + (s - 15) * 1.8 ***** 13.2 *****
End Select
Text1.Text = f
Else
MsgBox "请单击“输入”按钮输入里程数！"
End If
End Sub
第03套综合应用题（新模18）
在考生文件夹下有一个工程文件sjt5.vbp，窗体上有二个标题分别是“读数据”和“统计”的命令按钮。请画二个标签，名称分别为Label1和Label2，标题分别为“出现次数最多的字母是”和“它出现的次数为”；再画二个名称分别为Text1和Text2，初始值为空的文本框，
2）单击“统计”按钮，则自动统计in5.dat文件中所含各字母（不区分大小写）出现的次数，并将出现次数最多的字母显示在Text1文本框，它所出现的次数显示在Text2文本框内。
“读数据”按钮的Click事件过程已经给出，请为“统计”按钮编写适当的事件过程实现上述功能。
注意：考生不得修改窗体文件中已经存在的控件和程序，在结束程序运行之前，必须进行统计，且必须用窗体右上角的关闭按钮结束程序，否则无成绩。最后，程序按原文件名存盘。
Option Base 1
Dim s As String
Private Sub Command1_Click()
Open App.Path & "\in5.dat" For Input As #1
s = Input(LOF(1), #1)
Close #1
End Sub
Private Sub Command2_Click()
' ***** 考生编写的程序*****
Dim n(26) ,i, k as integer
For i=1 to 26
n(i)=0
Next i
For i=1 to len(s)
K=asc(lcase(mid(s,i,1)))-asc(“a”)+1
If k>0 and k<=26 then
\ n(k)=n(k)+1
End if
Next i
K=1
For i=2 to 26
If n(i)>n(k) then
K=i
End if
Next i
Text1.text=chr((asc(“a”)+k-1)
Text2.text=n(k)
***** End Sub *****
Private Sub Form_Unload(Cancel As Integer)
Open App.Path & "\out5.dat" For Output As #1
Print #1, Text1.Text, Text2.Text
Close #1
End Sub
第04套简单应用题（新模60）
（1）在考生文件夹下有一个工程文件sjt3.vbp，窗体上有一个单选按钮数组，含三个单选按钮；还有一个标题为“显示”的命令按钮。程序的功能是，在运行时，如果选中一个单选按钮并单击“显示”按钮，则在窗体上显示相应的信息，例如若选中“小学生”，则在窗体上显示“我是小学生”。
要求：去掉程序中的注释符，把程序中的？改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分，也不能修改控件的属性。最后把修改后的文件以原来的文件名存盘。
Private Sub C1_Click()
' For i = ? To ? ***** 0 to 2 *****
' If ? = True Then ***** op1(i).value *****
' Print "我是" + Op1(i).? ***** caption *****
End If
Next
End Sub
（2）在考生文件夹下有一个工程文件sjt4.vbp，相应的窗体文件为sjt4.frm。窗体上有一个名称为command1的命令按钮和一个名称为Timer1的计时器。请在窗体上画一个标签（名称为Label1，标题为“请输入一个正整数”），再画一个文本框（名称为Text1，初始内容为空白）。已经给出了相应的事件过程。程序运行后，在文本框中输入一个正整数，此时如果按回车键，则可以使文本框中的数字每隔0.3秒减1（倒计数）；当减到0时，倒计数停止，清空文本框，并把焦点移到文本框中。
要求：去掉程序中的注释符，把程序中的？改为正确的内容，使其能正确的运行，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
' If Val(?) = 0 Then ***** text1.text *****
Text1.Text = ""
' Timer1.? = False ***** enabled *****
' Text1.? ***** text=val(text1.text)-1 *****
Else
Text1.Text = Str(Val(Text1.Text) - 1)
End If
End Sub
第04套综合应用题（新模60）
在考生文件夹下有一个工程文件sjt5.vbp和随机文件in5.txt，文件中的每个记录包括3个字段，分别为姓名、电话号码和邮政编码，其名称、类型和长度分别为：Name 字符串8
Tel 字符串10
Post Long
窗体中有一个文本框和两个命令按钮。程序运行后，如果单击“读入并显示记录”命令按钮，则从考生文件夹下的in5.txt文件中读入所有记录并显示在文本框中（每条记录占一行，数据项的顺序是姓名、电话、邮编、见图，可使用符号常量vbCrLf表示回车换行）；若单击“保存”按钮则把文本框中的内容存入out5.txt文件中。
要求：1）编写“读入并显示记录”按钮的Click过程。2）在文本框中把所有字母改为大写字母（可以手工修改）3）单击“保存”按钮把修改后的文本框内容存盘，否则无成绩！（过程已给出，不能修改）。最后以原文件名将程序存放在考生文件夹下。
Private Type PalInfo
Name As String * 8
Tel As String * 10
Post As Long
End Type
Dim pal As PalInfo
Private Sub Command2_Click()
ch$ = ""
For k = 1 To Len(Text1.Text)
C$ = Mid$(Text1.Text, k, 1)
If C$ >= "0" And C$ <= "9" Or C$ >= "a" And C$ <= "z" Or C$ >= "A" And C$ <= "Z" Then
ch$ = ch$ + C$
Open "out5.txt" For Output As #1
Print #1, ch$
Close #1
End Sub
Private Sub Command1_Click()
'***** 考生应编写的程序*****
Dim recordnum as integer
Open app.path & “\in5.txt” for random as #1 len=len(pal)
Recordnum=lof(1) / len(pal)
For i=1 to recordnum
Get #1,i,pal
Text1.text=text1.text+ucase(https://www.doczj.com/doc/fc11991687.html,)+pal.tel+str(pal.post)+chr(13)+chr(10)
Next i
Close #1
***** End Sub *****
第05套综合应用题（新模69）
在考生文件夹下有一个工程文件sjt5.vbp，请先装入该工程文件，然后完成以下操作。
在名称为Form1的窗体上画三个命令按钮，其名称分别为C1、C2和C3，标题分别为“读入数据”、“计算”和“存盘”（如图所示）。程序运行后，如果单击“读入数据”按钮，则调用题目已提供的ReadData1和ReadData2过程读入datain1.txt和datain2.txt文件中的各20个整数，分别放入Arr1和Arr2两个数组中；如果单击“计算”按钮，则把两个数组中对应下标的元素相除并截尾取整后，结果放入第三个数组中（即：把第一个数组的第n个元素除以第二个数组的第n个元素，结果截尾取整后作为第三个数组的第n个元素。这里的n为1、2、。。。。。、20），最后计算第三个数组各元素之和，并把所求得的和在窗体上显示出来；如果单击“存盘”按钮，则调用题目中给出的WriteData过程将所求得的和存入考生文件夹下的dataout.txt文件中。
注意：考生不得修改窗体文件中已经存在的程序，必须把求得的结果用“存盘”按钮存入考生文件夹下的dataout.txt文件中，否则没有成绩。最后把修改后的文件以原来的文件名存盘。
Option Base 1
Dim Arr1(20) As Integer
Dim Arr2(20) As Integer
Sub ReadData1()
Open App.Path & "\" & "datain1.txt" For Input As #1
For i = 1 To 20
Input #1, Arr1(i)
Next i
Close #1
End Sub
Sub ReadData2()
Open App.Path & "\" & "datain2.txt" For Input As #1
For i = 1 To 20
Input #1, Arr2(i)
Next i
Close #1
End Sub
Sub WriteData(Filename As String, Num As Integer)
Open App.Path & "\" & Filename For Output As #1
Print #1, Num
Close #1
End Sub
***********以下为考生编写的程序***********
Call ReadData2
End sub
…定义一个声明语句：Dim Sum As integer
Private sub c2_click( )
Dim arr3(20) as integer
For i=1 to 20
Arr3(i)=int(arr1(i) / arr2(i))
Sum=Sum+arr3(i)
Next i
Num=0
Print Sum
End sub
Private sub C3_click( )
Call writeData(“dataout.txt” , sum)
***** End sub *****
第06套简单应用题（新模32）
（1）在考生文件夹下有一个工程文件sjt3.vbp。程序的功能是：在运行时，如果选中一个单选按钮和一个或两个复选框，则对文本框中的文字做相应的设置，如图所示。窗体上的控件已经画出，但没有给出主要程序内容，请编写适当的事件过程，完成上述功能。
注意：不能修改已经给出的程序部分和已有的控件；在结束程序运行之前，必须选中一个单选按钮和至少一个复选框，并单击“确定”按钮；必须通过单击窗体右上角的关闭按钮结束程序，否则无成绩。最后把修改后的文件按原文件名存盘。
Private sub command1_click( )
…***** 考生编写的程序如下：*****
If Op1.value = true then
Text1.fontname=Op1.caption
Elseif op2.value=true then
Text1.fontname=Op2.caption
End if
If ch1.value=1 then
Text1.fontunderline=true
Else
Text1.fontunderline=true
End if
If ch2.value=1 then
Text1.fontItalic=true
Else
Text1.fontitalic=false
End if
***** End sub *****
（2）在考生文件夹下有一个工程文件sjt4.vbp，窗体上已经画出所有控件，如图所示。在运行时，如果单击“开始”按钮，则窗体上的汽车图标每0.1秒向右移动一次（初始状态下不移动）；如果单击“停止”按钮，则停止移动。请完成以下工作：A．设置适当控件的适当属性，使得汽车图标每0.1秒向右移动一次，而初始状态下不移动；
B．请去掉程序中的注释符，把程序中的？改为正确的内容；
C．为两个命令按钮编写适当的事件过程。最后以原文件名存盘。
注意：不得修改已经给出的程序。编写的事件过程中不能使用变量，每个事件过程中只能有一条语句。
Private Sub C1_Click()
…***** 考生编写的程序如下：*****
Timer1.enabled=true
End Sub
Timer1.enabled=false
End Sub
Private Sub Timer1_Timer()
' P1.? P1.Left + 20 …****** Move *******
End Sub
第06套综合应用题（新模32）
在考生文件夹有一个工程文件sjt5.vbp，在窗体上给出了所有控件和不完整的程序，请去掉程序中的注释符，把程序中的？改为正确的内容。本程序的功能是：
如果单击“取数”按钮，则把考生目录下的in5.txt文件中的15个姓名读到数组a中，并在窗体上显示这些姓名；当在Text1中输入一个姓名，或一个姓氏后，如果单击“查找”按钮，则进行查找，若找到，就把所有与Text1中相同的姓名或所有具有Text1中姓氏的姓名显示在Text2中；（如图所示）若未找到，则在Text2中显示“未找到！”；若Text1中没有查找的内容，则在Text2中显示“未输入查找内容！”。
注意：考生不得修改程序的其他部分和控件的属性，最后把修改后的文件按原文件名存盘。
Dim a(15) As String
Private Sub C1_Click()
Dim k As Integer
Open "in5.txt" For Input As #1
Form1.Cls
For k = 1 To 15
Input #1, a(k)
Print a(k)
Next k
' Close ? ******** #1 *********
End Sub
Private Sub C2_Click()
Dim k As Integer, n As Integer, c As String
' n = Len( ? ) ******** Text1.Text ********
c = ""
If n > 0 Then
For k = 1 To 15
' If Left(a(k), ? ) = Text1.Text Then ********* n *********
' c = c + " " + ? ********* a(k) ********
End If
Next k
If c = "" Then
Text2.Text = "未找到！"
Else
' Text2.Text = ? ******** c ********
End If
Else
Text2.Text = "未输入查找内容！"
End If
End Sub
第07套综合应用题（新模70）
在考生文件夹下有一个工程文件sjt5.vbp，请先装入该工程文件，然后完成以下操作。
在名称为Form1的窗体上画三个命令按钮，其名称分别为C1、C2和C3，标题分别为“读入数据”、“计算”和“存盘”（如图所示）。程序运行后，如果单击“读入数据”按钮，则调用题目已提供的ReadData1和ReadData2过程读入datain1.txt和datain2.txt文件中的各20个整数，分别放入Arr1和Arr2两个数组中；如果单击“计算”按钮，则把两个数组中对应下标的元素相除并截尾取整后，结果放入第三
2、。。。。。、20），最后计算第三个数组各元素之和，并把所求得的和在窗体上显示出来；如果单击“存盘”按钮，则调用题目中给出的WriteData过程将所求得的和存入考生文件夹下的dataout.txt文件中。
注意：考生不得修改窗体文件中已经存在的程序，必须把求得的结果用“存盘”按钮存入考生文件夹下的dataout.txt文件中，否则没有成绩。最后把修改后的文件以原来的文件名存盘。
' 提供给考生的程序
Option Base 1
Dim Arr1(20) As Integer
Dim Arr2(20) As Integer
Sub ReadData1()
Open App.Path & "\" & "datain1.txt" For Input As #1
For i = 1 To 20
Input #1, Arr1(i)
Next i
Close #1
End Sub
Sub ReadData2()
Open App.Path & "\" & "datain2.txt" For Input As #1
For i = 1 To 20
Input #1, Arr2(i)
Next i
Close #1
End Sub
Sub WriteData(Filename As String, Num As Integer)
Open App.Path & "\" & Filename For Output As #1
Print #1, Num
Close #1
End Sub
…***** 考生编写的程序如下：*****
Private Sub C1_Click()
Call readdata1
Call readdata2
End Sub
…定义一个声明语句：dim num as integer
Private Sub C2_Click()
Dim arr3(20) as integer
For i=1 to 20
Arr3(i)=arr1(i) \ arr2(i)
Next i
Num=0
For i=1 to 20
Num=num+arr3(i)
Next i
Print num
End Sub
Private Sub C3_Click()
Call writedata(“dataout.txt” , num )
***** End Sub *****
第08套简单应用题（新模77）
2）从名称为List1的列表框中选中一项（如图所示）。
3）单击“计算”按钮，则可按该选项的要求计算出结果并放到文本框中。
4）单击窗体右上角的关闭按钮结束程序。
“读入数据”按钮的Click事件过程已经给出，请为“计算”按钮编写适当的事件过程实现上述功能。
Dim a(100) As Integer
Private Sub Command1_Click()
Dim k As Integer
Open "in3.dat" For Input As #1
For k = 1 To 100
Input #1, a(k)
Next k
Close #1
End Sub
Private Sub Command2_Click()
…***** 考生应完成的程序*****
Intmax=a(1)
Intmin=a(1)
For i=1 to 100
If intmax<=a(i) then
Intmax=a(i)
End if
If intmin>=a(i) then
Intmin=a(i)
End if
Next i
If list1.listindex=0 then
Text1.text=intmax – intmin
Elseif list1.listindex=1 then
Text1.text=intmax+intmin
Elseif list1.listindex=2 then
Text1.text=intmax * intmin
End if
***** End sub *****
Private Sub Form_Unload(Cancel As Integer)
Open "out3.dat" For Output As #1
Print #1, List1.ListIndex, Text1.Text
Close #1
End Sub
（2）在考生文件夹下有一个工程文件sjt4.vbp。窗体中的横线（横坐标）的名称为Line1，竖线（纵坐标）的名称为Line2；五个不同颜色的矩形是一个形状控件数组，名称为Shape1，它们的Visible属性都为False；从左到右的两个按钮的名称分别为Command1、Command2；另有一个有五个元素的标签数组，名称为Label1，其所有元素的Visible属性都为False。如图1所示。程序运行时，单击“输入5个数据”按钮，可输入五个整数（最好在100~2000之间），并作为刻度值显示在纵坐标的左面；单击“画直方图”按钮，则按五个数的输入顺序显示直方图。例如若输入的五个数是1200、500、800、1900、1500，则结果如图2所示。
文件中已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的？改为正确的内容。
注意：不能修改程序的其他部分和各控件属性。最后把
修改后的文件按原文件名存盘。
Dim s(5) As Integer
Private Sub Command1_Click()
' For k = ? To 5 ******** 1 *********
s(k) = Val(InputBox("input"))
Label1(k - 1).Caption = s(k)
Label1(k - 1).Move Line2.X1 - Label1(k - 1).Width, Line1.Y1 - s(k)
' Label1(k - 1).Visible = ? ******** true *********
Next k
End Sub
Private Sub Command2_Click()
Dim a As Integer
For k = 1 To 5
' Shape1(k - 1).Height = s( ? ) ********* k *********
' ? = Line1.Y1 ********* a *********
Shape1(k - 1).Top = a - Shape1(k - 1).Height
Shape1(k - 1).Visible = True
Next k
End Sub
第08套综合应用题（新模77）
在考生文件夹下有一个工程文件sjt5.vbp，已给出了所有控件（如图所示）和部件程序。程序运行时，请按以下顺序操作：
1）单击“读入文件”按钮，把考生目录下的文件in5.dat中的内容读入内存并显示在上面的文本框（Text1）中；
2）单击“加密”按钮，则可对Text1中的内容进行加密并显示在下面的文本框（Text2）中。
3）单击“存结果”按钮则把Text2中的内容存到out5.dat文件中。
加密规则：对于第奇数个字符，若是字母，则把它变为它后面的字符（若为‘Z’则变为‘A’），不是字母则不变；对于第偶数个字符，若是字母，则把它变为它前面的字符（若为‘A’则变为‘Z’），不是字母则不变。大小写字母都遵循规则。
例如：若原有的字符是：AbbaZG Ha-MnnK Yzx 则加密后的字符是，BaczAF Gb-Nmoj Xaw
已经给出“存结果”按钮的Click事件过程和函数isletter，函数isletter(a as string) 判断变量a中是否为一个字母，是则返回True，否则返回False，可以直接调用。请编写“读入文件”按钮和“加密”按钮的Click事件过程，以实现上述功能。（in5.dat文件中只含英文单词和空格，不分段落和行）
注意：考生不得修改已经存在的程序，必须用“存结果”按钮存储加密结果，否则无成绩。最后，按原文件名把程序存盘。
Dim s As String
Private Sub Command1_Click()
'***** 考生应完成的程序*****
Open “in5.dat” for input as #1
Input #1, s
Close #1
Text1.text=s
***** End sub *****
Private Sub Command2_Click()
'***** 考生应完成的程序*****
Stetemp2=””
For i=1 to len(s)
Ch=mid(s,i,1)
If i mod 2 <>0 then
If isletter(cstr(ch))=true then
Elseif ch=”z” then
Ch=”a”
Else
Ch=chr(asc(ch)+1)
End if
End if
Else
If isletter(cstr(ch))=true then
If ch=”A” then
Ch=”Z”
Elseif ch=”a” then
Ch=”z”
Else
Ch=chr(asc(ch)-1)
End if
End if
End if
Strtemp2=strtemp2+ch
Next i
Text2.text=strtemp2
***** End Sub *****
Function isletter(a As String) As Boolean
If "A" <= a And a <= "Z" Or "a" <= a And a <= "z" Then
isletter = True
Else
isletter = False
End If
End Function
Private Sub Command3_Click()
Open "out5.dat" For Output As #1
Print #1, Text2.Text
Close #1
End Sub
第09套简单应用题
（1）在考生文件夹下有一个工程文件sjt3.vbp，它包含两个名称分别为Form1和Form2的窗体，Form1和Form2窗体上建立了标题分别为“C1”和“C2”的按钮。请先把Form1上按钮的标题改为“结束”，把Form2上按钮的标题改为“显示”，并将Form2设为启动窗体，将Form1设为不显示。
该程序实现的功能是：在程序运行时显示Form2窗体，单击Form2上的“显示”按钮，则显示Form1窗体；若单击Form1上的“结束”按钮，则关闭Form1和Form2，并结束程序运行。
请去掉程序中的注释符，把程序中的？改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。正确程序运行后的界面如图所示。
Private Sub C2_Click()
' Load ? ***** form1 *****
' ? = True ***** form1.visible *****
End Sub
（2）在考生文件夹下有一个工程文件sjt4.vbp，窗体上有一个名为P1的图片框；一个单选按钮数组，含三个单选按钮，标题分别为“正
要求：1）原题中的单选按钮和命令按钮没有标题，请利用属性窗口依次添加单选按钮标题分别为“正方形”、“椭圆形”、“圆形”，添加命令按钮标题为“显示”。
2）去掉程序中的注释符，把程序中的？改为正确的内容，使其实现上述功能。
注意：不能修改程序中的其他部分，也不能修改控件的其他属性。最后把修改后的程序
以原文件名存盘。
Private Sub C1_Click()
Dim k As Integer
For k = 0 To 2
' If Op1(k).? = True Then ***** value *****
' Call draw(?) ***** k *****
End If
Next k
End Sub
Sub draw(a As Integer)
' P1.Print "选择了" & Op1(?).Caption ***** a *****
End Sub
第09套综合应用题
在窗体上画1个文本框，名称为Text1（可显示多行），然后再画三个命令按钮，名称分别为Command1，Command2和Command3，标题分别为“读数”，“统计”和“存盘”，如图所示。程序的其功能是：单击“读数”按钮，则把考生目录下的in5.txt文件中的所有英文字符放入Text1（可多行显示）；单击“统计”按钮，找出并统计英文字母I，j，k，l，m，n（不区分大小写）各自出现的次数；单击“存盘”按钮，将字母I到n出现次数的统计结果依次存到考生目录下的顺序文件out5.txt中。
***** 请考生编写程序*****
Private sub command1_click( )
Open “in5.txt” for input as #1
Line input #1,str_temp
Close #1
For i=1 to len(str_temp)
Ch=mid(str_temp , i , 1)
If asc(ch)>=97 and asc(ch)<=122 or asc(ch)>=65 and asc(ch)<=90 then
Strch=strch+ch
End if
Next i
Text1.text=strch
End sub
Private sub command2_click( )
Strch=text1.text
intI=0
intJ=0
intK=0
intL=0
intM=0
intN=0
for i=1 to len(strch)
ch=mid(strch ,i , 1)
if ch=”I” or ch=”i” then
intI=intI+1
elseif ch=”J” or ch=”j” then
intJ=intJ+1
elseif ch=”L” or ch=”l” then
intL=intL+1
elseif ch=”M” or ch=”m” then
intM=intM+1
elseif ch=”N” or ch=”n” then
intN=intN+1
end if
next i
End sub
Private sub command3_click( )
Open “out5.txt” for output as #1
Print #1,intI; intJ; intK; intL; intM; intN
Close #1
***** End sub *****
第10套简单应用题（新模76）
（1）在考生目录下有一个工程文件sjt3.vbp。窗体上有三条直线，是一个数组，数组的名称为Line1。在运行时，用鼠标单击其中一条线的任何位置，则以单击的点为起始点，画一个正弦曲线（如图所示）；若鼠标单击在直线之外，则不画正弦曲线。
文件中已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的？改为正确的内容。文件中的drawsin过程的作用是画一条正弦曲线，可以直接调用。
注意：不能修改程序中的其他部分和各控件的属性。最后把修改后的文件按原文件名存盘。
Sub drawsin(X, Y)
Dim y1 As Integer, x1 As Integer
For x1 = X To X + 1000 Step 5
y1 = Y - Int(300 * Sin((x1 - X) * 3.14 / 500))
Circle (x1, y1), 8
Next x1
End Sub
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim k As Integer
' For k = ? To 2 ***** 0 *****
' If Y = Line1(k). ? Then ***** y1 *****
' Call drawsin(?, Y) ***** x *****
End If
Next k
End Sub
（2）在考生文件夹下有一个工程文件sjt4.vbp。窗体上有三个文本框Text1、Text2、Text3，其中Text3可显示多行，并已经输入了内容（如图所示），Text1用来输入要查找的内容，Text2用来输入要替换的新内容。程序运行时，在Text1、Text2中输入文字，单击“替换”按钮，则在Text3中找到Text1中的内容，并用Text2中的内容替换，若未找到，则不替换。此外窗体上还有两个单选按钮，名称依次为Option1、Option2，标题依次为“第1个”和“全部”。程序运行后，若Option1被选中，则只替换Text3中第一个匹配的字串，若Option2被选中，则替换Text3中所有匹配的字串。
在窗体文件中已经给出了全部控件，但程序不完整，要求去掉程序中的注释符，把程序中的？改为正确的内容。
不能修改程序中的其他部分和控件的属性。最后把修改后的文件按原文件名存盘。
Private Sub Command1_Click()
Dim k As Integer, m As Integer
m = Len(Text1.Text)
' k = ? ***** 1 *****
Do
a = InStr(k, Text3.Text, Text1.Text)
' Text3.SelLength = Len( ? ) ***** text2.text *****
' Text3.SelText = ? .Text ***** text2.text *****
If Option1.Value = True Then
Exit Do
End If
k = a + m
End If
Loop Until a = 0
End Sub
第10套综合应用题（新模76）
在考生目录下有一个工程文件sjt5.vbp，其功能是：单击“读数据”按钮，则把考生目录下的文件in5.dat中的100个整数读到数组a中；单击“计算”按钮，则找出其中与所有数的平均值（平均值截尾取整）最接近的整数，放到文本框中；单击“存盘”按钮则把计算结果存盘。窗体中给出了所有控件（如图所示）和“读数据”按钮及“存盘”按钮的Click事件过程，请为“计算”按钮编写适当的事件过程实现上述功能。
注意：不得修改已经存在的程序，在结束程序运行之前，必须用“存盘”按钮存储计算结果，否则无成绩。最后，程序按原文件名存盘。提示：与平均值最接近的数可能大于也可能小于平均值。
Private Sub Command1_Click()
Dim i As Integer
Open "in5.dat" For Input As #1
For i = 1 To 100
Input #1, a(i)
Next i
Close #1
End Sub
Private Sub Command2_Click()
' ***** 考生完成*****
Sum=0
For i=1 to 100
Sum=sum+a(i)
Next i
Sum=int(sum / 100)
Min=1000
Temp=0
For i=1 to 100
If abs(sum-a(i))<=min then
Temp=a(i)
Min=abs(sum-a(i))
End if
Next i
Text1.text=temp
***** End Sub *****
Private Sub Command3_Click()
Open "out5.dat" For Output As #1
Print #1, Text1.Text
Close #1
End Sub
第11套简单应用题（新模75）
（1）在考生目录下有一个工程文件sjt3.vbp，窗体上给出了一个文本框Text1和两个命令按钮，命令按钮的标题分别是“读文件”、“计
程序运行时，请按以下顺序操作：
1）单击“读文件”按钮，可把考生目录下的文件in3.dat中的所有内容读到变量s中（此事件过程已经给出）；
2）选中一个单选按钮
3）单击“计算”按钮，则可按选中的单选按钮的标题要求对s中的字符进行计算，结果放到文本框中（要求考生编写程序）。
4）单击窗体右上角的关闭按钮结束程序。
“读文件”按钮的Click事件过程已经给出，请为“计算”按钮编写适当的事件过程实现上述功能。
注意：考生不得修改窗体文件中已经存在的程序，在结束程序运行之前，必须进行一次计算，并且必须用窗体右上角的关闭按钮结束程序，否则无成绩。最后，按原文件名存盘。
Dim s As String
Private Sub Command1_Click()
Open "in3.dat" For Input As #1
s = Input$(LOF(1), #1)
Close #1
End Sub
Private Sub Command2_Click()
' ***** 考生应完成的程序*****
For i=1 to len(s)
Ch=mid(s , i , 1)
If ch>=”A” and ch<=”Z” then
a=a+1
elseif ch>=”a” and ch<=”z” then
b=b+1
End if
Next i
If option1.value=true then
Text1.text=abs(a-b)
Elseif option2.value=true then
Text1.text=a+b
Elseif option3.value=true then
Text1.text=a*b
End if
***** End Sub *****
Private Sub Form_Unload(Cancel As Integer)
Open "out3.dat" For Output As #1
Print #1, Option1.Value, Option2.Value, Option3.Value, Text1.Text
Close #1
End Sub
（2）在考生目录下有一个工程文件sjt4.vbp，其窗体左部的图片框的名称为Picture1，框中还有六个有香蕉图案的小图片框，它们是一个数组，名称为pic，在窗体右部有一个香蕉图案的图片框，名称为Picture2，如图1所示。
程序运行时，有六个香蕉图案的小图片框不显示。可以用鼠标拖拽的方法把右部的香蕉放在左部的图片框中（右部的香蕉不动），如图2所示。左部的图片框最多可放六个香蕉。
实现此功能的方法是：刚运行程序时，图片框数组不显示，当拖拽一次香蕉时，就显示一个图片框数组元素，产生香蕉被放入的效果。
文件中已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的？改为正确的内容。
注意：考生不得修改工程中已经存在的内容和控件属性，最后把修改后的文件按原文件名存盘。
Private Sub Picture1_DragDrop(Source As Control, X As Single, Y As Single)
' For k = ? To 5 ***** 0 *****
' If Pic(k).Visible = ? Then ***** false *****
' Pic(k). ? = True ***** visible *****
Next k
End Sub
第11套综合应用题（新模75）
在考生文件夹下有一个工程文件sjt5.vbp，其中文本框Text1用于显示五个学生的六门课成绩；右边的五个文本框是一个数组，名称为Text2，用于显示每个学生的平均分；下方的六个文本框是一个数组，名称为Text3，用于显示每门课的平均分。
程序的功能是：单击“读入文件”按钮，则把考生文件夹下in5.dat中的姓名和成绩分别读到数组n和a中；单击“每人平均分”按钮，则计算每个学生的平均分，并显示在Text3数组中，所有平均分的值均四舍五入取整或截尾取整；单击“存结果”按钮，则把Text2，Text3中的所有平均分存入out5.dat文件中。
窗体中给出了所有控件（见图所示）和“读入文件”、“存结果”按钮的Click事件过程，请为“每人平均分”按钮和“每科平均分”按钮编写适当的事件过程，实现上述功能。
注意：不能修改已经存在的程序；在结束程序运行之前，必须用“存结果”按钮存储计算结果，否则无成绩。最后，程序按原文件名存盘。
Dim a(5, 6) As Integer, n(5) As String
Private Sub Command1_Click( )
Open "in5.dat" For Input As #1
Text1 = ""
For i = 1 To 5
Input #1, n(i)
Text1 = Text1 + n(i)
For j = 1 To 6
Input #1, a(i, j)
Text1 = Text1 + " " + Str(a(i, j))
Next j
Text1 = Text1 + Chr$(13) + Chr$(10) + Chr$(13) + Chr$(10)
Next i
Close #1
End Sub
Private Sub Command2_Click( )
' ***** 考生编写*****
For i=1 to 5
Avg_temp=0
For j=1 to 6
Avg_temp=avg_temp+a(i,j)
Next j
Text2(i-1).text=int(avg_temp / 6)
Next i
***** End Sub *****
Private Sub Command3_Click()
' ***** 考生编写*****
For i=1 to 6
Avg_temp=0
For j=1 to 5
Avg_temp=avg_temp+a(j,i)
Next j
Text3(i-1).text=int(avg_temp / 5)
Next i
***** End Sub *****
Private Sub Command4_Click()
Print #1, Text2(k).Text
Next k
For k = 0 To 5
Print #1, Text3(k).Text
Next k
End Sub
第12套简单应用题
（1）在考生文件夹下有一个工程文件sjt3.vbp，相应的窗体文件为sjt3.frm。其功能是产生20个0~1000的随机整数，放入一个数组中，然后输出这20个整数的平均值。程序运行后，单击命令按钮（名称为Command1，标题为“输出平均值”），即可求出其平均值，并在窗体上显示出来（如图所示）。这个程序不完整，请把它补充完整，并能正确运行。
要求：去掉程序中的注释符，把程序中的？改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。
Private Sub Command1_Click()
Dim arrN(20) As Integer
Dim Aver As Single
Dim Sum As Integer, i
Randomize
For i = 1 To 20
' arrN(i) = Int(Rnd * ?) ***** 1000 *****
Next i
' Sum = ? ***** 0 *****
For i = 1 To 20
' Sum = ? ***** sum+arrN(i) *****
Next i
' Aver = ? ***** sum / 20 *****
Print Aver
End Sub
（2）在考生文件夹下有一个工程文件sjt4.vbp，相应的窗体文件为sjt4.frm，在窗体上有一个命令按钮和一个文本框。程序运行后，单击命令按钮，即可计算出0~200范围内能被3整除的所有整数的和，并在文本框中显示出来。在窗体的代码窗口中，已给出了部分程序，其中计算能被3整除的整数的和的操作在通用过程Fun中实现，请编写该过程的代码。
要求：请勿改动程序中的任何内容，只在Function Fun( )和End Function之间填入你编写的若干语句。最后把修改后的文件按原文件名存盘。
Sub SaveData()
Open App.Path & "\" & "outtxt.txt" For Output As #1
Print #1, Text1.Text
Close #1
End Sub
***** Function Fun() *****
For i=0 to 200
If i mod 3=0 then
Fun=fun+i
End if
Next i
***** End Function *****
Private Sub Command1_Click()
d = Fun()
Text1.Text = d
SaveData
在考生文件夹下有一个工程文件sjt5.vbp，相应的窗体文件为sjt5.frm，此外还有一个名为datain.txt的文本文件，其内容如下：
32 43 76 58 28 12 98 57 31 42 53 64 75 86 97 13 24 35 46 57 68 79 80 59 37
程序运行后单击窗体，将把文件datain.txt中的数据输入到二维数组Mat中，在窗体上按5行、5列的矩阵形式显示出来，然后交换矩阵第二列和第四列的数据，并在窗体上输出交换后的矩阵，如图所示。在窗体的代码窗口中，已给出了部分程序，这个程序不完整，请把它补充完整，并能正确运行。
要求：去掉程序中的注释符，把程序中的？改为正确的内容（可以是多行），使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。
Option Base 1
Private Sub Form_Click()
Const N = 5
Const M = 5
' Dim ? ***** mat(N,M) *****
Dim i, j, t
' Open App.Path & "\" & "datain.txt" ? As #1 ***** for input *****
For i = 1 To N
For j = 1 To M
' ? ***** input #1,mat(i,j) *****
Next j
Next i
Close #1
Print "初始矩阵为："
For i = 1 To N
For j = 1 To M
Print Tab(5 * j); Mat(i, j);
Next j
Next i
For i = 1 To N
t = Mat(i, 2)
Mat(i, 2) = Mat(i, 4)
' ? ***** mat(i , 4)=t *****
Next i
Print "交换第二列和第四列后的矩阵为："
For i = 1 To N
For j = 1 To M
Print Tab(5 * j); Mat(i, j);
Next j
Next i
End Sub
第13套简单应用题（新模65）
（1）在考生文件夹下有一个工程文件sjt3.vbp，其窗体上有一个名称为Text1的文本框；一个名称为L1的列表框；一个命令按钮，名称为C1，标题为“添加”（如图所示）。程序的功能是，在运行时，如果在文本框中输入一行内容单击“添加”按钮，则把文本框中的内容作为列表项添加到列表中。如果单击列表中的某一项，则立即从列表中删除该项。
Word上机试题 图文混排（共6题，每题15分） 第1 题：分别用文本框和竖排文本框排版下面的回文诗： 春 花朵几枝柔傍砌，柳丝千缕细摇风。 霞明半岭西斜月，月上孤村一树松。 参考结果： 华文楷体，小二号字，红色，阴文，华文楷体，小二号字，红色，阳文，居居中对齐，无边框，背景用“羊皮纸”中对齐，无边框，背景用“白色大理石” 填充。填充。 -------------------------------------------- 测试区------------------------------------------------------------
--------------------------------------------------------------------------------------------------------------------
参照下图画一个卡通太阳： 提示：用自选图形画一个太阳，设置填充颜色和填充效果，再用自选图形画一个笑脸，设置填充颜色和填充效果，将笑脸和太阳叠放在一起，再用组合功能把两张图形组合在一起。 --------------------------------------------------------------------------------------------------------------------
把该图片装入Word，为它添加标注。抓取的图片方法参照文章：如何在屏幕上抓图 -------------------------------------------- 测试区------------------------------------------------------------ --------------------------------------------------------------------------------------------------------------------
WORD上机操作题档 WORD上机操作题 2006-11-20 17:23 以下为WORD上机操作题，红色文字为操作，请把黑色部分文字或表格复制到 一空白WORD文档中进行操作。 第一题 1、将第一段“在当今信息时代，计…”的行间距设置为“固定值”、“20磅” 2、将文档的标题“前言”设置为“加粗” 3、将文档的第二段“目前，在我们的教师队伍中…”与第三段“计算机辅助教学，在现…”的内容交换位置 4、将文档中的“计算机辅助教学”全部都替换为“CAI” 5、在文档最后创建一个3×3的空表格 前言 在当今信息时代，计算机技术及其应用以一种文化形态渗入人们工作和生活的各个领域，并成为衡量一个社会现代化程度高低的重要标志。在这种情况下，广大教师作为社会文明的传播者和现代化人才的培养者，他们对计算机知识的掌握、运用以及相关素质的状况，不仅关系到下一代能否适应社会发展的需要，而且在很大程度上也直接影响到我国的现代化进程。 目前，在我们的教师队伍中，应用计算机辅助教学的能力尚处于一个较低水平，有些教师虽然进行了初步的计算机知识培训，掌握了一定的计算机基础知识，但由于所学知识的针对性较差，在教学过程中无法实践，以致学用脱节。毫无疑问，要尽快改变这种现状就应该在近阶段提高广大教师的素质。
计算机辅助教学，在现代化教学过程中用途最广，并将逐步成为教师在教学中的得力工具。长期以来，计算机辅助教学的课件大多由计算机专业人员制作开发，而在教学中最有发言权的教师的主观能动性却没有发挥出来。事实上，教师应成为开发和应用教学辅助软件的主要力量，没有教师参与开发和使用辅助教学软件，计算机在教育领域中的作用不可能真正发挥出来。有关专家对目前教学软件状况所作的“数量不少，缺乏精品，实用性差”的评价充分说明了这一点。要使情况得到根本转变，加强教师计算机辅助教学知识的培训十分必要。 第二题 1、将第一段“在当今信息时代，计…”的行间距设置为“固定值”、“20磅” 2、将文档的标题“前言”设置为“居中”对齐方式 3、将文档的标题“前言”设置为“黑体”、“三号” 4、将第二段“目前，在我们的教师队伍中，………”首行缩进两个汉字(0.75厘米，不能使用空格代替缩进) 5、删除表格中的最后一行 前言 在当今信息时代，计算机技术及其应用以一种文化形态渗入人们工作和生活的各个领域，并成为衡量一个社会现代化程度高低的重要标志。在这种情况下，广大教师作为社会文明的传播者和现代化人才的培养者，他们对计算机知识的掌握、运用以及相关素质的状况，不仅关系到下一代能否适应社会发展的需要，而且在很大程度上也直接影响到我国的现代化进程。 目前，在我们的教师队伍中，应用计算机辅助教学的能力尚处于一个较低水平，有些教师虽然进行了初步的计算机知识培训，掌握了一定的计算机基础知识，但由于所学知识的针对性较差，在教学过程中无法实践，以致学用脱节。毫无疑问，要尽快改变这种现状就应该在近阶段提高广大教师的素质。
Word 基本操作练习题 1.字处理题 请在"考试项目"菜单上选择"字处理软件使用"菜单项，完成以下内容： ******本题型共有1小题****** 在考生文件夹中，存有文档WT1.DOC，其内容如下： 【文档开始】 本专业培养目标是计算机专业的技术应用型人才，他们应该掌握计算机软件、硬件及系统的基本理论、基本方法和基本技能，能够从事计算机及相关领域应用技术工作、软、硬件维护、和一般应用系统的开发及设计，他们应该具有专业化计算机人的素质，是全面发展的社会主义建设人才。 【文档结束】 按要求完成下列操作： （1）请将Word文档WT1.DOC设成楷体、小三号字并加粗、斜体。 （2）设置A4（210mm×297mm）纸张大小，左右边距设置为2.5厘米，页眉2.2厘米，其余页面设置的参数不必修改。保存文件为WD1.DOC。 2.请在"考试项目"菜单上选择"字处理软件使用"菜单项，完成以下内容： ******本题型共有4小题****** 1. 在考生文件夹中，存有文档WT 2.DOC，其内容如下： 【文档开始】 面向对象方法基于构造问题领域的对象模型，以对象为中心构造软件系统。它的基本方法是用对象模拟问题领域中的实体，以对象间的联系刻画实体间的联系。因为面向对象的软件系统的结构是根据问题领域的模型建立起来的，而不是基于对系统应完成的功能的分解，所以，当对系统的功能需求变化时并不会引起软件结构的整体变化，往往仅需要一些局部性的修改。例如，从已有类派生出一些新的子类以实现功能扩充或修改，增加删除某些对象等等。总之，由于现实世界中的实体是相对稳定的，因此，以对象为中心构造的软件系统也是比较稳定的。 【文档结束】 按要求完成下列操作：新建文档WD2.DOC，插入文件WT2.DOC的内容，设置为小四号仿宋_GB2312字体，分散对齐，所有"对象"设置为黑体、加粗，存储为文件WD2.DOC。 2. 新建文档WD2A.DOC，插入文件WD2.DOC的内容，将正文部分复制2次，将前两段合并为一段，并将此段分为3栏，栏宽相等，栏宽为 3.45厘米，栏间加分隔线。存储为文件 WD2A.DOC。 3. 制作3行4列表格，列宽2厘米，行高1厘米。填入数据，水平方向上文字为居中对齐，数 4. 并将第4行设置为黄色底纹，统计1、2、3列的合计添加到第4行，存储为文件WD2C.DOC。 请在"考试项目"菜单上选择"字处理软件使用"菜单项，完成以下内容： ******本题型共有2小题****** 3. 在指定文件夹下打开文档WT3.DOC，其内容如下： 【文档开始】
Word比赛题 考试时间：40分钟； 考试地点：矿综合办公室（比赛使用电脑采用抽签决定） 在桌面新建一个文件夹，改成本人姓名，并按照要求完成下列排版操作。 第一部分文字排版题 打开桌面指定文档按照要求完成下列排版 一、封面设计（5分） 在文档第一页插入一张封面，要求美观大方，可以有创意。 要求：标题、编制单位、编制时间正确；版面美观，每错一处扣1分。（5分扣完为止） 二、页面设置（5分） 要求：有页眉、页脚、边距，封面不能出现页眉、页脚、页码，排版位置正确，每错一处扣1分。(5分扣完为止) 三、正文设计（15分） 要求：1、根据排版要求，设置2个题注的“样式”并根据排版标准对应
重新命名样式。（不设置样式的，扣5分；样式设置错误的，每一个扣2.5分，扣完5分为止） 2、正文有页眉、页脚；页码设为阿拉伯数字“1、2、 3、…”；章、节标题位置正确；字体字号、行间距正确；版面美观。（以上每错一处扣2分，扣完10分为止） 四、目录设计（10分） 要求：1、根据章节，在封页后面插入目录页（没有目录扣10分）。 2、目录有页眉，无页码；章、节标题位置正确；字体字号正确；版面美观。（每错一处扣2分，扣完10分为止） 五、其他要求（15分） 1、文档总体排版美观度（5分）。 2、将排好的文档，改名为：“一通三防”岗位责任制”，扩展名为DOCX 的2007格式文档，存入考生所建的文件夹。（5分） 3、将排好的文档，改名为：“一通三防”岗位责任制”，扩展名为DOC 的2003兼容格式文档，存入考生所建的文件夹。（5分） 第二部分word表格题 使用word制做出下图所示表格。 一、要求 纸张大小设置为A4，方向纵向，表头为宋体二号加粗并居中，表格行高为1cm,表格中字体为宋体五号，单倍行距，所有字体上下左右均是居中。并以“员工综合信息登记表.doc”保存在考生所建的文件夹中。 二、分值（20分） 1、每错一处（包括错别字）扣2分，扣完10分为止。 2、排版美观度10分。
2015学年北京企业管理研修学院 新思维全网创业班期末考试试卷 Microsoft Office Word （上机部分） 注意事项：1、本科分笔试部分和上机部分。总分100分，笔试部分50分。 2、本科上机部分满分50分。 3、新建一个文档操作下列各题。 Word 操作题一：（共20分） 网络发展面临的挑战 1、网络投资 近来,网络投资日渐升温,有一种说法认为,目前中国网络热潮已经到来,如果发展符合,“中国有可能做到网络第一”。但是很多专家认为,网络接入存在瓶颈,内容提供少得可怜,仍然制约着网络的推进与发展,其实真正的赢利方式以及不同运营之间的利益分配比例,都有待于进一步的探讨和实践。 2、网络接入热潮原因 中国出现网络接入热潮，很大一个原因是由于以太网不像中国电信骨干网或者有线电视网那样受到控制，其接入谁都可以做，而国家目前却没有相应的法律法规来管理。房地产业的蓬勃发展的兴起以及互联网用户的激增，都为网络市场提供了一个难得的历史机会。 3、Office 办公 Microsoft Office 首开办公集成软件之先河，深受广大用户的钟爱，至今青睐有加。它将极富特色的应用程序有机地集成到一起，浑然天成，而且更胜一筹。 所有这一切归结为最根本的一点：Microsoft Office 使您可以方便地极尽软件所能，集
Word操作题二：（共10分） 在文档建立如下的表格： 1、插入一个8行7列表格。 2、调整行高与列宽： 第一行行高为22磅、第4、7行行高为5磅；其余均为35磅。 第一列列宽为1厘米、第二列列宽为2厘米；其余各列1.4厘米。 4、按表样所示合并单元格； 5、按要求填充颜色： 左上角单元格：绿色. 第4、7行：红色 第一列：20%灰色. 第1行、第2列：黄色. 6、设置表格线：周边粗线1.5磅；其余细线0.5磅. Word操作题三：（共20分） 按下列要求操作： 1、录入文字，如下图“样张”所示。 2、将“计算N！的算法”设置为艺术字，楷体40号，加粗，居中，如样张所示。 3、将Step1～Step5设置为项目符号，项目符号缩进2字符，文字的起始位置为4字 符。字体设置为黑体小四号。 4、在文中插入自选图形，如样张所示。 5、“开始”和“结束”为圆角矩形，宽2cm高0.8cm，填充颜色为浅绿色，透明度50％， 边框线为1磅绿色； 6、平行四边形宽3cm高0.8cm，边框线为3磅蓝色双线； 7、其它矩形宽3cm高0.8cm； 8、菱形宽4高1cm，其内部文本框上下内部边距为0cm。 9、所有的自选图形中的文字居中对齐。使用连接符在自选图形中进行连接，箭头使用箭头1（最小的箭头），粗细1磅。 10、将自选图形的圆角矩形、矩形、菱形和平行四边形水平居中对齐（图形的中心线 在一条直线上），并将该图形组合为一个整体。 11、将画布的版式设置为四周型。 12、加入如样张所示的表格，表格宽度为6cm，将表格的版式设置为环绕型，使表格置 于流程图右侧。第一行和最后一行的单元格填充色为浅绿色，与相邻行的分割线为双线。第一行中的文字加粗。
WORD上机操作试题 试题一（ 25 分） 请在“答题”菜单上选择“字处理”命令，然后按照题目要求再打开相应的命令， 完成下面的内容。具体要求如下： * * * * * * *本套题共有5小题* * * * * * * 1.在考生文件夹下打开文档，其内容如下： 【文档开始】 甲A 第 20 轮前瞻 戚务生和朱广沪无疑是国产教练中的佼佼者，就算在洋帅占主导地位的甲Ａ，他俩也出尽 风头。在他们的统领下，云南红塔和深圳平安两队稳居积分榜的前三甲。朱、戚两名国产 教练周日面对面的交锋是本轮甲Ａ最引人注目的一场比赛。本场比赛将于明天下午 15:30 在深圳市体育中心进行。 红塔和平安两队在打法上有相似的地方，中前场主要靠两三名攻击力出众的球员去突击， 平安有堤亚哥和李毅，红塔也有基利亚科夫。相比之下，红塔队的防守较平安队稳固。两 队今年首回合交手，红塔在主场 2:1 战胜平安。不过经过十多轮联赛的锤炼，深 圳队的实力已有明显的提高。另外，郑智和李建华两名主将的复出，使深圳队如虎添翼。这场比赛的结果对双方能否保持在积分第一集团都至关重要。现在红塔领先平安两分，但平安少赛一轮，而且红塔下轮轮空。红塔队如果不敌平安，红塔将极有可能被踢出第 一集团。对平安队来说，最近两个客场一平一负，前进的脚步悄然放慢。本轮回到主场，只有取胜才能继续保持在前三名。 2002赛季甲 A 联赛积分榜前三名 ( 截止到 19 轮) 名次队名场次胜平负进球数失球数积分 1大连实德1911443620 2深圳平安189632913 3北京国安199642819 【文档结束】
按要求完成以下操作并原名保存： （1）将段文字（“甲 A 第 20 前瞻”）置三号、色、仿宋_GB2312（西文使用中文字体）、居中、加色方框，段后距行。（6 分，置一个得 1 分）（2）将正文各段（“戚生??前三名。”）置挂 2 字符，左右各1字符，行距倍行距。（3 分，置一个得 1 分） （3）置面型“ A4”。（2 分） （4）将文中最后 4 行文字成一个 4 行 9 列的表格，并在“ 分” 列按公式“ 分 =3* +平” 算并入相内容。（8 分，每行正确得 2 分） （5）置表格第 2 列、第 7 列、第 8 列列 1.7 厘米，其余列列行高 0.6 厘米、表格居中；置表格所有文字中部居中；置所有表格1 厘米，0.75 磅 色双窄。（6分，置一个步得 1 分） 试题二（ 25 分 , 提示：文件在素材目录中） 入考生文件中的文件，参考按下列要求行操作。 1.置面型自定大小，度 20 厘米，高度 26 厘米；（2 分，高正确各得 1 分） 2.文章加“黄河的今天与明天” ，置其格式：文新魏、一号字、色、居中，填充灰色 -25%的底；（2 分，加 1 分，置正确 1 分） 3.将正文第一段置首字下沉 3 行，首字字体楷体、色，其余段落置首行 2 字符；（ 2 分，首字置正确 1 分，其余段落置正确 1 分） 4.参考，在正文第二段适当位置以四周型方式插入片，并置片高 度 4 厘米，度 6 厘米；（2 分，插入片正确 1 分，置正确 1 分） 得 5.将正文中所有的“黄河” 置加粗、色、着重号；（2分，全部改来2 分，有漏得 1 分） 6.参考，在正文适当位置插入排文本框“保母河”，置其条金色、 1.5 磅，方式四周型、右，置文字格式文行楷、二号字、色；（ 2 分，插入正确 1 分，置正确 1 分） 7.将正文最后一段分等的两，不加分隔；（2 分） 8.根据提供的数据，制作如所示表，具体要求如下： (1)将文件中的数据 Excel 工作表，要求自第一行第一列开始存放，工作表命名 “沙量” ；（ 2 分） (2)在“沙量”工作表中，将 A1:D1 元格区域合并及居中，并置其中文字格式黑体、16 号字、色；（2 分，全部正确得 2 分，有漏 1 分）
Word上机操作题 注意事项： 1、上机考试时间5分钟。 2、自行在桌面以自己名字命名文件夹，将以下生成的文档存入该 文件夹中。 第一题，对素材一操作要求如下(新建一个文档名为“第一 题.doc ”) (1) 设置第一段首字下沉，第二段首行缩进两个字符。 (2) 将第一段(除首字)字体设置为“宋体”，字号设置为“五号”。 (3) 将第二段字体设置为“方正舒体”，字号设置为“四号”，加双横线下划线。 (4) 在该页插入页眉页脚均输入“书记员的一项重要的工作是整理和装订案卷”。将文本“每一个案子都是非常重要的” 作为水印插入文档，水印格式版式“斜式”颜色为“黄色”其他均为默认。 《素材一》 书记员的一项重要的工作是整理和装订案卷，做好归档工作。对于新入职的书记员来说，装订案件前熟悉卷宗装订顺序是非常有必要的，必须按着装订目录来装订，熟悉了目录，才能事半功倍，节约时间。此外，案卷装订要及时，由于每一个案子都是非常重要
的，为防止案卷里的证据丢失，因此案卷装订要做及时高效。 案卷装订要细心，装订的程序即使你已经进行数十次甚 至成百上千次，但是一旦不注意，或发生少放一张纸、或页码错乱等情况，则导致白做工。案卷装订还要有责任心，不能把它当作订成一本小册子就行，要谨记里面装订是当事人的诉求，法官的审判。 第二题，将素材二按要求排版。(新建一个文档名为”第二 题.doc ”) (1) 、将标题字体设置为“华文行楷”，字形设置为“常规”，字号设置为“小初”、选定“效果”为“空心字”且居中显示。(2) 、将佚名”的字体设置为“隶书”、字号设置为“小三”，文字右对齐加双曲线边框，线型宽度应用系统默认值显示。且首行缩进两个字符。 (3) 将正文行距设置为25磅。将文本“职业道德”作为水印插入文档，水印格式版式”斜式”其他均为默认。 (4) .将全文中的“书记员”加粗，并设置为斜体，颜色为红色。 《素材二》书记员的职业道德 佚名 作为书记员，更重要的要具备良好的职业道德。尽管书记员在审判工作中起着的是辅助作用，但是每个案子都会涉及他人、集体甚至国家的利益，因此书记员在记录时要客观真实，不能带主观臆断。
Word操作考试试题1 1在桌面上建一个新文件夹，命名为“***的考试”（10分） 2.打卡word文档，打一句话：我是马头回中的一名学生，我爱我的学校，我爱我的同学。（20分） 3.把上句复制五遍。（10分） 4.把全部正文字体为楷体，三号字，字的颜色为蓝色，给其中任一句加波浪形蓝色下划线。（15分） 5.把正文中的“爱”变为红色、36号字体、加粗倾斜。（5分） 6.给正文加一个题目：“回中人爱回中”，要求题目居中，一号字，黑体加粗，字的颜色为绿色。（15分） 7.把正文中的“学校”替换为“老师”。(10分) 8.在正文末尾处插入艺术字“我爱回中”。（5分） 9.把考试文档保存到新建的“***的考试”的文件夹里。（10分）
Word操作考试试题2 1在桌面上建一个新文件夹，重命名为“***的考试”。（10分） 2.打开word文档，打一句话：今天我以学校为荣，明朝学校以我为傲，走出校园文明言行，不要给学校抹黑。（20分） 3.把上句复制五遍。（10分） 4.把全部正文字体为宋体，小二号字，字的颜色为蓝色，给其中任一句加双实线红色下划线。（15分） 5.加一个题目：“学校主人翁”，要求题目居中，28号字，黑体加粗倾斜，字的颜色为红色。（15分） 6.把正文中的“文明言行”替换为“心系回中”。(10分) 7.在正文中间插入艺术字“学校是我家”。(10分) 8.把考试文档保存到新建的“***的考试”的文件夹里。(10分）
Word操作考试试题3 1在桌面上建一个新文件夹，重命名为“***的考试”。（10分） 2.打开word文档，打一句话：今日之学子，明日之祖国栋梁，为了中华民族的伟大复兴，努力读书吧！（20分） 3.把上句复制五遍。（10分） 4.把全部正文字体为仿宋体，24号字，字的颜色为蓝色，给其中任一句加虚线绿色下划线。（15分） 5.加一个题目：“读书报国”，要求题目居中，小一号字，黑体加粗倾斜，字的颜色为红色。（15分） 6.把正文中的“祖国”替换为“国家”。(10分) 7.在题目上方插入艺术字“心中有国”。(10分) 8.把考试文档保存到新建的“***的考试”的文件夹里。(10分）
Word2010上机操作练习考试题(1) 时尚生活护理之家 日用淘米水可用来洗手，擦拭家具，浇花，干净卫生，自然滋润；把旧报纸放在衣柜的底部不仅可以吸收水分，还可以吸收衣柜里的异味。也不要扔掉用过的面膜纸。用它擦拭珠宝、家具或皮带。它不仅会留下面膜纸的香味。干燥的茶渣可以在阳光下晒干制成茶枕，既舒适又有助于改善睡眠。 购物时，尽量自带环保袋，无论是免费的还是收费的塑料袋，减少使用；自带水杯，减少一次性杯子的使用。使用永久性筷子和饭盒，尽量避免使用一次性餐具。养成方便关掉电器电源的习惯，以免浪费电。尽量不要使用冰箱、空调和电风扇。热的时候可以用蒲扇或其他材料制成的扇子。 低碳生活绿色环保所谓“低碳生活”，就是将日常工作和休息时间消耗的能量降到最低，从而减少二氧化碳的排放。“低碳生活”可以理解为:减少二氧化碳排放是一种低能耗、低消耗、低支出的生活“节能减排”不仅是当今社会的流行语，也是人类未来的战略选择。 对于提高“节能减排”意识，简单易行地改变生活方式或消费习惯，共同减少全球温室气体(主要是二氧化碳)排放具有重要意义。“低碳生活”节能环保，有利于减缓全球变暖和环境恶化的步伐，势在必行减少二氧化碳排放和选择“低碳生活”是每个公民的责任。 1，两个文本的标题字体改为宋，字体大小设置为3号，粗体居中；2，第一个文本的字体改为楷体，字体大小设为小于4，加下划线，
字体颜色改为红色；3、第二个文字字体改为隶书，字体大小设为小四，使文字倾斜，背景颜色为绿色；4.在第一个文本中添加项目符号或数字；5.为第二个文本设置首行缩进，缩进值为2个字符；6.加宽第一个文本的字符间距，并将 设置为1.5磅。 7，将第二段文字的第一段调整为2倍行距，并将第二段调整为3倍行距
第1题 按下列要求操作： 1)录入文字，如样张所示。 2)将标题文字“掩耳盗铃”，字体设置为楷体小二号，居中显示，并为文字“掩耳盗 铃”设置蓝色阴影边框和淡蓝色底纹。 3)将“春秋时期”所在段落，设置为首字下沉，下沉行数3行，字体隶书（。 4)将“小偷找来一把大锤”所在段落设置为左缩进2字符，右缩进2字符，首行缩进 2字符，并加黑色边框线。 5)将“他越听越害怕”所在段落，行间距设置为倍行距，首行缩进2字符。 6)在“他越听越害怕”所在段落中插入图片，并将图片的 版式设置为紧密型，将图片放置在段落的中间。 7)将“他越听越害怕”中的“他”设置为带圈字体，如样张所示。 8)在页眉处加入文字“寓言故事”（不包括引号），宋体小五号字，并居中。 9)| 10)在结尾处加入表格。表格宽度为14cm，四列宽度分别为、、、厘米，并将表格居中 显示。标题加粗，居中显示，单元格设置为浅绿色底纹。所有成语居中显示，所有 出处为左对齐显示。上下边框线为磅，内部边框线为磅，具体样式如样张所示。 11)将结果以名存入磁盘中。 》
* 样张： ~ % 掩耳盗铃 秋时期，一个小偷跑到范氏家里想偷东西。看见院子里吊着 一口大钟，小偷想把这口大钟背回自己家去。可是钟又大又 重，他想来只有一个办法，就是把钟敲碎。 小偷找来一把大锤，拼命朝钟砸去，咣的一声巨响，把他吓了一跳。小偷心想这下糟了，这样别人就知道是我在偷钟啊？他 一着急，扑到了钟上，想捂住钟声，可钟声又怎么捂得住呢！ ◇他越听越害怕，不由自主地抽回双手，使劲捂住自己的耳朵，这下声音小了很多。他立刻找两个布团，把耳朵塞住，于是就放手砸起钟来。钟声响亮地传到很远的地方，人们听到钟声蜂拥而至，把小偷捉住了。 春
word上机练习题及答案 1、本次决赛包含十个大题，其中五个word大题，四个Excel大题。共一百分。 2、本次决赛时间是分钟。 3、决赛中新建word文档后缀是”.doc”。 第一题，将素材一按要求排版。 、将标题字体设置为“华文行楷”，字形设置为“常规”，字号设置为“小初”、选定“效果”为“空心字”且居中显示。 、将“李白”的字体设置为“隶书”、字号设置为“小三”，文字右对齐加双曲线边框，线型宽度应用系统默认值显示。且首行缩进两个字符。 将正文行距设置为25磅，。将文本“蜀道难”作为水印插入文档，水印格式版式”斜式”其他均为默认。 . 将全文中的“难”加粗，并设置为斜体，颜色为红色。 《素材一》 蜀道难 --李白 噫吁嚱！危乎高哉！蜀道之难，难于上青天！蚕丛及鱼凫，开国何茫然！尔来四万八千岁，不与秦塞通人烟。西当太白有鸟道，可以横绝峨眉颠。地崩山摧壮士死，然后天
梯石栈相钩连。上有六龙回日之高标，下有冲波逆折之回川。黄鹤之飞尚不得过，猿猱欲度愁攀援。青泥何盘盘，百步九折萦岩峦。扪参历井仰胁息，以手抚膺坐长叹。问君西游何时还？畏途巉岩不可攀。但见悲鸟号古木雄飞雌从绕林间。又闻子规啼夜月，愁空山。蜀道之难，难于上青天，使人听此凋朱颜！连峰去天不盈尺，枯松倒挂倚绝壁。飞湍瀑流争喧豗，砯崖转石万壑雷。其险也如此，嗟尔远道之人胡为乎来哉！ 剑阁峥嵘而崔嵬，一夫当关，万夫莫开。所守或匪亲，化为狼与豺。朝避猛虎，夕避长蛇，磨牙吮血，杀人如麻。锦城虽云乐，不如早还家。蜀道之难，难于上青天，侧身西望长咨嗟。 第二题，对素材二操作要求如下 设置第一段首字下沉，第二段首行缩进两个字符。 将第一段字体设置为“宋体”，字号设置为“五号”。 将第二段字体设置为“方正舒体”，字号设置为“四号”，加双横线下划线。 在该页插入页眉页脚均输入”归去来兮辞”。将文本“归去来兮”作为水印插入文档，水印格式版式”斜式”颜色为”黄色”其他均为默认。 《素材二》 归去来兮，请息交以绝游。世与我而相遗，复驾言兮
第1题 按下列要求操作： 1）录入文字，如样张所示。 2）将标题文字“掩耳盗铃”，字体设置为楷体小二号，居屮显示，并为文字“掩耳盗铃” 设置蓝色阴影边框和淡蓝色底纹。 3）将“春秋时期”所在段落，设置为首字下沉，下沉行数3行，字体隶书（。 4）将“小偷找来一把大锤”所在段落设置为左缩进2字符，右缩进2字符，首行缩进2字符，并加黑色边框线。 5）将“他越听越害怕”所在段落，行间距设置为1.5倍行距，首行缩进2字符。 6）在“他越听越害怕”所在段落中插入图片，并将图片的版式设置为紧密型，将图片放置在段落的中间。 7）将“他越听越害怕”中的“他”设置为带圈字体，如样张所示。 8）在页眉处加入文字“寓言故事”（不包括引号），宋体小五号字，并居中。 9）在结尾处加入表格。表格宽度为14cm，叫列宽度分别为2.5、4.5、2.5、4.5厘米, 并将表格居屮显示。标题加粗，居中显示，单元格设罝为浅绿色底纹。所有成语居屮显 示，所有出处为左对齐显示。上下边框线为1.5磅，A部边框线为0.5磅，具体样式 如样张所示。 10）将结果以l.doc名存入磁盘屮。
秋时期，一个小偷跑到范氏家里想偷东西。看见院子里吊着 ，一口大钟，小偷想 把这口大钟背冋自己家去。可是钟又大又 重，他想來只有一个办法，就是把钟敲碎。 越听越害怕，不由自主地 手，使劲捂住自己的耳朵，这下声 很多。他立刻找两个布团，把耳朵 于是就放手砸起钟来。钟声响亮地 远的地方，人们听到钟声蜂拥而至，把小偷捉住了。 样张: 抽回双 音小了 塞住， 传到很
第2题 按下列要求操作： (1) 单击“常用”工具栏中的“新建”按钮，新建一个工作簿。 (2) 在A1单元格中输入“高二一班成绩表”，选定AkTl 单元格区域，单击“格式”工具 栏屮 的“合并及居屮”按钮，并设貫“字体”为“宋体”，“字号”为14, “字形”为“加粗”。 (3) 在工作表的其他单元格中输入相关的内容。 图11-14输入相关内容 (4) 输入求和公式计算出各位同学的总分。 (5) 选定A2:H17单元格区域，执行“降序”命令 (6) 在H3:H17单元格区域中依次输入1?15。 (7) 选定A2:H17单元格区域，执行“自动筛选”命令。 (8) 将结果以2.xLs 名存入磁盘中。 将两个文件放入名为：‘学号班级姓名’的文件夹中上传。 实验六 股票管理实例 股票走势图 知识点：创建股价图、添加趋势线。 1芪 ? s s
练习一：发给 一、输入以下内容。陆地上生物产量的90%将消失，450 万生物物种将灭绝；全世界70%的淡水将会日日流入大海，人类将会出现淡水危机；陆地上90%的动植物因没有树木蓄水，将受地面干旱的威胁；沙漠扩大，水土将严重流失。树木共有哪四个作用？ 地球树木面积正以怎样的速度消失？ 世界上最大的热带 雨林区在哪里？我国树木覆盖率覆盖率是多少？二、按下列要求进行设置。（每题 5 分，共95 分） 1、给文章加艺术字标题“假如地球上失去了森林”，选艺术字库中第一列第三个式样，“字体”为“隶 书”，“字号”为“ 18”，“阴影”设置为“阴影样式11”，上下型环绕。 方法： 单击：“插入——图片——艺术字” ，打开“艺术字库”选择“第一列第三个式样”——单击“确定” ；打开“编辑艺术字”窗口——输入“假如地球上失去了森林”并设置字体、字号——“确定” ；打开“绘图”工具栏（视图——工具栏——绘图）选中插入的艺术字——单击“绘图“工具栏中的阴影样式（倒数第二个）——选择“阴影样式 11” 选中艺术字——艺术字工具栏中的“文字环绕”——上下型环绕——将艺术字移动到标题位置 2、将文章第二行中的“日日”两字改为“白白”两字。 方法：单击“编辑——查找”打开查找对话框——在“查找内容”框中输入“日日”——单击“替换”标签——在“替换为”框中输入“白白”——单击“替换”按钮 3、将“沙漠扩大，水土将严重流失。”另起一段，成为第四自然段。 4、在“树木共有哪四个作用？”前插入一段“你知道吗？”，并将字体设置为红色。 5、将“世界上最大的热带”与“雨林区在哪里？”合并成一段。 6、删除最后一段重复的“覆盖率”三字。 7、将文中所有的“树木”改为“森林” ，并设置成倾斜、红色、下加着重号。 方法：单击“编辑——查找”打开查找对话框——在“查找内容”框中输入“树木”——单击“替换” 标签——在“替换为”框中输入“森林”——单击“高级”按钮——选中“森林”——单击“格式——字体”设置“倾斜、红色、下加着重号”——单击“全部替换”按钮 8、给文章的第一段加“礼花绽放”的文字效果。方法：选中“第一段”——单击“格式——字体——文字效果——礼花绽放——确定” 9、将文章的行距设置为“ 2 倍行距”，字间距设置为“ 1.5 磅”。方法：单击“格式——段落——行距——2 倍行距”——确定；单击“格式——字体——字符间距——间距‘加宽'—— 1.5 倍——确定 10、给文章的最后四段添加四号的项目符号“”。 方法：先选中最后四段——单击“格式——项目符号和编号——选择任一个符号——自定义——单击‘字符'——选择需要的符号——确定——单击‘字体'——设置字号——确定——确定”
Word上机操作考试提 1．对以下素材按要求排版。 ●设置页面纸型A4，左右页边距1．9cm，上下页边界距3cm。 ●设置标题字体为黑体、小二号、蓝色、带下划线，标题居中。 【素材】 电脑时代 电脑是二十世纪伟大的发明之一，从发明第一部电脑到目前方便携带的笔记本型电脑，这期间不过短短数十年，不仅令人赞叹科技发展之迅速，而且电脑在不知不觉中，已悄然成为我们生活中的一部分。 然而，电脑是什么玩意儿呢?长什么样子呢?目前我们所使用的电脑是经过不断地研究，改良制造出来的，外形已比早期的电脑轻巧、美观许多。早期电脑体积和重量都 是很惊人的，经过不断地研究改进，不但使外形更轻巧，而且速度变得更快、功能也更强。 2．对以下素材按要求排版。 ●将素材所提供的5行文字转换成一个5行5列的表格，再将单元格文字垂直对齐方式设置为底端对齐、水平对齐方式为居中对齐。 ●将整个表格居中对齐。 ●在表格最后插入一行，合并这行中的单元格，在新行中输入“午休”，并居中。 【素材】 星期一星期二星期三星期四星期五 数学英语数学语文英语 英语数学英语数学语文 手工体育地理历史体育 语文常识语文英语数学 3．对以下素材按要求排版。 ●使用“格式”工具栏将标题文字居中排列。 ●将正文第一行文字下加波浪线，第二行文字加边框(应用范围为文字)，第三行文字加着重号。 ●插入一个4行5列的表格，列宽2厘米，行高18磅。设置表格外边框为红色实线1．5磅，表格底纹为蓝色。 【素材】 电脑的应用 因为有了电脑，我们的生活更加轻松、舒适，举例来说，在炎热的天气里，有微电脑控温功能的冷气机可以感应室内温度，自动调整温度的高低，在安然入梦之际，也不用担心因室温太低而着凉，但这仅是冰山一隅，电脑可应用的方面很广，包括家用电器、学校生活及社会企业等，都受益匪浅。当然，人们并不因此画地自限，而应更积极地将电脑应用到各行各业，而它将会产生更令人震撼的创举!就让我们拭目以待吧! 4．对以下素材按要求排版。 ●将文中“电脑”替换为“计算机”。 ●为当前文档添加文字水印。文字为“样本”，其他选项保持默认值。 ●将当前文档的页面设置为B5纸型，方向设为横向。
word上机试题 以下几道题是提供给大家练习使用的 WORD上机练习题(一) 好像是朱光潜先生说过，以出世的态度做人，以入世的态度做事。我很信服这话，以为朱先生是用极简单的语言，说出了活着复杂的道理。话着一世，如草生一秋，是匆匆面麻烦的短暂。所有无论是天才还是愚钝，到头来都摆脱不了一个毫无二致的结局。 有了这样的洞察，人们就会不免有些苍茫的悲凉中获得某种顿悟。参透一切苦厄。 从具体上看，人活着要谋生，要做事，无论是为自己，还是社会，都来不半点虚妄。太阳每天升起，每日落下，一个人的一生都能看到几次这样的景致, 但若只停留在这一层面上，那就会确定有“消极”的味道了，把人的高低，不同的境界区分了出来。 (1)给文章加上标题“活着在世”和正文之间空二行，并居中 )将第一段和第二段合并成一段 (2 (3)将合并这后的第二段和第三段交换位置 (4)将文中的所有“活着”替换成“人生” (5)将标题的文字设置成红色，第一段设成绿色，第二段设成蓝色 (6)将第一段的“以出世的态度做人，以入世的态度做事”设成下划线 (7)在第三段的开头插入一特殊符号? (8) 把第三段的内容文字设为1.5倍行间距 (9) 给文章加密码，密码为:110 WORD上机试题(二)
1.将姓名,性别,数学,外语,计算机,总分设为黑体4号字. 2,将"男平均分"、将"女平均分"、"总平均分"分别设置为黑体2号字、仿宋体2号、 3.使表格中的文字居中对齐. 4(用公式计算男平均分、女平均分，总计平均分。 WORD上机试题(三) 有一位评论家想为今天的时代寻找一个印象式的命名,终于想到了两个字,叫做"缩略"——"缩"者,把原有的长度、时间、空间压缩;"略"者,省略、简化之意,故称我们的时代是"缩略时代"。 就中国信息技术应用而言,信息技术在企业中的应用尚处于"战术性"阶段,进入到"战略性"阶段的企业极少,因此中国企业只有"信息中心主任"而没有货真价实的CIO并不奇怪,中国企业的"一把手"即CEO不能正确认识信息技术投资的价值,不肯赋予CIO以CIO之职之权之责亦顺理成章。但这不能成为CIO"可以缓行"的理由。"Global化"的大前提下,我们还经得起多久的落后? 1. 设置页眉，页眉为“缩略时代”。 2. 将文中第二段的行间距设置为 3.1倍行距。 3. 将第二段中的“信息中心主任”的字体设置为红色、加粗、斜体、加下划线的宋体，并具有“亦真亦幻”的动态效果。 WORD上机试题(四)
Word2007上机考试题 Word比赛题 考试时间:40分钟, 考试地点:矿综合办公室,比赛使用电脑采用抽签决定, 在桌面新建一个文件夹～改成本人姓名～并按照要求完成下列排版操作。 第一部分文字排版题 打开桌面指定文档按照要求完成下列排版 一、封面设计,5分, 在文档第一页插入一张封面～要求美观大方～可以有创意。 内容项目标准 标题“一通三防”岗位责任制宋体一号加粗 编制单位山西煤炭运销集团野川煤业有限公司公司黑体小二 编制时间二O一二年黑体小二 要求:标题、编制单位、编制时间正确,版面美观～每错一处扣1分。,5分扣完为止, 二、页面设置,5分, 项目标准 纸张A4(210×297)，幅面白色 页面设置上3.5cm，下2.5cm，左2.7cm，右2.7cm，页眉2.5cm，页脚 1.8cm，装订线0cm 页眉宋体5号字居中，内容:山西煤炭运销集团野川煤业有限公司“一通三防”岗位责任制页码宋体5号字，页面底端，奇数靠右，偶数靠左
要求:有页眉、页脚、边距～封面不能出现页眉、页脚、页码～排版位置正确 ～每错一处扣1分。(5分扣完为止) 三、正文设计,15分, 项目标准 各章标题黑体小二号加粗居中，单倍行距，段后6磅，章序号与章名间空一 个汉字符二级标题宋体三号加粗居中，单倍行距，段后6磅。 正文仿宋三号，两端对齐书写，段落首行左缩进2个汉字符。行距28磅， 段前段后0磅 要求:1、根据排版要求～设置2个题注的“样式”并根据排版标准对应 重新命名样式。,不设置样式的～扣5分,样式设置错误的～每一个扣2.5分～扣完5分为止, 2、正文有页眉、页脚,页码设为阿拉伯数字“1、2、 3、…”,章、节标题位置正确,字体字号、行间距正确,版面美观。,以上每错一处扣2分～扣完10分为止, 四、目录设计,10分, 项目标准 标题黑体小二号加粗居中，单倍行距，段后1行 各章目录宋体小四加粗，行距20磅，两端对齐，页码右对齐 宋体小四，行距20磅，两端对齐，页码右对齐，左缩进2字符二级节标题目一级节标题目宋体小四加粗，单倍行距，两端对齐，页码右对齐，左缩进2字符录录要求:1、根据章节～在封页后面插入目录页,没有目录扣10分,。 2、目录有页眉～无页码,章、节标题位置正确,字体字号正确,版面美观。,每 错一处扣2分～扣完10分为止, 五、其他要求,15分, 1、文档总体排版美观度,5分,。
Word操作考试试题1 1、在桌面上建一个新Word文档，命名为“***的考试”，***为考试者姓名（10分） 2、打卡word文档，输入考试素材： 回家变卖典质，父亲还了亏空；又借钱办了丧事。这些日子，家中光景很是惨淡，一半为了丧事，一半为了父亲赋闲。丧事完毕，父亲要到南京谋事，我也要回北京念书，我们便同行。 到南京时，有朋友约去游逛，勾留了一日；第二日上午便须渡江到浦口，下午上车北去。父亲因为事忙，本已说定不送我，叫旅馆里一个熟识的茶房陪我同去。他再三嘱咐茶房，甚是仔细。但他终于不放心，怕茶房不妥帖；颇犹豫了一会。其实我那年已二十岁，北京已来往过两三次，是没有甚么要紧的了。他犹豫了一会，终于决定还是自己送我去。我两三回劝他不必去；他只说，“不要紧，他们去不好！”（20分） 3、把第一段文字复制三遍，粘贴至第一段的后面。（10分） 4、字体设置：把第一段、第二段文字设置成华文行楷，小四号字体，加粗；第三段和第四段文字设置成微软雅黑，三号字体，倾斜，字体颜色坐标为“R:40 G:20 B:110”的颜色；最后一段，字体设置成黑体，并且设置成“阴文”，小四号字体，“不要紧，他们去不好！”划“双删除线”。（15分） 5、段落设置：全文设置成，两端对齐，首行缩进3个字符，行距设置成“1.5倍行距”。（5分） 6、给正文加一个题目：《背影》，要求题目居中，一号字，黑体加粗，字的颜色为绿色。（15分） 7、把正文中的“一”替换为“1”。(10分) 8、在正文末尾处插入艺术字“我喜欢朱自清的散文”。（5分） 9、页边距设置成“上下左右间距1.5厘米”，文档保存，通过OA发送到“李宇，陈柳青”。（10分）
Word 上机试题 图文混排（共6题，每题15分） 第1题：分别用文本框和竖排文本框排版下面的回文诗： 春 花朵几枝柔傍砌，柳丝千缕细摇风。 霞明半岭西斜月，月上孤村一树松。 参考结果： -------------------------------------------- 测试区 ------------------------------------------------------------
--------------------------------------------------------------------------------------------------------------------
参照下图画一个卡通太阳： 提示：用自选图形画一个太阳，设置填充颜色和填充效果，再用自选图形画一个笑脸，设置填充颜色和填充效果，将笑脸和太阳叠放在一起，再用组合功能把两张图形组合在一起。 --------------------------------------------------------------------------------------------------------------------
把该图片装入Word，为它添加标注。抓取的图片方法参照文章：如何在屏幕上抓图 -------------------------------------------- 测试区------------------------------------------------------------ --------------------------------------------------------------------------------------------------------------------
WORD上机练习题一 一、文字录入,请在WORD文档WZD.DOC中录入以下内容(标点符号必须采用中文全角符号)： 1．Internet的形成 1969年美国国防部高级研究计划署作为军事试验网络，建立了ARPANET。1972年ARPANET 发展到几十个网点，并就不同计算机与网络的通信协议取得一致。19年产生了IP互联网协议和TCP传输控制协议。1980年美国国防部通信局和高级研究计划署将TCP/IP协议投入使用。1987年ARPANET被划分成民用网ARPANET和军用网MILNET。它们之间通过ARPAINTERNET实现连接，并相互通信和资源共享。简称Internet,标志着Internet的诞生。2．因特网在中国 早在1987年，中国科学院高能物理研究所便开始通过国际网络线路使用Internet，后又建立了连接Internet的专线。90年代中期，我国互联网建设全面展开，到1997年底已建成中国公用计算机网（ChinaNET）、中国教育和科研网（CERNET）、中国科学和技术网（CSTNET）和中国金桥信息网（ChinaGBN）,并与Internet建立了各种连接。 3．163和169网 163网就是“中国公用计算机互联网”ChinaNET，它是我国第一个开通的商业网。由于它使用全国统一的特服号163，所以通常称其为163网。169网是“中国公众多媒体通信网”的俗称，CninfoNET。因为它使用全国统一的特服号169，所以就称其为169网。它们是国内用户最多的公用计算机互联网，是国家的重要信息基础设施。 二、文字编辑 对文档WZD.DOC进行如下操作： ⑴在文档开始处加上标题：因特网的形成和发展 ⑵将全文内容存盘，退出Word应用程序。 三、排版操作 对文档WZD.DOC进行如下操作： 1.设置页面为16开纸，页边距：上、下、左、右均为2厘米。 2.将文档第一行的“因特网的形成和发展”作为标题，标题居中，黑体、三号字，加下划线，颜色为红色。 3.将小标题1-3各标题行设置为仿宋体、四号字、加粗。 4.将小标题1下面的第一自然段设置为悬挂缩进1厘米, 行距为固定值 18磅，左对齐，采用仿宋体、五号字。 5.小标题2、小标题3下面的自然段分别设置为首行缩进1厘米,行距为固定值18磅，左对齐，采用仿宋体、五号字。 6.在文档中插入一剪贴画（狮子），按如下要求进行设置： (1)图片大小:取消锁定纵横比,高度4厘米,宽度5厘米。 (2)图片位置：水平距页面5厘米,垂直距页面6厘米。 7.给图片加实线边框,边框颜色为蓝色,粗细为3磅。 8.在图片上插入一文本框，文本框中写入文字（兽中之王）, 文字为楷体、二号字,粉红色。水平居中。 (1)文本框大小:高1.5厘米;宽4厘米。 (2)文本框位置：水平距页面5厘米;垂直距页面7厘米。 (3)文本框设置为：填充色为绿色、边框线条蓝色。 9.将图片和文本框进行组合。