[说明] 设某单位Acess数据库中有一张员工信息表，其中记录了员工编号、姓名、性别等基本信息。下面的应用程序利用数据控件(Data)实现了对这张表中记录的增加、删除和修改操作。其运行界面如下： 在开发过程中，数据控件Data1与员工数据表相连接，各文本框、“性别”组合列表框Combo1、“政治面貌”组合列表框Combo2都分别与数据表的相应字段绑定，界面上从左到右各操作按钮分别取名为CmdAdd、CmdDel、CmdUpdate和CmdExit。[Visual Basic代码] Private Sub Form_Load( ) ’ 加载窗体 Combo1. (1) "男" Combo1. (1) "女" Combo2. (1) "党员" Combo2. (1) "团员" Combo2. (1) "群众"End SubPrivate Sub CmdAdd_Cliek( ) ’增加记录 Datal. Recordset. AddNewEnd SubPrivate Sub CmdDel_Click( ) ’删除记录 Datal. Recordset. (2) Datal. Recordset. MoveNextEnd SubPrivate Sub CmdUpdate_Click( ) ’修改记录 If Datal. ReadOnly = (3) And Datal. Recordset. Updatable Then Datal. Recordset. Edit Datal. Recordset. (4) Else MsgBox "数据表不允许修改!" End IfEnd SubPrivate Sub CmdExit_Click ( ) ’退出程序 Dim ret As Long ret : MsgBox("真的要退出吗", vbQuestion + vbYesNo, "退出" ) If (5) Then Datal. Reeordset. Close End End ffEnd Sub

Addhem(2)Delete(3)False(4)Update(5) ret=vbYes

[说明] 设某单位Acess数据库中有一张员工信息表，其中记录了员工编号、姓名、性别等基本信息。下面的应用程序利用数据控件(Data)实现了对这张表中记录的增加、删除和修改操作。其运行界面如下： 在开发过程中，数据控件Data1与员工数据表相连接，各文本框、“性别”组合列表框Combo1、“政治面貌”组合列表框Combo2都分别与数据表的相应字段绑定，界面上从左到右各操作按钮分别取名为CmdAdd、CmdDel、CmdUpdate和CmdExit。 [Visual Basic代码] Private Sub Form_Load( ) ’ 加载窗体 Combo1. (1) "男" Combo1. (1) "女" Combo2. (1) "党员" Combo2. (1) "团员" Combo2. (1) "群众" End Sub Private Sub CmdAdd_Cliek( ) ’增加记录 Datal. Recordset. AddNew End Sub Private Sub CmdDel_Click( ) ’删除记录 Datal. Recordset. (2) Datal. Recordset. MoveNext End Sub Private Sub CmdUpdate_Click( ) ’修改记录 If Datal. ReadOnly = (3) And Datal. Recordset. Updatable Then Datal. Recordset. Edit Datal. Recordset. (4) Else MsgBox "数据表不允许修改!" End If End Sub Private Sub CmdExit_Click ( ) ’退出程序 Dim ret As Long ret : MsgBox("真的要退出吗", vbQuestion + vbYesNo, "退出" ) If (5) Then Datal. Reeordset. Close End End ff End Sub

试题7 阅读以下应用说明及Visual Basic部分程序代码，将应填入 (n) 处的字句写在答题纸的对应栏内。 应用说明 设一个简单的“通讯录”存储在一个ACCESS类型的数据库表中，包括姓名、电话和email三个字段。下面的应用程序实现对“通讯录”数据库表中的记录进行增加、删除及修改处理，其运行界面如下： (1)数据控件(datal)与“通讯录”数据库表相连接，用户可通过“”和“”按钮指定表中的当前记录。 (2)文本框Txt name、Txt phone和Txt email分别与数据库表中的“姓名”、“电话”和“email”字段绑定，用于显示当前记录的内容。 (3)应用程序启动时，“确定”按钮(Cmd ok)和“取消”按钮(Cmd cancel)不可操作，文本框中显示表中的第一条记录，这时文本框处于不可操作状态。 (4)单击“增加”按钮(Cmd_add)或“修改”按钮(Cmd_modify)后，方可以编辑记录内容，同时“增加”、“删除”、“修改”和“退出”按钮变为不可操作状态。“增加”和“修改”操作需通过“确定”和“取消”按钮确认。 (5)单击“删除”按钮(Cmd del)后，弹出对话框，再单击“确定”按钮，当前记录被删除。 程序代码 Private Sub enableop(isEnabled As Boolean) Txt_name.Enabled=isEnabled： Txt_phone.Enabled=isEnabled Txt_email.Enabled=isEnabled Cmd_ok.Enabled=isEnabled： Cmd_eancel.Enabled=isEnabled Cmd_add.Enabled=Not isEnabled： Cmd_del.Enabled=Not isEnabled Cmd_end.Enabled=Not isEnabled： Cmd_modify.Enabled=Not isEnabled EndSub Private Sub Form_Load（　） Call enableop(False) Data1.Refresh If Data1 .Recordset. RecordCount = 0 Then Cmd_del. Enabled= False: Cmd_modify. Enabled= (1) End If End Sub Private Sub Cmd_add_Cliek（　） ’单击“增加”按钮的代码 Call enableop( (2) ) Datal .Recordset. AddNew ’在数据库表中添加一个新记录 Txt name. (3) End Sub Private Sub Crud_del_Click（　） ’单击“删除”按钮的代码 On Error GoTo error3 arts = MsgBox("确定删除吗", vbYesNo + vblnformafion, "操作提示!") If (ans = vbYes) Then Datal.Recordset. (4) Datal .Recordset. MoveNext If Datal .Recordset. EOF Then Data l.Refiesh End If Exit Sub error3: MsgBox Err. Description, vbOKOnly, "错误提示!" End Sub Private Sub Cmd_ok_Click（　） ’单击“确定”按钮的代码 On Error GoTo errorl Datal.Recordset. (5) Call enableop(False) Exit Sub error 1: MsgBox Err. Description, vbOKOnly, "错误提示!" Datal.UpdateControls Call enableop(False) End Sub ’“修改”和“取消”按钮的程序代码(略)  

