1标准大气压等于0.1013MPa、10mH2O柱、760mmHg。
第1题:
在窗体上画一个命令按钮和两上文体,其名称分别为 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 和 abc
C.ABC 和 abc
D.ABC 和 ABC
第2题:
单击窗体时,下列程序的执行结果是
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
第3题:
第4题:
在窗体中添加一个名称为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
第5题:
在窗体上画一个命令按钮和两个文本框,其名称分别为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.出错
第6题:
下列程序的执行结果为
Private Sub Command1_Click()
Dim s1 As String, s2 As String
s1= "abcd"
Call Transfer(s1, s2)
Print s2
End Sub
Private Sub Transfer (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=te mpstr
End Sub( )。
A.dcba
B.abdc
C.abcd
D.dabc
第7题:
在窗体上画一个命令按钮和两个文本框,其名称分别为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
第8题:
下面运行程序后,单击命令按钮,输出的结果是______。
Private Sub Commandl_clck()
Dim a%(1 To 4),b%(3 To 6),i%,s1,s2
Fori=1 To 4
a(i)=i
Nexti
For i=3 To 6
b(i)=i
Nexti
s1=YAS(a)
S2=YAS(b)
Printt"s1=";S1"S2=";s2
End Sub
第9题:
在窗体中添加一个命令按钮(名为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
窗体打开运行后,单击命令按钮,则消息框的输出结果是______
第10题:
设字符串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'