对于线路T接，应记录1次停运事件，T接后线路使用（）代码，不应做退出处理（T接线路整体作为一条线路处理，原线路和T册）。

给定一个全局数组a[n]b[n]，然后是T1～T-1，共-1个线程，线程为代码如下： Ti(){ a=g(a，a[i-1])； b=f(a)； } 其中g和f函数的作用是通过输入参数，进行一系列运算后返回。相当于以a[i-1]为输入参数，a和b为输出。 要求使用PV原语，实现T1～T-1的并发互斥，尽量保证最大限度的并发。 a[i-1]为Ti-1叫线程的结果。

Command1_Click()事件代码如下： Private Sub Command1_Click() Dim x As Integer, Y As Integer x = 6 : Y : 8 Call ABC(X, Y) Print X; Y End Sub Private Sub ABC(ByVal X As Integer，Y As Integer) X = X + 4 Y = Y = 2 End Sub 事件发生后，X和Y的值分别为 ______。

A．6, 8

B．10, 10

C．10, 8

D．6, 10

阅读以下应用说明以及Visual Basic程序代码，将应填入(n)。

【应用说明】

某电视台拟开发应用程序来显示戏曲大赛中1～4号四位选手决赛的现场投票情况。该程序从现场观众中(不超过2000人)每0.5秒收集一次对这四位选手的支持票数，并在屏幕上动态显示这四位选手的票柱(以高度反映票数)与累计得票数，如图2-3所示。投票过程限时30秒，每名观众最多为1名选手投票。投票结束后系统通过比较各位选手的累计得票数，显示决赛结果：“*号胜出”(如有单个冠军)或“继续进行PK”(如有多人获得相同的最高票数)。

在开发该程序的过程中创建的主要控件及其初始属性值说明如下：

该程序中设置公共变量T动态记录投票时间。四个形状ShpM(1 to 4)动态增长的底线固定。

【Visual Basic程序代码】

Dim T As Integer '声明全局变量

Private Sub Form_Load()

For i=1 To 4

ShpM(i).Top=2000 : ShpM(i).Height=0 '初始票柱高度为0

TxtM(i).Text=0

Next i

Timl.Enabled=False : Timl.Interval=500 : T=0

End Sub

Private Sub CmdStart Click()

Timl.Enabled=True '开始投票

CmdStart.Enabled=False

End Sub

Private Sub Timl Timer()

Dim n(1 To 4) As Integer 'n(1 to 4)为每次收集的票数

Dim i As Integer，j As Integer

Dim G As Integer 'G用于计算最高票数

Dim ng As Integer 'ng用于计算冠军个数

For i=1 To 4

n(i)=... '收集i号选手的票数，此处省略

TxtM(i).Text=TxtM(i).Text+n(i) '累计票(VB能进行自动转换)

ShpM(i).Top=ShpM(i).Top-n(i)

ShpM(i).Height=ShpM(i).Height+(1) '算出票柱高度

Next i

T=T+1 '计时

If T=60 Then '投票时间到

(2) '停止数据收集处理

ng = 1

G=TxtM(1).Text

For i=2 To 4

If G＜TxtM(i).Text Then

G=TxtM(i).Text

ng=(3)

j = i

Else

If G=TxtM(i).Text Then ng=(4) '计算冠军个数

End If

Next i

If ng=1 Then

txtResult. Text=(5) '单个冠军结果

Else

txtResult. Text="继续进行PK"

End If

End If

End Sub

在窗体中有一个命令按钮Command1，对应的事件代码如下： PrivateSubCommand1_Enter() Dim num As Integer Dim a As Integer Dim b As Integer Dim i As Integer For i=1 To 10 num=InputBox(“请输入数据：”，“输入”，1) If Int(num/2)=num/2Then a=a+1 Else b=b+l End If Next i MsgBox(“运行结果：a=“&Str(a)&：”，b=”&Str(b)) End Sub 运行以上事件所完成的功能是( )。

A．对输入的10个数据求累加和

B．对输入的10个数据求各自的余数，然后再进行累加

C．对输入的10个数据分别统计有几个是整数，有几个是非整数

D．对输入的10个数据分别统计有几个是奇数，有几个是偶数

试题六（共 15 分）

阅读以下应用说明以及 Visual Basic 程序代码，将应填入 （n） 处的字句写在答题纸的对应栏内。

