网友您好， 请在下方输入框内输入要搜索的题目：
题目内容
（请给出正确答案）
伸长率（延伸率）公式δ=（l1-l）/l×100%中l1指的是断裂后试件的长度。
参考答案
更多 “伸长率（延伸率）公式δ=（l1-l）/l×100%中l1指的是断裂后试件的长度。” 相关考题
考题
执行下列程序，输入数字3，则输出结果为______。Private Sub Command1_Click()a=inputBox("Input a Number")If a＞5 ThenGoTo L5Else If a＞2 ThenGoTo L2ElseGoTo L3End IfExit SubL5:Print a Mod 5Exit SubL3:Print a Mod 3Exit SubL2：Print a Mod 2End Sub
考题
布窗体上画一个名称为Command l的命令按钮，然后编写如下事件过程：Private Sub Command l-Click ()n=5f=ls=oFor I =l To nf=f【 】s= s +fNextPrint sEnd Sub该事件过程的功能是计算s=1+1／2!+l+3!+…+l/ n!的值。请填空。
考题
有以下程序：Private Sub Form_Activate()For j=1 to 3x=3For i=l to 2x=x+6NextNextPrint xEnd Sub程序运行后，窗体上显示的结果为______。
考题
在窗体上画两个标签和一个命令按钮，其名称分别为Labell、Label2和Command1，然后编写如下程序： Private Sub func(L As Label，ByVal a As Integer) L.Caption="1234" a=a*a End Sub Private Sub Form_Load() Label1.Caption="ABCD" Label2.Caption=10 End Sub Private Sub Command1_Click() a=Val(Label2.Caption) Call func(Labell，A)Label2.Caption=a End Sub 程序运行后，单击命令按钮，在两个标签Label1和Label2中显示的内容分别是 ______。A．ABCD和10B．1234和100C．ABCD和100D．1234和10
考题
（33）下列子过程语句的说明正确的是A.Sub f1(By Val x()As Integer) B.Sub f1(X%())As IntegerC.Function f1l%(f1%) D.Function f1%(x As Integer)
考题
阅读下列程序。Option Base 1Private Sub Form. Click()Dim x(3,3)For j=l to 3For k=l to 3If j=k then x(j,k)=lIf j＜＞k then x(j,k)=kNext kNext jCall fun(x())End SubPrivate Sub fun(x() )For j=1 to 3For k=1 to 3Print x(j,k);Next kNext jEnd Sub运行程序时，输出结果为【 】
考题
以下能够正确计算n!的程序是A．Private Sub Command1_Chck( ) n=5：x=1 Do x=x*i i=i+1 Loop While i＜n Print x End SubB．Private Sub Command1_Click( ) n=5：x=1：i=l Do x=x*i i=i+1 Loop While i＜n Print x End SubC．Private Sub Command1_Click( ) n=5：x=1：i=l Do x=x*i i=i+1 Loop While i＜=n Print x End SubD．Private Sub Command1_Click( ) n=5：x=1：i=l Dox=x*i i=i+1 Loop While i＞n Print x End Sub
考题
在窗体上画两个标签和一个命令按钮，其名称分别为Label1、Label2和Command1，然后编写如下程序： Private Sub func(L As Label,ByVal a As Integer) L.Caption="1234" a=a*a End Sub Private Sub Form_Load() Label1.Caption="ABCD" Label2.Caption=10 End Sub Private Sub Command1_Click() a=Val(Label2.Caption) Call func(Label1，A)Label2.Caption=a End Sub 程序运行后，单击命令按钮，在两个标签Label1和Label2中显示的内容分别是： ______。A．ABCD和10B．1234和100C．ABCD和100D．1234和10
考题
在窗体上画两个标签和一个命令按钮，其名称分别为Labe11、Labe12和Command1，然后编写如下程序： Private SUb fune(L As Label，By Val a As Integer) L.Caption="1234" a=a*a End Sub Private Sub Form. Load() LabeCaptlon="ABCD" LabeCapfion=10 End Sub Private SUb Command1_Click() a=Val(Label2.Caption) Callfunc(Labell，A)LabeCaption=a End Sub 程序运行后，单击命令按钮，在两个标签Labe11和Labe12中显示的内容分别是______。A．ABCD和10B．1234和100C．ABCD和100D．1234和10
考题
下列程序的输出结果是【 】。Private Sub Command l Click()Dim a(1 TO 20)Dim iFor i＝1 TO 20a(i)＝iNext iFor Each i In a()a(i)＝20Next iPrint a(2) End Sub
考题
下列程序的输出结果是______。Private Sub Command1_Click()Dim arr(1 To 10)For i=l TO 10arr(i)=iNext iFor Each i In arr()art(i)=arr(i)*2+1Next iMsgBox arr(7)End Sub
考题
在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command l-Click ()a=0For I =l T02For j=l To4if j Mbd2＜＞0 Thena=a+1End lfa= a +lNext jNext iMs g Box aEnd Sub程序执行后，单击命令按钮，消息框显示的是【 】。
考题
在窗体上画l个命令按钮和l个文本框，其名称为Command1和Text1，再编写如下程序：Dim ss As StringPrivate Sub Text1 KeyPress(KeyAscii As Integer)If Chr(KeyAscii)Then ss=ss+Chr(KeyAscii)End SubPrivate Sub Command1 Click（ ）Dim m As String，i As IntegerFor i=Len(ss)To 1 Step-1m=m+Mid(SS，i，1)NextText1．Text=UCase(m)End Sub程序运行后，在文本框中输入“Number 100”，并单击命令按钮，则文本框中显示的就是（ ）。A.NUMtBER l00B.REBMUNC.REBM UN l00D.001 REBMUN
考题
若要在子过程Proc l调用后返回两个变量的结果，下列过程定义语句中有效的是( )。A．Sub Proc1(n,m)B．Sub Proc1(By Val n ,m)C．Sub Proc1(n, By Val m)D．Sub Proc1 (By Val n,By Val m)
考题
设有如下程序 Private Sub Command1 Click（ ） x=10：Y=0 For i=l To 5 Do x=x-2 y=y+2 Loop Until yj Or x-l Nex1 End Sub 运行程序，其中Do循环执行的次数是（ ）。A.15B.10C.7D.3
考题
在窗体上画l个命令按钮和l个文本框，其名称为Command1和Text1，再编写如下程序： Dim ss As String Private Sub Text1 KeyPress(KeyAscii As Integer) If Chr(KeyAscii)""Then ss=ss+Chr(KeyAscii) End Sub Private Sub Command1 Click（ ） Dim m As String，i As Integer For i=Len(ss)To 1 Step-1 m=m+Mid(SS，i，1) Next Text1．Text=UCase(m) End Sub 程序运行后，在文本框中输入“Number 100”，并单击命令按钮，则文本框中显示的就是（ ）。A.NUMtBER l00B.REBMUNC.REBM UN l00D.001 REBMUN
考题
以下能够正确计算1+2+3+…+10的程序是A．Private sub Command1_Click( ) sum=0 For 1=1 To 10 Sum=sum+1， Next I Print Sum End SubB．Private sub Command1_Click( ) Sum=0,I=1 Do While l＜=10 Sum=Sum+1 I=I+1 Print Sum End SubC．Private Sub command1_click( ) Sum=0：I=1 Do Sum=Sum+1 I=I+1 Loop While I＜10 Print Sum End SubD．Private Sub command1_Click( ) Sum=0：I=1 Do Sum=Sum+1 l=I+1 Loop Until I＜10 Print Sum End Sub
考题
单击命令按钮时，下列程序的执行结果为 Private Sub Command1_Click( ) Dim x As Integer，y As Integer x=50：y=78 Call PPP(x，y) Print x；y End Sub Public Sub PPP(ByVM n As Integer，ByVal m As Integer) n=n\l0 m=m\l0 End SubA．08B．50 78C．450D．78 50
考题
当双击窗体Form1时，要将窗体Form1隐藏起来、将窗体Form2以模式方式显示出来的事件过程，正确的是A．Private Sub Form. _ Db1Click( ) Forml．Hide Form2．Show 0 End SubB．Private Sub Form. _ Db1Click( ) Form１．Hide Form. 2．Show 1 End SubC．Private Sub Form. _ Click( ) Form. l．Hide Form. 2．Show End SubD．Private Sub Form. _ Dbl Click( ) Form. l．Enabled=False Form. 2．Enabled=True End Sub
考题
单选题永续盘存法公式为（）A
Ksubt/sub＋1＝Isubt/sub－（1－δ）Ksubt/subB
Ksubt/sub＋1＝It＋（1－δ）Ksubt/subC
Ksubt/sub＋1＝Isubt/sub＋（1＋δ）Ksubt/subD
Ksubt/sub＋1＝Isubt/sub－（1＋δ）Ksubt/sub
考题
单选题若声压级相同的n个声音叠加，即L1=L2=…=Li……=Ln，则总声压级比L1增加了()dB。A
p10igLsub1/sub /pB
plgLsub1/sub /pC
10lgnD
nlg10
考题
判断题钢材的伸长率公式？=（L1-L0）/L1，式中L1为试件拉断后的标距长度，L0为试件拉断原标距长度。（）A
对B
错
热门标签
最新试卷