编写如下3个事件过程:Private Sub Form. KeyDown (KeyCodeAs Integer, Shift As Integer)Prin
A.ddd
B.dDd
C.DdD
D.DDD
A.ddd
B.dDd
C.DdD
D.DDD
在窗体上画一个文本框,然后编写如下事件过程:
Private Sub Form_Click()
Dim x As Integer
x = Val(InputBox("请输入一个整数"))
Print x + Text1.Text
End Sub
程序运行时,在文本框中输入12,然后单击窗体,在输入对话框中输入34,单击"确定"按钮后,在窗体上显示的内容为______。
A.46
B.123
C.3412
D.1234
阅读下面事件过程,写出执行结果。
Private Sub Command1_Click()
Dim a%, b%, c%, s%, w%, t%
a = -1: b = 3: c = 3
s = 0: w = 0: t = 0
If c > 0 Then s = a + b
If a <= 0 Then
If c <= 0 Then
w = a - b
End If
Else
If c > 0 Then w = a - b Else t = c
End If
c = a + b
Print a, b, c
Print s, w, t
End Sub
A.-5
B.25
C.-1
D.1
Label2的标签,然后编写如下程序代码:
Private x As Integer
Private Sub Command1_Click()
a = 6: b = 4
Call sub1(a, b)
Label1.Caption = a
Label2.Caption = b
End Sub
Private Sub sub1(ByVal x As Integer, ByVal y As Integer)
a = x * x
b = y * y
End Sub
程序运行后单击命令按钮,则两个标签中显示的内容分别是_______。
A.36和4
B.6和4
C.36和8
D.6和8
A.obj.fun1()
B.obj.fun2()
C.obj.fun3()
D.obj.fun4()
At the resorts tourists may do the following except ______.
A.using the owner's private kitchen
B.cooking for themselves
C.enjoying peaceful environment
D.easily going to beaches
A.attack the sun as an unruly servant
B.give compliments to the mistress and her power of beauty
C.criticize the sun's intrusion into the lover's private life
D.lecture the sun on where true royalty and riches lie
A.S
B.PS
C.DPS
D.PDS