题目内容
（请给出正确答案）
[单选题]
A.0
B. 1
C. 2
D. 3
提问人：网友xianghong
发布时间：2022-01-07
如搜索结果不匹配，请 
A.在窗体中显示16行的黑、白颜色相间的棋盘
B.在窗体中显示8行10列的黑色棋盘
C.在窗体中显示8行8列的黑、白颜色相间的棋盘
D.以上说法都不正确
题目内容
（请给出正确答案）
您可能会需要：
安装简答题APP，拍照搜题省时又省心！
更多“下列程序段执行后窗体上显示（）。”相关的问题
第1题
在窗体中先建立一个名称为label1的控件数组(它的index属性为0)，当执行以下程序段：PrivateSubForm_Load()DimmtopAsInteger,mleftAsInteger,iAsInteger,jAsIntegermtop=0Fori=1To8mleft=50Forj=1To8k=(i-1)*8+jLoadLabel1(k)Label1(k).BackColor=IIf((i+j)Mod2=0,QBColor(0),QBColor(15))Label1(k).Visible=TrueLabel1(k).Top=mtopLabel1(k).Left=mleftmleft=mleft+Label1(0).WidthNextjmtop=mtop+Label1(0).HeightNextiEndSub执行后的效果是()
第2题
执行以下程序段，在窗体上显示的结果是___A__。PrivateSubForm_Click（）DimSAsString，iAsIntegerS="ab"Fori=Len（S）To1Step-1PrintChr（Asc（Mid（S，i，1））+i）NextIEndSub
A.db
B. cb
C. cc
D. fd
第3题
在窗体下画两个文本框Text1和Text2，一个命令按钮Command1，请阅读下列程序段：Private Sub Command
在窗体下画两个文本框Text1和Text2，一个命令按钮Command1，请阅读下列程序段：
Private Sub Command1_Click()
x=0
Do Until x＞=50
x=(x+4)*(x+3)
n=n+1
Loop
Text1.Text=Str(n)
Text2.Text=Str(x)
End Sub
运行程序后，单击命令按钮，在两个文本框中显示的值分别为()。
A．1和0
B．2和240
C．3和50
D．4和168
第4题
在窗体上添加一个命令按钮Command1，并有如下代码，程序执行后，单击命令按钮，显示结果为（）。 Private Sub Command1_Click（) k = 0 For j = 1 To 2 For i = 1 To 3 k = i + 1 Next i For i = 1 To 7 k = k + 1 Next i Next j Print k End Sub
A.10
B.6
C.11
D.16
第5题
执行以下程序段后，窗体显示的内容为（）。 Private Sub Form_Click（) a = 75 If a ＞= 60 Then k
执行以下程序段后，窗体显示的内容为（）。 Private Sub Form_Click() a = 75 If a ＞= 60 Then k = k + 4 ElseIf a ＞= 70 Then k = k + 3 ElseIf a ＞= 80 Then k = k + 2 ElseIf a ＞= 90 Then k = k + 1 End If Form1.Print "k=", k End Sub
A、k = 1
B、k = 2
C、k = 3
D、k = 4
第6题
下列程序的功能是：当发生窗体的单击事件后，将在窗体上显示"1 ! +2! +3! +...+1 0 ! "
下列程序的功能是：当发生窗体的单击事件后，将在窗体上显示"1 ! +2! +3! +...+1 0 ! "的和。完善下列程序。
Private Sub Form_Click()
Dim s As Long,I As Integer
s=0
For i=1 To 1 0
s=s+()
Next i
Print s
End Sub
Private Function fact(ByVal n As Integer)As Long
Dim i As Integer,f As Long
f=1
For i=2 To n
f=f*i
Next i
()
End Function
第7题
运行下列程序：Private Sub Form_Click（)Dim sum As Double, i As IntegerFor i = 1 To 20If i
运行下列程序：
Private Sub Form_Click()
Dim sum As Double, i As Integer
For i = 1 To 20
If i Mod 5 = 0 Then
sum = sum + i
End If
Next i
Print sum
End Sub
单击窗体后，则在窗体上显示的结果是()。
A.50
B.100
C.4
D.5050
第8题
在窗体上画一个按钮，然后再复制5个，形成名称为Command1的6个控件数组，删除其中Index=4的一个。有
下列程序： Private Sub Command1_Click(Index As Integer) Print Command1.Count； Print Command1.LBound； Print Command1.UBound； End Sub 程序运行后，单击任一命令按钮，则窗体上显示的内容是
点击查看答案
A．0 0 0
B．5 0 5
C．4 0 4
D．4 1 5
第9题
在窗体上添加一个命令按钮，名为Command1，其单击事件中有下列程序段，则事件过程执行后，文本框中输
出()。
点击查看答案
For i=1 To 4
For j=1 To 3
x=3
For k=1 To 2
K=x+3
Next k
Next j
Next i
Text1.Text=Str(x)
A．3
B．6
C．9
D．12
第10题
运行下列程序：Private Sub Form_Click（)For i = 1 To 20If fun1（i) Thens = s ＋ 1End IfNext
运行下列程序：
Private Sub Form_Click()
For i = 1 To 20
If fun1(i) Then
s = s + 1
End If
Next i
Print s
End Sub
Private Function fun1(y) As Boolean
If y Mod 2 ＜＞ 0 Then
fun1 = False
Else
fun1 = True
End If
End Function
单击窗体后，则在窗体上显示的结果是()。
A.110
B.10
C.0
D.20
