在窗体上画一个命令按钮,其名称为Command1,然后编写如下事件过程:Private Sub Command1_Click()
在窗体上画一个命令按钮,其名称为Command1,然后编写如下事件过程: Private Sub Command1_Click() x=-3 If Sgn(x)Then y=Sgn(x^2) Else y=Sgn(x) End If Print y End Sub 程序运行后,单击命令按钮,其输出结果为 ______。
A.-3
B.9
C.-1
D.1
在窗体上画一个命令按钮,其名称为Command1,然后编写如下事件过程: Private Sub Command1_Click() x=-3 If Sgn(x)Then y=Sgn(x^2) Else y=Sgn(x) End If Print y End Sub 程序运行后,单击命令按钮,其输出结果为 ______。
A.-3
B.9
C.-1
D.1
在窗体上画一个通用对话框,其名称为CommonDialogl,然后画一个命令按钮,并编写如 Private Sub Command1_Click() CommonDialogl. Flags = vbOFNHideReadOnly CommonDialogl. Filter =" All Files(*.*)|*. * |Text Files(*.txt)|*. txt CommonDialogl. FilterIndex = 1 CommonDialogl. ShowOpen MsgBox CommonDialogl. FileName End Sub 程序运行后,单击命令按钮,将显示一个“打开”对话框,此时在“文件类型”框中显示的是
A.All Files(*.*)
B.Text Files(*.txt)
C.Batch Files(*.bat)
D.All Files(*. *)|Text Files(*.txt)
在窗体上画一个命令按钮,其名称为Command1,然后编写如下事件过程: Private Sub Command1_Click() a = 12345 Print Format$(a, "000.00") End Sub 程序运行后,单击命令按钮,窗体上显示的是
A. 123.45
B.12345.00
C.12345
D.00123.45
在窗体上画一个命令按钮,其名称为Command1。程序运行后,单击命令按钮,输出结果是()。
Private Sub p1(n As Integer)
For i=n To 1 Step-1
x=String(i,"*")
Print x
Next i
End Sub
Private Sub Command1_Click()
p1(3)
End SubA)
*B)C)D)
A.*** ** *
B.* ** ****
C.* * *
D.******
(7)在窗体上画一个命令按钮,其名称为 Command1,然后编写如下事件过程:
Private Sub Command1_Click()
a$="National Computer Rank Examination"
n=Len(a$)
s=0
For i=1 To n
b$=Mid(a$, i, 1)
If b$="n" Then
s=s+1
End If
Next i
Print s
End Sub
程序运行后,单击命令按钮,输出结果是 【7】 。
在窗体上画一个命令按钮,其名称为Command1,然后编写如下事件过程: Private Sub Command1_ Click() Dim arr (10) For i = 1 To 10 arr (i) = i ^ 2 Next i Print arr(i - 2) End Sub程序运行后,单击命令按钮,在窗体上输出的是______。
A.49
B.64
C.81
D.100
在窗体上画一个命令按钮,其名称为Commandl,然后编写如下事件过程: Private Sub Commandl_click() Dim i As Integer,X As Integer For i=1 To 6 If i=1 Then x=i If i<=4 Then x=x+1 Else x=x+2 End If Next i Print x End Sub 程序运行后,单击命令按钮,其输出结果为______。
A. 9
B.6
C.12
D.15
在窗体上画一个命令按钮,其名称为Command1。程序运行后,单击命令按钮,输出结果为()。 Private Sub p1(n As Integer) For i=n To 1 Step-1 x=String(i,"*") Print x Next i End Sub Private Sub Command1_Click() p1(3) End Sub
A.*** ** *
B.* ** ***
C.* * *
D.******
在窗体上画一个命令按钮,其名称为Command1,然后编写如下事件过程:
Private Sub Command1_Click()
Dim i As Integer, x As Integer
For i = 1 To 6
If i = 1 Then x = i
If i <= 4 Then
x = x + 1
Else
x = x + 2
End If
Next i
Print x
End Sub
程序运行后,单击命令按钮,其输出结果为()。
A.9
B.6
C.12
D.15
在窗体上画一个命令按钮,其名称为Commandl,然后编写如下事件过程:
Private Sub Corrtmandl Click()
a$=”Nationalcomputer rank Examination”
n=Len(a$)
S=0
For i=1 To n
b$=Mid(a$,i,1)
Ifb$=”n”Then
s=s+1
End If
Next i
Print s
End Sub
程序运行后,单击命令按钮,输出结果是【 】。
为了保护您的账号安全,请在“简答题”公众号进行验证,点击“官网服务”-“账号验证”后输入验证码“”完成验证,验证成功后方可继续查看答案!