09VB 本科期末上机练习及参考答案
1、编制通用函数过程，计算1+2+……+N 的值。在窗体的Click事件中调用该函数。
[参考答案1]：
Private Function sum(n As Integer) As long
Dim i As Integer
For i = 1 To n
sum = sum + i
Next i
End Function
Private Sub Form_Click()
Print sum(100)
End Sub
2、编制通用函数过程，计算N！的值。在窗体的Click事件中调用该函数。
[参考答案2]：
Private Function fact(n As Integer) As Double
Dim i As Integer
fact = 1
For i = 1 To n
fact = fact * i
Next i
End Function
Private Sub Form_Click()
Print fact(5)
End Sub
3、编制通用函数过程，用于判断1个整数是否为素数，若是则显示true，若不是则显示false。在窗体的Click事件
中调用该函数。
[参考答案3]：
Private Function prime(n As Integer) As Boolean Dim i As Integer
If n < 2 Then
prime = False
Else
For i = 2 To Int(Sqr(n))
If n Mod i = 0 Then Exit For
Next i
If i > Int(Sqr(n)) Then
prime = True
Else
prime = False
End If
End If
End Function
Private Sub Form_Click()
Print prime(4),prime(7) End Sub
4、编制一个判断奇偶数的Function函数过程。在窗体的Click事件中调用该函数，输入一个整数，判断其奇偶性。[参考答案4]：
Private Function odd(n As Integer) As Boolean
If n Mod 2 = 0 Then
odd = False
Else
odd = True
End if
End Function
Private Sub Form_Click()
Prime odd(4),odd(5)
End Sub
5、新建一个工程，完成“密码检验”程序的设计。参照运行时界面完成界面设计。具体要求如下：
（1）文本框Text1，用于输入密码。文本框中输入的字符显示为*，并且最多可以接受7个字符。
（2）窗体的下半部有一个标签控件Label2，用来显示密码输入后的提示信息。
（3）当在文本框中输入密码“1234567”，并按回车后，标签Label2显示为“欢迎光临！”；如果输入的密码与“1234567”
不吻合，标签Label2显示为“密码不符，请再输入一遍！”，同时清空文本框的内容，允许再输入一遍；如果第二次输入的密码仍然与“1234567”不吻合，标签Label2显示为“非法用户，请退出程序！”，文本框就不能使用了。[参考答案5]：
Private Sub Form_Load()
Label1.Caption = "输入密码后按回车" & Chr(13) & Chr(10) & "(提示密码：1234567)"
Text1.PasswordChar = "*"
Text1.MaxLength = 7
End Sub
Private Sub text1_keypress(keyascii As Integer)
Static n As Integer
If keyascii = 13 Then
If Text1.Text = "1234567" Then
Label2.Caption = "欢迎光临！"
Label1.Visible = False
Text1.Visible = False
Else
n = n + 1
If n < 2 Then
Label2.Caption = "密码错误，重新输入！“"
Text1.Text = ""
Else
Label2.Caption = "非法用户，退出程序!"
Text1.Enabled = False
End If
End If
End If
End Sub
6、新建一个工程，完成“编辑”程序的设计。具体要求如下：
（1）窗体的标题为“编辑”。
（2）窗体中有以下控件：一个文本框、四个命令按钮。
（3）完成以下功能：文本框实现文本编辑功能，单击按钮实现相应功能。
[参考答案6]：
Private Sub Command1_Click()
Clipboard.Clear '清除剪贴板中的内容'
Clipboard.SetText Text1.SelText '将选中文本送入剪贴板'
End Sub
Private Sub Command2_Click()
Clipboard.Clear
Clipboard.SetText Text1.SelText
Text1.SelText = "" '清空文本框内被选中的文本'
End Sub
Private Sub Command3_Click()
Text1.SelText = Clipboard.GetText '将剪贴板上的文本复制到指定文本框的光标处'
End Sub
Private Sub Command4_Click()
Text1.SelText = "" '清空文本框内被选中的文本'
End Sub
Private Sub Form_Load()
Text1.Text = ""
End Sub
7、新建一个工程，完成“替换”程序的设计。具体要求如下：
(1) 窗体的标题为“替换”。
(2) 窗体中有以下控件：一个文本框可以多行编辑，两个文本框，两个标签框，一个命令按钮。
(3) 完成以下功能：输入查找内容，把编辑框中所有与查找内容一样的部分替换成另外一个内容。单击“替换”按钮执
行。
[参考答案7]：
Private Sub Command1_Click()
Dim len1 As Integer, len2 As Integer, len3 As Integer
len1 = Len(Text1)
len2 = Len(Text2)
len3 = Len(Text3)
Do While i <= len1 - len2
If Text2 = Mid(Text1, i + 1, len2) Then
Text1.SetFocus
Text1.SelStart = i
Text1.SelLength = len2
Text1.SelText = Text3
i = i + len3
len1 = len1 - len2 + len3
Else
i = i + 1
End If
Loop
8、 新建一个工程，完成“字体修饰” 程序的设计。具体要求如下：
（1） 按照下图所示在窗体上放置按钮和控件。窗体的标题为“字体修饰”。
（2） 框架Frame1中有一个复选框数组，可以选择粗体，斜体对标签中的文字进
行修饰。
（3） 框架Frame2中有一个单选钮框数组，可以选择宋体或楷体对标签中的文字
进行修饰。
（4） 标签Label1的文字内容为“Visual Basic 程序设计“，宋体，常规，三号；
文字对齐方式为居中。
[参考答案8]：
Private Sub Check1_Click(Index As Integer) Select Case Index Case 0 If Check1(0).Value = 1 Then Label1.FontBold = True Else Label1.FontBold = False End If Case 1 If Check1(1).Value = 1 Then Label1.FontItalic = True Else
Label1.FontItalic = False
End If
End Select
End Sub
Private Sub Option1_Click(Index As Integer)
Select Case Index
Case 0
Label1.FontName = "宋体" Case 1 Label1.FontName = "楷体_gb2312" End Select End Sub
9、 新建一个工程，完成“点餐”程序的设计。具体要求如下：
（1） 窗体的标题为“点餐”。
（2） 窗体中有以下控件：一个框架控件作为容器，内有三个复选框数组、
对应三个文本框数组、三个标签框、一个命令按钮。
（3） 要求文本框只能接受数字键，并且只有选取了相应的套餐后才可以
进行输入；如果没有选取大套餐，那么文本框不能编辑，并清空。
（4） 完成以下功能：选择所需套餐种类及份数，单击确定按钮后计算所
需的钱，并用消息框显示。
[参考答案9]：
Private Sub Form_Load() Form1.Caption = "点餐" Command1.Caption = "确定" Frame1.Caption = "菜单" Check1(0).Caption = "儿童套餐馆18元" Check1(1).Caption = "标准套餐23元" Check1(2).Caption = "商务餐28元" For i = 0 To 2 Label1(i).Caption = "份数" Check1(i).Value = 0 Text1(i).Enabled = False Next End Sub Private Sub Check1_Click(Index As Integer) If Check1(Index).Value = 1 Then ‘若当前复选框被选中,文本框被启用,同时获得焦点 Text1(Index).Enabled = True Text1(Index).SetFocus Else Text1(Index).Text=""
Text1(Index).Enabled=False
End If
End Sub Private Sub Command1_Click() Dim a%, b%, c%, sum% a = Val(Text1(0).Text) b = Val(Text1(1).Text) c = Val(Text1(2).Text) sum = a * 18 + b * 23 + c * 28 MsgBox "一共" & sum & "元", , "总价" End Sub Private Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer) If KeyAscii < 48 Or KeyAscii > 57 Then ‘输入非数字时弹出对话框,同时文本框重新获得焦点 KeyAscii = 0 MsgBox "请输入数字" Text1(Index).SetFocus End If End Sub
10、 某公司对员工的工资进行调整：若原有工资大于等于1000元，增加工资35%；若小于1000元大于等于800元，则
增加工资25%；若小于800元，则增加工资15%。请根据用户输入的原有工资，计算出增加后的工资。
[参考答案10]：
Private Sub Command1_Click()
Text1.SetFocus
Text1.Text = ""
Text2.Text = ""
Option1.Value = False
Option2.Value = False
Option3.Value = False
Private Sub Command2_Click()
End
End Sub
Private Sub Option1_Click()
If Val(Text1.Text) >= 1000 Then
Text2.Text = Val(Text1.Text) * 1.35
End If
End Sub
Private Sub Option2_Click()
If Val(Text1.Text) >= 800 And Val(Text1.Text) < 1000 Then
Text2.Text = Val(Text1.Text) * 1.25
End If
End Sub
Private Sub Option3_Click()
If Val(Text1.Text) < 800 And Val(Text1.Text) > 0 Then
Text2.Text = Val(Text1.Text) * 1.15
End If
End Sub
11、 设计一个“家电提货单”管理程序，程序运行界面如下图所示。具体要求如下：
（1）单击“确定”后，根据选择的内容将清单及总价在列表框中列出。
（2）每选择一种家电，光标自动定位在相应的文本框中，取消选择时，相应的文本框自动清空。
（3）“清除”按钮用于清空列表框中的项目。
（4）所有文本框只接受数字。
[参考答案11]：
Private Sub Check1_Click(Index As Integer) Text1(Index) = "" If Check1(Index).Value = 1 Then Text1(Index).SetFocus End If End Sub Private Sub Command1_Click() Dim i As Integer Dim sum As Long, n% Dim title As String, price As Integer sum = 0 For i = 0 To 4 Select Case i Case 0 title = "电视机" price = 3580 Case 1 title = "微波炉" price = 660 Case 2 title = "电冰箱" price = 1850
Case 3
title = "DVD"
price = 2880
Case 4
title = "分体空调" price = 5500 End Select If Check1(i).Value = 1 And Text1(i).Text <> "" Then List1.AddItem title & Text1(i).Text & "台" sum = sum + Val(Text1(i)) * price n = n + Val(Text1(i)) End If Next i If sum <> 0 Then List1.AddItem "共: " & n & "台 " & "合计金额:" & sum & "元" End If End Sub Private Sub Command2_Click() List1.Clear End Sub
12、 设计一个“个人资料”输入窗口，程序运行界面如下图所示。具体要求如下：
（1）按照运行界面设计窗体，其中“民族”用组合列表框显示。
（2）单击“确定”按钮，将个人资料信息输出在“个人资料”框架的标签框中。
[参考答案12]：
Private Sub Form_Load() '初始化民族组合框
Combo1.AddItem "回族"
Combo1.AddItem "汉族"
Combo1.Text = "汉族"
End Sub
Private Sub Command1_Click()
Dim Sex As String, Hobby As String
If Option1.Value Then '判断性别
Sex = Option1.Caption
Else
Sex = Option2.Caption
End If
'判断爱好
If Check1.Value = 1 Then Hobby = Hobby & " " & Check1.Caption
If Check2.Value = 1 Then Hobby = Hobby & " " & Check2.Caption
If Check3.Value = 1 Then Hobby = Hobby & " " & Check3.Caption
If Check4.Value = 1 Then Hobby = Hobby & " " & Check4.Caption
'显示
Label4.Caption = Txtname.Text & " " & Sex & " " & Txtage & " " & Combo1.Text & " 爱好：" & Hobby End Sub
Private Sub Command2_Click()
End
End Sub
13、新建一个工程，完成应用程序的设计。具体要求如下：
（1）按照下图所示在窗体上放置按钮和控件。
（2）窗体上有两个CheckBox，当这两个选项未被选定时，它们所在框架的其他控件不能使用。
（3）如果单击“确定”按钮，则在按钮下面的标签中显示用户所选择的信息。
[参考答案13]：
Private Sub Form_Load()
Label3.BorderStyle = 1
Frame1.Caption = ""
Frame2.Caption = ""
Check1.Value = 0
Check2.Value = 0
Text1.Text = ""
End Sub
Private Sub Check1_Click()
If Check1.Value = 1 Then
Text2.Enabled = True
Text1.Enabled = True
Else
Text2.Enabled = False
Text1.Enabled = False
End If
End Sub
Private Sub Check2_Click()
If Check2.Value = 1 Then
Option1.Enabled = True
Option2.Enabled = True
Else
Option1.Enabled = False
Option2.Enabled = False
End If
End Sub
Private Sub Command1_Click()
Label3.Caption = ""
If Check1.Value = 1 Then
Label3.Caption = Label3.Caption + "计算机:" + Chr(13) + Chr(10)
Label3.Caption = Label3.Caption + combo1.Text + Text1 + "台" + Chr(13) + Chr(10)
End If
If Check2.Value = 1 Then
Label3.Caption = Label3.Caption + "操作系统" + Chr(13) + Chr(10)
If Option1.Value = True Then
Label3.Caption = Label3.Caption + Option1.Caption
Else
Label3.Caption = Label3.Caption + Option2.Caption
End If
End If
End Sub
14、（1）参照运行时界面完成界面设计。
（2）单击“添加单词”按钮，将Text1中的单词添加到列表框，并使Text1获
得焦点，可直接输入另一个单词。
（3）单击“删除单词”按钮，删除列表框中被选中的列表项。
（4）单击“全部删除”按钮，删除列表框中的全部表项。
（5）单击“退出”按钮，结束该程序。
[参考答案14]：
Private Sub Command1_Click() If Text1.Text<>"" Then
List1.AddItem Text1.Text
Text1.Text="" Text1.SetFocus
End If
End Sub Private Sub Command2_Click() If list1.listindex<>-1 then List1.removeitem list1.listindex End if End Sub Private Sub Command3_Click()
List1.clear
End Sub
Private Sub Command4_Click()
End
End Sub
15、 参照运行时界面完成界面设计。要求：
（1）列表框内容中有四项，分别为“Word 、Excel 、PowerPoint 、
Outlook ”。
（2）单击“添加”按钮（Command1），将文本框中的内容回到列表框
中的第一项，如果文本框中没有内容，则给出提示“没有内容，不予添加”。
（3）单击“删除”按钮（Command2），将选中表项删除，如果没有选
择要删除的表项，则给出提示“请选择输出的项目”。
[参考答案15]：
Private Sub Form_Load() List1.AddItem "word" List1.AddItem "excel" List1.AddItem "frontpage" List1.AddItem "outlook" Form1.Caption = "添加和删除" Form1.BorderStyle = 1 Command1.Caption = "添加" Command2.Caption = "删除" Text1.Text = "" End Sub Private Sub Command1_Click() If Text1.Text = "" Then MsgBox ("没有内容,不予添加")
Else
List1.AddItem Text1.Text, 0
Text1.Text = ""
Text1.SetFocus
End If
End Sub Private Sub Command2_Click() If List1.ListIndex = -1 Then '如果没有选中任何一项,则该属性值为-1' MsgBox ("请选择输出的项目") Else List1.RemoveItem List1.ListIndex End If End Sub
16、 参照运行时界面完成界面设计。要求：
（1）窗体的上边有一个文本框Text1，文字内容为“心想事成”，Font ：宋体、
常规、三号。
（2）左边简单组合框Combo1，有三项内容，分别是“左对齐、居中、右对齐”，
单击时对文本框的对齐方式进行设置。
（3）右边简单组合框Combo2，有四项内容，分别是“常规、斜体、粗体、粗斜
体”，单击时对文本框的字型进行设置。
[参考答案16]：
Private Sub Combo1_Click() Select Case Combo1.Text Case "左对齐" Text1.Alignment = 0 Case "居中" Text1.Alignment = 2 Case "右对齐" Text1.Alignment = 1 End Select End Sub Private Sub Combo2_Click() Select Case Combo2.ListIndex
Case 0
Text1.FontBold = False
Text1.FontItalic = False Case 1 Text1.FontItalic = True Case 2 Text1.FontBold = True Case 3 Text1.FontBold = True Text1.FontItalic = True End Select End Sub
17、 参照运行时界面完成界面设计。要求能完成以下功能：单击“产生”按钮，实现随机产生10个两位正整数，在左
边列表框内显示；单击“—>”按钮，把左边列表框中的偶数全部移到右边列表框中。
[参考答案17]：
Private Sub Form_Load()
List1.Clear
List2.Clear
End Sub
Private Sub Command1_Click() '产生 Dim i As Integer Randomize
List1.Clear
List2.Clear
For i = 1 To 10
List1.AddItem (Int(Rnd * 90) + 10) Next i
End Sub
Private Sub Command2_Click()
Dim i As Integer
i = 0
Do Until i >= List1.ListCount
If Val(List1.List(i)) Mod 2 = 0 Then
List2.AddItem List1.List(i)
List1.RemoveItem i
Else
i = i + 1
End If
Loop
End Sub
18、设计一个程序在两个列表框之间进行操作。(1)>>>：移动选择的表项至右边列表框（允许选多个）(2)<：移动表项
至左边列表框(3)全选：将所有表项添加至右边列表框( 全部右移)(4)还原：将所有表项添加至左边列表框( 全部左移
)
[参考答案18]：
Private Sub Form_Load()
List1.AddItem "蓝球"
List1.AddItem "足球"
List1.AddItem "排球"
List1.AddItem "羽毛球"
List1.AddItem "乒乓球"
List1.AddItem "跑步"
List1.AddItem "登山"
List1.AddItem "网球"
End Sub
Private Sub Command1_Click() Dim i As Integer
i = 0
Do While i <= List1.ListCount - 1 If List1.Selected(i) = True Then List2.AddItem List1.List(i)
List1.RemoveItem i
Else
i = i + 1
End If
Loop
End Sub
Private Sub Command2_Click()
If List2.ListIndex <> -1 Then
List1.AddItem List2.Text
List2.RemoveItem List2.ListIndex
Else
MsgBox "先选择右列表框中的项，再移至左边" End If
End Sub
Private Sub Command3_Click() '全选
Do While List1.ListCount <> 0 '判断是否还有表项List2.AddItem List1.List(0)
'每次移动最前面的表项List1.RemoveItem 0 '删除最前面的表项Loop
End Sub
Private Sub Command4_Click() '还原
Do While List2.ListCount <> 0
List1.AddItem List2.List(0)
List2.RemoveItem 0
Loop
End Sub
19、参照运行时界面完成界面设计。（1）在两个列表框控件的list中输入一些
内容。（2）当单击“<”按钮时，把list2中选中的一项放到list1中，并且在list2中删除该项。（3）当单击“<<”按钮时，把list2中所有的项放到list1中，并且清空list2。（4）当单击“结束”按钮时，退出应用程序。[参考答案19]：
Private Sub Command1_Click()
If List1.ListIndex <> -1 Then
List2.AddItem List1.Text
'list2.AddItem List1.List(List1.ListIndex) Else
MsgBox "先选择，再移动"
End If
End Sub
Private Sub Command2_Click()
For i = 0 To List1.ListCount - 1
List2.AddItem List1.List(i)
Next i
List1.Clear
End Sub
Private Sub Command3_Click()
Do While List2.ListCount <> 0 List1.AddItem
List2.List(0)
List2.RemoveItem 0
Loop
End Sub
Private Sub Command4_Click()
If List2.ListIndex <> -1 Then
List1.AddItem List2.List(List2.ListIndex) Else
MsgBox "先选择，再移动"
End If
End Sub
Private Sub Command5_Click()
End
End Sub
20、参照运行时界面完成界面设计。（1）左边一个简单组合框，对文本框的字体进行设置；有三项内容，分别是“宋体、
黑体、楷体_GB2312”。（2）右边一个简单组合框，对文本框的文字大小进行设置；大小范围为8~20。
[参考答案20]：
Private Sub Form_Load()
Text1.Text = "心想事成"
Combo1.Text = "宋体"
Combo2.Text = "9"
End Sub
Private Sub Combo1_Click()
Text1.FontName = Combo1.Text
End Sub
Private Sub Combo2_Click()
Text1.FontSize = Val(Combo2.Text)
End Sub
21、设计一个畅销书排行榜程序，运行界面如下图所示。具体要求如下：
（1）在左边列表框中显示排名前5名的畅销书；
（2）输入新书名和名次，单击“入榜”，添加到左边列表框中相应位置；
（3）单击“下榜”，将选择的书从排行榜中删除，如未选择，则显示“请先选择！”；
（4）单击“清除”，可以删除文本框中的输入内容，文本框2只允许输入数字1~5；
（5）单击“结束”，退出程序运行。
[参考答案21]：
Private Sub Form_Load()
list1.AddItem "西游记"
list1.AddItem "红楼梦"
list1.AddItem "史记"
list1.AddItem "水浒"
list1.AddItem "镜花缘"
End Sub
Private Sub Command1_Click() '上榜
Dim book As String, index As Integer
book = Text1.Text
index = Val(Text2.Text)
'判断是否已输入书名和有效的排名
If book <> "" And index >= 0 And index <= list1.ListCount - 1 Then
list1.AddItem book, index - 1
End If
list1.RemoveItem list1.ListCount - 1 End Sub
Private Sub Command2_Click() '下榜Dim index As Integer
index = list1.ListIndex
If index <> -1 Then
list1.RemoveItem index
End If
End Sub
Private Sub Command3_Click()
list1.Clear
End Sub
Private Sub Command4_Click()
End
End Sub
22、参照运行界面完成界面设计。单击滚动条左右箭头时，标签上的字可以左右移动，标签移动范围等于滚动条的范围。[参考答案22]：
Private Sub Form_Load()
HScroll1.Max = Form1.Width - Label1.Width
HScroll1.Value = Label1.Left
End Sub
Private Sub HScroll1_Change()
Label1.Left = HScroll1.Value
End Sub
Private Sub HScroll1_Scroll()
Call HScroll1_Change
End Sub
Private Sub Command1_Click() '结束
End
End Sub
23、参照运行时界面完成界面设计。要求：（1）滚动条的取值范围
均为10-40。（2）完成以下功能：根据设定字号改变标签框内
显示文字的大小。要求水平滚动条与文本框相关联。
[参考答案23]：
Private Sub Form_Load()
HScroll1.Max = 40
HScroll1.Min = 10
Label1.FontSize = HScroll1.V alue Form1.Caption = "改变字号" End Sub Private Sub HScroll1_Change()
Text1.Text = HScroll1.Value
Label1.FontSize = HScroll1.V alue End Sub
Private Sub HScroll1_Scroll()
Text1.Text = HScroll1.Value
Label1.FontSize = HScroll1.Value End Sub Private Sub Text1_Change() Dim i As Integer i = Val(Text1.Text) If i >= 10 And i <= 40 Then
Label1.FontSize = i
HScroll1.Value = i
End If
End Sub
24、 （1）参照运行时界面完成界面设计。
（2）在属性窗口中将标签（Label1）的标题设为“祝您考试成功”，字体设置为
“宋体”、字形为“粗体”、大小为“二号”、文字颜色为“红色”，格式设置为在窗体
中水平居中对齐。
（3）单击“开始”按钮（Command1），标签文字在定时器控制下自动交替以红兰
两种颜色显示。同时“开始”按钮变为“停止”按钮。
（4）单击“停止”按钮，标签文字停止闪烁，同时“停止”按钮变为“开始”按钮。
（5）定时器（Timer1）的时间间隔为0.3秒。
[参考答案24]：
Private Sub Form_Load() Label1.Left = Form1.ScaleWidth / 2 - Label1.Width / 2 Label1.Top = Form1.ScaleHeight / 2 - Label1.Height / 2 Command1.Caption = "开始" Timer1.Enabled = False Label1.ForeColor = vbRed End Sub Private Sub Command1_Click() If Command1.Caption = "开始" Then Command1.Caption = "停止" Timer1.Enabled = True
Else
Command1.Caption = "开始" Timer1.Enabled = False End If
End Sub
Private Sub Timer1_Timer()
If Label1.ForeColor = vbRed Then
Label1.ForeColor = vbBlue
Else
Label1.ForeColor = vbRed End If End Sub
25、 参照运行时界面完成界面设计。要求：
（1）在属性窗口中将标签（Label1）的标题设为“祝您考试成功”，字体
设置为“宋体”、字形为“粗体”、大小为“二号”、文字颜色为“红色”。
（2）单击“开始”按钮，标签文字在定时器控制下自动地从左向右移动，
移动速度为每个时间间隔右移100缇，当标签移动到窗体外时，再从窗体的左边
进入。同时“开始”按钮变为“停止”按钮。
（3）单击“停止”按钮，标签“祝您考试成功”文字停止滚动。同时“停
止”按钮变为“开始”按钮。
（4）定时器（Timer1）的时间间隔为0.1秒。
[参考答案25]：
Private Sub Form_Load() Timer1.Interval = 100 End Sub Private Sub Command1_Click() If Command1.Caption = "开始" Then Timer1.Enabled = True Command1.Caption = "结束" Else Timer1.Enabled = False
Command1.Caption = "开始" End If End Sub Private Sub Timer1_Timer()
Label1.Left = Label1.Left + 100
If Label1.Left >= Form1.Width Then
Label1.Left = -Label1.Width End If End Sub
26、 参照运行时界面完成界面设计。要求：
（1）单击“开始”按钮（Command1），标签“欢迎光临”（Label1）文字在定时器控制下字号自动增加2。同时“开始”按钮变为“停止”按钮。
（2）单击“停止”按钮，标签“欢迎光临”文字停止放大。同时“停止”按钮为“开始”按钮。
（3）要求标签文字在放大时保持水平居中。
（4）定时器（Timer1）的时间间隔为0.2秒。
[参考答案26]：
Private Sub Command1_Click()
If Command1.Caption = "开始" Then
Timer1.Enabled = True
Command1.Caption = "停止"
Else
Timer1.Enabled = False
Command1.Caption = "开始"
End If
End Sub
Private Sub Form_Load()
Label1.Left = Form1.ScaleWidth / 2 - Label1.Width / 2
Label1.Top = Form1.ScaleHeight / 2 - Label1.Height / 2
Label1.ForeColor = vbRed
End Sub
Private Sub Timer1_Timer()
Label1.FontSize = Label1.FontSize + 2
Label1.Left = Form1.ScaleWidth / 2 - Label1.Width / 2
Label1.Top = Form1.ScaleHeight / 2 - Label1.Height / 2
End Sub
27、 参照运行时界面完成界面设计。要求：（1）设计两个定时器，Timer1用于显示系统时间，时间间隔为1秒；Timer2
用于判断闹钟时间，时间间隔为0.5秒，Timer2设置为不可使用。
（2）窗体的上半部是标签Label1，用于显示时间，设置Label1的Font
为：宋体、粗体、二号，背景白色，文字居中对齐，固定边框。
（3）窗体的下半部有一个标签Label2，标题为“闹钟时间：”；Label2
的右边是文本框Text1。
（4）在文本框中输入闹钟时间并按回车后，启动判断闹钟时间的定时
器Timer2，如果Label1显示的时间超过闹钟时间，则标签Label1的背景
色按红白两色交替变换。
[参考答案27]：
Private Sub Form_Load() Timer1.Interval = 1000 Timer2.Interval = 500 Form1.Caption = "电子钟" Timer2.Enabled = False Label1.BackColor = vbWhite End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Timer2.Enabled = True End If End Sub
Private Sub Timer1_Timer()
Label1.Caption = Time
End Sub
Private Sub Timer2_Timer() If Label1.Caption > Text1.Text Then If Label1.BackColor = vbWhite Then Label1.BackColor = vbRed Else Label1.BackColor = vbWhite End If End If End Sub
28、 参照运行时界面完成界面设计。要求：
（1）窗体的左边有一个框架Frame1，标题为“选择时间”；框架内有一组
单选按钮控件数组，从上到下为Option1（0）、Option1（1）、Option1（2），
标题分别为“1分钟”、“5分钟” 、“10分钟”。默认选择为1分钟。
（2）标签Label1，用于显示倒计时的剩余的时间。
（3）单击“开始计时”按钮（Command1）后，程序根据选择的时间开始倒
计时，同时命令按钮变为不可使用，框架也不可使用。
（4）当剩余时间到0分0秒时，改为显示“时间到！”。
（5）定时器Timer1的时间间隔为1秒。
[参考答案28]：
Dim X As Integer Private Sub Command1_Click() Timer1.Enabled = True End Sub Private Sub Form_Load() Timer1.Enabled = False Label1.Caption = "" X = 60 Timer1.Interval = 1000 End Sub Private Sub Option1_Click(Index As Integer) Select Case Index Case 0 X = 60 Case 1 X = 300 Case 2
X = 600
End Select
End Sub
Private Sub Timer1_Timer()
If X = 0 Then
Label1.Caption = "时间到!" Timer1.Enabled = False Command1.Enabled = True Frame1.Enabled = True Else X = X - 1 Label1.Caption = Str(X \ 60) + "分" + Str(X Mod 60) + "秒" Command1.Enabled = False Frame1.Enabled = False End If End Sub
29、 设计一个“秒表计时”程序，运行界面如下图所示。具体要求如下：
（1）标签Label1用来显示累计的时间，Caption 初值设置为0，Autosize 设置为True ，字体、字号、颜色等属性自定。
（2）定时器Timer1的Interval 设置为1秒，Enabled 初值设为False 。
（3）命令按钮Command1的标题设置为“计时开始”用来启动计时器，当计时开始后标题变为“停止”用来关闭计时器，同时以消息框显示一共运行几小时几分几秒。
[参考答案29]：
Dim n As Integer Private Sub Command1_Click() Dim hh As Integer, mm As Integer, ss As Integer If Command1.Caption = "计时开始" Then Timer1.Enabled = True n = 0 Command1.Caption = "停止" Else Timer1.Enabled = False hh = n \ 3600 mm = (n Mod 3600) \ 60
ss = n Mod 60
MsgBox "一共运行了" & hh & "小时" & mm & "分" & ss & "秒" Command1.Caption = "计时开始" Label1.Caption = "0" End If End Sub Private Sub Timer1_Timer() n = n + 1 Label1.Caption = n End Sub
30、 利用一个计时器、一个标签框和二个命令按钮制作一个动态秒表，运行界面如下图所示。单击“开始”按钮，秒表
开始计时，单击“结束”按钮，秒表结束计时，并在标签框显示运行时间，如“运行了0小时2分10秒”。
[参考答案30]：
Dim x As Long Dim h As Integer, m As Integer, s As Integer Private Sub Command1_Click() Timer1.Enabled = True End Sub Private Sub Command2_Click() Timer1.Enabled = False Label1.Caption = "运行了" + Str(h) + "小时" + Str(m) + "分" + Str(s) + "秒"
End Sub Private Sub Form_Load() Form1.Caption = "动态秒表（小时：分：秒）" Command1.Caption = "开始[&S]"
Command2.Caption = "结束[&E]"
Label1.Alignment = 2 '居中对齐 Label1.Caption = " 0: 0: 0" Timer1.Interval = 1000 Timer1.Enabled = False x = 0 End Sub Private Sub Timer1_Timer()
x = x + 1
h = x \ 3600 m = (x Mod 3600) \ 60 s = x Mod 60 Label1.Caption = Str(h) + ":" + Str(m) + ":" + Str(s) End Sub
31、 设计一个“字幕升起”程序，运行界面如下图所示。具体要求如下：
（1）将标签（Label1）的标题设为“欢迎使用VB ”，字体设为“楷体”，大
小为“三号”。
（2）单击“开始”按钮，标签文字在定时器的控制下自动从下向上移动，
移动距离为每个时间间隔100缇，当标签移动到窗体外时，再从下面进入，
同时“开始”按钮变为“停止”按钮。单击“停止”按钮，标签文字停止移
动，同时“停止”按钮变为“开始”按钮。
（3）定时器的时间间隔由滚动条决定，范围为0.1秒~1秒。默认值为0.3
秒。
[参考答案31]：
Private Sub Form_Load() Timer1.Enabled = False VScroll1.Value = 300 End Sub Private Sub Command1_Click() If Command1.Caption = "开始" Then Timer1.Enabled = True Command1.Caption = "停止"
Else
Timer1.Enabled = False
Command1.Caption = "开始" End If End Sub
Private Sub VScroll1_Change()
Timer1.Interval = VScroll1.Value
End Sub
Private Sub VScroll1_Scroll() Call VScroll1_Change End Sub Private Sub Timer1_Timer() Label1.Top = Label1.Top - 100
If Label1.Top < 0 Then
Label1.Top = Form1.ScaleHeight
End If
End Sub
32、 （1）参照运行时界面完成界面设计。（2）滚动条的取值范围均为0-255。（3）在框架内的右边还有文本框控件。（4）
拖动三个滚动条的滚动框来选择红、绿、兰三原色的配色取值，并通过文本框的背景色动态显示调色效果。（5）单击“应用“按钮（COMMAND1），将调配好的颜色应用为标签LABEL2的文字颜色。
[参考答案32]：
Private Sub Command1_Click()
Label4.ForeColor = Text1.BackColor
End Sub
Private Sub HScroll1_Change(Index As Integer)
Text1.BackColor = RGB(HScroll1(0).Value, HScroll1(1).Value, HScroll1(2).Value)
End Sub
Private Sub HScroll1_Scroll(Index As Integer)
Call HScroll1_Change(Index)
End Sub
注意：控件属性的设置：1.mix=0 max=255 2.smallchange=10(保证每次单击滚动箭头时，颜色变化明显)
33、 （1）参照运行时界面完成界面设计。（2）窗体的上边有一个文本框Text1，设置为最
多接受10个字符；Font 宋体、粗体、三号；文字颜色兰色。（3）用命令按钮数组Command1
（0）~Command1（9）构成数字键，数字键标题正好命令按钮数组的下标一致。单击数
字键按钮，将拨号的内容显示在文本框中。（4）单击“重拨”按钮（Command2），再现
原来的拨号过程；（提示：再现过程由定时器实现）（5）定时器Timer1的时间间隔为
0.5秒。
[参考答案33]：
Dim s As String, i As Integer Private Sub Form_Load() Timer1.Enabled = False Text1.Text = "" End Sub Private Sub Command1_Click(Index As Integer) Text1.Text = Text1.Text & Index End Sub Private Sub Command2_Click() Timer1.Enabled = True s = Text1.Text Text1.Text = ""
End Sub
Private Sub Timer1_Timer()
i = i + 1
Text1.Text = Text1.Text & Mid(s, i, 1)
If i > Len(s) Then
Timer1.Enabled = False
i = 0
s = ""
End If
End Sub
34、 参照运行时界面完成界面设计。要求：
（1）在窗体上创建一个Label2的控件数组，数组长度为6，用于显示动画的图像“--->”。
（2）在窗体上放置一个timer 控件，用它来控制Label2上的图像位置的变化。
（3）单击“开始”按钮时label2上的图像开始移动，单击“结束”按钮图像停止移动，设
置每一秒移动一个箭头。
[参考答案34]：
Private Sub Form_Load() Dim i As Integer For i = 0 To 5 Label2(i).Visible = False Next i Timer1.Enabled = False End Sub Private Sub Command1_Click() Timer1.Enabled = True End Sub Private Sub Command2_Click() Timer1.Enabled = False End Sub
Private Sub Timer1_Timer()
Static k As Integer
For i = 0 To 5
Label2(i).Visible = False
Next i
Label2(k).Visible = True
k = k + 1
If k > 5 Then
k = 0
End If
End Sub
35、 设计一个“霓虹灯”程序，运行界面如下图所示。具体要求如下：
（1）在窗体上创建一个Label1控件数组，数组长度为7，分别用于显示“V ”、“B ”、“编”、“程”、“俱”、“乐”、“部”。
（2）在窗体上放置一个Timer 控件，用它来控制Label1上的文字依次自动出现，时间间隔为1秒。
……
[参考答案35]：
Dim k as Integer Private Sub Form_Load() Dim i As Integer For i = 0 To 6 Label1(i).Visible = False Next i Timer1.Enabled = True End Sub Private Sub Timer1_Timer() Label1(k).Visible = True
k = k + 1
If k > 6 Then
k = 0
For i = 0 To 6
Label1(i).Visible = False
Next i
End If
End Sub
36、 新建一个工程，完成应用程序的设计。具体要求如下：按照下图所示在窗体上放置控件。建立一个文本框和两个命
令按钮。在文本框中输入内容，单击“开始”后，把文本框中的字符按从小到大排列输出在窗体上，按结束退出应用程序。
[参考答案36]：
Private Sub Command1_Click()
Dim n As Integer, i As Integer, j As Integer, k As Integer
Dim a() As String, t As String
n = Len(Text1.Text)
ReDim a(n)
For i = 1 To n
a(i) = Mid(Text1.Text, i, 1)
Next i
For i = 1 To n – 1 ‘从小到大排序
k = i
For j = i + 1 To n
If a(k) < a(j) Then k = j
Next j
t = a(i): a(i) = a(k): a(k) = t
Next i
For i = 1 To n
Print a(i);
Next i
End Sub
Private Sub Command2_Click()
End
End Sub
37、 建立一个5行5列二维数组，要求对角线为1，其余元素为0。运行结果如图所示。
[参考答案37]：
Private Sub Form_Click()
Dim a(1 To 5, 1 To 5) As Integer
Dim i As Integer, j As Integer
For i = 1 To 5
For j = 1 To 5
If i = j And i+j=6 Then a(i, j) = 1
Next j
Next i
For i = 1 To 5
For j = 1 To 5
Form1.Print " "; a(i, j);
Next j
Form1.Print
Next i
End Sub
38、 建立一个5行5列二维数组，要求右上三角元素（含对角线）为1，其余元素为0。
[参考答案38]：
Private Sub Form_Click()
Dim a(1 To 5, 1 To 5) As Integer
Dim i As Integer, j As Integer
For i = 1 To 5
For j = 1 To 5
If i <= j Then a(i, j) = 1
Next j
Next i
For i = 1 To 5
For j = 1 To 5
Form1.Print " "; a(i, j);
Next j
Form1.Print
Next i
End Sub
39、编制程序，用随机函数产生20个两位数的整数，存于4行5列的二维数组中，将数组按矩阵形式输出到窗体，并
求出其最大元素及最大元素的行、列坐标。
[参考答案39]：
Option Base 1
Private Sub Form_Click()
Dim a(4, 5) As Integer
Dim max As Integer
Randomize
For i = 1 To 4
For j = 1 To 5
a(i, j) = Int(Rnd * 90 + 10)
Print a(i, j);
Next
Next
max = a(1, 1)
h = 1
l = 1
For i = 1 To 4
For j = 1 To 5
If a(i, j) > max Then max = a(i, j): h = i: l = j
Next
Next
Print "最大元素为: "; max; "位于第"; h; "行"; l; "列"
End Sub
40、编程，输入n（n为1位正整数），输出n+1层的杨辉三角形。如n为6时，输出结果如图所示。
[参考答案39]：
Private Sub Form_Click()
Dim i As Integer, j As Integer, n As Integer, s() As Integer
Form1.Cls
n = Val(InputBox("请输入杨晖三角形的行数：", "行数输入"))
ReDim s(n, n)
For i = 1 To n
For j = 1 To i
If j = 1 Or i = j Then
s(i, j) = 1
Else
s(i, j) = s(i - 1, j - 1) + s(i - 1, j)
End If
Next j
Next i
For i = 1 To n
Print Space(3 * (n - i));
For j = 1 To i
Print Space(5 - Len(Str(s(i, j)))); s(i, j);
Next j
Next i
End Sub
最新部编版四年级数学上册期末提升练习题及答案班级：姓名：满分：100分考试时间：90分钟 一、填空题。（20分） 1、两个数相除，商是65，余数是12，若被除数和除数都乘10，商是，余数是． 2、从1至9这九个数中任取一个奇数和一个偶数相乘，不同的乘积有________个。 3、在同一平面内，直线l⊥直线m，直线l⊥直线n，那么直线m和直线n（______）。 4、四位同学100米的成绩分别是小明14.96秒，小亮15.01秒，小刚14.69秒，小乐16.01秒。其中成绩最好的是（_____），排名第三的是（_____）。 5、正方体的棱长扩大2倍，表面积扩大（_____）倍，体积扩大（_____）倍。 6、下图中,有（____）个梯形,有（____）个平行四边形。 7、每上一层楼梯要走18级台阶，到小明家要走72级台阶，小明家住在 （_________）楼。 8、数一数。 图中有（____）条直线,（____）条线段,（____）条射线。 9、计算小数加减法时，先把各数的______对齐，再按照___________进行计算． 10、一个等腰三角形的顶角是一个底角的3倍，这个等腰三角形的顶角和一个底角分别是（____）度和（____）度。
二、选择题（把正确答案前面的序号填在（）里）（10分） 1、在去年市奥校入学考试中，某个考室有 40 名同学参加考试，其中前10 名同学的平均分比这个考室全部同学的平均分高9 分，那么其余30 名同学的平均分则比这个考室全部同学的平均分低（）分． A．7 B．6 C．5 D．4 E. 3 2、如图表示两个游泳池的长、宽以及池内的人数，比较两池的拥挤程度，结果是（） A．甲池比较拥挤B．乙池比较拥挤C．比不出谁拥挤 3、把一个数改写成用“万”作单位的数，这个数与原数相比，（） A．变大了 B．变小了 C．不变 4、一个长方形折起一个角后如图．∠1＝25°，∠2＝（） A．25°B．40°C．50°D．75° 5、如果用x表示自然数,那么奇数可以表示为（）。 A．2x B．x+2 C．2x+1 三、判断题：对的在（）里画“√”，错的画“×”。（10分） 1、在一次数学检测中，小明所在的小组平均分是92分，小红所在的小组平均分是90分，小明的得分一定比小红高。（）
WORD2010测试题 姓名：学号分数： 一、单选题 1、通常情况下，下列选项中不能用于启动Word 2010的操作是______。 A.单击Windows桌面上的Word 2010快捷方式图标 B.单击"开始"→"所有程序"→"Microsoft Office"→"Microsoft Word 2010" C.双击Windows桌面上的Word 2010快捷方式图标 D.在Windows资源管理器中双击Word文档图标 2、在Word 2010的编辑状态下，文档窗口显示出水平标尺，拖动水平标尺上沿的"首行缩进" 滑块，则___ _。 A.文档中各段落的首行起始位置都重新确定 B.文档中各行的起始位置都重新确定 C.文档中被选择的各段落首行起始位置都重新确定 D.插入点所在行的起始位置被重新确定 3、下面关于Word标题栏的叙述中，错误的是____。 A.拖曳标题栏，可将最大化窗口拖到新位置 B.双击标题栏，可最大化或还原Word窗口 C.拖曳标题栏，可将非最大化窗口拖到新位置 D.以上三项都不是 4、Word 2010的"文件"选项卡下的"最近所用文件"选项所对应的文件是___ __。 A.最近被操作过的word文件 B.当前被操作的文件 C.当前已经打开的Word文件 D.扩展名是.docx的所有文件 5、Word 2010文档的默认扩展名为____ _。 6、在Word 2010编辑状态中，能设定文档行间距的功能按钮是位于_ ___中。 A."文件"选项卡 B."页面布局"选项卡 C."插入"选项卡 D."开始"选项卡
7、Word 2010中的文本替换功能所在的选项卡是____。 A."文件" B."页面布局" C."开始" C."插入" 8、在Word 2010的编辑状态下，"开始"选项卡下"剪贴板"组中"剪切"和"复制"按钮呈浅灰色而不能用时，说明____ _。 A.剪切板上已经有信息存放了 B.选定的内容是图片 C.在文档中没有选中任何内容 D.选定的文档太长，剪贴板放不下 9、在Word 2010中，可以很直观地改变段落的缩进方式，调整左右边界和改变表格的列宽，应该利用____。 A.字体 B.样式 D.编辑 D.标尺 10、Word具有的功能是__ _。 A.表格处理 B.以上三项都是 C.绘制图形 D.自动更正 11、Word 2010文档中，每个段落都有自己的段落标记，段落标记的位置在_ __。 A.段落的首部 B.段落中，但用户找不到的位置 C.段落的结尾处 D.段落的中间位置 12、在Word 2010中，用快捷键退出Word的最快方法是__ ____。 +F5 +F4 +F4 +Shift 13、在Word 2010软件中，下列操作中能够切换"插入和改写"两种编辑状态的是____。 A.用鼠标单击状态栏中的"插入"或"改写" B.按Shift＋I键 C.按Ctrl＋I键 D.用鼠标单击状态栏中的"修订" 14、在Word 2010的编辑状态，可以显示页面四角的视图方式是____ _。 A.草稿视图方式 B.大纲视图方式 C.阅读版式视图方式 D.页面视图方式 15、在Word 2010中编辑文档时，为了使文档更清晰，可以对页眉页脚进行编辑，如输入时间、日期、页码、文字等，但要注意的是页眉页脚只允许在___ __中使用。 A.大纲视图 B.草稿视图 C.页面视图 D.以上都不对
1.【考点分析】本题考查对4位整数的排序。考查的知识点主要包括：数组元素的排序算法，if判断语句和逻辑表达式，以及求余算术运算。 【解题思路】此题属于4位数排序问题。本题需主要解决3个问题：问题1如何取4位数的后3位进行比较；问题2如何按照题目要求的条件(按照每个数的后3位的大小进行降序排列，如果后3位相等，则按照原始4位数的大小进行升序排列)排序；问题3如何将排完序的前10个数存到数组bb中去。 本题的解题思路为：使用双循环对数组按条件进行排序，然后将排完序的前10个数存到数组bb中。对于问题1可以通过算术运算的取余运算实现(aa[i]%1000)；问题2通过包含if判断语句的起泡排序法就可以实现。 【参考答案】 void jsSort() { int i,j; /*定义循环控制变量*/ int temp; /*定义数据交换时的暂存变量*/ for(i=0;i<199;i++) /*用选择法对数组进行排序*/ for(j=i+1;j<200;j++) { if(aa[i]%1000
第二次(第6周)上机作业 一、用T-SQL语句在E:\DATA\文件夹中创建一个教师信息数据库teacher，该数据库包含：（界面方式也要会） 1、一个主数据文件逻辑名‘teacherdata1 ’， 物理名‘E:\DATA\tdata1.mdf ’, 初始容量1MB，最大容量10MB，每次增长量为15%。 2、一个辅助数据文件逻辑名‘teacherdata2 ’ 物理名‘E:\DATA\tdata2.ndf ’, 初始容量2MB，最大容量15MB，每次增长量为2MB。 3、两个数据文件不单独创建文件组，即使用默认的PRIMARY组； 4、一个事务日志文件逻辑名‘teacherlog’物理名‘E:\DATA\teacherlog.ldf ’，初始容量500KB，最大容量不受限制，每次增长量为500KB。 先确认E:\DATA\文件夹已创建， CREATE DATABASE teacher ON PRIMARY ( NAME = teacherdata1 , FILENAME = 'E:\DATA\tdata1.mdf' , SIZE =5MB , MAXSIZE= 10 , FILEGROWTH = 15% ) , ( NAME = teacherdata2 , FILENAME = 'E:\DATA\tdata2.ndf' , SIZE = 2 , MAXSIZE= 15 , FILEGROWTH = 2MB ) LOG ON /* 创建事务日志文件*/ ( NAME = teacherlog , FILENAME = 'E:\DATA\teacherlog.LDF', SIZE = 500 KB ,/* 初始容量，KB单位不能省略*/ MAXSIZE = UNLIMITED ,/* 日志文件最大容量不受限制*/ FILEGROWTH = 500 KB/* 增长量KB 不能省略*/ ) 二、修改数据库“teacher”，增加两个文件组，文件组名：Gteacher1和Gteacher2。ALTER DATABASE teacher Add filegroup Gteacher1 ALTER DATABASE teacher Add filegroup Gteacher2 三、增加一个辅助数据文件，文件逻辑名teacherdata3，物理名为：E:\data\ teacherdata3.ndf’，初始大小为20MB，最大100MB,增量10MB，归属于文件组“Gteacher1”。 Alter database teacher Add file
四年级数学期末测试卷 一、填一填。(每空1分，共20分) 1．据报道，受连续超强台风影响，某地区造成直接经济损失达984500000元，这个数最高位是()位，读作()，改写成以“万”作单位的数是()，省略亿位后面的尾数约是()。2．如果1平方米能站16人，那么1公顷能站()人，1平方千米能站()人。 3．要使4□6÷46的商是两位数，□里最小填()，要使商是一位数，□里最大填()。 4．4时整，时针和分针的夹角是()°，()时整，时针和分针的夹角是180°。 5．456×□8的积是五位数，□里最小填()。 6．将一张圆形纸片先左右对折，再上下对折，得到的角是()度，再对折一次，得到的角是()度。 7．长不变，宽增加了24米，扩大后的面积是()平方米。8．王老师做午饭的过程及时间：淘米(2分钟)、用电饭锅蒸米饭(30分钟)、择菜(3分钟)、洗菜(5分钟)、炒热菜(8分钟)、拌凉菜(5分钟)、盛米饭(1分钟)。王老师从开始做饭到吃饭至少需要()分钟。 9．先观察前面的两道算式，再按规律填一填。 123456789×9＝1111111101 123456789×18＝2222222202 123456789×27＝() 123456789×9×5＝()
123456789×()＝7777777707 10．右图中有()个平行四边形， ()个梯形。 二、辨一辨。(对的画“√”，错的画“×”)(每题1分，共5分) 1．因为13÷4＝3……1，所以1300÷400＝3……1。() 2．笔算除法时，每次除得的余数必须大于除数。() 3．三位数乘两位数的积最多是五位数。() 4．被除数的末尾有0，商的末尾不一定有0。() 5．用5、6、7和5个0组成的只读一个零的最大八位数是76000500。 () 三、选一选。(把正确答案的序号填在括号里)(每题2分，共10分) 1．在同一平面内，甲、乙两条直线都和第三条直线垂直，那么甲、乙两条直线()。 A．互相垂直B．互相平行 C．相交D．以上三种情况都有可能 2．一台复印机可以同时复印2张稿纸，复印一面要3秒，5张稿纸两面都要复印至少需要()秒复印完。 A．24 B．18 C．15 D．12 3．把一个长方形框架拉成一个平行四边形框架后，面积()，周长()。 A．不变B．变大C．变小D．不确定
Word2003操作练习题【 例3-11 】：将以下素材按要求排版。 (1)、将标题字体设置为“华文行楷”，字形设置为“常规”，字号设置为“小初”、选定“效果”为“空心字”且居中显示。 (2)、将“陶渊明”的字体设置为“隶书”、字号设置为“小三”，文字右对齐加双曲线边框，线型宽度应用系统默认值显示。 (3)将正文行距设置为25磅。 【 素材 】： 归去宋辞 ——陶渊明 归去来兮!田园将芜胡不归?既自以心为形役，奚惆怅而独悲?悟已往之不谏，知来者之可追；实迷途其未远，觉今是而昨非。舟摇摇以轻殇，风飘飘而吹衣。问征夫以前路，恨晨光之熹微。乃瞻衡宇，栽欣载奔。童仆欢迎，稚子候门。三径就荒，松菊犹存。携幼入室，有酒盈樽。引壶觞以自酌，眇庭柯以怡颜。倚南窗以寄傲，审容膝之易安。园日涉以成趣，门虽设而常关。策扶老以流憩，时翘首而遐观。云无心以出岫，鸟倦飞而知还。暑翳翳以将入，抚孤松而盘桓。 【答案与解析】具体操作步骤如下： (1)选定“归去来辞”，单击“格式”菜单中的“字体”命令，打开“字体”对话框。将“中文字体”下拉框设置为“华文行楷”，“字形”选择框设置为常规，“字号”选择框设置为“小初”，选定“效果”框中的“空心字”复选框,并保存. (2)单击“确定”按钮，然后单击“格式”工具栏上的“居中”按钮，将文字居中显示。 (3)选定“陶渊明”，单击“格式”菜单中的“字体”命令，打开“字体”对话框，将“中文字体”设置为“隶书”，“字号”设置为“小三”,并保存。 (4)单击“确定”按钮，然后单击格式”工具栏上的“右对齐”按钮，将文字右对齐显示。 (5)再次选定“陶渊明”，单击“格式”菜单中的“边框和底纹”命令，打开“边框和底纹”对话框。在“设置”中选定“方框”；在“线型”下选择双曲线；在“应用范围”框中选择“文字”，单击“确定”按钮,并保存。 (6)选定正文，单击“格式”菜单中的“段落”命令，打开“段落”对话框。单击“行距”框右端的下拉按钮，打开下拉列表，选择“固定值”，然后将后面的“设置值”设置为25磅,并保存。 、管路敷设技术通过管线敷设技术，不仅可以解决吊顶层配置不规范问题，而且可保障各类管路习题到位。在管路敷设过程中，要加强看护关于管路高中资料试卷连接管口处理高中资料试卷弯扁度固定盒位置保护层防腐跨接地线弯曲半径标高等，要求技术交底。管线敷设技术中包含线槽、管架等多项方式，为解决高中语文电气课件中管壁薄、接口不严等问题，合理利用管线敷设技术。线缆敷设原则：在分线盒处，当不同电压回路交叉时，应采用金属隔板进行隔开处理；同一线槽内，强电回路须同时切断习题电源，线缆敷设完毕，要进行检查和检测处理。、电气课件中调试整试验；通电检查所有设备高中资料试卷相互作用与相互关系，根据生产工艺高中资料试卷要求，对电气设备进行空载与带负荷下高中资料试卷调控试验；对设备进行调整使其在正常工况下与过度工作下都可以正常工作；对于继电保护进行整核对定值，审核与校对图纸，编写复杂设备与装置高中资料试卷调试方案，编写重要设备高中资料试卷试验方案以及系统启动方案；对整套启动过程中高中资料试卷电气设备进行调试工作并且进行过关运行高中资料试卷技术指导。对于调试过程中高中资料试卷技术问题，作为调试人员，需要在事前掌握图纸资料、设备制造厂家出具高中资料试卷试验报告与相关技术资料，并且了解现场设备高中资料试卷布置情况与有关高中资料试卷电气系统接线等情况，然后根据规范与规程规定，制定设备调试高中资料试卷方案。 、电气设备调试高中资料试卷技术电力保护装置调试技术，电力保护高中资料试卷配置技术是指机组在进行继电保护高中资料试卷总体配置时，需要在最大限度内来确保机组高中资料试卷安全，并且尽可能地缩小故障高中资料试卷破坏范围，或者对某些异常高中资料试卷工况进行自动处理，尤其要避免错误高中资料试卷保护装置动作，并且拒绝动作，来避免不必要高中资料试卷突然停机。因此，电力高中资料试卷保护装置调试技术，要求电力保护装置做到准确灵活。对于差动保护装置高中资料试卷调试技术是指发电机一变压器组在发生内部故障时，需要进行外部电源高中资料试卷切除从而采用高中资料试卷主要保护装置。
数据库期中上机考试题 1、在E:\学教管理系统\的路径下建立“学教管理”数据库 2、从服务器jsj上的“jxgl1“库中导入数据到“学教管理”数据库中。 3、在‘学教管理’数据库中增加两个数据表Scholarship-class (奖学金等级，平均最低成绩，金额)，Scholarship(学号，奖学金等级，获奖时间)，并建立相应的主码、外码和关联。 4、创建“学教管理”数据库中表之间的关系。 5、根据“学教管理”数据库中的基本数据表，进行下列各操作 1)修改Grade表，添加主码、外部码及关联，以及成绩限制在0～100之间。 2)在课程表中增加一个‘先修课号’属性，用于指定在学本课之前必须先修的课程，如果为空，则表示该课没有要求的先修课程。 3)向Student表中录入一条新记录（2005061，赵五，男） 4)分别向Class和grade表中录入一些2009信管管理、2009工商管理、2009旅游管理、2009数理经济四个班级的信息，以及四个班级的一些同学的选课信息。。 5)将李勇的计算机网络成绩置空。 6)找出所有被学生选修了的课程号。 7)查询01311班女同学的个人信息。 8)查询没有选修1号课程的学生姓名与班级号，并按班级号分组和排序。 9)查询姓李的学生的所有信息。 10)查询2009信息管理专业学生的数据库成绩 11)求选修了所有课程的学生学号和姓名。 12)求选修了数据库课程的学生人数。 13)列出每门课程的选修人数。 14)查询选修了3门课以上的学生学号和姓名 15)查询学生张婷婷选修的课程号、课程名和成绩 16)找出2009数理经济班所学数据库的平均分、最高分、最低分 17)找出与李勇在同一班级的学生基本情况信息 18)找出年龄介于李勇的年龄和25之间的学生信息 19)TOM已退学，从数据库删除有关他的相应记录。
题目： 现有一个商店的数据库，记录顾客及其购物情况，由下面三个表组成：商品（商品号，商品名，单价，商品类别，供应商）； 顾客（顾客号，姓名，住址）； 购买（顾客号，商品号，购买数量）； 试用SQL语言完成下列功能： 1 建表，在定义中要求声明： (1)每个表的主外码； (2)顾客的姓名和商品名不能为空值； (3)单价必须大于0，购买数量必须再0到20之间； 2 往表中插入数据： 商品（M01，佳洁士，8.00，牙膏，宝洁； M02，高露洁，6.50，牙膏，高露洁； M03，洁诺，5.00，牙膏，联合利华； M04，舒肤佳，3.00，香皂，宝洁； M05，夏士莲，5.00，香皂，联合利华； M06，雕牌，2.50，洗衣粉，纳爱斯 M07，中华，3.50，牙膏，联合利华； M08，汰渍，3.00，洗衣粉，宝洁； M09，碧浪，4.00，洗衣粉，宝洁；） 顾客（C01，Dennis，海淀； C02，John，朝阳； C03，Tom，东城； C04，Jenny，东城； C05，Rick，西城；） 购买 (C01，M01，3；C01，M05，2； C01，M08，2；C02，M02，5； C02，M06，4；C03，M01，1； C03，M05，1；C03，M06，3； C03，M08，1；C04，M03，7； C04，M04，3；C05，M06，2； C05，M07，8；） 商品有9 条,顾客有5条, 购买有5条
3 用SQL语句完成下列查询： （1）求购买了供应商"宝洁"产品的所有顾客； （2）求购买的商品包括了顾客"Dennis"所购买商品的顾客（姓名）；（3）求牙膏卖出数量最多的供应商。 4 将所有的牙膏商品单价增加10%。 5 删除从未被购买的商品记录。 参考答案： create table product ( productno char(10) not null, productname char(15) not null, price float(15), sort char(10), supplier char(20), primary key (productno), check (price > 0) ) create table customer ( customerno char(10) not null, customername char(15) not null, address char(10), primary key (customerno) ) create table buy ( customerno char(10) not null, productno char(10) not null, num smallint, primary key (customerno,productno), foreign key (customerno) references customer (customerno), foreign key (productno) references product (productno), check (num between 0 and 20) )
乡镇 学校 班级 姓名 学号 ……………….密………………………封……………………………..线……………………………………. ……………………. …………………….. 四年级数学期末测试题 （满分 120分其中卷面分5分） 时间：90分钟 班级： 姓名： 题号 一 二 三 四 五 六 总分 得分 一、填空题 1. 一个小数由6个十，8个十分之一，5个百分之一组成，这个小数是（ ）。 2. 9.46是由（ ）个1、（ ）个0.1、和（ ）0.01组成。 3. 用字母表示长方形的面积公式S=（ ） 4. 一本书a 元，买40本这样的书需要（ ）元。 5. 一个工厂原有煤x 吨，烧了t 天，每天烧a 吨，还剩（ ）吨。 6. 三个连续自然数的平均数是n,另外两个数分别是（ ）和（ ）。 7. 一个直角三角形中的一个锐角是40度，另一个锐角是（ ）度。 8. 最小的三位数与最大的两位数的乘积（ ）。 9. 钟面上9时整，时针和分针所夹的角是（ ）度。从1点到2点，分针旋转的角度是（ ）度。 10. 甲数是乙数的7倍，甲数比乙数多360，乙数是（ ）。 11. 用字母表示乘法分配律是（ ）。 12. 一周角=（ ）直角 =（ ）平角 13. 25×49×4=（25×4）×49这一运算过程运用了（ ）律。 14. 用3根小棒来拼三角形，已知两根小棒的长度分别为10 厘米和5厘米，那么第三根小棒的长度最短是（ ）厘米。 15. 不用计算，在○填上＜、＞或＝ （40+4）×25○11×（4×25） 200-198○200-200+2 16. 小红用一根17厘米长的铁丝围成了一个三角形，它的边长可能是（ ）、（ ）、（ ）。 二、判断（在括号里对的打“√”，错的打“×”） 1. a 的平方一定大于2a ( ) 2. 一个三角形至少有两个角是锐角。 （ ） 3. 大的三角形比小的三角形内角和度数大。 （ ） 4. 小数点的末尾添上“0”或去掉“0”，小数的大小不变。 （ ） 5. m ×m 可以写成2 m 。 （ ） 6. 小于90度的角一定是锐角。 （ ） 7. 钝角三角形和直角三角形也有三条高。 ( ) 8. 在一道算式中添减括号，可以改变这道题的运算顺序。 （ ） 9.两个数的积一定比它们的和大。 （ ） 10.468×99+468=468×（99+1） （ ） 11. 等腰三角形一定是锐角三角形。 （ ） 12. 所有的等边三角形都是等腰三角形。 （ ） 三、选择（将正确答案的序号填在括号里） １．一个三角形的两条边长分别是3分米、4分米，第三条边一定比（ ）分米短。 A. 3 B. 4 C. 7
Word 习题 一、判断题 1.在Word对象中，能够对图形进行裁剪操作。 2.在Word中，用户可以通过"工具"菜单中的"保护文档"命令对文档设置“修改权限密 码”。 3.在Word文档中，用于打开文档的快捷键是Ctrl +S。 4.在Word编辑状态下，如果选定的文字中含有不同的字体，那么在格式栏“字体”框中， 将会显示所选文字中第一种字体的名称。 5.在Word表格中，单元格的底纹不能改变。 6.在Word中，利用“格式刷”按钮可以复制文本的段落格式、样式、字体和字号格式。 7.在Word中，鼠标左键单击“项目符号”按钮后，可在现有的所有段落前自动添加项目 符号。 8.在Word窗口中的“文件”菜单底部列有若干文档名，这些文件名的数目最多为9个。 9.在Word中，能够与图形对象进行“组合”操作的对象是文字。 10.在Word下列视图中，显示效果与实际打印效果最接近的视图方式是普通视图。 11.在Word中，图形组合功能可以通过绘图工具栏中的“组合”命令来实现。 12.在Word编辑状态下，选定一段文字后，若格式工具栏的“字号”框中显示的内容为空 白，则说明被选定文字中含有两种以上的字号。 13.在Word中，打开“视图”下拉菜单的快捷键是Alt+V。 14.在Word编辑状态下，当选定若干文字后，用鼠标左键单击“常用”工具栏“显示比例” 列表框中的下拉按钮并选定“75%”后，则选定文字按“75%”比例显示，其它不变。15.在Word表格中，通过拖动鼠标选定多个单元格后按del键，则选定单元格的内容被删 除，表格单元格变成空白。 16.在Word编辑状态下，若当前的文本处于竖排状态，当选定若干文字后用鼠标左键单击 “更改文字方向”按钮，则文档中的所有文字均变成横排状态。 17.鼠标左键双击Word标题栏左侧的控制菜单图标为最小化Word窗口。 18.在Word编辑状态下，能实现查找功能的快捷键是Ctrl+A。 19.在Word中，使用“表格”菜单中的“绘制表格”命令在表格的某个单元格内绘制一条 横线后，则原表格以该横线为界，被拆分成两个表格。 20.在Word中，执行“工具”菜单中的“字数统计”命令后，用户不能得到的信息是文档 的行数。 二、选择题 1.Word中保存文档的命令出现在___________菜单里。 A、保存 B、编辑 C、文件 D、实用程序 2.在word编辑状态下，操作的对象经常是被选择的内容，若鼠标在某行行首的左边，下 列___________操作可以仅选择光标所在的行。 A、双击鼠标左键 B、单击鼠标右键 C、将鼠标左键击三下 D、单击鼠标左键 3.在word中，可以双击击状态栏中的___________指示器，通过扩展选取文本的方法来选 择任意大小的文本。 A、插入 B、录制宏 C、扩展 D、改写 4.要使Word能自动更正经常输错的单词，应使用___________功能。 A、拼写检查 B、同义词库 C、自动拼写 D、自动更正
试用SQL的查询语句表达下列查询： 1.检索王丽同学所学课程的课程号和课程名。 select Cno ,Cname from c where Cno in (select cno from sc where sno in (select sno from s where sname='王丽' )) 2.检索年龄大于23岁的男学生的学号和姓名。 select sno,sname from s where sex='男' and age>23 3.检索‘c01’课程中一门课程的女学生姓名 select sname from s where sex='女' and sno in (select sno from sc where cno='c01') 4.检索s01同学不学的课程的课程号。 select cno from c where cno not in (select cno from sc where sno ='s01') 5.检索至少选修两门课程的学生学号。 select sc.sno from s,sc where s.sno=sc.sno group by sc.sno having count(https://www.doczj.com/doc/2b7894828.html,o)>=2 6.每个学生选修的课程门数。 解法一： select so.sno sno,https://www.doczj.com/doc/2b7894828.html,ount,s.sname from(select sc.sno sno,count(sc.sno) ccount from sc,s where s.sno=sc.sno group by sc.sno ) so,s where s.sno=so.sno 解法二： select sc.sno sno,s.sname,count(sc.sno) ccount from sc,s where s.sno=sc.sno group by sc.sno,sname
人力资源管理期末练习题四及答案 一、判断正误(正确的在题前的括号中划√，错误的划X，每小题1分，共10分) (√ )1．以人性为核心的人本管理包括企业人、环境、文化、价值观四个方面。（P22） ( √)2．现代人力资源管理是人力资源获取、整合、保持激励、控制调整及开发的过程。（P23） (√ )3．在企业经营管理活动中，人是管理活动的主体，又是管理活动的客体。（P76） (√ )4．工作分析的结果是职务说明书。（P101） (√ )5．“经常敲击热水瓶”的描述句远不及“每八小时内敲击热水瓶六小时”的描述句（P132） ( ×)6．定额与定员不相关。（P138） (√ )7．通过人才交流中心选择人员，有针对性强且费用低廉等优点，但对于如计算机、通讯等热门人才或高级人才效果不太理想。 (× )8．培训就是人们经常说的开发，二者在内涵和实质方面都是一致的。（P132） (√ )9．榜样的影响是社会学习理论的核心。（P138） (× )10．员工薪酬就是指发给员工的工资。（P202） 二、单项选择题(每小题1分，共10分) 1．以“任务管理”为主要内容的泰勒的“科学管理原理”，是在哪种人性假设基础上提出来的?（A）（P19）A．经济人B社会人 C．自我实现人D复杂人 2．人力资源管理与人事管理的关键区别体现在(B)（P6） A．内容上B．观念上 C．工作程序上D．工作方法上 3．“只有真正解放了被管理者，才能最终解放管理者自己”。这句话表明现代人力资源管理把人看成什么?(A )（ A．资源B、成本C、工具D、物体 4．与员工同甘共苦、同舟共济，反映了人本管理哪方面基本内容？(D)（P26） A．人的管理第一B、以激励为主要方式 C．积极开发人力资源D、培育和发挥团队精神 5、影响招聘的内部因素是（A）（P109） A、企事业组织形象 B、劳动力市场条件 C．法律的监控D、国家宏观调控 6、甑选程序中不包括（B、C、D）（P113-114） A、填写申请表B．职位安排 C．寻找候选人D．公文处理 7．下列方法中不属于考评指标量化方法的是( B )。（P166-179） A．加权B．标度划分 C．赋分D．计分 8．为了使同一技能而实际劳动贡献不同的员工各得其所，可让技能工资与下列哪些类型的工资结合起来使用( A )。（P205-206） 人岗位工资B．奖金 C．结构工资D．浮动工资 9．我国的社会保险制度体系主要包括( A )、医疗保险、失业保险 容。（P224） A．养老保险B．就业保险 C．生活保障D．健康保险
Word 操作练习题 操作题例题与解析 【 例1 】：将以下素材按要求排版。 (1)、将标题字体设置为“黑体”，字形设置为“常规”，字号设置为“小初”、选定“效果”为“空心字”且居中显示。 (2)、将“陶渊明”的字体设置为“楷体”、字号设置为“小三”，文字右对齐加双曲线边框，线型宽度应用系统默认值显示。 (3)将正文行距设置为25磅。 【 素材 】： 归去宋辞 ——陶渊明 归去来兮!田园将芜胡不归?既自以心为形役，奚惆怅而独悲?悟已往之不谏，知来者之可追；实迷途其未远，觉今是而昨非。舟摇摇以轻殇，风飘飘而吹衣。问征夫以前路，恨晨光之熹微。乃瞻衡宇，栽欣载奔。童仆欢迎，稚子候门。三径就荒，松菊犹存。携幼入室，有酒盈樽。引壶觞以自酌，眇庭柯以怡颜。倚南窗以寄傲，审容膝之易安。园日涉以成趣，门虽设而常关。策扶老以流憩，时翘首而遐观。云无心以出岫，鸟倦飞而知还。暑翳翳以将入，抚孤松而盘桓。 【解析】具体操作步骤如下： (1)选定“归去来辞”，单击“格式”菜单中的“字体”命令，打开“字体”对话框。将“中文字体”下拉框设置为“黑体”，“字形”选择框设置为常规，“字号”选择框设置为“小初”，选定“效果”框中的“空心字”复选框。 (2)单击“确定”按钮，然后单击“格式”工具栏上的“居中”按钮，将文字居中显示。 (3)选定“陶渊明”，单击“格式”菜单中的“字体”命令，打开“字体”对话框，将“中文字体”设置为“楷体”，“字号”设置为“小三”。 (4)单击“确定”按钮，然后单击格式”工具栏上的“右对齐”按钮，将文字右对齐显示。 (5)再次选定“陶渊明”，单击“格式”菜单中的“边框和底纹”命令，打开“边框和底纹”对话框。在“设置”中选定“方框”；在“线型”下选择双曲线，单击“确定”按钮。 (6)选定正文，单击“格式”菜单中的“段落”命令，打开“段落”对话框。单击“行距”框右端的下拉按钮，打开下拉列表，选择“固定值”，然后将后面的“设置值”设置为25磅。 【答案】 ——陶渊明 归去来兮!田园将芜胡不归?既自以心为形役，奚惆怅而独悲?悟已往之不谏，知来者之可追；实迷途其未远，觉今是而昨非。舟摇摇以轻殇，风飘飘而吹衣。问征夫以前路，恨晨光之熹微。乃瞻衡宇，栽欣载奔。童仆欢迎，稚子候门。三
数据库及应用复习题 一、设计题 有一个[学生课程]数据库，数据库中包括三个表： 学生表Student由学号(Sno)、姓名(Sname)、性别(Ssex)、年龄(Sage)、所在系(Sdept)五个属性组成，记为： Student(Sno,Sname,Ssex,Sage,Sdept) ，Sno 为关键字。 课程表Course由课程号(Cno)、课程名(Cname)、先修课号(Cpno)、学分(Ccredit)四个属性组成，记为：Course(Cno,Cname,Cpno,Ccredit) Cno为关键字。 成绩表SG由学号(Sno)、课程号(Cno)、成绩(Grade)三个属性组成，记为：SG(Sno,Cno,Grade) (SNO, CNO)为关键字。 用SQL语言实现下列功能： 1．建立学生表Student，其中学号属性不能为空，并且其值是唯一的。 2．向Student表增加“入学时间(Scome)”列，其数据类型为日期型。 3．查询选修了3号课程的学生的学号及其成绩，查询结果按分数的降序排列。4．查询学习1号课程的学生最高分数、平均成绩。 5．查询与“李洋”在同一个系学习的学生。 6．将计算机系全体学生的成绩置零。 7．删除学号为05019的学生记录。 8．删除计算机系所有学生的成绩记录。 1． CREATETABLE Student (Sno CHAR(5) NOT NULL UNIQUE, Sname CHAR(20), Ssex CHAR(2), Sage INT, Sdept CHAR(15)) 2． ALTER TABLE Student ADD Scome DATETIME 3． SELECT Sno, Grade FROM SG WHERE Cno='3' ORDER BY Grade DESC 4． SELECT MAX(Grade), AVG(Grade) FROM SC WHERE Cno='1' 5． SELECT Sno, Sname, Sdept FROM Student WHERE Sdept IN
数据库上机1 1、新建工厂数据库factory。 create database factory on( name=factory_data, filename='d:\factory.mdf') log on(name=factory_log, filename='d:\factory.ldf') 2、数据库factory包括职工表worker、部门表depart和职工工资表salary。用SQL语句建立这三个表并输入数据，其表结构及用例数据分别如下： 职工表结构为： 职工号：int; 姓名：char(8) ; 性别：char(2) ; 出生日期：datetime; 党员否：char(2) ; 参加工作：datetime; 部门号：int; 其中职工号为主码。 部门表结构为：
部门号：int; 部门名：char(10)； 其中部门号为主码。 职工工资表结构为： 职工号：int; 日期：datetime; 工资：decimal(6,1) ; 其中职工号和日期为主码。
create table worker ( 职工号int primary key, 姓名char(8) , 性别char(2), 出生日期datetime, 党员否char(2), 参加工作datetime, 部门号int ) create table depart ( 部门号int primary key, 部门名char(10)
) create table salary ( 职工号int, 日期datetime, 工资decimal(6,1), Primary key(职工号,日期) ) 3. 显示部门的详细信息。 select * from depart 4．查询3号职工的工资单。 select * from salary where职工号=3 5．显示所有职工的姓名及年龄，并按姓名升序显示。 select 姓名, 2015-year(出生日期) '年龄' from worker order by姓名6. 求出各部门的部门号及党员人数。 select 部门号,count(党员否) '党员人数' from worker where 党员否='是' group by 部门号 7. 在worker表的“姓名”列创建唯一索引nameindex。 create unique index nameindex on worker (姓名) 数据库上机2 1. 查询12月份过生日的名单。 答：select 姓名from worker where month(出生日期)= 12 2. 查询所有姓刘的职工信息。 select * from worker where 姓名like ‘刘%’ 3. 显示所有职工的职工号和2011年2月份的工资数。 select 职工号,工资from salary where year(日期)=2011 and month(日期)=2 4. 查询1号部门所有职工的姓名和工资，并按工资降序排列。
部编版四年级数学下册期末练习题及答案 班级：姓名：满分：100分考试时间：90分钟 题序一二三四五总分 得分 一、填空题。（20分） 1、一个等腰三角形两条边长分别是2cm 和5cm，则三角形的周长是（____）cm。 2、数一数，右图中一共有（_____）个三角形。 3、由3个千万，5个万、6个百和2个十组成的数是（_______），这个数读作（__________）。 4、李老师给参加数学竞赛获奖的同学买奖品，用148.8元买了12枝钢笔，每枝钢笔值________元。 5、一个等腰三角形的两条边分别是5厘米和8厘米，那么它的周长是（____）或（____） 6、四位同学100米的成绩分别是小明14.96秒，小亮15.01秒，小刚14.69秒，小乐16.01秒。其中成绩最好的是（_____），排名第三的是（_____）。 7、有八个数排成一列，它们的平均数是54，前五个数的平均数是46，后四个数的平均数是68，第五个数是________． 8、下图中,有（____）个梯形,有（____）个平行四边形。 9、一个等腰三角形的一个底角是50°,它的顶角是（____）。 10、如图，已知∠1=40°，那么，∠2=________．
二、选择题（把正确答案前面的序号填在（）里）（10分） 1、如图表示两个游泳池的长、宽以及池内的人数，比较两池的拥挤程度，结果是（） A．甲池比较拥挤B．乙池比较拥挤C．比不出谁拥挤 2、把3厘米长的线段向两端各延长5米，得到的是一条（） A．直线 B．线段 C．射线 3、（x+y）+z=x+（y+z），这道算式运用（） A．加法结合律B．加法交换律C．乘法交换律 4、从山下到山顶的盘山公路长3千米，小明上山每小时行2千米，下山每小时行3千米，他上、下山的平均速度是每小时（）千米。 A．2.5 B．1.2 C．2.4 5、在一个条形统计图里，用3厘米的直条表示60人，用（）厘米长的直条表示400人． A．10 B．15 C．20 三、判断题：对的在（）里画“√”，错的画“×”。（10分） 1、判断题:要使□345÷45的商是两位数，□里最大能填3. （）
《计算机操作基础》word练习题答案 班别学号姓名 一、判断题： 1、(√)用“插入”菜单中的“符号”命令可以插入符号和其他特殊字符。 2、(√)WORD中的工具栏可由用户根据需要显示或隐藏。 3、(√)对文本及图片都可以进行剪切、复制、粘贴操作。 4、(√)用“格式”菜单中的“字体”命令可以设置字体颜色、字间距。 5、(√)在WORD中，可同时打开多个WORD文档。 6、(×)格式工具对表格内容不起作用。 7、(×)在WORD中，一个表格的大小不能超过一页。 8、(√)剪贴板上的内容可粘贴到文本中多处，甚至可粘贴到其他应用程序。 9、(√)在WORD中制表时，当输入的文字长度超过单元格宽度时，表格会自动扩展列宽。 10、(√)WORD具有将表格中的数据制作成图表的功能。 11、(√)WORD表格可以按指定某列数据进行排序。 12、(√)WORD中可以利用“合并单元格”、“拆分单元格”制作不规则的表格，也可以利用 “绘制表格”和“擦除”工具。 13、(×)在WORD中只能用绘图方法画出表格的斜线。 14、(√)改变表格行高时，只能改变一整行的高度，不能单独改变某个单元格的高度。 15、(×)WORD中的所有功能都可通过工具栏上的工具按钮来实现。 16、(×)用剪贴板只能移动文本而不能复制文本。 17、(×)要改变字符的颜色只能通过字体对话框来设置。 18、(×)利用鼠标拖动选择快时，表示进行复制。 19、(√)单击“保存”命令就是保存当前正在编辑的文档，如果是第一次保存，则会弹出“另存为”对话框。 20、(√)分栏中的“间距”是指两栏之间的间隔。 21、(×)已设置了“密码”的文件，如果忘记了口令，可以删除该口令。 22、(×)WORD97不一定需要在WINDOWS环境下工作，它可以独立运行。 23、(×)如果WORD97文档窗口中不出现标尺，可通过“视图—工具栏”命令显示标尺。 24、(×)WORD是一个系统软件。 25、(√)标尺的作用是控制文本内容在页面中的位置。 26、(√)在WORD文档中，如果要选定几个图形对象，可单击“绘图”工具栏上的“选择对象”按钮，然后拖动鼠标框住要选定的对象即可。 27、(√)如果想要在Windows95桌面设置一个WORD应用程序的图标，应首先用鼠标右键单击Windows95桌面的任意位置。 28、(×)普通视图模式下，显示的效果和打印出来的效果基本一致。 29、(√)删除分页符时，只需将光标移到分页符上，按DEL键即可。 30、(√)表格虚框不能打印出来，所以“隐藏虚框”命令不影响打印效果。 31、(×)WORD中的表格是一个图形对象，可以任意移动位置、放大或缩小。 32、(√)文本块的复制和粘贴必须经过剪贴板。