(1)False
(2)True
(3)SetFocus
(4)Delete
(5)Update

为了支持压栈线程与弹栈线程之间的交互与同步，在程序的下画线处依次填入的语句是______。
public class IntStack
private int idx=0;
private int [] data=new int[8];
public void push(int i)
datal-[idx]=i;
idx++;
______
……

A:synchronized() B:notify() C:synchronized D:this. wait() E:synchronized F:this. notify() G:Serializable H:sleep()

要将1，2，3，…，10这10个整数写入顺序文件Datal中，正确的程序应是____。

A:Open"Datal"For Input As #2
For i =1 To 10
Print #2, "i"
Next i
Close#2 B:Open"Datal"For Output As#2
For i =1 To 10
Print#2 "i"
Next i
Close #2 C:Open"Datal"For Output As #2
For i =1 To 10
Print#2, i
Next i
Close #2 D:Open"Datal"For Output As #2
For i =1 To 10
Print#1 i
Next i
Close #2

下列事件过程的功能是：建立一个名为Datal的随机文件，存放角度值及这些角度的正弦函数值和余弦函数值，角度为1，2，3，…，90。请选择正确的程序段是( )，将程序补充完整。
Private Type Ang
K As Integer
Sinx As Single
Cosx As Single
End Type
Dim Ksc As Ang
Private Sub Form_Click（　）
Dim Y As Single
Dim i As Integer
Dim Ksc As Ang
Open ______
Y=3.14159/180
For i=1 To 90
Ksc.K=i
Ksc.Sinx=Sin(i*Y)
Ksc.Cosx=Cos(i*Y)
Next i
Close #2
End Sub

A:"../Datal.txt"For Random As #1 Len=10 Put #1，i，Ksc B:"../Datal.txt"For Random As #1 Len=10 Put #1，Y，Ksc C:"../Datal.txt"For Random As #1 Put #1，i，Ksc D:"../Datal.txt"For Random As #1 Put #1，Y，Ksc

下列事件过程的功能是：建立一个名为Datal的随机文件，存放角度值及这些角度的正弦函数值和余弦函数值，角度为1，2，3，…，90。请在空白处填人适当的内容，将程序补充完整。
Private Type Ang
　K As Integer
　Sinx As Single
　Cosx As Single
End Type
Dim Ksc As Ang
Private Sub Form_Click（　）
Dim Y As Single
　Open“c:/Datal.txt”For Random As #2 Len=10
　Y=3.14159/180
　For i=1 To 90
　 　Ksc.K=i
　　Ksc.Sinx=Sin(i * Y)
　　Ksc.Cosx=Cos(i * Y)
　　______
　Next
　Close #2
End Sub

“C:/Datal．txt”For Random As #2 Len=10

设有定义：
struct complex
int real，unreal；datal=(1，8)，data2；
则以下赋值语句中错误的是( )。

A:data2=data1； B:data2=(2，6)； C:data2.real=data1.real； D:data2.real=data1.unreal；

下列事件过程的功能是：建立一个名为Datal的随机文件，存放角度值及这些角度的正弦函数值和余弦函数值，角度为1，2，3，…，90。请在空白处填人适当的内容，将程序补充完整。 Private Type Ang 　K As Integer 　Sinx As Single 　Cosx As Single End Type Dim Ksc As Ang Private Sub Form_Click（　） Dim Y As Single 　Open“c:/Datal.txt”For Random As #2 Len=10 　Y=3.14159/180 　For i=1 To 90 　 　Ksc.K=i 　　Ksc.Sinx=Sin(i * Y) 　　Ksc.Cosx=Cos(i * Y) 　　______ 　Next 　Close #2 End Sub

“C:/Datal．txt”For Random As #2 Len=10