VB24题操作题答案
1、编写程序，使用多分支（Select Case ）语句结构对输入的学生成绩给出A 、B 、C 和D 四个
等级判断。
要求，学生成绩由文本框（Text1）输入，结果显示在文本框（Text2）中。评分标准如下： 90≤成绩≤100 A 80≤成绩<90 B 60≤成绩<80 C 成绩<60 D
Private Sub Command1_Click() 或者
Dim x As Integer x = Val(Text1.Text) Select Case x
Case 90 To 100 Text2.Text = "A" Case Is >= 80
Text2.Text = "B" Case Is >= 60
Text2.Text = "C" Case Is >= 0
Text2.Text = "D" End Select End Sub Private Sub Command1_Click() Dim x As Integer x = Val(Text1.Text) Select Case x
Case 90 To 100 Text2.Text = "A" Case 80 To 90 Text2.Text = "B" Case 60 To 80 Text2.Text = "C" Case Is < 60
Text2.Text = "D" End Select End Sub
2、编写程序，使用If 块结构语句对输入的学生成绩给出等级判断。
要求：学生成绩由文本框（Text1）输入，结果显示在文本框（Text2）中。评分标准如下： 成绩<60 不及格 60≤成绩<70 及格 70≤成绩<80 中等 80≤成绩<90 良好 90≤成绩 优秀
Private Sub Command1_Click()
Dim n As Integer
n = Val(Text1.Text)
If n < 60 Then
Text2.Text = "不及格"
ElseIf n >= 60 And n < 70 Then
Text2.Text = "及格"
ElseIf n >= 70 And n < 80 Then
Text2.Text = "中等"
ElseIf n >= 80 And n < 90 Then
Text2.Text = "良好"
ElseIf n >= 90 And n <= 100 Then
Text2.Text = "优秀"
End If
End Sub
3、求1+2+3+....+n的值，n从文本框Text1输入，请以n=999验证结果。要求：计算结果必须保存在Sum中
Private Sub Form_Click()
'***************** Begin **************
Dim n As Integer, Sum As Long
Dim i As Integer
n = Val(Text1.Text)
Sum = 0
For i = 1 To n
Sum = Sum + i
Next i
Print Sum
'*************** End *************************
Call TestFunc(Sum)
End Sub
Private Sub TestFunc(i As Long)
Dim OUT As Integer
OUT = FreeFile
Open App.Path & "\out.txt" For Output As #OUT
Print #OUT, i
Close #OUT
End Sub
4、编程实现，运行时，单击"出题"按钮，产生任意两个[1,100]之间的随机整数显示在文本框Text1和Text2内；单击"计算"按钮，求这两个数的和显示在文本框Text3内。
'********** Begin **********
Private Sub Command1_Click()
Text1.Text = Int(100 * Rnd + 1)
Text2.Text = Int(100 * Rnd + 1)
End Sub
Private Sub Command2_Click()
Text3.Text = Val(Text1.Text) + Val(Text2.Text)
End Sub
'********** End **********
5、求1*2*3*....*n的值，n从文本框Text1输入，请以n=9验证结果，结果用Label3输出。要求：计算结果必须保存在F中
Private Sub Command1_Click()
'***************** Begin **************
Dim n As Integer, F As Long
Dim i As Integer
F = 1
n = Val(Text1.Text)
For i = 1 To n
F = F * i
Next i
Label3.Caption = F
'*************** End *************************
Call TestFunc(F)
End Sub
Private Sub TestFunc(i As Long)
Dim OUT As Integer
OUT = FreeFile
Open App.Path & "\out.txt" For Output As #OUT
Print #OUT, i
Close #OUT
End Sub
6、用If 条件结构语句编程：根据以下公式，计算Y 的值：
????
?>≤=时0x 当ln 时0当x x x Y
x 用文本框Text1输入，Y 用标签Label3输出。
Private Sub Command1_Click()
Dim x As Single, y As Single x = Val(Text1.Text)
If x <= 0 Then y = Abs(x) Else y = Log(x) Label3.Caption = y End Sub
7、用多分支（Select Case ）语句实现：从文本框（Text1）输入月收入，按以下规定计算
税款显示在另一个文本框（Text2）中。 月收入少于或等于800元者 税款为0
月收入在800~2000元者 税款为超过800元部分的10% 月收入超过2000元者 税款为超过800元部分的
20%
Private Sub Command1_Click() Dim n As Integer n = Val(Text1) Select Case n Case Is <= 800 Text2 = 0 Case 800 To 2000
Text2 = (n - 800) * 0.1 Case Else
Text2 = (n - 800) * 0.2 End Select End Sub
8、用If条件语句实现判断：从文本框（Text1）输入一个数，单击"判断"按钮（Command1）判断它能否同时被3、5、7整除，若能整除，则用消息框（Msgbox函数）显示"能同时被3、5、7整除"，否则显示"不能整除"。
Private Sub Command1_Click()
Dim x As Integer
x = Val(Text1)
If x Mod 3 = 0 And x Mod 5 = 0 And x Mod 7 = 0 Then
MsgBox "能同时被3、5、7整除"
Else
MsgBox "不能整除"
End If
End Sub
9、求100到500之间奇数的和，将结果输出在窗体上并存入变量SUM中。
Private Sub Form_Click()
Dim sum As Long
'***************** Begin **************
Dim i As Integer
For i = 100 To 500
If i Mod 2 <> 0 Then sum = sum + i
Next i
Print sum
'*************** End *************************
Call TestFunc(sum)
End Sub
Private Sub TestFunc(i As Long)
Dim OUT As Integer
OUT = FreeFile
Open App.Path & "\out.txt" For Output As #OUT
Print #OUT, i
Close #OUT
End Sub
10、编写一个对数组元素进行按升序排序的通用Sub过程。
Option Base 1
Private Sub Sort(A() As Integer)
'********** Begin **********
Dim i As Integer, j As Integer, t As Integer
Dim n As Integer
n = UBound(A)
For i = 1 To n - 1
For j = i + 1 To n
If A(i) > A(j) Then
t = A(i)
A(i) = A(j)
A(j) = t
End If
Next j
Next i
'********** End **********
End Sub
Private Sub Form_Click()
Dim A(10) As Integer
Cls
Print "原始数据：";
Randomize
For i = 1 To 10
A(i) = Int(99 * Rnd + 1)
Print A(i);
Next i
Call Sort(A)
Print "升序排序：";
For i = 1 To 10
Print A(i);
Next i
NJIT_VB
End Sub
Private Sub NJIT_VB()
Dim i As Integer
Dim A(10) As Integer
Dim fIn As Integer
Dim fOut As Integer
fIn = FreeFile
Open App.Path & "\in.dat" For Input As #fIn
fOut = FreeFile
Open App.Path & "\out.dat" For Output As #fOut For i = 1 To 10 Step 1
Input #fIn, A(i)
Next
Call Sort(A)
For i = 1 To 10 Step 1
Write #fOut, A(i)
Next
Close #fIn
Close #fOut
End Sub
11、编写一个找出一维数组的最大值及其位置的通用过程。
要求：
1.最大值保存在参数max中；
2.最大值的位置保存在参数Pos中。
Option Base 1
Private Sub MaxNum(A() As Integer, max As Integer, Pos As Integer) '********** Begin **********
Dim i As Integer
max = A(1)
Pos = 1
For i = 2 To UBound(A)
If A(i) > max Then
max = A(i)
Pos = i
End If
'********** End **********
End Sub
Private Sub Form_Click()
Dim max As Integer, Pos As Integer
Dim K As Integer, A() As Integer
Print "数组元素的内容：";
Open App.Path & "\in.dat" For Input As #1
Do While Not EOF(1)
K = K + 1
ReDim Preserve A(K)
Input #1, A(K)
Print A(K);
Loop
Call MaxNum(A, max, Pos)
Print "最大值为："; max; "其位置是第"; Pos; "个"
Open App.Path & "\out.dat" For Output As #2
Print #2, max
Print #2, Pos
Close
End Sub
12、编写函数Jishu，函数的功能是：判断一个数是否为奇数。
要求：使用函数名Jishu作为判断某数是否为奇数的标志，如果该数是奇数，函数返回True，否则函数返回False!
Private Function Jishu(n As Integer) As Boolean
'********** Begin **********
If n Mod 2 = 0 Then
Jishu = False
Else
Jishu = True
End If
'********** End **********
End Function
Private Sub Form_Click()
Print "23是奇数吗？"; Jishu(23)
Print "32是奇数吗？"; Jishu(32)
NJIT_VB
End Sub
Private Sub NJIT_VB()
Dim i As Integer
Dim a(10) As String
Dim fIn As Integer
Dim fOut As Integer
fIn = FreeFile
Open App.Path & "\in.dat" For Input As #fIn
fOut = FreeFile
Open App.Path & "\out.dat" For Output As #fOut
For i = 1 To 10 Step 1
Line Input #fIn, a(i)
Print #fOut, Jishu(Val(a(i)))
Next
Close #fIn
Close #fOut
End Sub
13、函数fun功能是：根据整型形参m，计算如下公式的值：y=1/2＋1/4＋1/6＋...＋1/2m
Private Function fun(m As Integer) As Double '********** Begin *********
Dim i As Integer
For i = 1 To m
fun = fun + 1 / (2 * i)
Next i
'********** End *************
End Function
Private Sub Form_Load()
Show
Print fun(9)
TestFunc
End Sub
Private Sub TestFunc()
Dim i As Integer
Dim s As String
Dim l As Integer
Dim d As Double
Dim a(10) As String
Dim fIn As Integer
Dim fOut As Integer
fIn = FreeFile
Open App.Path & "\in.dat" For Input As #fIn
fOut = FreeFile
Open App.Path & "\out.dat" For Output As #fOut For i = 1 To 10
Line Input #fIn, a(i)
l = Val(a(i))
Print #fOut, fun(l)
Next
Close #fIn
Close #fOut
End Sub
14、编写一个判断某正整数N是否是完数的通用过程。
完数：一个数恰好等于它的因子之和（除自身），
要求：使用For语句来实现，并用函数名WanShu作为该数是否为完数的标志，如果该数是完数，函数返回True，否则函数返回False!
Private Function WanShu(m As Long) As Boolean
'********** Begin **********
Dim i As Integer, S As Integer
For i = 1 To m / 2
If m Mod i = 0 Then S = S + i
Next i
If m = S Then
WanShu = True
Else: WanShu = False
End If
'********** End **********
End Function
Private Sub Form_Click()
Print "6是完数吗？"; WanShu(6)
Print "100是完数吗？"; WanShu(100)
NJIT_VB
End Sub
Private Sub NJIT_VB()
Dim i As Integer
Dim a(10) As String
Dim fIn As Integer
Dim fOut As Integer
fIn = FreeFile
Open App.Path & "\in.dat" For Input As #fIn
fOut = FreeFile
Open App.Path & "\out.dat" For Output As #fOut
For i = 1 To 10 Step 1
Line Input #fIn, a(i)
Print #fOut, WanShu(Val(a(i)))
Next
Close #fIn
Close #fOut
End Sub
15、单击窗体，生成一个一维数组，求出这个数组中的最大值、最小值和平均值，并输出在
窗体上。
要求：将最大值，最小值，平均值分别存入变量Max,Min,Aver中
Private Sub Form_Click()
Dim max As Integer, min As Integer, aver As Single
Dim a(10) As Integer, I As Integer, Sum As Integer
a(1) = 15: a(2) = 23: a(3) = 72
a(4) = 43: a(5) = 96: a(6) = 23
a(7) = 3: a(8) = 65: a(9) = 88
a(10) = 17
'*********** Begin **********
max = a(1)
min = a(1)
For I = 1 To 10
If a(I) > max Then max = a(I)
If a(I) < min Then min = a(I)
Sum = Sum + a(I)
Next I
aver = Sum / 10
Print max; min; aver
'********** End **************
Call TestFunc(max, min, aver)
End Sub
Private Sub TestFunc(ByVal I As Integer, ByVal j As Integer, ByVal k As Single)
Dim OUT As Integer
OUT = FreeFile
Open App.Path & "\15.out" For Output As #OUT
Print #OUT, I, j, k;
Close #OUT
End Sub
16、编写一个计算裴波那契数列第n项的递归函数过程fib。
裴波那契数列为1，1，2，3，5，8，13，...
Private Function fib(n As Integer) As Long
'********** Begin **********
If n = 1 Then
fib = 1
ElseIf n = 2 Then
fib = 1
Else: fib = fib(n - 1) + fib(n - 2)
End If
'********** End **********
End Function
Private Sub Form_Click()
Print "裴波那契数列的第7项为："; fib(7)
Print "裴波那契数列的第8项为："; fib(8)
Open App.Path & "\out.dat" For Output As #1
Print #1, fib(7)
Print #1, fib(8)
Close
End Sub
17、编写一个求正整数m和正整数n的最大公约数的函数Gcd。
要求：使用函数名Gcd返回m和n的最大公约数
Private Function Gcd(m As Integer, n As Integer) As Integer '********** Begin **********
Dim r As Integer
r = m Mod n
Do While r <> 0
m = n
n = r
r = m Mod n
Loop
Gcd = n
'********** End **********
End Function
Private Sub Form_Click()
Print "100和28的最大公约数是："; Gcd(100, 28)
NJIT_VB Gcd(100, 28)
End Sub
Private Sub NJIT_VB(s As Integer)
Open App.Path & "\out.dat" For Output As #1
Print #1, s
Close
End Sub
18、编写程序求∑∑
==
+
100
1
50
1
2
k k
k
k
的值，要求结果显示在窗体上并将结果存入变量Sum中。
Private Sub Form_Click()
Dim Sum As Integer
'************ Begin ************
Dim k As Integer
Sum = 0
For k = 1 To 100
Sum = Sum + k
Next k
Sum1 = 0
For k = 1 To 50
Sum1 = Sum1 + k * k
Next k
y = Sum + Sum1
Label1.Caption = y
'************ End ****************
TestFunc (Sum)
End Sub
Private Sub TestFunc(i As Integer)
Dim OUT As Integer
OUT = FreeFile
Open App.Path & "\5.out" For Output As #OUT
Print #OUT, i
Close #OUT
End Sub
19、编写函数Fun，函数的功能是：判断一个数是否为素数。
要求：使用For语句来实现，并用函数名Fun作为该数是否为素数的标志，如果该数是素数，函数返回True，否则函数返回False!
'********** Begin **********
Dim i As Integer
For i = 2 To m / 2
If m Mod i = 0 Then Exit For
Next i
If i > m / 2 Then
Fun = True
Else: Fun = False
End If
'********** End **********
End Function
Private Sub Form_Load()
Show
Print "23是素数吗？"; Fun(23)
Print "225是素数吗？"; Fun(225)
NJIT_VB
End Sub
Private Sub NJIT_VB()
Dim i As Integer
Dim a(10) As String
Dim fIn As Integer
Dim fOut As Integer
fIn = FreeFile
Open App.Path & "\in.dat" For Input As #fIn
fOut = FreeFile
Open App.Path & "\out.dat" For Output As #fOut
For i = 1 To 10 Step 1
Line Input #fIn, a(i)
Print #fOut, Fun(Val(a(i)))
Next
Close #fIn
Close #fOut
End Sub
20、编写一个求N！的函数Fact，单击命令按钮（Command1）时调用该函数求表达式(5!+6!)/7!的值，结果显示在文本框（Text1）中。
'********** Begin **********
Dim i As Integer
Fact = 1
For i = 1 To n
Fact = Fact * i
Next i
End Function
Private Sub Command1_Click() '调用函数Fact求表达式(5!+6!)/7!的值
Dim s As Single '表达式(5!+6!)/7!的计算结果务必保存在变量s中
s = (Fact(5) + Fact(6)) / Fact(7)
Text1.Text = s
NJIT_VB s
End Sub
'********** End **********
Private Sub NJIT_VB(s As Single)
Open App.Path & "\out.dat" For Output As #1
Print #1, s
Close
End Sub
21、随机生成20个两位正整数显示在一个文本框（Text1）中，并求出它们的平均值显示在另一个文本框（Text2）中。
Private Sub Command1_Click()
'********** Begin **********
Dim A(20) As Integer, Sum As Integer
Dim i As Integer, j As Integer, t As Integer
Randomize
For i = 1 To 20
A(i) = Int(90 * Rnd + 10)
Text1.Text = Text1.Text & Str(A(i))
Sum = Sum + A(i)
Next i
Text2.Text = Sum / 20
'********** End **********
End Sub
22、求二维数组中最大元素及其所在的行和列并将最大值存入变量Max中，将最大值的行位置存入row中，列位置存入变量column中.
Private Sub Form_Load()
Show
Dim a(2, 3) As Integer
Dim I As Integer, J As Integer
Dim max As Integer, row As Integer, column As Integer
a(1, 1) = 34: a(1, 2) = 34: a(1, 3) = 43
a(2, 1) = 34: a(2, 2) = 78: a(2, 3) = 12
'********** Begin *********
For I = 1 To 2
For J = 1 To 3
If a(I, J) > max Then
max = a(I, J)
row = I
column = J
End If
Next J
Next I
Print max; row; column
'********** End *************
TestFunc max, row, column
End Sub
Private Sub TestFunc(x As Integer, y As Integer, z As Integer)
Dim I As Integer
Dim s As String
Dim l As Long
Dim d As Double
Dim a(10) As String
Dim fIn As Integer
Dim fOut As Integer
fIn = FreeFile
fOut = FreeFile
Open App.Path & "\out.dat" For Output As #fOut
Print #fOut, x
Print #fOut, y
Print #fOut, z
Close #fIn
Close #fOut
End Sub
23、编程求由一位随机整数[1,9]构成的4×5二维数组A的每一列元素的和。运行界面如图所示。
要求：1.二维数组的名称必须用A；
2.不得更改界面中已给出的控件类型和名称；
Private Sub Command1_Click()
'********** Begin **********
Dim A(4, 5) As Integer, i As Integer, j As Integer For i = 1 To 4
For j = 1 To 5
A(i, j) = Int(9 * Rnd + 1)
Picture1.Print A(i, j);
Next j
Picture1.Print
Next i
For j = 1 To 5
Sum = 0
For i = 1 To 4
Sum = Sum + A(i, j)
Next i
Text1.Text = Text1.Text & Str(Sum)
Next j
'********** End **********
End Sub
24、使用While...Wend循环求1^2+2^2+3^2+…大于10000的最小值。要求：表达式的累加和务必保存在变量S中
Private Sub Form_Click()
Dim S As Single '用S保存累加和
'********** Begin **********
Dim i As Integer
S = 0: i = 0
While S <= 10000
i = i + 1
S = S + i ^ 2
Wend
'********** End **********
Print "1^2+2^2+3^2+…大于10000的最小值："; S Open App.Path & "\out.dat" For Output As #1 Print #1, S
Close
End Sub
Access上机操作题——报表操作
Access上机操作题之二十 ——创建报表㈠ 一、使用工具栏中“新对象：自动报表”按钮创建纵栏式报表： ●创建“学生”表的纵栏式报表，其操作步骤如下： ①打开“教学”数据库，选择“表”对象。 ②选择“学生”数据表。 ③单击工具栏中的“新对象：自动报表”按钮，选择“自动报表”选项。 ④保存此报表。 ●窗体转换为报表： 将“教学”数据库中的“学生”窗体转换为报表。其操作步骤如下： ①打开“教学”数据库，选择“窗体”对象。 ②右击“学生”窗体名，选择“另存为”命令。 ③在“另存为”对话框中的“保存类型”下拉按钮中，选择“报表”选项。 ④单击“确定”按钮。 ●学生操作训练 ⑴创建“课程”表的纵栏式报表。 ⑵创建“成绩”表的纵栏式报表。 ⑶在“职工基本情况”数据库中，创建一个基于“职工”数据表的窗体，然后再将转换为报表。 二、使用向导创建单表报表： 1、自动创建纵栏式报表： ⑴根据“学生”表创建纵栏式报表，其操作步骤如下： ①选择“插入”菜单中的“报表”命令，或选择“报表”对象后，再单击“新建”按钮。 ②选择“自动创建报表：纵栏式”选项，并选择数据来源为“学生”表后，单击“确定”按钮。 ③保存此报表。 注：自动创建表格式报表和数据表式报表的操作方法同此相似。 学生操作训练： ⑵根据“课程”表，分别创建一个纵栏式、表格式报表。 ⑶根据“成绩”表，分别创建一个纵栏式、表格式报表。 2、使用“报表向导”创建报表： ⑴使用“报表向导”建立一个基于“学生”表中“学号、姓名、性别、出生日期”等字段的简单报表。其操作步骤如下： ①选择“报表”对象，双击“使用向导创建报表”选项。 ②在“表/查询”下拉列表中选择报表的数据来源——“学生”表，然后选择在报表中要显示的字段名：学号、姓名、性别、出生日期等，最后单击“下一步”按钮。 ③设置分组：确定是否添加分组级别。暂时不添加，则直接单击“下一步”按钮。 ④设置记录的排序次序。暂时不设置排序，则直接单击“下一步”按钮。
计算机二级access操作题
一、基本操作题 题型一：数据的导入、链接、导出。 ①将考生文件夹下的Excel文件导入到"student"表中。 向表中追加一份记录的副本"单选项，在后边的下拉列表中选择表"student"，然后单击"确定"按钮。 步骤2：连续单击"下一步"按钮，导入到表"student"中，单击"完成"按钮，最后单击"关闭"按钮。 ②将数据库文件中的表对象"tLine"导入到数据库文件内，表名不变。 ③)将考生文件夹下Excel文件中的数据链接到当前数据库中，要求数据中的第一行作为字段名，链接表对象命名为"tTest"。 步骤1：单击"外部数据"选项卡"导入并链接"组中的"Excel"按钮，在"考生文件夹"找到要导入的文件，选择"通过创建链接表来链接到数据源"选项，然后单击"确定"按钮。 步骤2：单击"下一步"按钮，选中"第一行包含列标题"复选框，单击"下一步"按钮， 步骤3：最后在"链接表名称"中输入"tTest"，单击"完成"按钮。 ④)将已有的"水费．xlsx"文件导入到数据库中，并导入的表命名为"水费记录"。 步骤1：单击"外部数据"选项卡下"导入并链接"组中的Excel按钮，弹出"获取外部数据-Excel电子表格对话框"。单击对话框中的"浏览"按钮，在"打开"对话框中选择"水费．xls"文件，并且选中"将元数据导入当前数据库的新表中"单选按钮，单击"确定"按钮。 步骤2：在"导入数据表向导"对话框中连续单击4次"下一步"按钮，在"导入到表"中输入"水费记录"，单击"完成"按钮，在"保存导入步骤" 中点击"关闭"按钮。 题型二:建立表结构 步骤1：单击"创建"选项卡的"表格"组中的"表设计"按钮，打开表设计视图。 步骤2：按照题目表建立新字段。 步骤3：单击快速访问工具栏中的"保存"按钮，另存为"tBook" 题型三：设置字段属性。要求考生按题目要求设置字段大小、格式、默认值、掩码、有效性规则、有效性文本、索引等内容。 题型四：建立表间关系，实施参照完整性。 建立"线路"和"团队"两表之间的关系并实施参照完整。 步骤1：单击"数据库工具"选项卡"关系"组中的"关系"按钮，如不出现"显示表"对话框，则单击关系工具"设计"选项卡"关系"组中的"显示表"按钮，添加表"线路"和"团队"，关闭"显示表"对话框。 步骤2：选中表"线路"中的"线路ID"字段，拖动鼠标到表"团队"的"线路ID"字段，放开鼠标。选择"实施参照完整性"选项，然后单击"创建"按钮。 步骤3：按Ctrl+S保存修改，关闭"关系"界面。 题型五：向表中输入数据。 题型六：修改表结构 题型七：编辑表内容、调整表外观。建立表结构、设置字段属性、建立表间关系、向表中输入数据、维护表、操作表 ①冻结表"tStud"中的"姓名"字段列。 步骤1：右键单击"tStud"表，在弹出的快捷菜单中选择"打开"或双击打开"tStud"表。 步骤2：选中"姓名"字段列，右键单击"姓名"列，从弹出的快捷菜单中选择"冻结字段"命令。步骤3：单击快速访问工具栏中"保存"按钮，关闭数据表。 ②设置"tStudent"表的显示格式，使表背景颜色为主题颜色的"橄榄色，强调文字颜色3，深色50%"，文字颜色为标准色中的"黄色"、字号为10号。 步骤1：双击表"tStudent"，打开数据表视图。
操作题难题及答案
1. 在"汽车销售"数据库中，根据"销售业绩表"和"汽车配件表"查询每种商品的商品号、商品名、单价、销售数量和销售金额（商品号、商品名取自汽车配件表，单价和销售数量取自销售业绩表，销售金额=单价*销售数量），结果按销售金额降序排序，并将查询结果存储到see_a表中。 答案：本题主要考查询语句中的联接查询。如果要得到的结果集来自两个不同的表，要用到联接查询，联接查询的两个表放在FROM子句的后面，在本题中是：商品表和销售表，它们之间用逗号隔开；联接查询来指明两个表联接的条件放在WHERE子句的后面，并且如果一个字段在另一个表中也有同名的字段需要指明字段所在的表，联接的条件是：商品表.商品号=销售表.商品号；结果集的排序依据要放在ORDER BY 子句的后面，这里是以销售金额的降序进行排序，所以排序是：ORDER BY 销售金额 DESC；结果集要保存在一个永久表中要用到INTO TABLE子句。完整的查询语句如下：SELECT 商品表.商品号,商品名,销售表.单价,销售数量,销售表.单价*销售数量 AS 销售金额; FROM 商品表,销售表 WHERE 商品表.商品号=销售表.商品 号 ORDER BY 销售金额 DESC INTO TABLE SEE_A
2. 建立一个名为m_quick的快捷菜单，菜单中有两个菜单项"查询"和"修改"。然后在表单myform中的RightClick事件中调用快捷菜单m_quick。 答案：首先建立菜单，并生成相应的mpr文件，然后在表单中调用。具体方法是：在"文件"菜单中选择"新建"，在"新建"对话框中选择"菜单"，单击"新建文件"按钮，选择"快捷菜单"，在菜单设计器中输入两个菜单项"查询"和"修改"，单击"菜单"菜单中的"生成"，按提示保存为m_quick，并生成菜单程序文件（MPR）。打开表单 myform，双击表单设计器打开代码窗口，在对象中选择form1，在过程中选 择 RightClick，输入代码：do m_quick.mpr，保存表单。 3、设计名为formbook的表单（控件名为form1，文件名为formbook）。表单的标题设为"图书情况统计"。表单中有一个组合框（名称为Combo1）、一个文本框（名称为Text1）和两个命令按钮"统计"（名称为Command1）和"退出"（名称为Command2）。 运行表单时，组合框中有三个条目"清华"、"北航"、"科学"（只有三个出版社名称，不能输入新的）可供选择，在组合框中选择出版社名称后，如果单击"统计"命令按钮，则文本框显示出"图书"表中该出版社图书的总数。 单击"退出"按钮关闭表单。
vb的操作题(有标准答案)
1.(1）在考生文件夹中有工程文件sj12６.vbp，其中的窗体如图所示。程序刚运行时，会生成一个有１０个元素的整型数组。若选中"查找最大值"（或"查找最小值"）单选按钮，再单击"查找＂按钮,则找出数组中的最大值(或最小值）,并显示在标签Ｌabｅl２中。请去掉程序中的注释符，把程序中的 ?改为正确的内容。 注意： 考生不得修改窗体文件中已经存在的程序。最后把修改后的文件按原文 件名存盘。 Private SuｂCommanｄ1_Click() x ＝ａ（１) y = a（1) Fｏr ｉ＝ 2 To 10 If Opｔion1.Valｕｅ = Ｔrue Ｔheｎ If a(i)>x Then ｘ= ａ(i) Ｅｎd Ｉf
ＥlseIｆａ(i) < y Theｎ y = a(i) Ｅnd Ｉｆ Next If Option1.Vaｌue ＝ True Theｎ Labｅl2．Cａption ＝ x Eｌsｅ Ｌaｂel2.Caption = y Enｄ Iｆ Ｅnd Suｂ 2.(2）在名称为Form1的窗体上画一个名称Ｓｈａｐe1的形状控件,在属性窗口中将其 设置为圆形。画一个名称为List１的列表框，并在属性窗口中设置列表项的 值分别为1、2、3、4、５。将窗体的标题设为"图形控件"。单击列表框中的某一项，则将所选的值作为形状控件的填充参数。例如，选择3，则形状控件中被竖线填充。如图所示。 要求： 程序中不得使用变量，每个事件过程中只能写一条语句。存盘时必须存放在考生文件夹下,工程文件名为sｊ107.vbp，窗体文件名为ｓｊ１0７.ｆｒm。 在Shape控件中,可以用FｉlｌStyle属性设置图形的填充图案，0:透明，2:虚线，3：点线，4:点划线，５:双点划线,6：内实线。 Ｌisｔ控件的Clｉck事件过程为： Private Ｓｕb Ｌｉst１＿Clｉck() Shapｅ1.FiｌlStyｌe = Lｉst１.Text EnｄＳub
Access上机操作练习题参考答案
基本操作题： （一）（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"，单击"显示"行取消该字段显示。
access-题库-答案
Access 题库 一、选择题 1数据库（DB ）、数据库管理系统（DBMS ）和数据库系统（DBS ）之间的关系是（ ） A. DBS 包括 DB 和 DBMS B.DBMS 包括 DB 和 DBS C.DB 包括DBS 和DBMS D.DB 就是 DBS,也就是 DBMS 2、 在关系中选择某些属性以组成新的关系的操作是（ ） A. 选择运算 B ?投影运算 C ?等值运算 D ?自然运算 3、 用树状结构来表现实体间联系的数据模型称为（ ） A .层次概念模型 B .网状概念模型 C.关系数据模型 D.概念数据模型 4、 在关系数据模型中，域是指（ ） A. 字段 B.记录 C ?属性 D ?属性的取值范围 5、 数据管理技术的发展阶段不包括（ ） A. 操作系统阶段 B.人工管理阶段 C.文件系统阶段 D.数据库管理阶段 A.abccha B.achaa C.abcde D.ghcc 12、如果要在报表上显示” 8/ 共 12”的页码 , 则计算控件的控件源应设置为（ ） A.[Page]/ 共 [pages] B.=[Page]/ 共 [pages] C.[Page]& ” /共” &[pages] D.=[Page]& ” / 共” &[pages] 13、 在 Access 的下列数据类型中，不能建立索引的数据类型是（ ） A.文本型 B.备注型 C.数字型 D. 日期时间型 14、 在 Access 数据库中，专用于打印的是（ ）。 A.表 B.查询 C.报表 D.页 15、 在表设计视图中，如果要限定数据的输入格式，应修改字段的（ ）属性。 A. 格式 B. 有效性规则 C. 输入格式 D. 输入掩码 16、 在SQL 查询GROUP BY 语句用于（ ）。 A.选择行条件 B.对查询进行排序 C.列表 D.分组条件 17、 在ACCESS^的数据发布在In ternet 网络上可以通过（ ） A. 窗体 B. 数据访问页 C. 报表 D. 数据库 18、若采用关系数据库来实现应用， 在下面的哪个阶段， 进行关系模式规范化处理 （ ）。 A.需求 6、在 Access 中，通过使用（ 件 ）键和鼠标操作，可以同时选择窗体上多个不连续的控 A.Tab B.Shift C.Ctrl D.Alt 7、如果在数据库中已有一个同名的表，那么（ A.删除 B.追加 C.生成表 D.更新 ）查询将覆盖原来的表 8、 在 Access 数据库中，要查找字段 查询条件中应输入（ nj 字段值为“二年级”或“三年级”的记录，在相应 B.NOT （“二年级” D.A,C 都正确 9、 我们要是报表的标题在每一页上都显示，那么应该设置 （ A. 报表页眉 10、 关键字（ A.LIKE 11、 要查找 like B. 页面页眉 C. 组页眉 ）主要用于模糊查询 B.IN *ch?” C.Is null 可能的查找结果为（ D.Not null ) ） D. 以上都可以
vb的操作题(有答案)
1.（1）在考生文件夹中有工程文件sj126.vbp，其中的窗体如图所示。程序刚运行时，会生成一个有10个元素的整型数组。若选中"查找最大值"（或"查找最小值"）单选按钮，再单击"查找"按钮，则找出数组中的最大值（或最小值），并显示在标签Label2中。请去掉程序中的注释符，把程序中的？改为正确的容。 注意： 考生不得修改窗体文件中已经存在的程序。最后把修改后的文件按原文 件名存盘。 Private Sub Command1_Click() x = a(1) y = a(1) For i = 2 To 10 If Option1.Value = True Then If a(i)> x Then x = a(i) End If
ElseIf a(i) < y Then y = a(i) End If Next If Option1.Value = True Then Label2.Caption = x Else Label2.Caption = y End If End Sub 2.（2）在名称为Form1的窗体上画一个名称Shape1的形状控件，在属性窗口中将其 设置为圆形。画一个名称为List1的列表框，并在属性窗口中设置列表项的 值分别为1、2、3、4、5。将窗体的标题设为"图形控件"。单击列表框中 的某一项，则将所选的值作为形状控件的填充参数。例如，选择3，则形状 控件中被竖线填充。如图所示。 要求： 程序中不得使用变量，每个事件过程中只能写一条语句。存盘时必须存 放在考生文件夹下，工程文件名为sj107.vbp，窗体文件名为sj107.frm。 在Shape控件中，可以用FillStyle属性设置图形的填充图案，0：透明，2：虚线，3：点线，4：点划线，5：双点划线，6：实线。 List控件的Click事件过程为： Private Sub List1_Click() Shape1.FillStyle = List1.Text End Sub 3.（1）在名称为Form1的窗体上画一个文本框，名称为Text1；
Access窗体操作技巧题
Access窗体操作题 2、考生文件夹下存在一个数据库文件"Access3.mdb"，里面已经设计好窗体对象"教师"。试在此基础上按照以下要求补充窗体设计： （1）在窗体的窗体页眉节区位置添加一个标签控件，其名称为"bTitle"，标题显示为"教师奖励信息"；（2）在主体节区位置添加一个选项组控件，将其命名为"opt"，选项组标签显示内容为"奖励"，名称为"bopt"； （3）在选项组内放置二个单选按钮控件，选项按钮分别命名为"opt1"和"opt2"，选项按钮标签显示内容分别为"有"和"无"，名称分别为"bopt1"和"bopt2"。 （4）在窗体页脚节区位置添加两个命令按钮，分别命名为"bOk"和"bQuit"，按钮标题分别为"确定"和"退出"； （5）将窗体标题设置为"教师奖励信息"。 注意：不允许修改窗体对象"教师"中已设置好的属性。 等级：3 难度：3 知识点：access知识点/窗体题 3、考生文件夹下存在一个数据库文件"Access3.mdb"，里面已经设计好窗体对象"教师"。试在此基础上按照一下要求补充窗体设计： （1）在窗体的窗体页眉节区位置添加一个标签控件，其名称为"bTitle"，标题显示为"教师基本信息输出"；（2）在主体节区中"年龄"标签右侧的文本框显示内容设置为"年龄"字段值，并将文本框名称更名为"tAge"；（3）在主体节区添加一个标签控件，该控件放置在距左边0.1厘米、距上边5.0厘米，标签显示内容为"出生地"，名称为"bMem"； （4）在窗体页脚节区位置添加两个命令按钮，分别命名为"bOk"和"bQuit"，按钮标题分别为"确定"和"退出"； （5）将窗体标题设置为"教师基本信息"。 注意：不允许修改窗体对象"教师"中未涉及的控件和属性。
计算机二级数据库access操作题答案
1．在"职工"表的"职称"字段前面插入一个新字段"照片"，数据类型为"OLE"型； 略 2．设置"职工"表中的"性别"字段的相关属性，使其不能输入"男"和"女"以外的其 他值，违反此规则时应显示文本："请输入男女"； 3．将"职工"表中的"性别"字段的默认值设置为"男"； 4．设置"职工"表中的"仓库号"字段值为下拉列表选择，可选的值为 "wh1";"wh2";"wh3";"wh4";"wh5";"wh6"； 5．观察每个表的数据，为每个表设置主键，建立各表之间的关系，并实施参照完整性。
1．建立一个名为"Q1"的查询，查询在仓库"wh1"工作，或工资少于1250元的职工信息，查询结果显示："职工号"、"仓库号"、"工资"。 SELECT 职工.职工号, 职工.仓库号, 职工.工资 FROM 职工 WHERE (((职工.仓库号)="wh1")) OR (((职工.工资)<1250));
2．建立一个名为"Q2"的交叉表查询（如图），计算每个职工对应不同供应商的的订单数，要求，每行第一列显示"职工号"，每列第一行显示"供应商名",最终结果按职工号升序排序。 TRANSFORM Count(订购单.订购单号) AS 订购单号之计数 SELECT 职工.职工号, 职工.姓名 FROM 职工 INNER JOIN (供应商 INNER JOIN 订购单 ON 供应商.供应商号 = 订购单.供应商号) ON 职工.职工号 = 订购单.职工号 GROUP BY 职工.职工号, 职工.姓名 ORDER BY 职工.职工号 PIVOT 供应商.供应商名;
3．建立一个名为"Q3"的查询，查询每个仓库职工的平均工资，并且职工的出生日期在1970年1月1日以后（包含1970年1月1日），查询结果显示："仓库号"、 "城市"、"平均工资"。 SELECT 职工.仓库号, 仓库.城市, Avg(职工.工资) AS 平均成绩 FROM 仓库 INNER JOIN 职工 ON 仓库.仓库号 = 职工.仓库号 WHERE (((职工.出生日期)>=#1/1/1970#)) GROUP BY 职工.仓库号, 仓库.城市;
初中数学应用题较难题及答案
初中数学应用题较难题及答案 问题 1：某车间原计划每周装配 36 台机床，预计若干周完成任务。在装配了三分之一以后，改进操作技术，工效提高了一倍，结果提前一周半完成了任务. 求这次任务需要装配机床总台数. 问题 2：《个人所得税法》规定，公民每月工资不超过 1600 元，不需要交税，超过 1600 元的部分为全月应纳税所得额，但根据超过部分的多少按不同的税率交税，税表如下：全月应纳税所得额税率 不超过 500 元部分 5% 500 元至 2000 元部分 10% 2000 元至 5000 元部分 15% 某人 3 月份应纳税款为 117.10 元，求他当月的工资是多少？ 答案：问题 1：162 台问题 2：3021 元 数字问题： 1、一个两位数，十位上的数比个位上的数小 1。十位上的数与个位上的数的和是这个两位数的，求这个两位数。 2、一个两位数，个位上的数与十位上的数的和为 7，如果把十位与个位的数对调。那么所得的两位数比原两位数大 9。求原来的两位数。 3、一个两位数的十位上的数比个位上的数小 1，如十位上的数扩大 4 倍，个位上的数减 2，那么所得的两位数比原数大 58，求原来的两位数， 4、一个五位数，如果将第一位上的数移动到最后一位得到一个新的五位数（例如：此变换可以由 4321 得到 3214），新的五位数比原来的数小 11106，求原来的五位数。 5、某考生的是一个四位数，它的千位数是一；如果把 1 移到个位上去，那么所得的新数比原数的 5 倍少 49，这个考生的是多少？ 年龄问题： 1、姐姐 4 年前的年龄是妹妹的 2 倍，今年年龄是妹妹的 1.5 倍，求姐姐今年的年龄。
VB练习题(上机)含答案
第一部分 1 在窗体上添加一个命令按钮(名称为Cmd1，标题为"输出平均值")。程序运行后，单击命令按钮完成以下工作： ①随机产生20个0到1000的整数，将其放入一个一维数组中 ②求出所有元素的平均值，并显示在窗体上(如下图所示) Private Sub Cmd1_Click() Dim a%(19), i%, sum!, aver! Randomize For i = 0 To 19 a(i) = Int(Rnd * 1001) sum = sum + a(i) Next i aver = sum / 20 Print aver End Sub 2 请在名称为Form1的窗体上添加一个名称为Text1的文本框和一个名称为C1、标题为"转换"的命令按钮，如下图所示。在程序运行时，单击"转换"按钮，可以把Text1中的小写字母转换为大写，把大写字母转换为小写，其他字符不变。 Private Sub C1_Click() Dim ch As String, ch1 As String, i% ch = Text1 For i = 1 To Len(ch) If Asc(Mid(ch, i, 1)) >= 65 And Asc(Mid(ch, i, 1)) <= 90 Then ch1 = ch1 + LCase(Mid(ch, i, 1)) Else
ch1 = ch1 + UCase(Mid(ch, i, 1)) End If Next i Text1 = Text1 + vbCrLf Text1 = Text1 + ch1 End Sub 3 在窗体上添加一个命令按钮(名称为MyCmd1，标题为"输出最大值")。程序运行后，单击命令按钮完成以下工作： ①随机产生30个0～1000的整数，将其放入一个一维数组中 ②求出其中的最大值，并显示在窗体上。 Private Sub MyCmd1_Click() Dim a%(29), i%, max% Randomize For i = 0 To 29 a(i) = Int(Rnd * 1001) Next i max = a(0) For i = 1 To 29 If a(i) > max Then max = a(i) Next i Print max End Sub 4 请设计如下图所示窗体界面。程序运行时，在选中一个或两个复选框和一个单选按钮时，单击命令按钮，则对文本框中的文本内容做相应的设置。请编写适当的事件过程，完成上述功能。
ACCESS上机试题及答案
一、基本操作 在考生文件夹下，存在一个数据库文件"samp1.mdb"和一个图像文件"photo.bmp"。在数据库文件中已经建立了一个表对象"tStud"。试按以下操作要求，完成各种操作： （1）设置"ID"字段为主键；并设置"ID"字段的相应属性，使该字段在数据表视图中的显示名称为"学号"。（2）删除"备注"字段。 （3）设置"入校时间"字段的有效性规则和有效性文本。具体规则是：输入日期必须在2000年1月1日之后（不包括2000年1月1日）；有效性文本内容为"输入的日期有误，重新输入"。 （4）修改字段"照片"的数据类型为"OLE对象"；将学号为"20011002"学生的"照片"字段值设置为考生文件夹下的"photo.bmp"图像文件（要求使用"由文件创建"方式）。 （5）将冻结的"姓名"字段解冻；并确保"姓名"字段列显示在"学号"字段列的后面。 （6）将"tStud"表中的数据导出到文本文件中，并以"tStud.txt"文件名保存到考生文件夹下。第一行包含字段名称，各数据项间以逗号分隔。 第1题分析 本题主要考核点：主键的设置、字段的删除、有效性规则和文本的设置、表字段设置、字段冻结和导出表中记录。 本题解题思路： 第一步：打开考生文件夹下的"samp1.mdb"数据库。 第二步：选择表"tStud"，点击"设计"按钮，选中"ID"字段行，点击工具栏上的"主键"按钮，再选中下面的"标题"，在右边的框中输入"学号"。 第三步：选中"备注"字段，在工具栏上选择"删除行"或者在鼠标右击后弹出的菜单中选择"删除行"，在弹出的对话框中选择"是"。 第四步：选中"入校时间"字段行，再选中下面的"有效性规则"，在右边的框中输入">#2000-1-1#"，选中下面的"有效性文本"，在右边的框中输入"输入的日期有误，重新输入"。 第五步：选中"照片"字段行，设置"数据类型"属性为"OLE对象"；打开表"tStud"，找到学号为"20011002"学生的记录，选中此学生的"照片"字段，点击"插入"菜单中的"对象"，或者右击，在弹出菜单中选择"插入对象"，然后在弹出的对话框中选择"由文件创建"单选按钮，最后通过"浏览"按钮来选择考生文件夹下的图像文件"photo.bmp"。 第六步：打开表"tStud"，选择"格式"菜单下的"取消对所有列的冻结"。 第七步：选中表"tStud"，点击"文件"菜单下的"导出"，在打开的"将"tStud"导出为"对话框中，选择保存类型为"文本文件"，输入文件名"tStud"，然后点击"导出"，接着点击"下一步"，在"请选择字段分隔符"下面选中"逗号"按钮，将"第一行包含字段名称"选中，接着点击"下一步"，确认文件导出的路径无误，点击"完成"按钮。 二、简单应用 考生文件夹下存在一个数据库文件"samp2.mdb"，里面已经设计好一个表对象"tStud"和一个查询对象 "qStud4"。试按以下要求完成设计： （1）创建一个查询，计算并输出学生的最大年龄和最小年龄信息，标题显示为"MaxY"和"MinY"，所建查询命名为"qStud1"。 （2）创建一个查询，查找并显示年龄小于等于25的学生的"编号"、"姓名"和"年龄"，所建查询命名为"qStud2"。（3）创建一个查询，按照入校日期查找学生的报到情况，并显示学生的"编号"、"姓名"和"团员否"三个字段的内容。当运行该查询时，应显示参数提示信息："请输入入校日期："，所建查询命名为"qStud3"。 （4）更改"qStud4"查询，将其中的"年龄"字段按升序排列。不允许修改"qStud4"查询中其他字段的设置。 第2题分析 本题主要考的是数据库的查询。 本题解题思路： （1）点击"查询"，选择"新建(N)"，在弹出的"新建查询"窗体上选择"设计视图"，然后在弹出的"显示表"窗体上选择"tStud"表，然后在第一个字段中输入：MaxY:Max([年龄])，再第二个字段中输入：MinY:Min([年龄])，以"qStud1"保存查询。 （2）与第1小题类似，选择题目中所说的三个字段，然后在"年龄"字段的"条件"中输入"<=25"，最后以"qStud2"保存查询。 （3）与第1小题类似，选择题目上所说的三个字段，然后再选择"入校日期"字段，在"入校日期"字段的"
计算机操作系统期末考试题目及答案选择题
计算机操作系统期末考试题目及答案选择题 Prepared on 22 November 2020
计算机操作系统期末考试题目及答案（选择题）答案绝对正确广药师姐 一、单项选择题（本大题共20小题，每小题2分，共40分）。 1位示图方法可用于() A、盘空间的管理 B、盘的驱动调度 C、文件目录的查找 D、页式虚拟存贮管理中的页面调度 凡是有盘空间三个字就选 2．下列关于进程和线程的叙述中，正确的是____。 A、一个进程只可拥有一个线程 B、一个线程只可拥有一个进程 C、一个进程可拥有若干个线程 D、一个线程可拥有若干个进程 线程是进程的一部分 3．如果信号量S的值是0，此时进程A执行P(S)操作，那么，进程A会____。 A、继续运行 B、进入阻塞态，让出CPU C、进入就绪态，让出CPU D、继续运行，并唤醒S队列上的等待进程 P操作就是信号量减一，若小于0则进入等待队列，S=0,P操作后s=-1，则进入等待 V操作就是信号量加一，若小于等于0则唤醒， 4．一个进程在获得资源后，只能在使用完资源时由自己释放，这属于死锁必要条件的____。
A、互斥条件（不能共占一个资源） B、请求和释放条件（请求了资源还可以继续请求） C、不剥夺条件请求的资源用完才释放 D、环路等待条件（形成环路） 5.下列算法中用于磁盘移臂调度的是() A、时间片轮转法（进程调度） B、LRU算法（页面调度） C、最短寻找时间优先算法 D、优先级高者优先算法（进程调度） 还有fcfs先来先服务,scan扫描算法 6．若P、V操作的信号量S的初值为2，当前值为-1，则有_____个等待进程。 A、1 B、2 C、3 D、0 s>0如s=2,则表示有2个可用资源s<0,则表示有|n|在等待，s=-1则有一个在等待，s=0,则没有可用资源 7．一台计算机有8台磁带机，它们由N个进程竞争使用，每个进程可能需要3台磁带机。如果要求系统没有死锁危险，请问N可以取的最大值是______。 A、1 B、2 C、3 D、4 8+n>=3n判断死锁，则n<=4,取n=3
ACCESS数据库考试试题和答案
西安欧亚学院2010－2011学年第二学期考试试卷 专业： 课程：数据库技术应用 年级：09/10 级 一、单项选择题（本大题共25小题，每小题1分，共25分）在每小题列出的四个备用选项中只有一个符合题目要求的，请将其代码填写在题后的括号内。错选、 多选或未选均无分。 1、数据库系统的数据管理方式中，下列说法中不正确的是 [C] A ．数据库减少了数据冗余 B. 数据库中的数据可以共享 C. 数据库避免了一切数据的重复 D. 数据库具有较高的数据独立性 2、数据库系统的核心是 [A] A ．数据库管理系统 B ．数据库 C. 数据模型 D ．数据 3、用二维表来表示实体及实体之间联系的数据模型是 [D] A ．联系模型 B ．层次模型 C ．网状模型 D ．关系模型 4、在教师表中，如果要找出姓“李”教师的记录，所采用的关系运算是 [B] 学号_____________ 班级___________ 姓名________ 考场号____ 座位号____ - - - -- - - - -- - - - -- - - - - - - -- - - -- -- -密 ○- - - - - - - - - - - - - - -- - - -- -- - -封 ○- - - - - - - - - - - - -- - - --- - - -- -线 ○- - - - - - - - - - -- - - - -- - - - -- - - -- - - -- 物流、会计、管理 金融、 外语学院
A．投影B．选择C．连接D．层次 5、在Access2003中，某数据库的表中要添加一张Excel电子表格，则采用的字段类型是[A] A．OLE 对象数据类型B．备注数据类型 C. 查阅向导数据类型D．自动编号数据类型 6、Access数据库中，表的组成是[A] A．字段和记录B．查询和字段C．记录和窗体D．报表和字段 7、有关字段类型以下叙述错误的是[D] A．字段大小可用于设置文本类型字段的最大容量 B. 有效性规则属性是用于限制此字段输入值的表达式 C. 不同的字段类型，其字段属性有所不同 D. 可对任意类型的字段设置默认值属性 8、要修改数据表中的数据（记录），可在以下哪个选项中进行[C] A．报表中B．数据表的查询中 C. 数据表的数据表视图中D．窗体的设计视图中 9、在Access中，如果想要查询所有姓名为2个汉字的学生记录，在准则中应输入[D] A．“LIKE **”B．“LIKE ## ” C.“LIKE ”D．LIKE “” 10、若要查询成绩为60—80分之间（包括60和80）的学生信息，查询条件设置正确的是[B] A．>=60 OR <=80 B．Between 60 and 80 C．>60 OR <80 D．IN (60,80) 11、创建交叉表查询时，最多只能选择3个行标题字段，列标题字段
计算机应用基础统考操作题难点汇总
计算机应用基础统考操作题难点汇总 集团标准化小组：[VVOPPT-JOPP28-JPPTL98-LOPPNN]
题一、请在考生文件夹下完成如下操作： （1）在考生文件夹下建立“图片2”文件夹； （2）在考生文件夹下查找所有的jpg文件，并将文件移动到“图片2”文件夹中； （3）将名为“2.jpg”的文件设为只读文件。 参考答案:解析:①略 ②找到考生文件夹下的所有jpg文件，选择这些文件单击鼠标右键，选择“剪切”；打开“图片2”文件夹，单击鼠标右键，选择“粘贴”，完成移动文件操作。 ③选择“2.jpg”文件，单击鼠标右键，选择“属性”，在打开的“属性”窗口中选中“只读”复选按钮，最后单击“确定”按钮。 题二（卷5第42题）、打开考生文件夹下的文件“exam2.docx”，并按照下列要求进行排版。（1）设置第一段首字下沉。 （2）将第一段（除首字）字体设置为“楷体”，字号设置为“四号”。 （3）将第二段字体设置为“方正舒体”，字号设置为“小四号”，加双横线下划线。操作完成后以原文件名保存在考生文件夹下。 参考答案:解析: ①选定第一段，单击“插入”选项卡按钮，在“文本”功能区中单击“首字下沉”命令按钮，在弹出的下拉列表中单击“下沉”。 ②选定第一段（除首字），将其字体设置为“楷体”，将字号设置为“四号”。 ③选定第二段，将字体设置为“方正舒体”，字号设置为“小四号”， 单击“字体”功能区“下划线”按钮右侧的下拉按钮，在弹出的下拉列表中选定“双下划线”。 题三（卷四第42题）、打开考生文件夹下的文件“exam3.docx”，并按照下列要求进行排版。 （1）将标题“闲情赋”字体设置为“幼圆”，字号设置为“小二”，居中显示。 （2）将“序——”和“正文——”，字体设置为“隶书”，字号设置为“小四号”，添加项目符号“?”。 （3）将“序”的正文“左缩进”设置为“2字符”，“行距”设置为“17磅”。操作完成后以原文件名保存在考生文件夹下。 参考答案:解析:①略 ②选定“序——”，将字体设置为“隶书”，将字号设置为“小四号”；在“开始”选项卡的“段落”功能区中，单击“项目符号”命令按钮右侧的下拉按钮，在弹出的下拉列表中选定“?”项。用同样的方法设置“正文——”字体和字号及项目符号。 ③选定“序”的正文，在“段落”功能区单击对话框启动器，打开“段落”对话框，设置左缩进数值为“2字符”；单击“行距”框右侧的下拉按钮打开下拉列表，选择“固定值”，将“设置值”数值框设置为“17磅”，单击“确定”按钮。 题四、在考生文件夹下，完成以下操作：
VB操作题答案
第一次作业 Private Sub Command1_Click() Text1.Text = "欢迎你学习VB程序设计" Text1.ForeColor = vbGreen Text1.Font = "宋体" Text1.FontSize = 25 Text1.FontItalic = True Text1.FontBold = True End Sub Private Sub Command2_Click() End End Sub Private Sub Form_Click() Text1.ForeColor = vbRed Text1.Font = "隶书" Text1.Text = "佛山大学理学院" End Sub 第二次作业(服务员密码) 1、请建立一个工程（ zy02.vbp),含有1个窗体（zy02.frm),该窗体有两个标签，两个命令按钮（设置成不同的背景色），一个文本框。要求如下：1）当程序启动运行时，命令按钮不可用（变灰色），当在文本框中输入正确密码时，显示出来的是星号，（2）… 3）点击结帐按钮后，窗体所有控件消失，仅显示出标签“谢谢你，再见！”这样的服务用语。Private Sub Command1_Click() Text1.Visible = False Label2.Visible = True Label2.Caption = "你好，你需要什么" Command2.Enabled = True End Sub Private Sub Command2_Click() Command1.Visible = False Command2.Visible = False Label1.Visible = False Label2.Caption = "谢谢你，再见！" End Sub Private Sub Form_Load() Label2.Visible = False Command1.Enabled = False Command2.Enabled = False End Sub Private Sub Text1_Change() If Text1.Text = "12345" Then Command1.Enabled = True Text1.PasswordChar = "*" End Sub 第三次
Access操作题
Access操作题 1. 试按以下要求完成设计： （1）在考生文件夹下创建一个数据库文件"Access72101.mdb" （2）创建一个表"学生"，结构如下： （3）设置"编号"字段为主键； （4）在"学生"表中输入以下2条记录： 2.考生文件夹下存在一个数据库文件"Access75101.mdb"，里面已经设计好两个表对象"学生"和"课程"。试按以下要求完成设计： （1）创建一个选择查询，查找并显示"姓名"，"性别"和"进校日期"三个字段内容，所建查询命名为"查询1"。 （2）使用查询设计视图创建一个选择查询，查找并显示性别为男，年
龄大于27的学生的"姓名"，"年龄"和"出生地"三个字段内容，所建查询命名为"查询2"。 注意：设计此查询准则表达式时，不允许使用特殊运算符Like。 （3）创建一个选择查询，查找并显示"姓名"，"课程编号"和"成绩"三个字段内容，所建查询命名为"查询3"。 3. 考生文件夹下存在一个数据库文件"Access75105.mdb"，里面已经设计好两个表对象"学生"和"课程"。试按以下要求完成设计： （1）创建一个选择查询，查找并显示"姓名"，"性别"和"奖励否"三个字段内容，所建查询命名为"查询1"。 （2）使用查询设计视图创建一个选择查询，查找并显示接受过奖励，年龄小于28的学生的"姓名"，"年龄"和"出生地"三个字段内容，所建查询命名为"查询2"。 注意：设计此查询准则表达式时，不允许使用特殊运算符Like。 （3）创建一个选择查询，查找并显示成绩小于80的学生的"姓名"，" 课程编号"和"成绩"三个字段内容，所建查询命名为"查询3"。 4. 考生文件夹下存在一个数据库文件"Access75103.mdb"，里面已经设计好两个表对象"学生"和"成绩"。试按以下要求完成设计： （1）创建一个选择查询，查找并显示学生的"编号"、"姓名"、"性别"、"进校日期"和"奖励否"五个字段内容，所建查询命名为"查询1"。（2）使用查询设计视图创建一个选择查询，查找并显示数学成绩不及格（分数<60）的学生的"姓名"、"年龄"和"数学"三个字段内容，所建查询命名为"查询2"。