某系统中有一个缓冲区，进程P1 不断地生产产品送入缓冲区，进程P2 不断地从缓冲区中
题型：单项选择题
问题：
某系统中有一个缓冲区，进程P1 不断地生产产品送入缓冲区，进程P2 不断地从缓冲区中取产品消费。假设该缓存区只能容纳一个产品。进程P1 与P2 的同步模型如下图所示：
为此，应设信号量S1 的初值为 （1） ，信号量S2 的初值为 （2） 。
2（）
A．-2
B．-1
C．0
D．1
题型：单项选择题
为测量大气压强的数值，王欣同学进行了如下实验，将塑料挂钩吸盘按压在光滑水平玻璃下面，挤出塑料吸盘内的空气，测出吸盘压在玻璃上的面积为S；将装适量细沙的小桶轻轻挂在吸盘下面的塑料挂钩上，如图所示，用小勺轻轻向桶内加细沙，直到塑料吸盘刚好脱落玻璃板，测出此时塑料挂钩、小桶和沙的总重力为G．
（1）吸盘即将脱离玻璃板时，空气对塑料吸盘的压力大小是______，所测大气压强的数值是______．
（2）该方法所测大气压强数值往往比实际值小一些，你认为产生这一误差的原因可能是（一条即可）：______．
[代码7-1] Begin VB.FormForm1 Caption = "小写金额转换为大写金额" //...窗体描述(略) Begin VB.CommandButton Command1Caption = "退出"//...窗体描述(略) End Begin VB.TextBox Text2 //...窗体描述(略) End Begin VB.TextBox Text1Enabled = 0 ’False //…窗体描述(略) End Begin VB.Labe1 Labe12Caption = "转换为大写金额"//...窗体描述(略) End Begin VB.Labe1 Labe11Caphon = "请输入数字" //...窗体描述(略) End End [代码7-2] Private Function setdata (num As Integer) As String ’数字转换 Select CaSe num Case 0setdata="零" Case 1Setdata="壹" Case 2Setdata="贰" Case 3Setdata="叁" Case4Setdata="肆" Case 5Setdata="伍" Case 6Setdata="陆" Case 7Setdata="柒" Case 8Setdata="捌" Case 9Setdata="玖" End Select End Function Private Function chang (aaa As Integer) As String ’位数转换 Select CaSe aaa Case 1chang="" Case 2chang="十" Case 3chang="百" Case 4chang="千" Case 5chang="万" Case 6chang="十" Case 7chang="百" Case 8chang="千" Case 9chang="亿" Case 10chang="十" End Select End Function [代码7-3] Private Sub Text2_Change ( ) ’小写转大写 Dim i As Integer Dim j As Integer Dim myint As Integer Dim myint1 As Integer Dim mydoub As Double Dim mystr As String Dim mystr1 As String Dim mystr2 As String Dim mystr3 As String Dim mystr4 As String Dim money As Long Dim money1 As Integer Dim money2 As Long mystr=Text2.Text myint=InStr (mystr, ".") If myint=0 Thenmystr=Text2.Text Else mystr3=Right(Text2.Text, Len (Text2.Text ) - myint) If mystr3＜＞""Then’转换小数位 mystr4=Left(mystr3, 1) mystr3=Right(mystr3, Len(mystr3 ) - 1) If mystr4＜＞"0"Then(1)End If If mystr3＜＞""Thenmystr4=Left(mystr3, 1)(2) End IfEnd Ifmystr=Left(Text2.Text,myint - 1) End If j=Len(mystr) For i=1 To Len(mystr,i) money2=Left(mystr,i) money1=Right(money2,1) If money1=0 Then Ifj=5 Then (3) Else (4) End If Else (5)End If j=j-1 Next i Text1.Text=mystr1&"元"&mystr2 ’显示大写 End sub