材料科学
相似问题和答案
第1题：
（27）下列函数过程 Function Func（a As Integer,b As Integer）As Integer Static m As Integer,i As Integer M=0 i=2 A=i+m+1 b=i+a+b Func2=m End Function Private Sub Command1_Click() Dim p As Integer,k As Integer,m As Integer k=4 m=1 P=Func2(k,m) Print k;m End Sub程序运行后，单击命令按钮，输出结果是 A.3 6<CR>3 6 B.3 6<CR>3 11C.3 11<CR>3 6 D.3 11<CR>3 11
【解析】本题意在考查调用Func2时，参数是按地址传递的，所以两次调用Func2时，实参k、m的值都改变了。程序运行过程如下：
第一次调用Func2(k,m)，k被行参a改变为3，m被行参改变为6；第二次调用函数后，a为3，m为11。
第2题：
（30）下列事件过程可以将打开文件对话框的标题改变为“new Caption”.A.Private Sub Commandl_Click() CommonDialog1.DialogTitle="new Caption" CommonDialog1.ShowFont End Sub B.Private Sub Commandl_Click() CommonDialog1.DialogTitle="new Caption" CommonDialog1.ShowOpen End Sub C.Private Sub Commandl_Click() CommonDialog1.DialogTitle="new Caption" CommonDialog1.ShowHelp End Sub D.Private Sub Commandl_Click(） CommonDialog1.DialogTitle="new Caption" CommonDialog1.ShowColor End Sub
【解析】可以通过DialogTitle属性设置打开文件对话框的标题，使用ShowOpen方法设置通用对话框的类型为打开文件对话框。
DialogTitle属性指定对话框中标题栏的名称。“打开”对话框默认的标题是“打开”；“另存为”对话框默认的标题是“另存为”。
第3题：
设在工程中定义了下列类型： Type Stutype ino As Integer strname As String*20 Strsex As String*1 Smark As Single End Type在窗体上正确使用这个类型的是下列哪个操作 A. Sub Command1_Click() Dim student As Stutype With student .ino=12 .strname=smith .strsex=男 .smark=89 End With End Sub B. Sub Command1_Click() Dim student As Stutype With student .ino=12 .strname=＂smith＂ .strsex=＂男＂ .smark=89 End With End Sub C. Sub Command1_Click() Dim student As Stutype With Stutype .ino=12 .strname=＂smith＂ .strsex=＂男＂ .smark=89 End With End Sub D. Sub Command1_Click() Dim student As Stutype With student .ino=12 .strname=＂smith＂ .strsex=＂男＂ .smark=89 End student End Sub
【解析】本题考查为记录类型变量student赋值。使用with语句可以对某个对象执行一系列的语句，而不用重复指出对象的名称。其语法如下：
With 记录类型变量
.记录类型变量成员名=要赋的值
...
End With
给记录类型变量中的字符串型成员赋值时要加双引号。
第4题：
窗体Form. 1上有一个名称为Command 1的命令按钮，以下对应窗体单击事件的事件过程是
A）Private Sub Form. 1_Click() B）Private Sub Form. _Click()
End Sub End Sub
C）Private Sub Commandl_Click() D）Private Sub Command_ Click()
End Sub End Sub
第5题：
在窗体中添加一个命令按钮，编写如下程序： Private Sub Sub1(p，m，n) p=p+1：m=m+1：n=n+1 Print "sub1："；p；m；n End Sub Private Sub Command1_Click() a1=1：b=2：c1=3 Call Sub1(a，b1+3，c1) Print"Main："；a1；b1；c1 End Sub 程序运行后，输出结果为
A．Sub： 2 6 4 Main： 2 6 4
B．Sub： 2 6 4 Main： 2 6 4
C．Sub： 2 6 4 Main： 1 2 3
D．Sub： 2 6 4 Main： 2 2 3
解析：这是在实现子过程被调用时参数虚实结合的问题。a1为变量按址传送，b1+3和c1为表达式按值传送。
第6题：
（12）有下列Sub过程: Sub Sub(x As Single,y As Single) t=x x=t/y y=t Mody End Sub 在窗体上的命令按钮Commandl中，编写下列事件过程，执行该事件过程调用Sun过程，结果是（ ）。 Private Sub Commandl_Click() Dim a As Single Dim b As Single a=5 b=4 Sun a,b Print a；b End Sub A.1.25 1 B.5 4 C.4 5 D.1 1.25
【解析】本题考查过程的调用，如果用Call语句调用子过程时，实际参数要放在括号中，如果不使用Call子句，则不必使用括号。本题参数调用时是按地址传递，因此Sun过程中变量的值改变也即改变了单击事件中的a、b变量值。
Sun a,b的执行过程是：t=x=5,x=t/y=1.25,y=t Mod y=1。
第7题：
窗体Form1上有一个名称为Command1的命令按钮，以下对应窗体单击事件的事件过程是（ ）。
A.Private Sub Form1 Click（ ）
End Sub···
B.Private Sub Form1. Click（ ）
End Sub···
C.Private Sub Command1 click（ ）
End Sub···
D.Private Sub Command Click（ ）
End Sub···
B。【解析】窗体单击事件为Form—Click事件。
第8题：
有一过程如下:
Sub Sub1(m As Integer,total As Long)
Dim i As Integer
total=1
For i=1 To m
total=total*i
Next
End Sub
调用它的事件过程如下:
Private Sub Command1_Click()
Dim tot As Long,a As Integer
a=Val(InputBox("请输入数据"))
Call Sub1(a,tot)
Print tot
End Sub
则输入数据5,运行结果为【 】。
120 解析：考查考生对过程中参数传递方式的掌握情况。本题的难点是实参与形参的传递问题。total按ByRef参数传递。子过程的功能是计算n!,题中输入5,因此5!=120。参数按传值方式传递时,不改变实参中的值;按传地址的方式传递时,实参和形参指向的内容被改变。
第9题：
有如下Sub过程：
Sub ind(a As Integer)
Static x As Integer
x= x + a
Print x：
End Sub
以下是调用它的事件过程，程序运行后，单击命令按纽Command1三次，输出结果为【 】。
Private Sub Command1_Click()
Ind 2
End Sub
6
第10题：
热模具钢常用（）。
- A、Cr12
- B、Cr12MoV
- C、5CrMnMo
- D、Cr12Mo
正确答案:C