物理学
相似问题和答案
第1题：
下列程序的功能是计算sum=1+(1+3)+(1+3+5)+……+(1+3+5+……+39)
Private Sub Command34_Click()
t=0
m=1
sum=0
Do
t=t+m
sum=sum+t
m=_______
Loop While m<=39
MsgBox“Sum”＆Sum ．
End Sub
为保证程序正确完成上述功能，空白处应填人的语句是
A．m+1
B．m+2
C．t+1
D．t+2
第2题：
（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。
第3题：
有一过程如下:
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。参数按传值方式传递时,不改变实参中的值;按传地址的方式传递时,实参和形参指向的内容被改变。
第4题：
有如下程序： Private Sub Command1_Click() Dim a As Single Dim b As Single a=5:b=4 Call Sub1(a,b) End Sub Sub Sub1(x As Single，y As Single) t=X X=t\Y Y=t Mod y End Sub 在调用运行上述程序后，a和b的值分别为
A．0 0
B． 1 1
C．2 2
D．1 2
解析：考查考生对调用通用过程的掌握情况。
[解题要点] 调用一个过程时，必须把实际参数传送给过程，完成形式参数与实际参数的结合，然后用实际参数执行调用的过程。因为在默认的情况下，变量都是通过“引用”传送给sub1过程，在这种情况下，可以通过改变过程中相应的参数来改变变量的值。过程Sub1的形参获得a，b的地址，此时x=5，y=4，在过程Sub1中，将x，即5的值赋给t，而将t\y的值赋给x，将t除以y的余数赋给y，此时x,y的值为1,1。
[错解分析] 调用通用过程可以返回多个参数值。
[考点链接] 过程调用、参数传递。
第5题：
编写如下事件过程:
Private Sub Form_keyDown(KeyCode As Integer,Shift As Integer)
Print Chr(KeyCode)
End Sub
Private Sub Form_Keypress(KeyAscii As Integer)
Print Chr(KeyAscii)
End Sub
在一般情况下(即不按住Shift键和锁定大写键时) 运行程序,若按"T"键,则程序输出的结果是
A．T T
B．t T
C．T T
D．t t
解析：KeyPress事件和KeyDown事件各参数的含义。
第6题：
左乳房内上象限扪及3cm×3cm肿块，质地偏硬，边界不太清楚，与皮肤胸肌无粘连；左腋下可扪及肿大淋巴结3个，质韧，约蚕豆大小，活动良好，病理证实乳房腺癌淋巴结转移，按TNM分期应为：
A.T 1 N1 M0
B.T 1 N 2 M 0
C.T 1 2 N 1 M\sub 0
D.T 1 2 N 2 M\sub 0
E.T 13 N 1 M\sub 0
乳癌分期我国卫生部编制的乳癌诊治规范，采用1988年TNM分期的修订方案可将乳癌分为以下各期：0期：TisN0M0；Ⅰ期：T1N0M0；Ⅱ期：T0～1N1M0，T2
第7题：
有如下SUB过程:
Sub s(x As Single,y As Single)
t=x
x=t / y
y=t Mod y
End Sub
在窗体上添加一个命令按钮,然后编写如下事件过程:
Private Sub Form_Click()
Dim a As Single
Dim b As Single
a=5
b=4
s a,b
Print a,b
End Sub
则程序运行后,单击命令按钮,输出的结果为【 】 。
1.25,1 解析：调用s过程,传入"a=5,b=4"。t=5 , x=5/4, 故x=1.25;y=5%4,故y=1。返回并输出(1.25,1)
第8题：
编写如下事件过程：
Private Sub Form_KeyDown(KeyCode As Integer，Shift As Integer)
Print Chr(KeyCode)
End Sub
Private SubForm_KeyPress(KeyAscii As Integer)
Print Chr(KeyAscii)
End Sub
在一般情况下(即不按住“Shift”键和锁定大写键时) 运行程序，若按“T”键，则程序输出的结果是A
A．T T
B．t T
C．T t
D．t t
解析：请复习KeyPress事件和KeyDown事件各参数的含义。
第9题：
有如下事件过程：
Private Sub Form. Active ( )
Dim Score (1 to 3) As Integer
Dim i As Integer
Dim t As Variant
Fori=3 To 1 step-1
Score (i) = 2 * i
Next
For Each t In Score
Print t
Next
End Sub
程序运行后窗体上显示的值为【 】。
24 6 解析：本题考查了数组的定义和For Each…Next语句。题中定义了下标下界为1下标上界为3的Score数组，通过For循环语句赋值后，再通过For Each… Next语句在窗体上输出数组中的每个成员。
第10题：
编写如下通用过程： Sub Proc(x As Single,y As Single) t=x x＝t/y y=t Mod y End Sub 在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Commandl Click() Dim a As Single Dim b As Single a＝5 b＝4 Proc a,b Print a,b End Sub 程序运行后，如果单击命令按钮，则输出结果为
A．5 4
B．1.25 1
C．4 5
D．1.25 5
解析：本题需掌握函数调用时的参数传递和运算符两方面的知识点。在执行调用语句Proc a，b后，函数proc内的参数x被a取代，y被b取代。执行t=x、x=t/y后，得x＝5/4即x为1.25。执行语句y＝tMody后，得y＝5 Mod 4即y的值为1。故执行调用函数后a，b的值变分别变为1.25和1。最后执行语句print a，b将a、b的值输出。选项B正确。