1标准大气压等于0.1013MPa、10mH2O柱、760mmHg。

题目

1标准大气压等于0.1013MPa、10mH₂O柱、760mmHg。

相似考题

2.在窗体上画一个命令按钮和两上文体，其名称分别为 Command1 、 Text1 和 Text2 ，然后编写如下程序：Dim S1 As String, S2 As StringPrivate Sub Form_Load（）Text1. Text=””Text2. Text=””End SubPrivate Sub Text1_KeyDown（KeyCode As Integer, Shift As Integer）S2=s2 & Chr（KeyCode）End SubPrivate Sub Text1_KeyPress（KeyAscii As Integer）S1=S1 & chr（KeyAscii）End SubPrivate Sub Command1_Click（）Text1.Text=S2Text2.Text=S1S1=""S2=""End Sub程序运行后，在Text1中输入"abc"，然后单击命令按钮，在文本框 Text1 和 Text2 中显示的内容分别为（）。A．abc 和 ABCB．abc 和 abcC．ABC 和 abcD．ABC 和 ABC

3.下列程序的执行结果为Private Sub Command1_Click（）Dim s1 As String, s2 As Strings1= "abcd"Call Transfer（s1, s2）Print s2End SubPrivate Sub Transfer （ByVal xstr As String, ystr As String）Dim tempstr As Stringi=Len（xstr）Do While i >=1tempstr=tempstr + Mid（xstr, i, 1）i=i - 1Loopystr=te mpstrEnd Sub（）。A．dcbaB．abdcC．abcdD．dabc

4.下面运行程序后，单击命令按钮，输出的结果是______。Private Sub Commandl_clck()Dim a%(1 To 4)，b%(3 To 6)，i%，s1，s2Fori=1 To 4a(i)=iNextiFor i=3 To 6b(i)=iNextis1=YAS(a)S2=YAS(b)Printt"s1="；S1"S2="；s2End Sub

参考答案和解析

正确答案:错误

更多“1标准大气压等于0.1013MPa、10mH<sub>2</s”相关问题

第1题：

单击窗体时，下列程序的执行结果是
Private Sub Invert（ByVal xstr As String, ystr As String）
Dim tempstr As String
Dim I As Integer
I=Len（xstr）
Do While I >=1
tempstr=tempstr + Mid（xstr, I, 1）
I=I - 1
Loop
ystr=tempstr
End Sub
Private Sub Form_Click（）
Dim s1 As String, s2 As String
s1= "abcdef"
Invert s1, s2
Print s2
End Sub（）。
A．abcdef
B．afbecd
C．fedcba
D．defabc

正确答案：C
第2题：

在窗体上画一个命令按钮和两个文本框，其名称分别为Command1、Text1和Text2，在属性窗V1中把窗体的KeyPreview属性设置为True，然后编写如下程序：
Dim S1 As String，S2 As String
Private Sub Form_Load()
Text1．Text=””
Text2．Text=””
TeXt1．Enabled=False
Text2．Enabled=False
End Sub
Private Sub Form_KeyDown(KeyCode As Integer,Shift As Integer)
S2=S2&Chr(KeyCode)
End Sub
Privtee Sub Form_KeyPress(KeyAscii As Integer)
S1=S1&Chr(KeyAscii)
End Sub
Pfivtee Sub Command 1_Click()
Text1．Text=S1
Text2．Text=S2
S1=””
S2=””
End Sub
程序运行后，先后按“a”、“b”、“c”键，然后单击命令按钮，在文本框Text1和Text2中显示的内容分别为( )。
A．abc和ABC
B．空白
C．ABC和abc
D．出错

正确答案：A
解析：KeyPreview属性被设置为True，则一个窗体先于该窗体上的控件接收到此事件。Form. Load事件是窗体载入事件，常用于窗体的初始化，Text1和Text2的属性Enabled设置成false，禁止向文本框里输入。本题中Form_KeyDown，Form_KeyPress事件的作用是将用户按下的按键值分别传给字符串s1、s2，然后通过命令按钮输出。
第3题：

在窗体中添加一个名称为Command1的命令按钮，然后编写如下程序： Public x As Integer Private Sub Command1_Click() x=10 Call s1 Call s2 MSgBox x End Sub Private Sub s1() x=x＋20 End Sub Private Sub s2() Dim x As Integer x=X＋20 End Sub 窗体打开运行后，单击命令按钮，则消息框的输出结果为______。
A．10
B．30
C．40
D．50

正确答案：B
解析：本题使用Call关键字调用子过程s1，s2。x=10在调用子过程s1后，x=30，但由于在s1中直接使用变量，所以该值的作用范围是局部的，即只限于s1子过程中，没有传回。在调用s2时，由于s2使用Dim...As关键字定义x，所以其值是模块范围的。故在消息框中输出的值，是从子过程s2传回的值。
第4题：

