在窗体上画一个命令按钮,其名称为Command1,然后编写如下事件过程:Private Sub Command1_Click
在窗体上画一个命令按钮,其名称为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.******
在窗体上画一个命令按钮,其名称为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.******
在窗体上画一个通用对话框,其名称为CommonDialogl,然后画一个命令按钮,并编写如下事件过程: Private Sub Command1_Click() CommonDialogl.Flags=cdlOFNHideReadOnly commonDialogl.Filter="All Files(*.*)|*.*| Text Files"&_ "(*.txt)|*.txt|Batch Files(*.bat)|*.bat" CommonDialogl.Filterlndex=1 CommonDialogl.ShowOpen MsgBox CommonDialogl.FileName End Sub 程序运行后,单击命令按钮,将显示一个“打开”对话框,此时在“文件类型”框中显示的是 ______。
A.AllFiles(*.*)
B.TextFiles(*.txt)
C.BatchFiles(*.bat)
D.不确定
在窗体上画一个命令按钮,其名称为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
程序运行后,单击命令按钮,输出结果是【 】。
在窗体上画一个命令按钮,其名称为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
在窗体上画一个命令按钮,其名称为Command1,然后编写下列代码:
Option Base l
Private Sub Command1 Click()
Dim a
a=Array(1,2,3,4)
j=1
For i=4 To 1 Step-1
s=s+a(i)*j
j=j*10
Next i
Print S
End Sub
程序运行后,单击命令按钮,其输出结果是()。
A.4321
B.1234
C.34
D.12
在窗体上画一个命令按钮(其名称为Command1),然后编写如下事件过程: Private Sub Command1_Click() Dim a(5,5)As Integer Dim i As Integer,j As Integer For i=1 To 3 For j=1 To 3 a(i,j)=(i-1)*3+j Print a(i,j) Next j Print Next i End Sub 程序运行后,单击命令按钮,在窗体上的输出结果是: ______。
A.1 4 7 2 5 8 3 6 9
B.1 2 3 4 5 6 7 8 9
C.1 2 3 4 5 6 7 8 9
D.没有输出
在窗体上画一个通用对话框,其名称为CommonDialog1,然后画一个命令按钮,并编写如下事件过程: private Sub Command1_Click() CommonDialog1.Flags=cdl0FNHideReadOnly CommonDialog1.Filter="All Files(*.*)|*.*|Text Files"&_ "(*.txt)|*.txt|Batch Files(*.bat)|*.bat" CommonDialog1.Filterlndex=2 CommonDialog1.ShowOPen MsgBox CommonDialog1.filename End Sub 程序运行后,单击命令按钮,将显示一个“打开”对话框,此时在“文件类型”框中显示的是______。
A.All Files(*.*)
B.Text Files(*.txt)
C.Batch Files(*.bat)
D.不确定
在窗体上画一个命令按钮(其名称为Command1),然后编写如下事件过程: Private Sub Comnmnd1_Click() Dim a(5,5)As Integer Dim i As Integer, j As Integer For i=1 To 3 For j=1 To 3 a<i,j)=(i-1)*3+j Print a(i,j) Next j Print Next i End Sub 程序运行后,单击命令按钮,在窗体上的输出结果是______。
A.1 4 7 2 5 8 3 6 9
B.1 2 3 4 5 6 7 8 9
C.1 2 3 4 5 6 7 8 9
D.没有输出