1、编制通用函数过程,计算1+2+……+N 的值。在窗体的Click事件中调用该函数。
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事件中调用该函数。
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事件中调用该函数。
Private Function prime(n As Integer) As Boolean '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事件中调用该函数,输入一个整数,判断
其奇偶性。比如:输入10则显示“10是偶数”,输入3则显示“3是奇数”
Private Function Odd(n As Integer) As string
If n Mod 2 = 0 Then
Odd =n & “是偶数”
Else
Odd = n & “是奇数”
End if
End Function
Private Sub Form_Click()
Print Odd(4),Odd(5)
End Sub
5、新建一个工程,完成“密码检验”程序的设计。具体要求如下:
(1)参照运行时界面完成界面设计。(2)文本框Text1,用于输入密码。文本框中输入的字符显示为*,并且最多可以接受7个字符。(3)窗体的下半部有一个标签控件Label2,用来显示密码输入后的提示信息。(4)当在文本框中输入密码“1234567”,并按回车后,标签Label2显示为“欢迎光临!”;
如果输入的密码与“1234567”不吻合,标签Label2显示为“密码不符,请再输入一遍!”,同时清空文本框的内容,允许再输入一遍;如果第二次输入的密码仍然与“1234567”不吻合,标签Label2显示为“非法用户,请退出程序!”,文本框就不能使用了。
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 'n用来记录输入次数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)完成以下功能:文本框实现文本编辑功能,单击按钮实现相应功能。
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) 完成以下功能:输入查找内容,把编辑框中所有与查找内容一样的部分替换成另外一个内容。单击
“替换”按钮执行。
Private Sub Command1_Click()
Dim len1 As Integer, len2 As Integer, len3 As Integer
len1 = Len(Text1) '计算文本框1的长度放入变量len1中
len2 = Len(Text2) '计算文本框2的长度放入变量len2中
len3 = Len(Text3) '计算文本框3的长度放入变量len3中
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
End Sub
8、新建一个工程,完成“字体修饰”程序的设计。具体要求如下:
(1)按照下图所示在窗体上放置按钮和控件。窗体的标题为“字体修饰”。
(2)框架Frame1中有一个复选框数组,可以选择粗体,斜体对标签中的文字进行修饰。
(3)框架Frame2中有一个单选钮框数组,可以选择宋体或楷体对标签中的文字进行修饰。
(4)标签Label1的文字内容为“Visual Basic程序设计“,宋体,常规,三号;文字对齐方式为居中。
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)完成以下功能:选择所需套餐种类及份数,单击确定按钮后计算所需的钱,并用消息框显示。
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 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%。请根据用户输入的原有工资,计算出增加后的工资。
Private Sub Command1_Click()
Text1.SetFocus
Text1.Text = ""
Text2.Text = ""
Option1.Value = False
Option2.Value = False
Option3.Value = False
End Sub
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
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)所有文本框只接受数字。
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
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
12、设计一个“个人资料”输入窗口,程序运行界面如下图所示。具体要求如下:
(1)按照运行界面设计窗体,其中“民族”用组合列表框显示。
(2)单击“确定”按钮,将个人资料信息输出在“个人资料”框架的标签框中。
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 ' Hobby为变量名,存放爱好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
' Txtname 表示姓名文本框的名称,Txtage 表示年龄文本框的名称 End Sub
Private Sub Command2_Click() End End Sub 13、 新建一个工程,完成应用程序的设计。具体要求如下:
(1) 按照下图所示在窗体上放置按钮和控件。品牌用组合框显示。
(2) 窗体上有两个CheckBox ,当这两个选项未被选定时,它们所在框架的其他控件不能使用。 (3) 如果单击“确定”按钮,则在按钮下面的标签框中显示用户所选择的信息。
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 Text1.Enabled = True Combo1. Enabled = True Else Combo1.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)单击“退出”按钮,结束该程序。
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)参照运行时界面完成界面设计。(2)列表框内容中有四项,分别为“Word 、Excel 、PowerPoint 、Outlook ”。(3)单击“添加”按钮(Command1),将文本框中的内容回到列表框中的第一项,如果文本框中没有内容,则给出提示“没有内容,不予添加”。(4)单击“删除”按钮(Command2),将选中表项删除,如果没有选择要删除的表项,则给出提示“请选择输出的项目”。
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)参照运行时界面完成界面设计。(2)窗体的上边有一个文本框Text1,文字内容为“心想事成”,Font :宋体、常规、三号。(3)左边简单组合框Combo1,有三项内容,分别是“左对齐、居中、右对齐”,单击时对文本框的对齐方式进行设置。(3)右边简单组合框Combo2,有四项内容,分别是“常规、斜体、粗体、粗斜体”,单击时对文本框的字型进行设置。
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、
(1)参照运行时界面完成界面设计。(2)能完成以下功能:单击“产生”按钮,实现随机产生10个两位正整数,在左边列表框内显示;单击“—>”按钮,把左边列表框中的偶数全部移到右边列表框中。
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)还原:将所有表项添加至左边列表框( 全部左移)
Private Sub Form_Load()
List1.AddItem "蓝球"
List1.AddItem "足球"
List1.AddItem "排球"
List1.AddItem "羽毛球"
List1.AddItem "乒乓球"
List1.AddItem "跑步"
List1.AddItem "登山"
List1.AddItem "网球"
List1.Multiselect=1 '实现多选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)参照运行时界面完成界面设计。(2)在两个列表框控件的list 中输入一些内容。(3)当单击“<”按钮时,把list2中选中的一项放到list1中,并且在list2中删除该项。(4)当单击“<<”按钮时,把list2中所有的项放到list1中,并且清空list2。(5)当单击“结束”按钮时,退出应用程序。
Private Sub Command1_Click() '> If List1.ListIndex <> -1 Then List2.AddItem List1.Text
'或者:List2.AddItem List1.List(List1.ListIndex) List1.removeitem (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)参照运行时界面完成界面设计。(2)左边一个简单组合框,对文本框的字体进行设置;有三项内容,分别是“宋体、黑体、楷体_GB2312”。(3)右边一个简单组合框,对文本框的文字大小进行设置;大小范围为8~20。
Private Sub Form_Load()
Text1.Text = "心想事成" Combo1.Additem "宋体" Combo1.Additem "黑体"
Combo1.Additem "楷体_Gb2312" Combo1.Text = "宋体" For i=8 to 20
Combo2.Additem i Next
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)单击“结束”,退出程序运行。
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) - 1
If book <> "" And index >= 0 And index <= list1.ListCount - 1 Then '判断是否已输入书名和有效的排名list1.AddItem book, index
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() '清除Text1.Text= "": Text2.Text=""
End Sub
Private Sub Command4_Click() '结束End
End Sub
22、(1)参照运行时界面完成界面设计。(2)单击滚动条左右箭头时,标签上的字可以左右移动,
标签移动范围等于滚动条的范围。
Private Sub Form_Load()
HScroll1.Max = Form1.Width - Label1.Width '标签移动到最右边的Left值即为滚动条的最大值
HScroll1.Value = Label1.Left '标签移动到最左边的Left值即为滚动条的最小值
End Sub
Private Sub HScroll1_Change() Label1.Left = HScroll1.V alue End Sub
Private Sub HScroll1_Scroll() Call HScroll1_Change End Sub
Private Sub Command1_Click() '结束 End End Sub 23、
(1)参照运行时界面完成界面设计。(2)滚动条的取值范围均为10-40。(3)完成以下功能:根据设定字号改变标签框内显示文字的大小。要求水平滚动条与文本框相关联。
Private Sub Form_Load() HScroll1.Max = 40 HScroll1.Min = 10
Label1.FontSize = HScroll1.Value Form1.Caption = "改变字号" End Sub
Private Sub HScroll1_Change() Text1.Text = HScroll1.V alue
Label1.FontSize = HScroll1.Value End Sub Private Sub HScroll1_Scroll() Call HScroll1_Change 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秒。
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)参照运行时界面完成界面设计。(2)在属性窗口中将标签(Label1)的标题设为“祝您考试成功”,字体设置为“宋体”、字形为“粗体”、大小为“二号”、文字颜色为“红色”。(3)单击“开始”按钮,标签文字在定时器控制下自动地从左向右移动,移动速度为每个时间间隔右移100缇,当标签移动到窗体外时,再从窗体的左边进入。同时“开始”按钮变为“停止”按钮。(4)单击“停止”按钮,标签“祝您考试成功”文字停止滚动。同时“停止”按钮变为“开始”按钮。(5)定时器(Timer1)的时间间隔为0.1秒。
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.Left < Form1.Width Then Label1.Left = Label1.Left + 100 Else
Label1.Left = -Label1.Width End If End Sub
26、
(1)参照运行时界面完成界面设计。(2)单击“开始”按钮(Command1),标签“欢迎光临”(Label1)文字在定时器控制下字号自动增加2。同时“开始”按钮变为“停止”按钮。(3)单击“停止”按钮,标签“欢迎光临”文字停止放大。同时“停止”按钮为“开始”按钮。(4)要求标签文字在放大时保持水平居中。(5)定时器(Timer1)的时间间隔为0.2秒。
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 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.FontSize = Label1.FontSize + 2
Label1.Left = Form1.ScaleWidth / 2 - Label1.Width / 2 Label1.Top = Form1.ScaleHeight / 2 - Label1.Height / 2 End Sub 27、
(1)参照运行时界面完成界面设计。(2)设计两个定时器,Timer1用于显示系统时间,时间间隔为1秒;Timer2用于判断闹钟时间,时间间隔为0.5秒,Timer2设置为不可使用。(3)窗体的上半部是标签Label1,用于显示时间,设置Label1的Font 为:宋体、粗体、二号,背景白色,文字居中对齐,
固定边框。(4)窗体的下半部有一个标签Label2,标题为“闹钟时间:”;Label2的右边是文本框Text1。(5)在文本框中输入闹钟时间并按回车后,启动判断闹钟时间的定时器Timer2,如果Label1显示的时间超过闹钟时间,则标签Label1的背景色按红白两色交替变换。
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)参照运行时界面完成界面设计。(2)窗体的左边有一个框架Frame1,标题为“选择时间”;框架内有一组单选按钮控件数组,从上到下为Option1(0)、Option1(1)、Option1(2),标题分别为“1分钟”、“5分钟” 、“10分钟”。默认选择为1分钟。(3)标签Label1,用于显示倒计时的剩余的时间。(4)单击“开始计时”按钮(Command1)后,程序根据选择的时间开始倒计时,同时命令按钮变为不可使用,框架也不可使用。(5)当剩余时间到0分0秒时,改为显示“时间到!”。(6)定时器Timer1的时间间隔为1秒。
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的标题设置为“计时开始”用来启动计时器,当计时开始后标题变为“停止”用来关闭计时器,同时以消息框显示一共运行几小时几分几秒。
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秒”。
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秒。
Private Sub Form_Load()
Timer1.Enabled = False
VScroll1.V alue = 300
End Sub
Private Sub Command1_Click()
If Command1.Caption = "开始" Then
Timer1.Enabled = True
Command1.Caption = "停止"
Else
Timer1.Enabled = False
Command1.Caption = "开始"
End If
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的文字颜色。
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
33、
(1)参照运行时界面完成界面设计。(2)窗体的上边有一个文本框Text1,设置为最多接受10个字符;
Font宋体、粗体、三号;文字颜色兰色。(3)用命令按钮数组Command1(0)~Command1(9)构成数字键,数字键标题正好命令按钮数组的下标一致。单击数字键按钮,将拨号的内容显示在文本框中。(4)单击“重拨”按钮(Command2),再现原来的拨号过程;(提示:再现过程由定时器实现)(5)定时器Timer1的时间间隔为0.5秒。
Dim s As String, i As Integer
Private Sub Form_Load()
Timer1.Enabled = False
Text1.Text = ""
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)参照运行时界面完成界面设计。(2)在窗体上创建一个Label2的控件数组,数组长度为6,用于显示动画的图像“--->”。(3)在窗体上放置一个timer 控件,用它来控制Label2上的图像位置的变化。(4)单击“开始”按钮时label2上的图像开始移动,单击“结束”按钮图像停止移动,设置每一秒移动一个箭头。
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秒。
……
Dim k as Integer
习题二 ⒉1描述以下四个概念的区别:头指针变量,头指针,头结点,首结点(第一个结点)。解:头指针变量和头指针是指向链表中第一个结点(头结点或首结点)的指针;在首结点之前附设一个结点称为头结点;首结点是指链表中存储线性表中第一个数据元素的结点。若单链表中附设头结点,则不管线性表是否为空,头指针均不为空,否则表示空表的链表的头指针为空。 2.2简述线性表的两种存储结构有哪些主要优缺点及各自使用的场合。 解:顺序存储是按索引直接存储数据元素,方便灵活,效率高,但插入、删除操作将引起元素移动,降低了效率;而链式存储的元素存储采用动态分配,利用率高,但须增设表示结点之间有序关系的指针域,存取数据元素不如顺序存储方便,但结点的插入和删除十分简单。顺序存储适用于线性表中元素数量基本稳定,且很少进行插入和删除,但要求以最快的速度存取线性表中的元素的情况;而链式存储适用于频繁进行元素动态插入或删除操作的场合。 2.3 在头结点为h的单链表中,把值为b的结点s插入到值为a的结点之前,若不存在a,就把结点s插入到表尾。 Void insert(Lnode *h,int a,int b) {Lnode *p,*q,*s; s=(Lnode*)malloc(sizeof(Lnode)); s->data=b; p=h->next; while(p->data!=a&&p->next!=NULL) {q=p; p=p->next; } if (p->data==a) {q->next=s; s->next=p;} else
{p->next=s; s->next=NULL; } } 2.4 设计一个算法将一个带头结点的单链表A分解成两个带头结点的单链表A和B,使A中含有原链表中序号为奇数的元素,而B中含有原链表中序号为偶数的元素,并且保持元素原有的相对顺序。 Lnode *cf(Lnode *ha) {Lnode *p,*q,*s,*hb; int t; p=ha->next; q=ha; t=0; hb=(Lnode*)malloc(sizeof(Lnode)); s=hb; while(p->next!=NULL) {if (t==0) {q=p;p=p->next;t=1;} else {q->next=p->next; p->next=s->next; s->next=p; s=p; p=p->next; t=0; } } s->next=NULL; return (hb); }
第二次(第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
目录:数学选修2-2 第一章 导数及其应用 [基础训练A 组] 第一章 导数及其应用 [综合训练B 组] 第一章 导数及其应用 [提高训练C 组] 第二章 推理与证明 [基础训练A 组] 第二章 推理与证明 [综合训练B 组] 第二章 推理与证明 [提高训练C 组] 第三章 复数 [基础训练A 组] 第三章 复数 [综合训练B 组] 第三章 复数 [提高训练C 组] (数学选修2-2)第一章 导数及其应用 [基础训练A 组] 一、选择题 1.若函数()y f x =在区间(,)a b 内可导,且0(,)x a b ∈则000()()lim h f x h f x h h →+-- 的值为( ) A .'0()f x B .'02()f x C .'02()f x - D .0 2.一个物体的运动方程为21t t s +-=其中s 的单位是米,t 的单位是秒, 那么物体在3秒末的瞬时速度是( ) A .7米/秒 B .6米/秒 C .5米/秒 D .8米/秒 3.函数3y x x =+的递增区间是( ) A .),0(+∞ B .)1,(-∞ C .),(+∞-∞ D .),1(+∞ 4.32()32f x ax x =++,若'(1)4f -=,则a 的值等于( ) A .319 B .3 16 C . 313 D .310 5.函数)(x f y =在一点的导数值为0是函数)(x f y =在这点取极值的( ) A .充分条件 B .必要条件 C .充要条件 D .必要非充分条件 6.函数344 +-=x x y 在区间[]2,3-上的最小值为( ) A .72 B .36 C .12 D .0 二、填空题 1.若3'0(),()3f x x f x ==,则0x 的值为_________________; 2.曲线x x y 43 -=在点(1,3)- 处的切线倾斜角为__________;
1全国计算机等级考试二级MSOffice高级 应用考试大纲(2020年版) 基本要求 1.掌握计算机基础知识及计算机系统组成。 2.了解信息安全的基本知识,掌握计算机病毒及防治的基本概念。 3.掌握多媒体技术基本概念和基本应用。 4.了解计算机网络的基本概念和基本原理,掌握因特网网络服务和应用。 5.正确采集信息并能在文字处理软件Word、电子表格软件Excel、演示文稿制作软件Power Point中熟练应用。 6.掌握Word的操作技能,并熟练应用编制文档。 7.掌握Excel的操作技能,并熟练应用进行数据计算及分析。 8.掌握PowerPoint的操作技能,并熟练应用制作演示文稿。 考试内容 一、计算机基础知识 1.计算机的发展、类型及其应用领域。 2.计算机软硬件系统的组成及主要技术指标。 3.计算机中数据的表示与存储。 4.多媒体技术的概念与应用。 5.计算机病毒的特征、分类与防治。 6.计算机网络的概念、组成和分类;计算机与网络信息安全的概念和防控。 7.因特网网络服务的概念、原理和应用。 二、Word的功能和使用 1.MicrosoftOffice应用界面使用和功能设置。 2.Word的基本功能,文档的创建、编辑、保存、打印和保护等基本操作。 3.设置字体和段落格式、应用文档样式和主题、调整页面布局等排版操作。 4.文档中表格的制作与编辑。 5.文档中图形、图像(片)对象的编辑和处理,文本框和文档部件的使用,符号与数学公式的
2 输入与编辑。 6.文档的分栏、分页和分节操作,文档页眉、页脚的设置,文档内容引用操作。7.文档审阅和修订。 8.利用邮件合并功能批量制作和处理文档。 9.多窗口和多文档的编辑,文档视图的使用。 10.分析图文素材,并根据需求提取相关信息引用到Word文档中。 三、Excel的功能和使用 1.Excel的基本功能,工作簿和工作表的基本操作,工作视图的控制。 2.工作表数据的输入、编辑和修改。 3.单元格格式化操作、数据格式的设置。 4.工作簿和工作表的保护、共享及修订。 5.单元格的引用、公式和函数的使用。 6.多个工作表的联动操作。 7.迷你图和图表的创建、编辑与修饰。 8.数据的排序、筛选、分类汇总、分组显示和合并计算。 9.数据透视表和数据透视图的使用。 10.数据模拟分析和运算。 11.宏功能的简单使用。 12.获取外部数据并分析处理。 13.分析数据素材,并根据需求提取相关信息引用到Excel文档中。 四、PowerPoint的功能和使用 1.PowerPoint的基本功能和基本操作,演示文稿的视图模式和使用。 2.演示文稿中幻灯片的主题设置、背景设置、母版制作和使用。 3.幻灯片中文本、图形、SmartArt、图像(片)、图表、音频、视频、艺术字等对象的编辑和应用。 4.幻灯片中对象动画、幻灯片切换效果、链接操作等交互设置。 5.幻灯片放映设置,演示文稿的打包和输出。 6.分析图文素材,并根据需求提取相关信息引用到PowerPoint文档中。 考试方式 上机考试,考试时长120分钟,满分100分。 1.题型及分值 单项选择题20分(含公共基础知识部分10分)。 Word操作30分。 Excel操作30分。 PowerPoint操作20分。
题目: 现有一个商店的数据库,记录顾客及其购物情况,由下面三个表组成:商品(商品号,商品名,单价,商品类别,供应商); 顾客(顾客号,姓名,住址); 购买(顾客号,商品号,购买数量); 试用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) )
《计算机应用基础》综合练习题(二)及答案 第1题、在Internet Explorer中,将https://www.wendangku.net/doc/9811863494.html,加入可信站点,通过管理员认可,才能运行可信站点中的ActiveX控件和插件。 第1题操作步骤: 1.选择“开始”菜单中“设置”子菜单中的“控制面板”命令,打开“控制面板”窗口。2.在“控制面板”窗口中单击“网络和Internet连接”。 3.在“网络和Internet连接”窗口中单击“Internet选项”,打开“Internet属性”对话框。 4.打开“安全”选项卡,单击“受信任的站点”图标。 5.单击“站点”按钮,打开“可信站点”对话框。 6.在文本框中输入https://https://www.wendangku.net/doc/9811863494.html,,单击“添加”按钮。 7.单击“确定”按钮,返回“Internet属性”对话框。 8.在“Internet属性”对话框中,单击“自定义级别”按钮,打开“安全设置”对话框。9.在“运行ActiveX控件和插件”下选择“管理员认可”选项,单击“确定”按钮,返回“Internet属性”对话框。 10.单击“Internet属性”对话框中的“确定”按钮,操作完成。 第2题、将InternetExplorer设置为取消智能图像抖动,不显示图片,不在媒体栏中显示联机媒体内容。 第2题操作步骤: 1.打开InternetExplorer。 2.选择“工具”菜单中的“Internet选项”命令,打开“Internet属性”对话框。 3.选择“高级”选项卡,取消“多媒体”栏下的“智能图像抖动”选项;取消“多媒体”栏下的“显示图片”选项;选中“多媒体”栏下的“不在媒体栏显示联机媒体内容”选项。4.单击“确定”按钮,操作完成。 第3题、为了更好地管理OutlookExpress发送的邮件,请做如下设置:自动将我的回复对象添加到通讯簿,在撰写邮件时自动完成电子邮件地址,将发送国际邮件时的默认编码设置为日文(JIS),回复邮件时总是使用英文标头。 第3题操作步骤: 1.打开OutlookExpress。 2.选择“工具”菜单中的“选项”命令,打开“选项”对话框。 3.选择“发送”选项卡,选中“自动将我的回复对象添加到通讯簿”和“在撰写邮件时自动完成电子邮件地址”两个选项。
《运动训练学》复习题参考答案: 《运动训练学》练习题1 判断题:(正确√,错误×) 1.竞技体育包括运动选材、运动训练和运动竞赛三方面。× 2.竞技体育管理也是竞技体育的一个重要的组成部分。√ 3.竞技体育是以娱乐为主要目的游戏发展起来的。× 4.竞技体育中的“竞”是指比赛和竞争,“技”是指运动技艺。√ 5.竞争性是竞技体育赖以存在的基础。√ 6.竞技体育是只有很少的人参与的社会行为。√ 7.提高运动员的竞技能力和运动成绩是运动训练活动的目的。√ 8.运动选材好就一定可以保证训练成绩的取得。× 9.运动员的竞技能力是后天训练获得的。× 10.现代运动训练从仅由少数教练员和运动员构成的封闭训练向有社会多种角色积极 介入的开放性训练的方向发展。√ 11.各运动项目对运动员竞技能力的要求不同,但对每名运动员竞技能力的构成特点 是相同的。× 12.运动训练项目和内容的专一性,并不排斥有利于专项竞技能力提高的其他项目的 训练内容和手段。√ 13.运动成绩是运动员参加比赛的结果,要取得比赛成绩主要依靠裁判。× 14.不同项目运动员的竞技能力在比赛中的表现不一样。√ 15.在某种意义上来说,在运动成绩的取得中,竞技水平的发挥比比赛的名次的取得 更重要。√ 16.竞技能力是运动员参赛的能力,它包括体能、技能、战术能力、心理能力和智能, 并不表现于专项竞技比赛中。√ 17.运动员先天遗传性竞技能力随着人的发育阶段的递进而表现出不同水平,后天获 得性竞技能力也随训练过程的延伸而变化,一定会越变越好。× 18.每名运动员的竞技能力有着各自不同的特征,优秀运动员竞技能力的结构也各自 不同。√ 单选题: 1.在竞技体育的基本特点中,哪一个是竞技体育运动区别于其他体育运动的最本质特 点A A.竞争性 B.公平性 C.规范性 D.公开性 2.下列四种选项中,有一项不属于竞技体育社会功能的选项。A A.最大限度地挖掘人的生理潜力 B.振奋民族精神 C.丰富人们的文化和精神生活 D.促进经济的发展和繁荣 3.在竞技体育的多种构件中,哪一个是最重要的B. A.运动选材 B.运动训练 C.运动竞赛 D.运动管理 4.运动员训练的直接目的是什么B A.提高运动成绩 B.提高竞技能力 C.参加竞赛 D.增强体制
附件1 全国计算机等级考试报名系统 考生使用说明书 教育部考试中心 2016.05
目录 一、注册账号和登录............................................................................................................... 1. 注册通行证.................................................................................................................... 2. 登录系统........................................................................................................................ 3. 欢迎界面介绍................................................................................................................ 二、考试报名........................................................................................................................... 1. 阅读报名协议................................................................................................................ 2. 填写基本信息................................................................................................................ 3. 报考科目........................................................................................................................ 4. 上传照片........................................................................................................................ 5. 申请信息审核................................................................................................................ 6. 网上支付........................................................................................................................ 7. 现场确认........................................................................................................................
数据库及应用复习题 一、设计题 有一个[学生课程]数据库,数据库中包括三个表: 学生表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号部门所有职工的姓名和工资,并按工资降序排列。
《数据库及其应用》机考训练 操作题参考答案 在《数据库机考训练》中,目前一共提供给学生2套练习题,其中每套4道操作题,为方便任课教师和学生进行操作和答题,特给出题目中难点的解题标答(非难点部分答案略)。本套标答对应的试卷提交后能在评分信息中看到操作题的试题序号如下图所示,其4道操作题相关解题操作如下: 1-7295 ................................................................................................................错误!未定义书签。2-7292 ................................................................................................................错误!未定义书签。3-7302 ................................................................................................................错误!未定义书签。4-7296 ................................................................................................................错误!未定义书签。 1-7295操作题: 一、基本操作 1.为"tStock"表的字段"单位"设置查阅列表,列表中显示"只"、"箱"两个值;(说明:查阅列表请按照"只"、"箱"出现。) 字段的设计视图答案如下: 2.删除"tStock"表中的"备注"字段;添加"照片"字段,类型为"OLE"型;(答案略) 3.针对下列要求设置"tStock"表的相关属性: (1)"出厂价"只能输入3位整数和2位小数(整数部分可以不足3位,小数部分也可以不足2位); 字段设计视图答案如下: (2)"单位"字段的默认值为"只"。(答案略) (3)"产品名称"不得取空值(null)。(答案略) 4.分析"tStock"表的字段构成,判断并设置其主键,建立"tQuota"与"tStock"表之间的关系,并实施参照完整性、级联删除; 答案: 5.设置在某个表中删除某种产品的记录时连带将另一个表中的相关记录一起删除。 二、简单应用 1.创建一个查询(如图),查找每种"产品名称"的规格种类数,并且要求该产品名称的库存数量应高于1000,查询结果显示"产品名称"和"规格种类数"字段,所
全国计算机等级考试(二级Visual Basic) 上机考试模拟系统使用说明 一、系统概述 全国计算机等级考试(二级Visual Basic)上机考试模拟系统是结合全国计算机等级考试2002年新大纲开发的考试自测软件。它提供了开放式的考试环境,具有自动计时、自动阅卷评分等功能,完全模拟真实考场的一切功能,能让考生尽快熟悉等级考试的考试环境,掌握全国计算机等级考试的出题规律,顺利地通过计算机等级考试。 二、系统安装 ◆安装程序 方法一:常规安装 1.将光盘放入光驱内。 2.单击打开“添加/删除程序”对话框。 3.单击“安装”按钮。 4.按照屏幕上的提示进行相应的安装操作。 方法二:人工安装 如果在上述情况下均未出现安装程序的界面,请按照下列方法进行人工安装。 1.将光盘放入光驱内。 2.光盘会自动运行,并显示安装界面,然后可以根据需要和提示进行相应安装等操作。 ◆硬件环境(建议) 中央处理器: PentiumII 233以上 内存: 32MB以上 硬盘存储器: 100MB以上剩余硬盘空间 显示适配器: SVGA 屏幕分辨率:最佳效果(800*600),16色以上。 ◆软件环境(建议) 最佳环境 操作系统:中文版Windows 98 试题运行环境:Microsoft Visual Basic 6.0 支持环境 操作系统:中文版Windows 98/Me/2000/XP 试题运行环境:Microsoft Visual Basic 6.0 说明:如果机器上未安装中文版Microsoft Visual Basic 6.0,则在考试中不能进行测试。系统对此相应部分将以零分处理。 三、系统卸载 ◆卸载程序 方法一:常规方法 1.打开“添加/删除程序”对话框。 2.在对话框下面的列表中选择“全国计算机等级考试(二级Visual Basic)全真模拟环境”。 3.单击“添加/删除”按钮可以卸载本软件。
数据库上机实验内容及要求(第二部分) 1.建立工厂管理数据库 工厂(包括厂名和厂长名)需要建立一个管理数据库存储以下信息: (1)一个厂内有多个车间,每个车间有车间号、车间主任姓名、地址和联系电话; (2)一个车间有多个工人,每个工人有职工号、姓名、年龄、性别和工种; (3)一个车间生产多种产品,产品有产品号和价格;每种产品只能由一个车间生产; (4)一个车间制造多种零件,一种零件也可能为多个车间制造。零件有零件号、重量和价格; (5)一种产品可由多种零件组成,一种零件也可以装配出多种产品; (6)产品和零件均存入仓库; (7)厂内有多个仓库,仓库有仓库号、仓库主任姓名和电话。 根据以上需求分析结果,按照下述要求,设计并建立工厂管理数据库。 ◆分析实体及联系,设计E-R图。 ◆将E-R图转换成关系模式,并规范化到3NF。 ◆在Microsoft SQL Server2000中基于“企业管理器”建立数据库及相关对象(主 码,外码,索引,约束等)。 ◆测试数据入库 2.基于“查询分析器”,完成并保存下述题目的SQL脚本 (1)建立“工种”是“钳工”的所有职工详细信息的视图; create view View_工人_钳工 as select* from职工表 where工种='钳工' with check option (2)建立“车间号”是“CJ01”的钳工详细信息的视图; create view View_钳工_CJ01 as select* from View_工人_钳工 where车间号='CJ01' (3)建立使用了“零件号”是“LJ0002”的所有产品详细信息的视图; create view View_产品_零件LJ0002 as select产品表.产品号,价格,车间号,仓库号 from装配表,产品表 where装配表.产品号=产品表.产品号and零件号='LJ0002'(4)对零件表按照“零件号”建立唯一索引; create unique index Index_U_零件号on零件表(零件号) (5)对职工表按照“性别”建立聚簇索引; create clustered index Index_C_性别on职工表(性别) (6)查询使用了“零件号”是“LJ0002”的产品的生产车间号;
答案仅供参考 一、说出下列化学实验仪器的名称 1 干燥器 2 电热套 3 蒸发皿 4洗瓶 5 称量瓶 6 试剂瓶 7 锥形瓶 8 抽滤瓶 9滴瓶 10 漏斗 11 量筒 12 1000 ml容量瓶 13 量杯 14分液漏斗
15移液管 16 酸式滴定管17碱式滴定管18刺形分馏柱19直形冷凝柱20球形冷凝柱 21 布氏漏斗 22 烧瓶 23 蒸馏头 24 接引管 25滴管 二、判断题 1、洗净的玻璃仪器如烧杯、试剂瓶等不能倒扣在实验台上。(V) 2、洗瓶尖嘴不能接触容器内壁。(V) 3、铬酸洗液不能重复使用。(X) 4、量筒洗净后应放在烘箱中烘干。(X) 5、用烘箱烘干玻璃仪器时,烘箱的温度可设定为105~110℃。(V) 6、化学实验操作过程中,头不可伸入到通风厨中。(V) 7、分析纯、化学纯试剂的标签颜色分别为红色、蓝色。(V) 8、固体试剂装入广口试剂瓶,液体试剂装入细口试剂瓶。(V) 9、可以将鼻孔靠近试剂瓶口去感觉试剂的气味。(X)
10、在使用容量瓶、分液漏斗前,磨口玻璃塞要用橡皮筋系在瓶口。(V) 11、取用化学试剂时,若没有说明用量则应按照最少量取用:液体取l~2mL,固体只需盖满试管底部。(V) 12、实验过程中,未用完的化学药品不能放回原来的试剂瓶中,要将其丢弃。(X) 13、用胶头滴管往容器中加入较少量液体时,胶头滴管要垂直悬空。(V) 14、采用倾倒法取用液体试剂时,试剂瓶的标签要靠在手心,试剂瓶口不能与承接试剂的容器口接触。(X) 15、为将粉末状固体试剂送入容器的底部,可以使用纸片折成的V型槽。(V) 16、用托盘天平称量固体试剂时,砝码应放在右盘。(V) 17、称量~药品时,要用加重法在分析天平上进行。(X) 18、带有刻度的烧杯可以作用量器使用。(X) 19、称量瓶不能用手直接接触,而要用纸带套住称量瓶。(V) 20、要待分析天平的零点显示稳定后方可进行称量操作。(V) 21、用移液管移取一定量的液体时,留在移液管尖嘴的少量液体要用洗耳球吹出。(X) 22、碱式滴定管通过玻璃珠和橡皮管间的缝隙大小来控制滴定速度。(V) 23、酸碱滴定管除可用于酸碱滴定外,也可用于量取一定体积的溶液。(V) 24、滴定用的锥形瓶在洗净后一定要烘干方可使用。(X) 25、量筒的刻度值为“上小下大”,滴定管的刻度值为“上大下小”。(X) 26、用移液管移取试剂瓶中的液体时,移液管要插入到试剂瓶的底部。(X) 27、从移液管中放出液体到容器中时,移液管的尖嘴口要接触容器内壁。(V) 28、在滴定开始前,滴定管尖嘴部分的气泡可以不予排出。(X) 29、滴定管使用完后,要洗净并倒置夹在滴定台的蝴蝶夹上。(V) 30、如果酸式滴定管的玻璃旋塞处漏液,可以采用在旋塞上涂抹凡士林来处理。(V) 31、分液漏斗的旋塞操作方法和酸式滴定管相同。(V) 32、从分液漏斗中放出液体时,上下层液体均应从下口放出。(X) 33、普通常压过滤时,漏斗流出口的尖嘴端不能靠在烧杯的内壁。(X) 34、过滤时,要将待过滤液直接倒入漏斗中。(X)
关于国二的一些说明 一.国二【全国计算机等级二级考试】的考试时间及费用: 国二(NCRE)考试每年有两次考试时间,上半年3月份或4月份有一次,其报名时间为2月份开学不久;下半年是9月份的一次,其报名时间为6-8月份,报名费一般是100元,这些到时候学校会通知给学委的,我们听学委的就行了,考试分为笔试和机试笔试一般在机试的上午考。 选择题:35*2’,其中有10*2’是公共基础知识部分。 笔试部分: 15*2’,其中有5*2’是公共知识部分。15个空 VB 基本操作题:四个小题,前面两小题:7分每个,后面 两小题8分每个,总共30分。 单应用题:两小题每小题20分,总共40分。 机试部分 综合应用题:30分。 笔试部分:35*2’,15*2’ 程序填空题:30’ VC(C语言) 上机部分:程序改错题:30’ 编程题:40’
其中上机时间和笔试时间均为90分钟。 三.国二和省二的区别以及考证的需要: 1.省二考试时间:上半年是5月底,下半年是11月底报名费用一般为35元,报名时间学校也会下发通知。 2.省二【全国高校计算机联考(江西考区)】也是包括上机和笔试两个部分的,其中60分是考office,40分为所修课程内容。 3.国二证:证书示例 笔试机试均为90分以上会印有优秀字样。 4.证书的作用: 根据九江学院学士学位授予条例中的第八条的第五点明确说明未取得全国高校计算机联考(江西考区)一级及以上或未取得全国计算机等级考试一级级以上者(不在本校报名参加的考试成绩视为无效)不授予学士学位。另技能分加四分,二级以上加八分。 四.公共基础知识部分: 1. 数据结构与算法 2. 程序设计基础 3. 软件工程基础 4. 数据库设计基础
基本操作题: (一)(2)主键:职工ID (3)有效性规则:IS NOT NULL (5)输入掩码:00000 (二)(2)主键:编号(3)有效性规则:<=DateSerial(Year(Date())-1,5,1) (4)“邮箱密码”字段的输入掩码:PassWord 或密码; “联系电话”字段的输入掩码:“010-”00000000。 (三)(2)主键:编号(3)默认值:Date()-1 (4)“单价”字段的小数位数设为2,同时设置该字段的“格式”为“固定”或“标准” (5)输入掩码:AAAAAAAA (四)(2)打开表的“属性”窗口: ①在有效性规则行中输入:[学时]=[学分] ②在有效性文本行中输入:学时必须与学分相同 (3)默认值:DateSerial(Year(Date()),9,1) (5)将文本文件“Test.TXT”导入到表“tTemp”中时,应在“导入文本向导”的第二步中选中“第一行包含字段名称”复选框,否则会出现导入错误。 (7)将宏mTest改名为AutoExec。 (五)(1)有效性规则:>0 (6)在“链接数据表向导”中的第一步中选“Sheet1”工作表,在第二步中选中“第一行包含列标题”复选框,在第三步中输入链接表名“tTest”,点击“完成”。 (7)选中“线路”表并右击,在打开的快捷菜单中选“导出…”,打开相应的导出对话框;在该对话框的“保存类型”中选“文本文件”、在“文件名”中输入“Line.TXT”,点击“导出”按钮;在“导出文本向导”的第二步中分别选中“第一行包含字段名称”复选框和“请选择字段分隔符”下的“分号”选项按钮,其它按提示操作。 简单应用题: (一)samp14.mdb (1)【操作步骤】 步骤1:选中"查询"对象,单击"新建"按钮,选中"设计视图",单击"确定"按钮。在"显示表"对话框中分别双击表"tA"、"tB",关闭"显示表"对话框。 步骤2:分别双击"姓名"、"房间号"、"电话"和"入住日期"字段将其添加到"字段"行。 步骤3:单击工具栏中"保存"按钮,另存为"qT1"。关闭设计视图。 (2)【操作步骤】 步骤1:选中"查询"对象,单击"新建"按钮,选中"设计视图",单击"确定"按钮。在"显示表"对话框中分别双击表"tA"、"tB",关闭"显示表"对话框。 步骤2:分别双击"姓名"、"房间号"字段将其添加到"字段"行。在"姓名"字段的"条件"行输入"[请输入姓名:]"。 步骤3: 在"字段"行下一列输入"已住天数:Date()-[入住日期]"。 步骤4:在"字段"行下一列输入"应交金额:(Date()-[入住日期])*[价格]"。 步骤5:单击工具栏中"保存"按钮,另存为"qT2"。关闭设计视图。 (3)【操作步骤】 步骤1:选中"查询"对象,单击"新建"按钮,选中"设计视图",单击"确定"按钮。在"显示表"对话框中分别双击表"tA"、"tB",关闭"显示表"对话框。 步骤2:分别双击"姓名"、"入住日期"、"价格"和"身份证"字段添加到"字段"行。 步骤3:在"身份证"字段的"条件"行输入"Mid([身份证],4,3)=102",单击"显示"行取消该字段显示。
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