有如下程序 Private Sub Command1_Chck( ) s=0 DO s=(s+1) *(s+2) N=N+1 Loop Until s＞=10 Prim N；s End Sub 运行后的输出结果是
A．0 1
B．30 30
C．4 30
D．2 12

正确答案：D
解析：Untils＞=10表示当s大于等于10时，终止循环，根据题意，循环2次，故N的值为2，可以判断答案为D，另外也可以计算出s的值为12，但由于本题为选择题，可以不计算。直接得到正确答案。
第5题：

编写如下事件过程： Private sub sub1 (ByVal x1 As String, y1 As String) Dim xt As String Dim i As Integer i = Len(x1) Do While i＞= 1 xt = xt + Mid(x1, i, 1) i=i-1 Loop y1 = xt End Sub Private Sub Form. Click() Dim s1 As String, s2 As String s1= "teacher" sub1 s1, s2 Print s2 End Sub 程序运行后，单击窗体，则窗体上显示的内容是
A．rehcaet
B．tahreee
C．themee
D．eerthea

正确答案：A
解析：可以看出，Sub1(ByValx1AsString，y1AsString)的作用是将参数x1的字符逆序处理，然后赋给y1，而y1是传址引用的，可以直接返回处理结果。
第6题：

在窗体中添加一个名称为Commandl的命令按钮，然后编写如下程序： Public x As Integer Private Sub Commandl_click() x＝10 Call s 1 Call s 2 MsgBOx x End Sub Pfivate Sub s1() x＝x+20 End Sub Private Sub
A．10
B．30
C．40
D．50

正确答案：B
解析：本题考查变量作用域的知识。在整个程序中定义了一个全局变量x，在命令按钮的单击事件中对这个x赋值为10，然后依次调用s1和s2；在s1中对x自加了20；在s2中用Dim定义了一个局部变量 x，按照局部覆盖全局的原则，在s2中的操作都是基于局部变量x而不是全局变量x。故此最终的输出结果为30。
第7题：

