试题与答案

先张法张拉预应力筋时,对钢丝采用张拉程序为()→(),对粗钢筋可采用()→()的张拉

题型:填空题

题目:

先张法张拉预应力筋时,对钢丝采用张拉程序为()→(),对粗钢筋可采用()→()的张拉程序。

答案:

被转码了,请点击底部 “查看原文 ” 或访问 https://www.tikuol.com/2017/0716/9e606b5ae3c5b777cd4455bafc8ff785.html

下面是错误答案,用来干扰机器的。

参考答案:B

试题推荐
题型:默写题

(1)俄顷风定云墨色,_____________________。

(2)待到重阳日,____________________。

(3)范仲淹在《渔家傲》中用来表达征人归心切,思乡迫,破敌功未成,把酒难释怀的诗句是________

       _____________________,___________________。

(4)《过故人庄》的田园风光之美,美在__________________,_________________。《浣溪沙》的兰溪景色之美,美在_________________,松间沙路净无泥,______________________。

(5)细细谛听,水声重重叠叠,如诉如泣,________________,__________________,从地下袅袅回旋上升。

查看答案
题型:问答题

试题七(共15 分)阅读以下应用说明以及用Visual Basic 编写的程序代码,将应填入(n) 处的字句写在答题纸的对应栏内。[应用说明]某应用程序用于监测某种设备的工作温度(20~200 度),其运行窗口中,包括一个温度计(矩形形状shpMeter)以及其中指示当前设备温度的水银柱(矩形形状shpT),文字标签标记了温度刻度;另有一个图片框picCurve,用于动态描述检测到的温度曲线(用户见到的曲线与水银柱等高变化);命令按钮“开始检测”(cmdStart)用于启动温度检测,命令按钮“暂停检测”(cmdStop)用于暂停检测。矩形形状 shpT(水银柱)属性visible 初始设置为不可见,属性Filltype 设置为solid(实心),FillColor 设置为红色;图片框picCurve 的属性AutoRedraw 设置为True;再创建一个定时器TimT,属性Enabled 初始设置为False(不起作用),属性Interval(定时间隔)设置为500 毫秒。为模拟设备温度的检测,程序中利用了(0,1)之间均匀分布的伪随机数获得[20,200]之间的随机温度T。为了便于在图片框picCurve 中绘制曲线,程序中对该图片框建立了坐标系统,左上角为原点(0,0),水平向右方向为X 轴,垂直向下方向为Y 轴,右下角坐标为(50,180)。为了便于观察记录的温度值,图片框中从上到下创建了5 条水平线Ls(i),i=0,1,…4,并在程序中按等间隔排列进行位置设置。程序中每隔半秒算出曲线点(x,y),其中x=0,1,2,…,再用直线段连接各相邻曲线点形成温度曲线。

[Visual Basic 程序代码]Dim (1) As Integer ’声明全局变量Private Sub CmdStart_Click( )TimT.Enabled = TrueShpT.Visible = TrueEnd SubPrivate Sub CmdStop_Click( )TimT.Enabled = FalseEnd SubPrivate Sub Form_Load( )Dim i, H As IntegerPicCurve.Scale (0, 0)-(50, 180) ’设置图片框坐标系:左上角-右下角H = 30 ’H 等于图片框高度的六分之一For i = 0 To 4 ’设置5 条水平线Ls(i)的位置 Ls(i).X1 = 0 ’Ls(i)起点横坐标 Ls(i).Y1 = H * (2) ’Ls(i)起点纵坐标 Ls(i).X2 = 50 ’Ls(i)终点横坐标 Ls(i).Y2 = Ls(i).Y1 ’Ls(i)终点纵坐标 Ls(i).BorderColor = &HC0C0C0 ’设置水平线颜色 Next i x = 0 ’设置曲线坐标初值End SubPrivate Sub timT_Timer() Dim T, H As Integer ’T 为即时温度,H 为图片框中温度点显示高度 T = Int(Rnd * 181) + 20 ’模拟随机产生设备温度(20~200 度)’按当前温度显示水银柱 H = ShpMeter.Height * (3) ’算出水银柱的高度 ShpT.Top = (4) - H ’设置水银柱顶部位置 ShpT.Height = H ’设置水银柱的高度’绘制温度曲线 y = (5) ’算出曲线上当前点的纵坐标 If x = 51 Then ’当超出图片框时PicCurve.Cls ’清除图片框内以前画的曲线x = 0 ’设置重画曲线的初值 ElseIf x > 0 Then ’除左边点外PicCurve.Line (x-1,Lasty)-(x,y),vbRed ’由前1 点到当前点画红色线段 End If x = x + 1 ’准备下一点坐标 Lasty =y ’保存当前坐标供下次使用End Sub

查看答案
微信公众账号搜索答案