1标准大气压等于0.1013MPa、10mH<sub>2</s

第1题

1标准大气压等于()MPa,等于()Kg／cm2,()mmHg。

点击查看答案

第2题

下面运行程序后，单击命令按钮，输出的结果是______。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

点击查看答案

第3题

在窗体上画一个命令按钮和两上文体，其名称分别为 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

点击查看答案

第4题

下列程序的执行结果为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

点击查看答案

第5题

单击窗体时，下列程序的执行结果是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

点击查看答案

第6题

在窗体上画一个命令按钮和两个文本框，其名称分别为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

点击查看答案

第7题

在窗体上画一个命令按钮和两个文本框，其名称分别为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．出错

点击查看答案