有如下程序： Private Sub Command1 Click() Dim a As Single Dim b As Single a=5：b=4 Call S(a，B)End Sub Sub S(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

正确答案：B
解析：调用一个过程时，必须把实际参数传送给过程，完成形式参数与实际参数的结合，然后用实际参数执行调用的过程；因为在默认的情况下，变量都是通过“引用”传送给S过程，在这种情况下，可以通过改变过程中相应的参数来改变变量的值；过程S的形参获得a，b的地址，此时x=5，y=4，在过程S中，将x，即5的值赋给t，而将t\y的值赋给x。将t除以y的余数赋给y，此时x，y的值为l，1。
第8题：

在窗体上画一个命令按钮和两个文本框，其名称分别为Command1、Text1和Text2，在属性窗口中把窗体的KeyPreview属性设置为True，然后编写如下程序： Diln S1 As String，S2 As String Private Sub Form. Load（） Text1．Text="" Text2．Text="" Text1．Enabled=False Text2．Enabled=False End Sub Private Sub Form. KeyDown(KeyCode As Integer，Shift As Integer) S2=S2＆Chr(KeyCode) End Sub Pri vate Sub Form. KeyPress(KeyAscii As Integer) S1=S1＆Chr(KeyAscii) End Sub Private Sub Command1 Click（） Text1．Text=S1 Text2．Text=S2 S1="" S2="" End Sub 程序运行后，先后按“a”、“b”、“c”键，然后单击命令按钮，在文本框Text1和Text2中显示的内容分别为（）。
A.abc和ABC
B.空白
C.ABC和abc
D.出错

正确答案：A
A。【解析】KeyPrtview属性被设置为True，则一个窗体先于该窗体上的控件接收到此事件。Form_Load事件是窗体载入事件，常用于窗体的初始化，Text1和Text2的属性Enabled设置成false，禁止向文本框里输入。本题中Form_KeyDown，Form_KeyPress事件的作用是将用户按下的按键值分别传给字符串s1、s2，然后通过命令按钮输出。
第9题：

下列程序的执行结果为 Private Sub Command1_Click() Dim s1 As String，s2 As String S1；="abcdef" Call Invert(s1，s2) Print s2 End Sub Private Sub Invert (ByVal xstr As String，ystr As String) Dim tempstr As String i=Len(xstr) Do While i>=1 tempstr=tempstr+Mid(xstr，i，1) i=i-1 Loop ystr=tempstr End Sub
A．fedcba
B．abcdef
C．afbecd
D．defabc

正确答案：A
解析：被调过程Invert的参数xstr，ystr从主调函数中收到实参s1，s2传来的值“abcdef”，过程Invert开始声明了两个变量，都是String型的：xstr，ystr。I=Len(xstr)以上语句的功能是：i的值就是xstr的长度，此题为6。程序代码执行DoWhile…Loop的循环语句。循环体为tempstr=tempstr+Mid(xstr，i，1)，其中变量是I，由I=Len(xstr)开始的，每循环一次减1，……；此程序段的最后输出的是字符串s1的反向输出，所以正确答案是选项C.
第10题：

下列程序的执行结果为 Private Sub Commandl_Click() Dim s1 As String ,s2 As String s1= "abcd" Call Transfer(sl，s2) Print s2 End Sub Private Sub Transfer (ByVal xstr As String，ystr As String) Dim tempstr As String ystr=tempstr End Sub
A．dcba
B．abdc
C．abcd
D．dabc

正确答案：A
解析：主调函数最终输出值是s2值，这就得调用函数过程Transfer函数。被调过程Transfer的参数xstr，ystr从主调函数中收到实参s1，s2传来的值"abcd"，过程Transfer开始声明了两个String型的变量，xstr、ystr。i=Len(xstr)语句的功能是：i的值就是xstr的长度，此题为4。程序代码执行DoWhile…Loop的循环语句。循环体为tempstr=tempstr+Mid(xstr，i，l)，其中变量是I，由I=Len(xstr)开始的，每循环一次减1。此程序的最后输出的是字符串s1的反向输出。
第11题：

对于标准大气压，以下说法正确的是：（）
- A、1个标准大气压约等于101kPa
- B、1个标准大气压可用1bar来表示
- C、1个标准大气压约等于14.7psi
- D、本题其他答案都正确
正确答案:D
第12题：

填空题
设字符串S1= “ABCDEF”，S2= “PQRS”，则运算S=CONCAT（SUB（S1，2，LEN（S2）），SUB（S1，LEN（S2），2））后的串值为（）。

正确答案： “BCDEDE”
解析：暂无解析
第13题：

在窗体上画一个命令按钮和两个文本框，其名称分别为Command1、Text1和Text2，然后编写如下程序： Dim S1 As String,S2 As String Private Sub Form_Load() Text1.Text＝"" Text2.Text＝"" End Sub Private Sub Text1_KeyDown(KeyCode As Integer,Shift As Integer) S2=S2 & Chr(Keycode) End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) S1=S1 & Chr(KeyAscii) End Sub Private Sub Command1_Click() Text1.Text=S2 Text2.Text=S1 S1＝"" S2＝"" End Sub 程序运行后，在Text1中输入“abc”，然后单击命令按钮，在文本框Text1和Text2中显示的内容分别为______。
A．abc和ABC
B．abc和abe
C．ABC和abc
D．ABC和ABC

正确答案：C
解析：KeyPress事件是处理用户按键的事件过程，当用户按键时激发该事件。KeyDown事件也是在用户按下按键时发生。但是KeyDown事件过程的KeyCode参数与KeyPress事件的KeyAscii参数不同。对于KeyPress事件的KeyAscii参数来说，小写状态下按A键返回97，而对于KeyDown事件过程的KeyCode参数来说返回65，由此可判断选项C为正确答案。
第14题：

在窗体中添加一个命令按钮(名为Command1)，然后编写如下代码：
Public x as integer
Private Sub Command1_Click( )
x=5
Call s1
Call s2
MsgBox x
End Sub
Private Sub s1( )
x=x+10
End Sub
Private Sub s2( )
Dim x as integer
x=x+10
End Sub
窗体打开运行后，单击命令按钮，则消息框的输出结果是______

正确答案：15
15 解析：本题使用Call调用子过程s1，s2。x=5在调用子过程s1后，x= 15，但由于在s1中直接使用变量，所以该值的作用范围是局部的，即只限于s1子过程中，没有传回。在调用s2时，由于使用Dim…As关键字定义x，所以其值是模块范围的。所以在消息框中输出的值，是从子过程s2传回的值。
第15题：

