材料科学
KⅠ的脚标表示I型裂纹，I型裂纹表示（）裂纹。A、张开型B、滑开型C、撕开型D、组合型
题目
KⅠ的脚标表示I型裂纹，I型裂纹表示（）裂纹。
- A、张开型
- B、滑开型
- C、撕开型
- D、组合型
相似问题和答案
第1题：
下面程序：________Option Base 1Private Sub Command1_Click() Dim a(10)，p(3)As Integer Dim i,k As Integer k=5 For i=1 To 10 a(i)=i Next For i=1 To 3 p(i)=a(i*i) Next For i=1 To 3 k=k+p(i)*2 Next Print kEnd Sub运行后的输出结果为________。
A．33
B．28
C．35
D．37
解析：此题中共定义了两个数组：a(i)，p(i)，共用到三次For循环：
第一个For语句是对数组a(i)赋值，a(1)到a(10)的值分别为1到10；
第二个For语句是对数组p(i)赋值，p(1)=a(1)=1，p(2)=a(4)=4，p(3)=a(9)=9；
第三个For语句是对k的值循环相加，三次循环的结果分别为：7，15，33。
第2题：
在窗体画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_CIick()
Dim a(1 To 10)
Dim p(1 To 3)
k=5
For i =1 To 10
a(i)=i
Next i
For i=1 To 3
p(i)=a(i*i)
Next i
For i=1 To 3
k=k+p(i)*2
Next i
Print k
End Sub
程序运行后，单击命令按钮，输出结果是【 】。
33
第3题：
在窗体上添加一个命令按钮，然后编写如下事件过程： Phvate Sub Commanl_Click() Dima(10)As Integer Dimp(3)As InteSer k=5 Fori=1 To 10 a(i)=i Nexti Fori=1 To 3 p(i)=a(i*i) Nexti Fori=1 To 3 k=k+p(i)*2 Nexti Printk End Sub 该程
A．35
B．33
C．31
D．29
第4题：
执行下面的程序，消息框的输出结果是【 】。
Option Base1
Private Sub Command1_Click( )
Dim a(10)，P(3)As Integer
k=5
For i=1 To 10
a(i)=i
Next i
For i=1 To 3
P(i)=a(i*i)
Next i
For i=1 To 3
k=k+p(i)*2
Next i
MsgBox k
End sub
33 解析：本题考查VBA中的数组与循环结构。题目中有3个循环，但相互之间并没有嵌套。第一个For循环实现向数组a赋初值，第二个For循环实现对数组a进行相关运算，然后赋给数组p，p(1)=a(1)=1，p(2)=a(4)=4， p(3)=a(9)=9。第三个For循环进行相关计算，然后把结果交给k，i=1时k=5+p(1)*2=7，i=2时k=7+p(2)*2=15，i=3时k=15+p(3)*2=33最后由MsgBox将结果输出。
第5题：
执行下面的程序，消息框的输出结果是 【 】。
Option Basel
Private Sub Commandl Click()
Dim a(10)，P(3)As Integer
k=5
For i=1 To 10
a(i)=i
Next i
For i=1 To 3
P(i)=a(i*i)
Next i
For i=1 To 3
k=k+p(i)*2
Next i
MsgBox k
End sub
33 解析：本题考查VBA中的数组与循环结构。题目中有3个循环，但相互之间并没有嵌套。第一个For循环实现向数组a赋初值，第二个For循环实现对数组a进行相关运算，然后赋给数组p，p(1)=a(1)=1，p(2)=a(4)=4， p(3)=a(9)=9。第三个For循环进行相关计算，然后把结果交给k，i=l时k=5+p(1)*2=7，i=2时k=7+p(2)*2=15，i=3时k=15+p(3)*2=33最后由MsgBox将结果输出。
第6题：
在窗体上有一个命令按钮Commandl，编写事件代码如下：
Private SuB commandl_Click()
Dim a(10),p(3)As Integer
k=5
For i=1 To 10
a(i)=i+i
Next i
For i=1 To 3
P(i)=a(i*i)
Next i
For i=1 To 3
k =k+p(i)*2
Next i
MsgBox k
End SuB
打开窗体运行后，单击命令按钮，消息框中输出的结果是【 】。
201 解析：题目考查循环操作，最后求得k值。程序中共有3处for循环。在第一个for循环，得到a(1)=1*l=l，a(2)=2*2=4，…，a(10)=10*10=100。在第二个for循环，得到p(1)=a(1*1)=l，p(2)=a(2*2)=a(4)=16，…，p(10)=p(10*10)。在第三个for循环，i等于1时，k；初始k+p(1)*2=5+1*2=7；i等于2时，k=k+p(2)+2=7+16*2=39；i等于3时，k=k+p(3)$2=39+81*2=201。
第7题：
下面程序的输出结果是( )。 #include"stdio.h" int sub(int m) { static a=4; a+=m; return a; } void main() { int i=2,j=1,k; k=sub(i); k=sub(j); printf("%d",k); }
A．6
B．7
C．8
D．9
解析：在函数sub()的函数体中定义了一个静态存储变量a，a的值在函数调用完毕返回主函数后仍存在。第一次调用sub(i)，a=a+m=4+2=6，返回值为6。第二次调用sub(j)，a=a+m=6+1=7，返回值为7，最后输出k的值为7。
第8题：
下列程序用来计算1+2+…n,当和大于100时停止计算,请填空。
Private Sub Form_Click()
Dim n as integer,s as integer,I as integer,k as integer
s=0
k=0
n=inputbox(″请输入n的值)
For i=1 to 100
k=k+1
s=s+I
【 】
Next i
Print s
End Sub
if s>100 then exit for 解析：依题意,用变量S来记录1到n的累加和,当累加和S大于100时停止计算,故加入退出循环条件"if s>100 then exit for"
第9题：
在窗体上画一个名称为CoilTlilandl的命令按钮，然后编写如下事件过程： Private Sub command1 Click() Dim m As Integer， i As Integer， x(3)As Integer For i=0 To 3：x(i)=i：Next i For i = 1 To 2： Call sub1(x，i)：Next i For i = 0 To 3： Print x(i)；： Next i End Sub Private Sub sub1(a()As Integer，k As Integer) Dim i As Integer Do a(k)=a(k)+a(k+1) j = j + 1 Loop While j ＜ 2 End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是
A．0 3 7 5
B．0 1 2 3
C．3 2 4 5
D．0 5 8 3
解析：数组也可以作为函数或者过程的参数，使用方法是直接使用数组名加括号，也可以直接使用数组名，采用sub1(x)和sub1(x())的调用形式都正确。变量i的作用只控制循环次数。
第10题：
若有如下程序： float sub(int a，int b) { return(a*b)； } main() {int i=1，j=2，k=3； printf("%4.0f\n"，sub((int)sub(k+j，j)，k+i))； } 则程序运行后的输出结果是( )。
A．40
B．32
C．16
D．编译出错
解析：因为函数sub()只是简单地返回两个参数的乘积，所以表达式sub((int)sub(k+j，j)，k+i)展开后就是：(int)((k+j) *j)*(k+i)=((3+2)*2)*(3+1)=10*4=40。所以程序运行后的输出结果是40，应该选择A。