地球科学
相似问题和答案
第1题：
以下程序用来输出20个在开区间(10,87)上的随机整数数R,每行输出4个整数。请完成空白处.
Private Sub Commandl. Click( )
For I=1 To 10
R = Int (Rnd * 76 + 11)
Print R;
If【 】Then Print
Next I
End Sub
I Mo8 4=0 解析：要产生开区间(10，87)上的随机整数，应该使用Int(Rnd*76+11)，注意因为开区间(10，87)从11开始，所以不能使用数字10换行，可以使用Mod语句来实现，根据题意I=4、 I=8等能被4整除的数值时输出换行符号。
第2题：
有以下程序：
int sub(int n) { return(n/10+n%10); }
main()
{ int x, y;
scanf("% d", &x);
y=sub(sub(sub(x)));
printf("% d\n", y);
}
若运行时输入：1234＜回车＞，程序的输出结果是【 】。
10 解析：y=sub(sub(sub(x)))=sub(sub(127))=sub(19)=10。
第3题：
有以下程序：int sub(int n) { return(n/10+n%10); }void main(){ int x,y; scanf("%d",&x); y=sub(sub(sub(x))); printf("%d\n",y);}若运行时输入：4321<回车>，程序的输出结果是。
n/10是求n的去掉个位数上的数字之外的部分，而n%10是求个位数字，所以函数的功能是将去掉个位外的数和个位相加的结果返回。第一次432+1=433,43+3=46,4+6=10.
第4题：
下面过程定义语句可以使过程调用后不影响主调过程中的实际参数的是______。
A．Sub Com (By Val a，By ValB)
B．Sub Com (a，By ValB)
C．Sub Com (a，B)
D．Sub Com (By Val a，B)
第5题：
A、PH7.38，PaO<SUB>2</SUB>50mmHg，PaCO<SUB>2</SUB>40mmHg
B、PH7.30，PaO<SUB>2</SUB>50mmHg，PaCO<SUB>2</SUB>80mmHg
C、PH7.40，PaO<SUB>2</SUB>60mmHg，PaCO<SUB>2</SUB>65mmHg
D、PH7.35，PaO<SUB>2</SUB>80mmHg，PaCO<SUB>2</SUB>20mmHg
E、PH7.25，PaO<SUB>2</SUB>70mmHg，PaCO<SUB>2</SUB>20mmHg
血气分析结果符合代偿性代谢性酸中毒（ ）
第6题：
窗体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事件。
第7题：
在窗体中添加一个标签LblResult和一个命令按钮Command1，然后编写程序。程序的功能是单击命令按钮，计算1+2+3+4+5的值，并把结果转化为字符串显示在标签内，能够实现上述功能的程序段是， ( )
A．Private Sub Command1_Click() Dim I,R As Integer For I=1 To 5 Step 1 R=R+I Next LblResult. Name=Str$ (R) End Sub
B．Private Sub Command1_ClickO Dim I,R As Integer For I=1 To 5 Step 1 R=R+I Next LblResult. Caption= Str$ (R) End Sub
C．Private Sub Command1_Click() Dim I,R As Integer Do While I＜5 R=R+I I=I+1 Loop LblResult. Caption=Str$ (R) End Sub
D．Private Sub Command1_Click() Dim I,R As Integer Do R=R+I I=I+1 Loop While I＜5 LblResult. Caption=Str$ (R) End Sub
解析：标签的Name属性用于设置标签控件的名称，Caption属性用于设置控件的标题。题中要把结果显示在标签内，应用 Caption属性，排除选项A。选项C、D项中都只计算了1+2+3+4的值，故不满足题意。只有B项是正确的。
第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题：
以下程序用来输出20个在开区间(10，87)上的随机整数R，每行输出4个整数。请完成空白处。
Private Sub Command1 Click()
For I=1 To 10
R=Int(Rnd*76+11)
Print R；
If【 】Then Print
Next I
End Sub
I Mod 4=0 解析：本题考查Int函数的用法。要产生开区间(10，87)上的随机整数，根据 Int函数的用法，应该使用Int(Rnd*76+11)，注意因为开区间(10，87)从11开始，所以不能使用数字10。换行可以使用Mod语句来实现，根据题意I=4，I=8等能被4整除的数值时输出换行符号。
第10题：
窗体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