设字符串s1='ABCDEFG',s2='PQRST',则运算s=CONCAT(SUB(s1，2，LEN(s2))，SUB(s1，LEN(s2，2))后的串值为(65)。
A．'ABCDEFEF'
B．'BCDEFG'
C．'BCPQRST'
D．'BCQR'

正确答案：A
解析：s=CONCAT(SUB(s1，2，5)，SUB(s1，5，2))=CONCAT(BCDEF，EF)=‘BDCEFEF’
第16题：

假定一个工程由一个窗体文件Form1和两个标准模块文件Model1及Model2 组成。 Model1代码如下： Public X As Integer Public Y As Integer Sub S1（） x=1 S2 End Sub Sub S2（） y=10 Form1．Show End Sub Model2的代码如下： Sub Main（） S1 End Sub 其中Sub Main被设置为启动过程。程序运行后，各模块的执行顺序是（）。
A.Form1→Model1→Model2
B.Model1→Model2→Form1
C.Model2→Model1→Form1
D.Model2→Form1→Model1

正确答案：C
C。【解析】本题考查VisualBasic程序执行过程中各模块和窗体的调用过程。按照本题中代码执行，首先程序调用执行Model2，Model2中调用s1，s1数组属于Model1模块，Model1会调用s2，s2致使Form1执行，可以得出正确答案为选项C。
第17题：

写出程序运行的结果
Public class Base
Public virtual string Hello() {return “Base”;}
Public class Sub:Base
Public override string Hello() {return “Sub”;}
1. Base b = new Base(); b.Hello;
2. Sub s = new Sub(); s.Hello;
3. Base b = new Sub (); b.Hello;
4. Sub s = new Base(); s.Hello;

正确答案：
第18题：

单击窗体时，下列程序的执行结果是 Private Sub Invert(By Val xstr As String，ystr As String) Dim tempstr AS String Dim I AS Integer I=Len(xstr) Do While I＞=1 tempstr=tempstr + Mid(xstr，I，1) I=I - 1 Loop ystr=tempStr End Sub Private Sub Form_Click( ) Dim s1 As String，s2 As String S1="abcdef" Invert S1，S2 Print S2 End Sub
A．abcdef
B．afbecd
C．fedcba
D．defabc

正确答案：C
解析：Invert(ByValxstrAsString，ystrAsString)的作用是将参数xstr的字符逆序处理，然后赋值给ystr，而ystr是按地址引用的，可以直接返回处理结果。
第19题：

下列程序的执行结果为 Private Sub Command1_C1ick( ) Dim sl As String，s2 AS String s1="abcdef" Call lnvert(s1，s2) Print s2 End Sub Private Sub lnvert(ByVal xstr As String，ystr As String) Dim tempstr As Stdng i=Len(xstr) Do While i＞=1 tempstr=tempstr+Mid(xstr，i，1) i=i-1 Loop ystr=tempstr End Sub
A．fedcba
B．abcdef
C．afbecd
D．defabc

正确答案：A
解析：被调过程Invert的参数xstr，ystr从主调函数中收到实参s1，s2传来的值"abcdef"，过程Invert开始声明了两个变量，都是String型的：xstr，ystr。2=Len(xstr)以上语句的功能是：i的值就是xstr的长度，此题为6。程序代码执行DoWhile．．．Loop的循环语句。循环体为tempstr=tempstr+Mid(xslr，i,1)，其中变量是1，由15=Len(xstr)开始的，每循环一次减1，……；此程序段的最后输出的是字符串s1的反向输出。
第20题：

运行下列程序:Private Sub Command1_Click( )Dim s1 As String * 1Dim s2 As Strings1 = &quo

运行下列程序：
Private Sub Command1_Click( )
Dim s1 As String * 1
Dim s2 As String
s1 = "a"
For i = Asc(s1) To Asc(s1) + 4
s2 = s2 & Chr(i)
Next i
Print s2
End Sub
单击Command1命令按钮后，则在窗体上显示的结果是( )。
A.a
B.abcde
C.aaaa
D.s2

正确答案：B
第21题：

有如下程序： Private Sub Command1_Click( ) a$="A WORKER IS OVER THERE" x=Len(a ＄) For i=1 To x-1 b$=Mid $(a $，i，2) If b $="ER"Then s=s+1 Next i Pdnt s End Sub 程序运行后的输出结果是
A．1
B．2
C．3
D．4

正确答案：C
解析：Mid(a＄，i，2)表示从字符串a＄的第i个字符开始向后截取2个字符。由于“AWORKERISOVERTHERE'’中有三个“ER”，故s=s+1将被执行3次，即s最后的值为3。
第22题：

设字符串S1= “ABCDEF”，S2= “PQRS”，则运算S=CONCAT（SUB（S1，2，LEN（S2）），SUB（S1，LEN（S2），2））后的串值为（）。

正确答案:“BCDEDE”
第23题：

1标准大气压等于（）kgf/cm²，（）bar，（）mmHg，（）Pa。

正确答案:1.03323；1.01325；760；101325

1标准大气压等于0.1013MPa、10mH2O柱、760mmHg。

题目

相似考题

参考答案和解析

更多“1标准大气压等于0.1013MPa、10mH<sub>2</s”相关问题

相关内容