[应用说明]

某电视台拟开发应用程序来显示戏曲大赛中1～4号四位选手决赛的现场投票情况。该程序从现场观众中（不超过 2000 人）每 0.5 秒收集一次对这四位选手的支持票数，并在屏幕上动态显示这四位选手的票柱（以高度反映票数）与累计得票数，如图 6-1 所示。投票过程限时 30 秒，每名观众最多为 1 名选手投票。投票结束后系统通过比较各位选手的累计得票数，显示决赛结果： “*号胜出” （如有单个冠军）或“继续进行 PK”（如有多人获得相同的最高票数） 。

该程序中设置公共变量 T 动态记录投票时间。四个形状 ShpM（1 to 4）动态增长的

底线固定。

[Visual Basic 程序代码]

Dim T As Integer '声明全局变量

Private Sub Form_Load()

For i = 1 To 4

ShpM(i).Top = 2000 : ShpM(i).Height = 0 ' 初始票柱高度为0

TxtM(i).Text = 0

Next i

Tim1.Enabled = False : Tim1.Interval = 500 : T = 0

End Sub

Private Sub CmdStart_Click()

Tim1.Enabled = True '开始投票

CmdStart.Enabled = False

End Sub

Private Sub Tim1_Timer()

Dim n(1 To 4) As Integer ' n(1 to 4)为每次收集的票数

Dim i As Integer, j As Integer

Dim G As Integer ' G 用于计算最高票数

Dim ng As Integer ' ng 用于计算冠军个数

For i = 1 To 4

n(i) = … ' 收集 i 号选手的票数，此处省略

TxtM(i).Text = TxtM(i).Text + n(i) ' 累计票（VB 能进行自动转换）

ShpM(i).Top = ShpM(i).Top - n(i)

ShpM(i).Height = ShpM(i).Height + （1） ' 算出票柱高度

Next i

T = T + 1 ' 计时

If T = 60 Then ' 投票时间到

（2） ' 停止数据收集处理

ng = 1

G = TxtM(1).Text

For i = 2 To 4

If G < TxtM(i).Text Then

G = TxtM(i).Text

ng = （3）

j = i

Else

If G = TxtM(i).Text Then ng = （4） ' 计算冠军个数

End If

Next i

If ng = 1 Then

txtResult.Text = （5） ' 单个冠军结果

Else

txtResult.Text = "继续进行PK"

End If

End If

End Sub

在窗体中使用一个文本框（名为n）接受输入的值，有一个命令按钮run，事件代码如下： Private Sub run ClickOresult=""Fori=l ToMe!nForj=1 To Me!nresult=resultt+"*"Nextjresult=result+Chr（13）+Chr（10）NextiMsgBox resultEndSub打开窗体后，如果通过文本框输入4，单击命令按钮后输出的图形是（ ）。

在窗体中有一个“显示全部记录”命令按钮(名称为bList)，单击该按钮后，应实现将“tStudent”表中的全部记录显示出来的功能。现已编写了部分VBA代码，请按NVBA代码中的指示将代码补充完整。 要求：修改后运行该窗体，并查看修改结果。 注意：不允许修改窗体对象“fQuery”和“fStudent”中未涉及的控件、属性；不允许修改表对象“tStudent”。 程序代码只允许在“**********”与“**********”之间的空行内补充一行语句、完成设计，不允许增删和修改其他位置已存在的语句。

在窗体中使用一个文本框(名为n) 接受输入的值，有一个命令按钮run，事件代码如下：

Private Sub run_Click()

result＝""

For i＝1 To Me!n

For j＝1 To Me!n

result＝result+"*"

Next j

result＝result+Chr(13) +Chr(10)

Next I

MsgBox result

End Sub

打开窗体后，如果通过文本框输入的值为4，单击命令按钮后输出的图形是( )

A．

B．

C．

D．

在窗体中使用一个文本框(名为n)接受输入的值，有一个命令按钮run，事件代码如下：

Private Sub run_Click()

result=" "

For i=1 To Me!n

For j=1 To Me!n

result=result+"*"

Nextj

result=result+Chr(13)+Chr(10)

Next i

MsgBox result

End Sub

打开窗体后，如果通过文本框输入的值为4，单击命令按钮后输出的图型是( )。

：

A．

B．

C．

D．