在窗体上有一个命令按钮Commandl和一个文本框Textl,编写事件代码如下: Private Sub Commandl一
A.1
B.7
C.17
D.400
A.1
B.7
C.17
D.400
在窗体上有一个命令按钮Commandl和一个文本框Textl,编写事件代码如下:
Private SuB cormmandl_Click()
Dim i,j,x
For i=i To 20 step 2
x=0
For j=1 To 20 step 2
x=x+1
Next j
Next i
Text1.Value=Str(x)
End SuB
打开窗体运行后,单击命令按钮,文本框中显示的结果是
A.1
B.7
C.17
D.400
在窗体上有一个命令按钮Commandl,通用过程fun和命令按钮的事件过程如下: Private Function fun(By m As Integer) If m Mod 2=0 Then fun=2 Else Fun=1 Else If End Funcion Private Sub Commandl_Click() Dim i Integer,s As Integer s=0 For i=1 To 5 s=s+fun(i) Next Print s End Sub 程序运行后,单击命令按钮,则窗体上输出A.6 B.7 C.8 D.9
A.1
B.2
C.10
D.11
在窗体上有一个命令按钮Commandl,编写事件代码如下:
Private SuB commandl_Click()
Dim d1 As Date
Dim d2 As Date
d1=#12/25/2009#
d2=#1/5/2010#
MsgBox DateDiFF(“WW”,d1,d2)
End SuB
打开窗体运行后,单击命令按钮,消息框中输出的结果是
A.1
B.2
C.10
D.11
A.375564281919
B.105020
C.1050200
D.3755642819
A.232
B.123
C.22
D.1232
在窗体上有一个命令按钮Commandl,编写事件代码如下:
Private SuB commandl_Click()
Dim x As Integer,y As Integer
x=12:y=32
Call Proc(x,y)
OeBug.Print x;y
End SuB
PuBlic SuB Proc(n As Integer,Byval m As Integer)
n=n Mod 10
m=m Mod 10
End SuB
打开窗体运行后,单击命令按钮,立即窗口上输出的结果是
A.2 32
B.12 3
C.2 2
D.12 32
(25)在窗体上有一个命令按钮Commandl,编写下列程序: Private Sub Command1_Click() Print ppl(3,7) End Sub Public Funcion ppl(x As Single,n As Integer)As Single If n=0 Then ppl=1 Else If n Mod 2=1 Then ppl=x*x+n Else ppl=x*x-n End If End If End Funcion 程序运行后,单击该命令按钮,屏幕上显示的是 A.2 B.1 C.0 D.16
窗体Forml上有一个名称为Commandl的命令按钮,以下对应窗体单击事件的事件过程是
A.Private Sub Forml_Click() … End Sub
B.Private Sub Form_Click() … End Sub
C.Private Sub Commandl_Click() … End Sub
D.Private Sub Command_Click() … End Sub
在窗体上有一个命令按钮Commandl,编写事件代码如下:
Private SuB cormmandl_Click()
Dim y As Integer
y=0
Do
y=Input Box(“y=”)
IF(y Mod 10)+Int(y/10)=10 Then DeBug.print y;
Loop Until y=0
End SuB
打开窗体运行后,单击命令按钮,依次输入10、37、50、55、64、20、28、19、-19、0,立即窗口上输出的结果是
A.37 55 64 28 19 19
B.10 50 20
C.10 50 20 0
D.37 55 64 28 19
为了保护您的账号安全,请在“简答题”公众号进行验证,点击“官网服务”-“账号验证”后输入验证码“”完成验证,验证成功后方可继续查看答案!