1标准大气压等于0.1013MPa、10mH2O柱、760mmHg。
1标准大气压等于()MPa,等于()Kg/cm2,()mmHg。
点击查看答案
下面运行程序后,单击命令按钮,输出的结果是______。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
在窗体上画一个命令按钮和两上文体,其名称分别为 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
下列程序的执行结果为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
单击窗体时,下列程序的执行结果是Private Sub Invert(ByVal xstr As String, ystr As String)Dim tempstr As StringDim I As IntegerI=Len(xstr)Do While I >=1tempstr=tempstr + Mid(xstr, I, 1)I=I - 1Loopystr=tempstrEnd SubPrivate Sub Form_Click()Dim s1 As String, s2 As Strings1= "abcdef"Invert s1, s2Print s2End Sub( )。A.abcdefB.afbecdC.fedcbaD.defabc
在窗体上画一个命令按钮和两个文本框,其名称分别为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和ABCB.abc和abeC.ABC和abcD.ABC和ABC
在窗体上画一个命令按钮和两个文本框,其名称分别为Command1、Text1和Text2,在属性窗V1中把窗体的KeyPreview属性设置为True,然后编写如下程序:Dim S1 As String,S2 As StringPrivate Sub Form_Load()Text1.Text=””Text2.Text=””TeXt1.Enabled=FalseText2.Enabled=FalseEnd SubPrivate Sub Form_KeyDown(KeyCode As Integer,Shift As Integer)S2=S2&Chr(KeyCode)End SubPrivtee Sub Form_KeyPress(KeyAscii As Integer)S1=S1&Chr(KeyAscii)End SubPfivtee Sub Command 1_Click()Text1.Text=S1Text2.Text=S2S1=””S2=””End Sub程序运行后,先后按“a”、“b”、“c”键,然后单击命令按钮,在文本框Text1和Text2中显示的内容分别为( )。A.abc和ABCB.空白C.ABC和abcD.出错